Hallo zusammen,
kennt jemand eine Möglichkeit, die Captions der einzelnen Buttons mit einer Farbe zu bestücken?
Mir reicht schon die Font.Color.
Style und Size von TToolButton lassen sich problemlos ändern. Nur das mit der Farbe bekomme ich nicht hin.
Hat jemand eine Idee?
Gruß
Lorca
TToolBar -> Farben für die "TToolButton"s
Re: TToolBar -> Farben für die "TToolButton"s
Es gibt ein OnPaintButton-Event bei der Toolbar. Nur: du musst dich dann um ALLES kümmern: Text, Icons, Mouse-over Effekt, Dropdown-Pfeile.
Hier der Text-Teil allein:
Hier der Text-Teil allein:
Code: Alles auswählen
procedure TForm1.ToolBar1PaintButton(Sender: TToolButton; State: integer);
var
ext: TSize;
s: String;
begin
Sender.Canvas.Brush.Style := bsClear;
Sender.Canvas.Font.Color := clYellow;
s := TToolButton(Sender).Caption;
ext := Sender.Canvas.TextExtent(s);
Sender.Canvas.TextOut(2, (TToolButton(Sender).Height - ext.CY) div 2, s);
end;
Re: TToolBar -> Farben für die "TToolButton"s
Hallo zusammen, hallo wp_xyz
Danke schön für Deine nette Antwort.
Deine Warnung zu meiner Frage reicht
Ich finde einen anderen Weg evtl. mit einer anderen Komponente.
Viele Grüße
Lorca
Danke schön für Deine nette Antwort.
Deine Warnung zu meiner Frage reicht
Ich finde einen anderen Weg evtl. mit einer anderen Komponente.
Viele Grüße
Lorca