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ß

[Popov]

Wobei, ich sehe ich hab oben einen kleinen Fehler gemacht. Die Farbe kommt von Font.Color, nicht von Pen. Auch muss man nicht alles aus meinem ersten Beispiel nutzen, zwei Zeilen reichen:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Label1.Canvas.Font.Color := clRed;
  Label1.Canvas.TextOut(0, 0, Label1.Caption);
end;

Und den Text aus Caption nehmen und wie Bernd G. sagte, in Paint setzten.

[himitsu]

Wenn sich aber nicht die (ganze) Form neu zeichnent, bringt es dennoch nichts.

Und wenn das Label z.B. in einem Panel, oder Dergleichen, liegt, dann braucht man nicht jedes mal die ganze Form neu zu zeichnen.
Grade via RDP und Co. erlebe ich ständig soeinen Mist, wenn Unmassen unnötiger Zeichenoperationen alles lahmlegen.

[Popov]

Nenne mich Lügner, aber so wie ich das bei einigen Tests in der Vergangenheit festgestellt habe, ist Windows in der Hinsicht sehr optimiert. Es wird nichts neu gezeichnet was nicht neu gezeichnet werden muss. Wird also ein Teil des Fenster überdeckt und wieder sichtbar gemacht, wird auch nur dieses kleine Teil des Fenster neu gezeichnet.

Das mag hier im Beispiel anders sein, denn eine Anweisung ist eine Anweisung. Letztendlich ist das nur eine Möglichkeit.

[himitsu]

Genau.

Das Label, bzw. seine übergeordnete Komponente, wird neu gezeichnet, übermalt somit deinen Text,
aber wenn dabei nicht die Form gezeichnet wird, weil jemand denkt das sei nicht nötig, dann wird dein Form.OnPaint nicht ausgeführt. :zwinker:

[F4n4t1k]

Eure ansätze sind alle gut die Lösung aber liegt in der Labeleigenschaft Transparent wen diese auf True steht könnt ihr machen was ihr wollt bei False funktioniert die Eigenschaft Color ein wandfrei



gruß F4n4t1k