Komponente TScrollBoxFlow

stahli

Hallo Gemeinde,

ich will auch einmal Gutes tun und meine neue Komponente im Forum hinterlegen...

Das ist eine TScrollBox, die alle enthaltenen Controls automatisch "optimal" anordnet und dabei einige Optionen anbietet:

TScrollBoxFlow = class(TScrollBox)

procedure Flow;
- aktualisiert die Anordnungen
- wird automatisch bei Resize und Propertyänderungen durchgeführt

property FlowSort;
- legt fest, wie die Controls zuvor sortiert werden
- das beste Ergebnis (geringste Zwischenräume) ist mit ControlBreite-Absteigend zu erreichen
- das führt allerdings dazu, dass die größten Komponenten alle möglichst oben links stehen

property FlowMargin;
- legt den freien Bereich um jedes Control fest

globale Variable TestMode:
- ermöglicht die schrittweise Anzeige der Berechnungen

Die Arbeitsweise:
- die Anordnung erfolgt derzeit immer vertikal
- eine Erweiterung auf horizontale Anordnung wäre aber auch leicht möglich
- die Komponenten werden nacheinander möglichst weit oben und links positioniert
- ist ein Platz gefunden, wird dieser festgelegt
- eine rekursive Suche oder ein nachträglier Tausch von positionierten Komponenten zwecks einer evtl. Optiomierung erfolgt nicht
- (die Ableitung von TsScrollBox (AlphaSkins) statt von TScrollBox ist problemlos möglich)

Gruß Stahli

**mimi**

ich schreibe gerade auch an einer scrollbox die in etwa nach diser Technik die ich hier vorgestellt habe(als pluto)

http://www.delphigl.com/forum/viewtopic.php?t=7669
das meiste geht auch schon recht gut, arbeitet deine nach dem selben Grund Prinzip ?

**stahli**

Nein, ich denke nicht.

Ich benutze eine ganz normale TScrollBox und habe der lediglich die Fähigkeit hinzugefügt, die in ihr bereits enthaltenen Controls so anzuordnen, dass möglichst wenig Freiräume entstehen.
Die Positionen berechne ich "virtuell", indem ich für jedes Control ein Rect verwalte und diese Rects nacheinander möglichst sinnvoll anordne.
Dann werden die Rect-Positionen einfach den zugehörigen Controls zugewiesen.

Das funktioniert schnell und gut, aber eigentlich ist es eine ganz normale ScrollBox.

Stahli

**mimi**

ach so, hatte mir dein Soruce-Code nicht angeschaut !

mimi FreePascal / Lazarus	#2 24. Jul 2008, 16:14 ich schreibe gerade auch an einer scrollbox die in etwa nach diser Technik die ich hier vorgestellt habe(als pluto) http://www.delphigl.com/forum/viewtopic.php?t=7669 das meiste geht auch schon recht gut, arbeitet deine nach dem selben Grund Prinzip ? Michael Springwald
	Zitat

mimi FreePascal / Lazarus	#4 24. Jul 2008, 16:35 ach so, hatte mir dein Soruce-Code nicht angeschaut ! Michael Springwald
	Zitat

Komponente TScrollBoxFlow

Forumregeln