Re: Hintergrundfarbe Zeile ListView Inhalt-Abhängig
Also ich hab Delphi 5 und bei mir gibt es beides.
Brauchst du ein Beweisfoto? :) Tschüß Markus |
Re: Hintergrundfarbe Zeile ListView Inhalt-Abhängig
@Alle: Bitte beim Thema bleiben ;-)
@Micha: Das Zauberwort dürfe .OnCustomDrawItem und .OnCustomDrawSubItem heissen. Hier ein Beispiel:
Delphi-Quellcode:
In OnCustomDrawItem werte ich den Inhalt des ersten SubItems (wo die Tagesdifferenz steht) aus.
var
farbe : TColor; procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var i_wert : Integer; begin farbe := clWhite; //Standardfarbe i_wert := StrToInt (Item.SubItems.Strings[0]); // Inhalt von Spalte 2 if i_wert <= 0 then farbe := clgreen; if i_wert < -14 then farbe := clYellow; if i_wert < -21 then farbe := clred; if i_wert > 0 then farbe := clblue; ListView1.Canvas.Brush.Color := farbe; // Hintergrundfarbe des Items setzen end; procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); begin ListView1.Canvas.Brush.color := farbe; // Hintergrundfarbe der SubItems setzen end; Abhängig davon weise ich einer globalen Variablen einen Farbwert zu. In OnCustomDrawSubItem verwende ich diese um die Hintergrundfabe zu setzen. Das solltest Du eigentlich anpassen könnne. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:50 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