Merhaba Ayten,
bu kodu Anaforma eklemen gerekşyor;
var resimsecform: tclform; resimsecbtn : TClProButton;
void resimegit; { Clomosy.RunUnit('uResim'); } { resimsecform = tclform.Create(self); resimsecform.clSetCaption('resim seç'); resimsecbtn = resimsecform.AddNewProButton(resimsecform, 'resimsecbtn', 'RESİM SEÇ'); resimsecbtn.Align = alBottom; resimsecbtn.Width = 150; resimsecbtn.Height = 70; resimsecbtn.clProsettings.Backgroundcolor = clAlphaColor.clHextoColor ('#36a68a'); resimsecbtn.clProsettings.FontSize = 12; resimsecbtn.clProsettings.FontVertAlign = palCenter; resimsecbtn.clProsettings.FontHorzAlign = palCenter; resimsecbtn.clProsettings.IsFill = True; resimsecbtn.setclProsettings(resimsecbtn.clProsettings); resimsecform.AddNewEvent(resimsecbtn,tbeOnClick,'resimegit'); resimsecform.Run; } Diğer kalan aşağıda ki kodu da uResim adlı bir birim oluşturup oraya eklemen gerekiyor; var myform: tclform; resimImg: TClProImage; AnaPanel: TclProPanel;
void cicekresmi; { ShowMessage('resim seçildi'); } { myform= tclform.Create(self); resimImg =myform.AddNewProImage(myform, 'resimImg'); resimImg.Align = alClient; resimImg.clProsettings.PictureSource =' https://resmim.net/cdn/2025/05/11/NF7UY3.jpg" rel="nofollow - https://resmim.net/cdn/2025/05/11/NF7UY3.jpg '; resimImg.SetclProsettings(resimImg.clProsettings); myform.AddNewEvent(myform,tbeOnClick,'cicekresmi'); myform.Run; }
uResim adlı birimdeki hata da Resmi AnaPanel adlı bir bileşene eklemeye çalışmışsın ama panel forma eklenmemiş bir diğer hata da TclProImage bileşeni kullanmak istemişsin forma eklerken AddNewProImage olarak eklemen gerekir.
Sana gönderdiğim şekilde çalıştıra bilirsin.
|