Vertical da almostTop özelliği çalışmıyor

   panel içinde panel kullanılabilir mi?

var

 Bilgiekrani:TclStyleForm;
 vScroll:TCLVertScrollBox;
 isimbtn:TClProButton;
 bilgiresmi,bilgiresmi1:TclProImage;
 markalabel,modelilabel,Fiyatlabel,Bedenilabel:TclProLabel;
 ProPanel1 : TclProPanel;

{
  Bilgiekrani=TclStyleForm.Create(Self);
   vScroll = Bilgiekrani.AddNewVertScrollBox(Bilgiekrani,'ScrollBoxY');
   vScroll.Align = alClient;
  // vScroll.ShowSrollBars = True;

 /* ProPanel1=Bilgiekrani.AddNewProPanel(vScroll,'ProPanel1');
  ProPanel1.Align = alClient;
  //ProPanel1.Width = 200;
 // ProPanel1.Height = 280;
  ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#979685');
  ProPanel1.clProSettings.RoundHeight = 10;
  ProPanel1.clProSettings.RoundWidth = 10;
  ProPanel1.clProSettings.BorderWidth = 2;
  ProPanel1.clProSettings.IsFill = True; 
  ProPanel1.clProSettings.IsRound = True;
  ProPanel1.SetclProSettings(ProPanel1.clProSettings);*/

   isimbtn=Bilgiekrani.AddNewProButton(vScroll,'isimbtn','bilgi')
   isimbtn.Height=200;
   isimbtn.Width=250;
   //isimbtn.Align=alTop;
   //isimbtn.Margins.Top=15;
  // isimbtn.Margins.Left=10;
   //isimbtn.Margins.Right=10;
   isimbtn.Align=alTop;
   //isimbtn.Margins.Bottom=0;
   isimbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
   isimbtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');
   isimbtn.ClProSettings.RoundWidth=20;
   isimbtn.ClProSettings.RoundHeight=20;
   isimbtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');
   isimbtn.ClProSettings.FontSize=30;
   isimbtn.ClProSettings.borderWidth=2;
   isimbtn.SetClProSettings(isimbtn.ClProSettings);
   Bilgiekrani.AddNewEvent(isimbtn,tbeOnClick,'');

  bilgiresmi = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi');
  bilgiresmi.Margins.Top=10;
  //bilgiresmi.Margins.Bottom=200;
 // bilgiresmi.Width = 350;
  bilgiresmi.Height = 450;
  bilgiresmi.Align=alTop;
  bilgiresmi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6');
  bilgiresmi.clProSettings.FontColor = clAlphaColor.clDarkorchid;
  bilgiresmi.clProSettings.RoundHeight = 10;
  bilgiresmi.clProSettings.RoundWidth = 10;
  bilgiresmi.clProSettings.BorderWidth = 2;
  bilgiresmi.clProSettings.IsFill = True; 
  bilgiresmi.clProSettings.IsRound = True;
  bilgiresmi.clProSettings.PictureSource = 'https://r.resimlink.com/gy8IVpFt0d.png';
  bilgiresmi.clProSettings.PictureAutoFit = True;
  bilgiresmi.SetclProSettings(bilgiresmi.clProSettings);

  markalabel = Bilgiekrani.AddNewProLabel(vScroll,'markalabel','Markası'+' '+'Nike');
  markalabel.Width = 250;
  markalabel.Height = 30;
  markalabel.Align=alTop;
  //markalabel.Margins.Bottom=50;
 // markalabel.Margins.Top=340;
  markalabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  markalabel.clProSettings.FontSize = 20;
  markalabel.clProSettings.FontVertAlign = palcenter;
  markalabel.clProSettings.FontHorzAlign = palLeading;
  markalabel.clProSettings.TextSettings.Font.Style = [fsBold];
  markalabel.clProSettings.IsFill = True; 
  markalabel.clProSettings.IsRound = True;
  markalabel.SetclProSettings(markalabel.clProSettings);

    bilgiresmi1 = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi1');
  bilgiresmi1.Margins.Top=10;
  //bilgiresmi.Margins.Bottom=200;
 // bilgiresmi.Width = 350;
  bilgiresmi1.Height = 450;
  bilgiresmi1.Align=alTop;
  bilgiresmi1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6');
  bilgiresmi1.clProSettings.FontColor = clAlphaColor.clDarkorchid;
  bilgiresmi1.clProSettings.RoundHeight = 10;
  bilgiresmi1.clProSettings.RoundWidth = 10;
  bilgiresmi1.clProSettings.BorderWidth = 2;
  bilgiresmi1.clProSettings.IsFill = True; 
  bilgiresmi1.clProSettings.IsRound = True;
  bilgiresmi1.clProSettings.PictureSource = 'https://r.resimlink.com/gy8IVpFt0d.png';
  bilgiresmi1.clProSettings.PictureAutoFit = True;
  bilgiresmi1.SetclProSettings(bilgiresmi.clProSettings);
  Bilgiekrani.Run;

}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
ElifKarabacak Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 16 Eylül 2024 Durum: Aktif Değil Puanlar: 15	Mesaj Seçenekleri Yanıt Yaz Alıntı ElifKarabacak Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Vertical da almostTop özelliği çalışmıyor Gönderim Zamanı: 10 Ekim 2024 Saat 15:37
	panel içinde panel kullanılabilir mi? var Bilgiekrani:TclStyleForm; vScroll:TCLVertScrollBox; isimbtn:TClProButton; bilgiresmi,bilgiresmi1:TclProImage; markalabel,modelilabel,Fiyatlabel,Bedenilabel:TclProLabel; ProPanel1 : TclProPanel; { Bilgiekrani=TclStyleForm.Create(Self); vScroll = Bilgiekrani.AddNewVertScrollBox(Bilgiekrani,'ScrollBoxY'); vScroll.Align = alClient; // vScroll.ShowSrollBars = True; /* ProPanel1=Bilgiekrani.AddNewProPanel(vScroll,'ProPanel1'); ProPanel1.Align = alClient; //ProPanel1.Width = 200; // ProPanel1.Height = 280; ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#979685'); ProPanel1.clProSettings.RoundHeight = 10; ProPanel1.clProSettings.RoundWidth = 10; ProPanel1.clProSettings.BorderWidth = 2; ProPanel1.clProSettings.IsFill = True; ProPanel1.clProSettings.IsRound = True; ProPanel1.SetclProSettings(ProPanel1.clProSettings);*/ isimbtn=Bilgiekrani.AddNewProButton(vScroll,'isimbtn','bilgi') isimbtn.Height=200; isimbtn.Width=250; //isimbtn.Align=alTop; //isimbtn.Margins.Top=15; // isimbtn.Margins.Left=10; //isimbtn.Margins.Right=10; isimbtn.Align=alTop; //isimbtn.Margins.Bottom=0; isimbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); isimbtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685'); isimbtn.ClProSettings.RoundWidth=20; isimbtn.ClProSettings.RoundHeight=20; isimbtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9'); isimbtn.ClProSettings.FontSize=30; isimbtn.ClProSettings.borderWidth=2; isimbtn.SetClProSettings(isimbtn.ClProSettings); Bilgiekrani.AddNewEvent(isimbtn,tbeOnClick,''); bilgiresmi = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi'); bilgiresmi.Margins.Top=10; //bilgiresmi.Margins.Bottom=200; // bilgiresmi.Width = 350; bilgiresmi.Height = 450; bilgiresmi.Align=alTop; bilgiresmi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6'); bilgiresmi.clProSettings.FontColor = clAlphaColor.clDarkorchid; bilgiresmi.clProSettings.RoundHeight = 10; bilgiresmi.clProSettings.RoundWidth = 10; bilgiresmi.clProSettings.BorderWidth = 2; bilgiresmi.clProSettings.IsFill = True; bilgiresmi.clProSettings.IsRound = True; bilgiresmi.clProSettings.PictureSource = 'https://r.resimlink.com/gy8IVpFt0d.png'; bilgiresmi.clProSettings.PictureAutoFit = True; bilgiresmi.SetclProSettings(bilgiresmi.clProSettings); markalabel = Bilgiekrani.AddNewProLabel(vScroll,'markalabel','Markası'+' '+'Nike'); markalabel.Width = 250; markalabel.Height = 30; markalabel.Align=alTop; //markalabel.Margins.Bottom=50; // markalabel.Margins.Top=340; markalabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); markalabel.clProSettings.FontSize = 20; markalabel.clProSettings.FontVertAlign = palcenter; markalabel.clProSettings.FontHorzAlign = palLeading; markalabel.clProSettings.TextSettings.Font.Style = [fsBold]; markalabel.clProSettings.IsFill = True; markalabel.clProSettings.IsRound = True; markalabel.SetclProSettings(markalabel.clProSettings); bilgiresmi1 = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi1'); bilgiresmi1.Margins.Top=10; //bilgiresmi.Margins.Bottom=200; // bilgiresmi.Width = 350; bilgiresmi1.Height = 450; bilgiresmi1.Align=alTop; bilgiresmi1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6'); bilgiresmi1.clProSettings.FontColor = clAlphaColor.clDarkorchid; bilgiresmi1.clProSettings.RoundHeight = 10; bilgiresmi1.clProSettings.RoundWidth = 10; bilgiresmi1.clProSettings.BorderWidth = 2; bilgiresmi1.clProSettings.IsFill = True; bilgiresmi1.clProSettings.IsRound = True; bilgiresmi1.clProSettings.PictureSource = 'https://r.resimlink.com/gy8IVpFt0d.png'; bilgiresmi1.clProSettings.PictureAutoFit = True; bilgiresmi1.SetclProSettings(bilgiresmi.clProSettings); Bilgiekrani.Run; }

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 10 Ekim 2024 Saat 16:41
	Merhaba Elif Tabi ki kullanabilirsin panel içinde panel. Kolay Gelsin