Genel İşlemler

buton

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=614
Tarih: 22 Ocak 2025 Saat 20:37
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: buton

Mesajı Yazan: Binladin
Konu: buton
Mesaj Tarihi: 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');

Cevaplar:

Mesajı Yazan: Atiker01
Mesaj Tarihi: 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;

MyForm.setImage(Img1,' https://cdn-icons-png.flaticon.com/512/160/160205.png" rel="nofollow - https://cdn-icons-png.flaticon.com/512/160/160205.png ');

Btn1= MyForm.AddNewProButton(Panel1,'Btn1','Youtube');

Btn1.Align = alClient;

MyForm.AddNewEvent(Btn1,tbeOnClick,'ShowMessage(''Youtube'')');

MyForm.Run;

}

İyi çalışmalar.