TToolBar: Unintelligentes Autosize

[Namenloser]

Hallo Delphianer,

ich quäle mich gerade durch die Erstellung eines Benutzerinterfaces, und da dürfen Toolbars natürlich nicht fehlen. Der Aufbau sieht so aus:

Code:

TControlBar
- TToolBar
- TToolBar
- ...

Leider verhält sich das Autosize der TToolbar nicht so, wie ich es gerne hätte:

1. Problem
Ich erzeuge die Buttons der Toolbars dynamisch. Wenn WordWrap aktiviert ist wächst die ToolBar grundsätzlich vertikal, obwohl horizontal viel mehr Platz ist.

2. Problem:
Wenn WordWrap deaktiviert ist, ist es noch schlimmer: Dann wächst die Toolbar überhaupt nicht mit. Das lässt sich jedoch zum Glück noch umgehen, indem die Breite ebenfalls per Code gesetzt wird.

3. Problem:
Wenn die ToolBar zur Laufzeit vom Benutzer verschoben wird, aber nicht genug Platz vorhanden ist, schrumpft die Toolbar so, dass sie in die Lücke passt (bei deaktiviertem WordWrap) - wird aber nicht wieder größer, wenn man sie aus der Lücke herauszieht. Bei aktiviertem WordWrap passiert im Grunde das gleiche, nur dass die Toolbar noch in der Vertikalen wächst.


Gibt es irgendeine Möglichkeit, diese Komponente halbwegs benutzbar zu machen?
Ich bin leider auf die mitgelieferten Komponenten angewiesen, da ich Turbo Delphi Explorer benutze, kann TBX und Co also nicht nutzen.

Das noch nicht sehr weit fortgeschrittene Programm ist im Anhang.


Vielen Dank