Registriert seit: 13. Feb 2006
Ort: Kempten
253 Beiträge
|
Re: TScrollBox zentrieren
31. Jul 2006, 11:57
TScrollBox kennt kein ClientWidth. Da bin ich auch schon drauf gekommen. Man könnte es ganz umständlich machen mit
ScrollBox1.HorzScrollbar.Range - ScrollBox1.Height - ScrollBox1.VertScrollbar.Size * ord(ScrollBox1.VertScrollbar.Visible)
Aber das muss doch auch einfacher gehen.
//Edit: Das geht auch nicht, da Visible nur angibt ob die Scrollbar überhaupt angezeigt wird falls nötig, nicht ob sie gerade angezeigt wird.
Ich glaube ich verzichte einfach auf die paar Pixel und zeig halt nicht exakt die Mitte.
//Edit²: Ich habs jetzt so, das funktioniert brauchbar: ScrollBox1.HorzScrollBar.Position := (ScrollBox1.HorzScrollBar.Range - ScrollBox1.Width) div 2;
"Conspiracy is the poor man's mapping of the world" - Fredric Jameson
|