Farbe des Textes im Button verändern

[Raffy]

Hallo Leute

Ich möchte die Farbes eines Textes in einem Button
verändern. Ich hab aber keine Ahnung wie man das macht.
Eigentlich habe ich gedacht, dass ich das über
+Font machen kann aber "Pustekuchen". Ich weiß jett aber schon
mal, das es was mit TbitBtn zu tun hat. Wäre echt nett wenn
ihr mir helfen würdet.

MFG
Raffy

[bttb930]

ich hätte auch gedacht dass das in Font einzustellen ist, geht aber auch bei mir nicht. Ein Fehler in der VCL???

[franktron]

ganz einfach

button1.font.color:=clRed; //z.b. oder clBlack u.s.w.

[Raffy]

Das kann eigentlich kein vlc fehler sein. denn mir sitzt mein
kollege und bei dem funktioniert es auch nicht über font.
das muss irgendeine andere ursache haben.

[Raffy]

soweit so gut.
aber ( tut mir leid ich bin anfänger )
wo muss ich das einfügen?

[scp]

Die Farbe eines Button lässt sich standardmäßig in Windows nicht ändern (nur über die anzeigeeinstellungen).
Deshalb musst du auf eine andere Komponente, z.B. TColorButton oder die Jedi VCL zurückgreifen.

[franktron]

z.b.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  button1.font.color:=clRed;
end;

[shmia]

Zitat von scp:

Die Farbe eines Button lässt sich standardmäßig in Windows nicht ändern (nur über die anzeigeeinstellungen).
Deshalb musst du auf eine andere Komponente, z.B. TColorButton oder die Jedi VCL zurückgreifen.

Stimmt, aber am Hintergrund eines Buttons kann man etwas drehen:
Hintergrundbitmap für TEdit Controls

[Luckie]

Zitat von shmia:

Stimmt, aber am Hintergrund eines Buttons kann man etwas drehen:
Hintergrundbitmap für TEdit Controls

Ich hoffe das war jetzt nur ein kleiner Fehltritt. Denn ich gehe mal davon aus, dass du den Unterschied zwischen einen Button und einem Edit kennst. Zu einem Button sagt nämlich das PSDK:

Zitat von PSDK:

Drawing push buttons requires several different brushes-face, highlight and shadow-but the WM_CTLCOLORBTN message allows only one brush to be returned. To provide a custom appearance for push buttons, use an owner-drawn button.

Also mit WM_CTLCOLORBTN läßt sich die Farbe des Buttons nicht beeinflussen.

[eddy]

Hallo franktron,

alle ignorieren Dich !!

Wahrscheinlich ist die Deine Antwort zu unauffällig.

Code:

procedure TFBP.SpeedButton2Click(Sender: TObject);
begin
  if SpeedButton1font.color = clWindowText then begin
    SpeedButton1font.color := clRed;
    SpeedButton1Font.Style := SpeedButton1Font.Style + [fsbold];
  end
  else begin
    SpeedButton1font.color:=clWindowText;
    SpeedButton1Font.Style := SpeedButton1Font.Style - [fsbold];
  end;
end;

Funktioniert super !

mfg
eddy