Clomosy | Forum : buton https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:38:45 +0000 Wed, 12 Jun 2024 10:59:40 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=614 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[buton : Merhaba,Aşağıdaki şekilde uygulayabilirsin.var...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=614&PID=887#887 Yazar: Atiker01
Konu: 614
Gönderim Zamanı: 12 Haziran 2024 Saat 10:59

Merhaba,

Aşağıdaki şekilde uygulayabilirsin.

var
  MyForm : TclForm;
  Panel1 : TclProPanel;
  Img1 : TclImage;
  Btn1 : TclProButton;
{
  MyForm = TclForm.Create(Self);
  Panel1=MyForm.AddNewProPanel(MyForm,'Panel1');
  Panel1.Align = AlCenter;
  Panel1.Height = 50;
  Panel1.Width = 200;
  Panel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#8d445a');
  Panel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C06C84');
  Panel1.clProSettings.BorderWidth = 1;
  Panel1.clProSettings.RoundHeight = 20;
  Panel1.clProSettings.RoundWidth = 20;
  Panel1.clProSettings.IsRound = True;
  Panel1.clProSettings.IsFill = True;
  Panel1.clProSettings.IsTransparent = False;
  Panel1.SetclProSettings(Panel1.clProSettings);
  
  Img1= MyForm.AddNewImage(Panel1,'Img1');
  Img1.Align = alLeft;
  Img1.Width = Panel1.Width / 3;
  
  Btn1= MyForm.AddNewProButton(Panel1,'Btn1','Youtube');
  Btn1.Align = alClient;
  MyForm.AddNewEvent(Btn1,tbeOnClick,'ShowMessage(''Youtube'')'); 
  
  MyForm.Run;
}

İyi çalışmalar.
]]> Wed, 12 Jun 2024 10:59:40 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=614&PID=887#887 <![CDATA[buton : butona eklediğim icon resmini...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=614&PID=885#885 Yazar: Binladin
Konu: 614
Gönderim Zamanı: 11 Haziran 2024 Saat 20:24

butona eklediğim icon resmini nasıl sol tarafa yaslayabilirim.
  ytbBtn = MyForm.AddNewProButton(VSB,'ytbBtn','YouTube');
  clComponent.SetupComponent(ytbBtn,'{"Align" : "MostTop","Height":'+IntToStr((SearchPnl.Height/2)/6)+',"Width":'+IntToStr(SearchPnl.Width)+',"RoundWidth":10,"RoundHeight":10,"BackGroundColor":"#C06C84","TextColor":"FFFFFF","TextSize":20,"TextBold":"yes","TextVerticalAlign":"center","TextHorizontalAlign":"center","MarginTop":350}');
  MyForm.SetImage(ytbBtn,'https://cdn-icons-png.flaticon.com/512/160/160205.png');
  MyForm.AddNewEvent(ytbBtn,tbeOnClick,'YouTube');


]]> Tue, 11 Jun 2024 20:24:38 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=614&PID=885#885