var AnasayfaForm: TclForm;
MainPnl,mypanel,mypanel1,mypanel2,hpanel,secimPanel:TclProPanel; Label1,Label2: TCLProLabel; EmailEdit:TCLProEdit; mybuton1,mybuton2,mybuton3,mybuton4,btnresim,hayvanbuton:TClProButton; unit1:TCLUnit; yastikimg:TClProImage;
void hayvanbutonClick { secimPanel.Visible = true; }
void mybuton3click
{ Clomosy.RunUnit('mybuton3'); }
{ AnasayfaForm=TclForm.Create(Self); AnasayfaForm.SetFormBGImage('https://i.imgur.com/tyHmjs5.png');
MainPnl=AnasayfaForm.AddNewProPanel(AnasayfaForm,'MainPnl'); MainPnl.Align=alCenter; MainPnl.Height=630; MainPnl.Width=400; MainPnl.clProSettings.RoundHeight=40; MainPnl.clProSettings.Roundwidth=40; MainPnl.clProSettings.IsTransparent =False; MainPnl.SetclProSettings(MainPnl.clProSettings);
mypanel1=AnasayfaForm.AddNewProPanel(AnasayfaForm,'mypanel1'); mypanel1.Align=almosttop; mypanel1.Align=alHorizontal; mypanel1.Height=150; mypanel1.Width=200; mypanel1.clProSettings.IsTransparent =True; mypanel1.SetclProSettings(mypanel1.clProSettings);
btnresim=AnasayfaForm.AddNewProButton(mypanel1,'btnresim', ''); btnresim.Align = alcenter; btnresim.Width = 250; btnresim.Height = 130; btnresim.clProSettings.IsRound = True; btnresim.clProSettings.RoundHeight = 10; btnresim.clProSettings.RoundWidth = 10; btnresim.SetclProSettings(btnresim.clProSettings); AnasayfaForm.SetImage(btnresim,'https://i.imgur.com/kvaKr8c.png');
Label1 = AnasayfaForm.AddNewProLabel(mypanel1,'Label1','kullanıcı1');
Label1.Align=albottom; label1.margins.left=153; Label1.Width=50; Label1.Height=50; Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); Label1.clProSettings.FontSize = 15; Label1.clProSettings.TextSettings.Font.Style = [fsBold]; Label1.SetclProSettings(Label1.clProSettings);
hpanel=AnasayfaForm.AddNewProPanel(MainPnl,'hpanel'); hpanel.Align=alcenter; hpanel.margins.right=150; hpanel.margins.left=4; hpanel.Height=300; hpanel.Width=250; hpanel.margins.bottom=70; hpanel.clProSettings.IsTransparent =true;; hpanel.SetclProSettings(hpanel.clProSettings); yastikimg =AnasayfaForm.AddNewProImage(hpanel, 'yastikimg' ); yastikimg.Align = alMostBottom; yastikimg.Width = 200; yastikimg.Height = 200; AnasayfaForm.SetImage(yastikimg, 'https://i.imgur.com/muV28t3.png'); hayvanbuton=AnasayfaForm.AddNewProButton(hpanel,'hayvanbuton',''); hayvanbuton.Align = alCenter; hayvanbuton.Margins.top=100; hayvanbuton.Height = 150; hayvanbuton.Width = 200; hayvanbuton.Margins.Bottom = 5; hayvanbuton.clProSettings.IsFill = True; hayvanbuton.clProSettings.FontVertAlign = palLeading; hayvanbuton.clProSettings.FontHorzAlign = palcenter; hayvanbuton.clProSettings.PictureAutoFit = True; hayvanbuton.SetclProSettings(hayvanbuton.clProSettings); AnasayfaForm.SetImage(hayvanbuton,'https://i.imgur.com/MRrpLzP.png'); AnasayfaForm.AddNewEvent(hayvanbuton, tbeOnClick, 'hayvanbutonClick');
secimPanel = AnasayfaForm.AddNewProPanel(MainPnl, 'secimPanel'); secimPanel.Align = alCenter; secimPanel.Height = 300; secimPanel.Width = 300; secimPanel.Visible = false; secimPanel.SetclProSettings(secimPanel.clProSettings);
//////BUTON//////////////////////////////////////////////////////////////////7 mypanel=AnasayfaForm.AddNewProPanel(MainPnl,'mypanel'); mypanel.Align=alMostBottom; mypanel.Align=alHorizontal; mypanel.Height=200; mypanel.Width=300; mypanel.clProSettings.RoundHeight=20; mypanel.clProSettings.Roundwidth=20; mypanel.clProSettings.IsTransparent =False; mypanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff'); mypanel.clProSettings.BorderWidth = 2; mypanel.SetclProSettings(mypanel.clProSettings);
mybuton1=AnasayfaForm.AddNewProButton(mypanel, 'mybuton1', ''); mybuton1.Align = alLeft; mybuton1.margins.left=50; mybuton1.margins.bottom=130; mybuton1.Width = 40; mybuton1.Height = 40; mybuton1.clProSettings.IsRound = True; mybuton1.clProSettings.RoundHeight = 10; mybuton1.clProSettings.RoundWidth = 10; mybuton1.SetclProSettings(mybuton1.clProSettings); AnasayfaForm.SetImage(mybuton1,'https://i.imgur.com/KcmLm4h.png');
mybuton2=AnasayfaForm.AddNewProButton(mypanel, 'mybuton2', ''); mybuton2.Align = alLeft; mybuton2.margins.left=45; mybuton2.margins.bottom=130; mybuton2.Width = 40; mybuton2.Height = 40; mybuton2.clProSettings.IsRound = True; mybuton2.clProSettings.RoundHeight = 10; mybuton2.clProSettings.RoundWidth = 10; mybuton2.SetclProSettings(mybuton2.clProSettings); AnasayfaForm.SetImage(mybuton2,'https://i.imgur.com/mcpG1Ot.png');
mybuton3=AnasayfaForm.AddNewProButton(mypanel, 'mybuton3', ''); mybuton3.Align = alLeft; mybuton3.margins.left=45; mybuton3.margins.bottom=130; mybuton3.Width = 40; mybuton3.Height = 40; mybuton3.clProSettings.IsRound = True; mybuton3.clProSettings.RoundHeight = 10; mybuton3.clProSettings.RoundWidth = 10; mybuton3.SetclProSettings(mybuton3.clProSettings); AnasayfaForm.SetImage(mybuton3,'https://i.imgur.com/yOGrUe4.png'); AnasayfaForm.AddNewEvent(mybuton3,tbeOnClick,'mybuton3click') mybuton4=AnasayfaForm.AddNewProButton(mypanel, 'mybuton4', ''); mybuton4.Align = alMostRight; mybuton4.margins.right=50; mybuton4.margins.bottom=130; mybuton4.Width = 40; mybuton4.Height = 40; mybuton4.clProSettings.IsRound = True; mybuton4.clProSettings.RoundHeight = 10; mybuton4.clProSettings.RoundWidth = 10; mybuton4.SetclProSettings(mybuton4.clProSettings); AnasayfaForm.SetImage(mybuton4,'https://i.imgur.com/dKnXBVF.png');
mybuton3click; AnasayfaForm.run; } hayvan butonuna bastığımda panelim açılmıyor yanlış mı konumlandırdım yardım ederseniz sevinirim.
< id="BFI_" style="width: 1px; height: 1px; display: none;">
------------- göksu
|