Das leidige Thema Buttonfarbe...

[matashen]

Kannst du bei XE8 nicht einen eigenen Style erstellen?

[Uwe Raabe]

Da du ja sowieso VCL-Styles verwendest, kannst du dem Button über das Property StyleName einen anderen Style zuweisen als dem Rest des Forms. Der Style muss nur unter Erscheinungsbild mit ausgewählt sein.

[calibra301]

Hallo,

das wäre natürlich eine Idee. Mal sehen wie performant das ist weil teilweise in einer Schleife
bis zu 60 Buttons umgeschaltet werden.

Ist aber nicht meine Woche. Hab heute morgen den 12.3er Patch installiert.
Hab den Designer vorher nie verwendet. Dateiversion 29.0.53571.9782 Startet mit diversen Zugriffsverletzungen...

[Gausi]

Vielleicht bringt dich auch schon die Eigenschaft StyleElements des Buttons weiter. Wenn du da seFont rausnimmmst, könnte das schon die FontColor richtig setzen.

Ansonsten: Wenn man Spezialwünsche bei Buttons hat, kommt man kaum an eigenen Komponenten vorbei, denke ich. Für meinen mp3-Player habe ich mir einen TSkinButton gebastelt (bei TBitBtn gespickt). Da kann ich jetzt z.B. über eine ImageList Grafiken für den Hintergrund angeben (normal, Highlight, pressed, disabled), oder auch den Button transparent anzeigen, so dass man nur das Glyph/Icon sieht. Eine Caption brauch ich nicht, daher fehlt die in dem Code. Ebenso ist das Glyph an sich fix (bzw. die Properties dafür sind nicht published).

Kannst ja mal reinschauen, aktuelle Entwicklung auf Github.

[calibra301]

Hallo Gausi,

das mit den Style Elements hat funktioniert. Textfarbe nun frei wählbar und die restlichen
Texteigenschaften vermutlich auch. Bevor ich ein neues Control baue was ich noch nie gemacht habe
versuche ich mich in der Richtung mal. Danke !

[Uwe Raabe]

Oh, ich hatte das so verstanden, dass du die Farbe des Buttons selbst ändern willst - nicht nur die Textfarbe.

[calibra301]

Hallo Uwe,

Farbe wäre schon besser.
Oder ein Bitmap tauschen und der Text bleibt da.
Sieht auch schöner aus...
Siehe Bild...

[Uwe Raabe]

Hier mal ein kurzes Video: https://app.screencast.com/yWgR7FeCt591P.

Das Form verwendet den Style Charcoal Dark Slate und für den Down-State wird auf Golden Graphite umgeschaltet. Ich habe das bewusst auf Styles beschränkt, die bei Delphi dabei sind.

Hier noch der relevante Code:

Delphi-Quellcode:

const
  cAltStyle = 'Golden Graphite';

type
  TButtonHelper = class helper for TButton
  private
    function GetDown: Boolean;
    procedure SetDown(const Value: Boolean);
  public
    property Down: Boolean read GetDown write SetDown;
  end;

function TButtonHelper.GetDown: Boolean;
begin
  Result := not StyleName.IsEmpty;
end;

procedure TButtonHelper.SetDown(const Value: Boolean);
begin
  if Value then begin
    Caption := 'On';
    StyleName := cAltStyle;
  end
  else begin
    Caption := 'Off';
    StyleName := '';
  end;
end;

procedure TForm897.ButtonClick(Sender: TObject);
{ wird von beiden Buttons verwendet }
begin
  var btn := Sender as TButton;
  btn.Down := not btn.Down;
end;

[TurboMagic]

Zitat von Uwe Raabe:

Oh, ich hatte das so verstanden, dass du die Farbe des Buttons selbst ändern willst - nicht nur die Textfarbe.

Hatte ich auch so verstanden und dann JVCL's JvTransparentButton empfohlen,
da man dort die Farbe des Buttons setzen kann.