Label färbt sich nicht trotz anderer eingestellte Farbe

[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.

[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