Sayfayı Yazdır | Pencereyi Kapat

butona bastığımda panelim açılmıyor

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=1133
Tarih: 26 Temmuz 2025 Saat 13:45
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: butona bastığımda panelim açılmıyor
Mesajı Yazan: goksuselvi
Konu: butona bastığımda panelim açılmıyor
Mesaj Tarihi: 24 Temmuz 2025 Saat 16:29
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



Cevaplar:
Mesajı Yazan: Mahmutdmr
Mesaj Tarihi: 24 Temmuz 2025 Saat 16:53
Merhaba Göksu,

tam olarak kafanda ki konumlandırmayı bilmiyorum ama bu kodu denermisin. nerede konumlandırmak istediğinden bahsedersen de yardımcı olabilirim.Umarım yardımcı olmuştur. iyi çalışmalar dilerim.


secimPanel = AnasayfaForm.AddNewProPanel(MainPnl, 'secimPanel');
  secimPanel.Align = alClient;
  secimPanel.Height = 300;
  secimPanel.Width = 300;
  secimPanel.Visible = false;
  secimPanel.clProSettings.BackGroundColor = clAlphaColor.clHexToColor('#ffe0e0');
  secimPanel.SetclProSettings(secimPanel.clProSettings);


Mesajı Yazan: goksuselvi
Mesaj Tarihi: 24 Temmuz 2025 Saat 17:11
boyutunu halletim çok teşekkür ederim ilk yaptığım kodda neden gözükmedi acaba panel< id="BFI_" style="width: 1px; height: 1px; display: none;">

-------------
göksu



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net