Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Scrollbox ve Anchors
#1
İki gündür uğraşıp çözemediğim bir sorunla karşılaştım.
Boş bir forma bir tane TScrollbox ekledim. Align=Client.
Sonra bu scrollbox içine bir tane Label ekledim. Layoutlarda yaptığım gibi mouse ile yatayda ortaladım ve yeniden boyutlamalarda aynı görünsün diye Anchors değerlerini false yaptım. Sürekli kullandığım bir yöntem.
Uygulamayı çalıştırdığımda Scroll genişlemiş ve label en sağda görünüyor.
Atladığım bir şeyler mi var?
Cevapla
#2
Eğer doğru anladıysam benzer bir işlemi progressBar için aşağıdaki gibi yapıyorum.



 
 Label1.Parent := progressBar1;
  Label1.AutoSize := False;
 Label1.Transparent := True;
 Label1.Top :=  0;
 Label1.Left :=  0;
 Label1.Width := progressBar1.ClientWidth;
 Label1.Height := progressBar1.ClientHeight;
 Label1.Alignment := taCenter;
 Label1.Layout := tlCenter;
 Label1.Caption :=  inttostr(Round(AWorkCount / 1024))+' KB';

V3NVOr.png
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#3
(17-11-2017, Saat: 08:36)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlEğer doğru anladıysam benzer bir işlemi progressBar için aşağıdaki gibi yapıyorum.



 
 Label1.Parent := progressBar1;
  Label1.AutoSize := False;
 Label1.Transparent := True;
 Label1.Top :=  0;
 Label1.Left :=  0;
 Label1.Width := progressBar1.ClientWidth;
 Label1.Height := progressBar1.ClientHeight;
 Label1.Alignment := taCenter;
 Label1.Layout := tlCenter;
 Label1.Caption :=  inttostr(Round(AWorkCount / 1024))+' KB';

V3NVOr.png

O şekilde değil de bir mantık hatası yapmışım galiba.
Forma VertScrollbox eklemiştim. Onun içine controlleri eklemiştim. Bu yüzden çok uğraştım.
Forma VertScrollbox ekledikten sonra onun içine bir layout eklemem gerekiyormuş. Controlleri de o layout un içine ekledim. 
VertScrollbox ----> Align = Client
Layout ------------->Align = Top
Controller-----------> Anchors---> akLeft=False, akTop=True ve diğerleri False.

Bu şekilde sağlıklı oldu gibi dizayn. Layoutun yüksekliğini artırarak dilediğim kadar control ekleyebiliyorum. Uygulamayı çalıştırdığımda ise ekranda gördüğüm şekilde hizalı ve scroll edilebilir bir görüntü elde ediyorum.
Cevapla

Konuyu Paylaş : facebook gplus twitter





Konuyu Okuyanlar: 1 Ziyaretçi