AW: Label färbt sich nicht trotz anderer eingestellte Farbe
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:
Und den Text aus Caption nehmen und wie Bernd G. sagte, in Paint setzten.
procedure TForm1.FormPaint(Sender: TObject);
begin Label1.Canvas.Font.Color := clRed; Label1.Canvas.TextOut(0, 0, Label1.Caption); end; |
AW: Label färbt sich nicht trotz anderer eingestellte Farbe
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. |
AW: Label färbt sich nicht trotz anderer eingestellte Farbe
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. |
AW: Label färbt sich nicht trotz anderer eingestellte Farbe
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: |
AW: Label färbt sich nicht trotz anderer eingestellte Farbe
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz