Clomosy | Forum : genel işlemler

Clomosy | Forum : genel işlemler https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 08:57:33 +0000 Mon, 12 May 2025 09:57:44 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1005 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[genel işlemler : Merhaba Ayten,bu kodu Anaforma...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1005&PID=2006#2006 Yazar: Emr.Erkmn
Konu: 1005
Gönderim Zamanı: 12 Mayıs 2025 Saat 09:57

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';

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.

]]> Mon, 12 May 2025 09:57:44 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1005&PID=2006#2006 <![CDATA[genel işlemler : varresimsecform: tclform;resimsecbtn...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1005&PID=2002#2002 Yazar: aytnnr
Konu: 1005
Gönderim Zamanı: 11 Mayıs 2025 Saat 16:27

var