Label färbt sich nicht trotz anderer eingestellte Farbe

[Luki206]

Hi, ich habe ein Problem mit den Labels. Ich will diese einfärben bzw. beim Punkt Font die Farbe ändern. Klappt auch (wäre ja auch blöd wenn nicht :D) nur wenn ich jetzt das Programm ausführe, bleiben die Labels schwarz und ich weiß nicht warum. Ich muss dazu sagen das die Labels über einen Image liegen aber ich habe sie auch einmal weggezogen und es hat nicht geklappt.
Kennt jemand diesen Fehler? :gruebel:

Danke
Luki :)

[Popov]

Evtl. ParentFont oder ParentColor? Bin mir nicht sicher, einfach mal gucken.

[Sir Rufo]

Benutzt du die Styles?

Dann kannst du das mit dem Färben vergessen

[Popov]

Ich hab das in der Praxis zwar selbst noch nie genutzt, somit weiß ich nicht ob das in allen Einzelheiten funktioniert, aber TLabel besitzt auch eine Canvas, und auf der kann man schreiben was mal will:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Canvas.Brush.Style := bsSolid;
  Label1.Canvas.Brush.Color := clWhite;
  Label1.Canvas.FillRect(Label1.Canvas.ClipRect);
  Label1.Canvas.Pen.Color := clRed;
  Label1.Canvas.TextOut(0, 0, 'Hallo');
end;

Ob das bei dir klappt oder gar mit Styles, weiß ich nicht, aber einfach mal im Hinterkopf behalten.

[Bernhard Geyer]

Zitat:

Zitat von Popov (Beitrag 1257893)

Ich hab das in der Praxis zwar selbst noch nie genutzt, somit weiß ich nicht ob das in allen Einzelheiten funktioniert, aber TLabel besitzt auch eine Canvas, und auf der kann man schreiben was mal will:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Canvas.Brush.Style := bsSolid;
  Label1.Canvas.Brush.Color := clWhite;
  Label1.Canvas.FillRect(Label1.Canvas.ClipRect);
  Label1.Canvas.Pen.Color := clRed;
  Label1.Canvas.TextOut(0, 0, 'Hallo');
end;

Ob das bei dir klappt oder gar mit Styles, weiß ich nicht, aber einfach mal im Hinterkopf behalten.

So eine Implementierung gehört in die OnDraw/Paint-Methode des Labels. So wird es einmal gezeichnet und beim nächsten neuzeichnen ist das selbst gezeichnete weg.

[Luki206]

Ja ich benutze Styles, aber gibt es nicht noch eine andere Methode das Label mit Style zu färben? Oder muss ich das in dem Style machen?

[himitsu]

Kannst du den Style für das/die Labels nicht einfach deaktivieren?

Zitat:

ParentFont oder ParentColor

Die beiden werden eigentlich automatisch deaktiviert, sobald man dem Font/Color etwas zuweist.

[Luki206]

Sind beide deaktiviert :gruebel:

[Sir Rufo]

Wenn du die Styles benutzt, dann kannst du an Farbe alles einstellen - es interessiert nur nicht, denn der Style hat da Vorrang.

Erklärung und Lösung gibt es hier
http://theroadtodelphi.wordpress.com...tyles-enabled/

[Volker Z.]

Hallo,

Zitat:

Wenn du die Styles benutzt, dann kannst du an Farbe alles einstellen - es interessiert nur nicht, denn der Style hat da Vorrang.

Das ist wohl wahr. Seit Delphi XE3 gibt es aber die Eigenschaft StyleElements (seFont, seClient und seBorder sind per Default True, deshalb hat auch der Style Vorrang). Wenn man damit ein bisschen spielt, dann kann man Styles nutzen und trotzdem z. B. die Schriftfarbe vorgeben (seFont dann auf False setzen).

Siehe auch: Verwenden von TControl.StyleElements in VCL-Anwendungen

Gruß