Suche nach Komponente ähnlich wie TToolBar

[completestranger]

Hi,

ich bin auf der Suche nach einer Komponente ähnlich wie TToolBar. Folgende Voraussetzungen müssen erfüllt sein:

• Irgendeine Art Bündelung der Buttons - aber keine Collections, da die Vererbungsmechanik in Delphi diese nicht unterstützt
  The visual form inheritance mechanism does not work for complex components that use published properties holding nested collections.
  Peter Below (TeamB) 2010
• Einfärbung der Buttons - Background und Font
• Propertysupport von Enable und Visible der einzelnen Buttons
• Automatiklogik für Visible, sodass "keine Lücken (in der Anzeige) in der Liste" entstehen
• 32 bit PNG mit Alphakanal Support
• Imagelist Support mit ImageIndex
• TAction Support
• Bestimmung von Breite und Höhe der Buttons
• "Pressed" Support, soll heißen man soll sehen welcher Button noch geklickt ist
• Vertikale Anordnung

Warum funktioniert TToolBar nicht?

• Sobald ShowCaptions aktiviert ist, wird anscheinend automatisch die Width der Buttons gesetzt
• Man sieht "Pressed" nicht - vllt bin ich auch nur unfähig?

Warum funktioniert TCategoryButtons nicht?

• Kein Propertysupport von Enable und Visible
• Keine Vererbung, da so eine ****** Collection benutzt wird

Kann hier jemand weiterhelfen?

[hoika]

Hallo,
Warum funktioniert TToolBar nicht? Bau mal bitte ein Minimal-Bsp. zusammen, was deine 2 Problem (Width, Pressed) zeigt.

[completestranger]

Hier mal ein Beispiel wie es ungefähr aussehen soll.

Folgende Dinge wären noch zu "korrigieren":

1. ToolButton Caption links anordnen
2. Buttonbreite soll gesetzt werden können
3. Das abwählen der ToolButtons soll automatisch erfolgen, wenn man auf einen anderen Button oder Tabsheet klickt

[Andreas L.]

Bei mir (Delphi 2009 Pro) wird die Größe der Buttons nicht verändert wenn ich ShowCaptions aktiviere. Außerdem kannst du die AutoSize-Property von TToolButton verwenden. Images mit 32Bit Alpha geht auch problemlos.

Dein Beispiel-Projekt kann ich leider nicht anschauen weil es die Komponente TSplitView im Delphi 2009 noch nicht gibt.

Gruppen kannst du z. B. mit Panels oder GroupBoxen machen. Einfach ein Panel (Align Top) erstellen. Für jede Gruppe ein weiteres Panel (Align Left) erstellen. In das Panel setzt du dann eine Toolbar mit den Buttons. So kannst du Toolbars/Buttons gruppieren. Du kannst die Gruppen auch optisch trennen. z. B. mit den Panel-Bevels-Properties oder einer anderen Panel-Komponente die Border-Styles unterstützt.

Vielleicht wäre das was für dich?

Beispiel:


Im Anhang ist die EXE inkl. Code.

[Uwe Raabe]

Zitat von completestranger:

Das abwählen der ToolButtons soll automatisch erfolgen, wenn man auf einen anderen Button oder Tabsheet klickt

Das lässt sich ganz einfach realisieren, wenn man im jeweiligen OnUpdate der Actions das Checked der Action anhand der aktuellen TabPage setzt (Beispiel für ABear):

Delphi-Quellcode:

procedure TMainF.ABearExecute(Sender: TObject);
begin
  PCContent.ActivePage := TSBear;
end;

procedure TMainF.ABearUpdate(Sender: TObject);
begin
  ABear.Checked := PCContent.ActivePage = TSBear;
end;

Nebenbei ist dann auch nur immer der richtige Button als Down markiert.

[completestranger]

Zitat von Andreas L.:

Bei mir (Delphi 2009 Pro) wird die Größe der Buttons nicht verändert wenn ich ShowCaptions aktiviere. Außerdem kannst du die AutoSize-Property von TToolButton verwenden. Images mit 32Bit Alpha geht auch problemlos.

Dann wurde mein Problem nicht verstanden. Bitte mach z. B. den Button "Startseite" 350 Pixel breit.

Und bitte die ToolButtons untereinander, also vertikal. Der Text rechts neben den Icons, nicht den Text unter den Icons.

[completestranger]

Zitat von Uwe Raabe:

Das lässt sich ganz einfach realisieren, wenn man im jeweiligen OnUpdate der Actions das Checked der Action anhand der aktuellen TabPage setzt (Beispiel für ABear)

Danke, funktioniert.