Farbe von Button ändern

[Mathias]

Wieso änderst sich die Farbe das Buttons nicht ?

Die Schriftgrösse ändert sich.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Font.Color := $FF;
  Button1.Font.Size := 20;
  Button1.Color := $FF00;
end;      

[Michl]

Unter Windows ist die Farbe von TButtons abhängig vom eingestelltem Theme. Dieses bedingt auch die Farben diverser anderen Komponenten. Die Frage, warum man die Farbe nicht ändern kann, taucht regelmäßig hier im Forum oder auch im englischen Forum auf.

Du könntest einen TBitBtn verwenden:

Code: Alles auswählen

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  BitBtn1.Font.Color := $FF;
  BitBtn1.Font.Size := 20;
end; 

[Antrepolit]

Die Frage ist, warum man die Standardfarbe überhaupt ändern sollte? Schließlich möchte der Benutzer ja gerne das Theme haben, dass er in seinem System eingestellt hat. Ich erinnere mich mit schrecken an diese verbastelten buten GUIs, die unprofessionell wirken und am Ende eigentlich auch optisch recht schäbig sind.

[Mathias]

Die Frage ist, warum man die Standardfarbe überhaupt ändern sollte?

Ich wollte nur bei eine Button-Gruppe die Schrift Dunkelblau machen. Ich habe jetzt fsItalic für diesen Zweck genommen.

Bei einem Game, könnte ich mir farbig Button gut vorstellen. Z.B. wen man ein Senso programmieren will.

[Aliobaba]

Hallo,

Sorry, wenn ich diesen Thread nochmal aufwärme: Kann man mittlerweile schon farbige Buttons generieren?
(Die Antwort, dass das ja eh blöd aussieht, es also niemand braucht, hilft mir grad nicht richtig weiter)
Mein Problem:
Ich habe ein Programm unter Linux geschrieben und kompiliert und brauche dabei mehrere sehr kleine Buttons, die sich besonders durch die Button-Farbe definieren und unterscheiden. Unter Linux wird die Button-Eigenschaft "color" problemlos akzeptiert. Die Entäuschung ist nun, dass dasselbe Programm, kompiliert in einer Windows-Oberfläche, diese Buttons grau (default) läßt obwohl die Eigenschaft "color" im Objektinspektor auch in der "Windows-Version" von Lazarus angeboten wird.

Ist das ein Bug oder stelle ich mich nur wieder 'mal dumm an? ("Programm-Absicht" kanns ja kaum sein, sondern sonst wäre ja wohl die Wahl nicht im Objekt-Inspektor angeboten)

Aliobaba

Und ja - bemüht, selbständig eine Lösung zu finden habe mich ich auch schon, diesen Thread kenne ich: viewtopic.php?f=18&t=1713&

[Mathias]

Unter Linux wird die Button-Eigenschaft "color" problemlos akzeptiert

Interessant, das dies unter Linux geht.

Ist das ein Bug oder stelle ich mich nur wieder 'mal dumm an?

Ich nehme an, das da Windows sich querstellt.

Da hätte ich eine Notlösung, ein Panel, anstatt eines Buttons.

Code: Alles auswählen

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: integer);
begin
  Panel1.BevelOuter := bvLowered;
end;
 
procedure TForm1.Panel1Click(Sender: TObject);
begin
  Panel1.Color:=Random($FFFFFF);
end;
 
procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: integer);
begin
  Panel1.BevelOuter := bvRaised;
end;  

[Aliobaba]

Danke Mathias,
mit einem "kleinen Memo-Feld" habe ich's schon probiert: Geht natürlich --- aber der "Maus-Pfeil" wird immer zum Cursor-Strich

Aliobaba

[m.fuchs]

Wer sprach denn vom Memo-Feld?

[Aliobaba]

Hallo,
ich habe ja auch nur davon berichtet, dass ich's so schon probiert habe (und wollte damit meine bescheidene "Experimentierfreudigkeit" kund tun).
Aliobaba

[m.fuchs]

Ah okay, das las sich etwas missverständlich für mich.

[Komoluna]

Hi, ich bin mir nicht sicher, aber kennst du die Eigenschaft Cursor???
Dann würde auch das Memo funktionieren...

MFG

Komoluna

[theo]

Ist das ein Bug oder stelle ich mich nur wieder 'mal dumm an? ("Programm-Absicht" kanns ja kaum sein, sondern sonst wäre ja wohl die Wahl nicht im Objekt-Inspektor angeboten)

Das ist so dokumentiert.
Gehe unter "Ansicht" -> "Browser für bedingte Eigenschaften" und tippe "TButton" ein.

[Christian]

Die Standardbuttons im Windows können nicht Farbig sein. Da musst dich an Microsoft wenden. Alterativ kannst die Buttons selbst zeichnen. Evntl gehts auch mit Speedbuttons die werden von der LCL gezeichnet.

[Aliobaba]

Hallo,

Danke für die Antworten!
Es hilft aber alles nichts: Wenn Lazarus unter Windows die Eigenschaft "Color" bei Buttons im Objektinspektor anbietet, es aber dann nicht ausführt; das würde ich dann eben "Bug" nennen. (jetzt nehme ich mal auf mich, dass ich geschimpft werde...)

Aber egal, macht ja nichts.
Ich löse das wahrscheinlich so, dass ich eben einen farbigen Rahmen um die winzigen Buttons lege:

Buttons.png (4.1 KiB) 4671 mal betrachtet

Um die winzigen "eigentlichen" Buttons, die unter Linux farbig sind und unter Windows grau, ist ein entsprechender farbiger "Rahmen.

Aliobaba

[theo]

Es hilft aber alles nichts: Wenn Lazarus unter Windows die Eigenschaft "Color" bei Buttons im Objektinspektor anbietet, es aber dann nicht ausführt; das würde ich dann eben "Bug" nennen. (jetzt nehme ich mal auf mich, dass ich geschimpft werde...)

Das Thema ist nicht neu: http://bugs.freepascal.org/view.php?id=9285

Sicher könnte man darüber reden, dass Lazarus das im Objektinpektor je nach Plattform ausblendet.
Das dürfte aber doch recht aufwändig sein. Kannst ja einen Patch machen, wenn es dir wichtig ist: http://wiki.freepascal.org/Creating_A_Patch/de