Sayfayı Yazdır | Pencereyi Kapat

Align

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=791
Tarih: 06 Ocak 2025 Saat 13:46
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Align
Mesajı Yazan: rabiagnbs
Konu: Align
Mesaj Tarihi: 01 Ağustos 2024 Saat 17:48
burada müze yazısı Align al top dememe rağmen ortalanıyor ama numberBox al top'da label'ın en tepesine çıkıyor sebep ne olabilir? : 
   muzePanel=yeniseyahat.AddNewProPanel(VerticalScrollBox,'muzePanel');
    clComponent.SetupComponent(muzePanel,'{
    "MarginBottom":450,
    "Width" :400, 
    "Height":100,
    "RoundHeight":20,
    "RoundWidth":20,
    "BorderColor":"#35115c",
    "BackGroundColor":"#35115c"
     }');
     
    
    muzeSayi = yeniseyahat.AddNewNumberBox(muzePanel,'muzeSayi');
    muzeSayi.Align=alTop;
    muzeSayi.Margins.Left= 200;
    muzeSayi.Margins.Right= 50;
    muzeSayi.Value = 5;
    muzeSayi.Min = 0; 
    muzeSayi.Max = 10; 
    
  
    muze=yeniseyahat.AddNewLabel(muzePanel,'muze','Gittiğiniz Müze Sayısını Giriniz🗽: ');
    muze.Align=alTop;
    muze.Height=50;
    muze.Width=100;
    muze.Margins.Left=50;
    muze.Margins.Right=200;
    muze.TextSettings.Font.Size=15;
    muze.StyledSettings = ssFamily;
    


-------------
RabiaGnbs



Cevaplar:
Mesajı Yazan: Developer
Mesaj Tarihi: 02 Ağustos 2024 Saat 10:17
Merhaba Rabia
Aşağıdaki kodu inceler misin:
var 
myForm:TclForm;
muzePanel:TclProPanel;
muzeSayi:TClNumberBox;
muze:TCLLabel;
VerticalScrollBox:TCLVertScrollBox;
{
   myForm = TclForm.Create(nil);
   VerticalScrollBox        = myForm.AddNewVertScrollBox(myForm,'ScrollBoxY');
   VerticalScrollBox.Align  = alMostTop;
   VerticalScrollBox.Height = myForm.clheight-70;
   
    muzePanel=myForm.AddNewProPanel(VerticalScrollBox,'muzePanel');
    clComponent.SetupComponent(muzePanel,'{
    "MarginBottom":450,
    "Width" :400, 
    "Height":100,
    "RoundHeight":20,
    "RoundWidth":20,
    "BorderColor":"#35115c",
    "BackGroundColor":"#35115c"
     }');
     
    
    muzeSayi = myForm.AddNewNumberBox(muzePanel,'muzeSayi');
    muzeSayi.Align=alTop;
    muzeSayi.Margins.Left= 200;
    muzeSayi.Margins.Right= 50;
    muzeSayi.Value = 5;
    muzeSayi.Min = 0; 
    muzeSayi.Max = 10; 
    
  
    muze=myForm.AddNewLabel(muzePanel,'muze','Gittiğiniz Müze Sayısını Giriniz🗽: ');
    muze.Align=alMostTop;
    muze.Height=50;
    muze.Width=100;
    muze.Margins.Left=50;
    muze.Margins.Right=200;
    muze.TextSettings.Font.Size=15;
    muze.StyledSettings = ssFamily;
    myForm.Run;
}



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