Delphi-Version: XE2
Problem beim Einfärben von ListView (Sub)Items
Hi,
ich benutze folgenden Code, um jedes 2. Item einer ListView einzufärben:
Delphi-Quellcode:
Zudem noch folgenden Code, um bestimmte SubItems einzufärben:
procedure TForm1.lvTestCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin if Odd(Item.Index) then Sender.Canvas.Brush.Color := clSilver else Sender.Canvas.Brush.Color := clWindow; end;
Delphi-Quellcode:
Das Problem ist jetzt, dass nach dem Einfärben des 2. SubItems die Einfärbung (clSilver, s.o) für diese Zeile aufhört und auch noch alle weiteren SubItems (grün) eingefärbt werden.
procedure TForm1.lvTestCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); begin if SubItem = 3 then begin if Item.SubItems[SubItem - 1] = 'OK' then Sender.Canvas.Font.Color := clGreen else Sender.Canvas.Font.Color := clRed; end else Sender.Canvas.Font.Color := clWindowText; end; Warum ist das so? Ich habe im Code doch festgelegt, dass die Farbe wieder clWindowText (schwarz) sein soll, wenn es nicht das 2. SubItem ist. |
AW: Problem beim Einfärben von ListView (Sub)Items
Es gibt wohl ein Problem mit dieser einen Systemfarbe. (einige andere Systemfarben funktionieren aber)
Delphi-Quellcode:
else
Sender.Canvas.Font.Color := ColorToRGB(clWindowText); |
AW: Problem beim Einfärben von ListView (Sub)Items
Danke himitsu (mal wieder, wie oft du mir schon geholfen hast... :thumb:)
|
AW: Problem beim Einfärben von ListView (Sub)Items
Supi, dann ist mein Problem mit dem Färben des Hintergrundes auch gelöst :-D
"ClWindow" mochte er auch nicht direkt, hatte es dann als Workaround immer mit "ClWhite" "Erzwungen", blöd nur wenn jemand ne andere Desktop Farbeneinstellung hatte :twisted: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:35 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