Einzelnes Feld der ListView färben

[DeddyH]

Zitat von Delphi-Hilfe:

Das Ereignis OnCustomDrawSubItem wird ausgelöst, wenn ein Unterelement in einer Listenansicht gezeichnet wird.

type TLVCustomDrawSubItemEvent = procedure(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean) of object;
property OnCustomDrawSubItem: TLVCustomDrawSubItemEvent

Beschreibung

Nehmen Sie in eine OnCustomDrawSubItem-Ereignisbehandlungsroutine Code auf, der die Unterelemente zeichnet, die in zusätzlichen Spalten rechts neben den einzelnen Elementen angezeigt werden, wenn die Eigenschaft ViewStyle auf vsReport gesetzt ist. Verwenden Sie die Eigenschaft Canvas der Listenansicht als Zeichenfläche.

Der Parameter Sender gibt die Listenansicht an, zu der die Unterelemente gehören. Der Parameter Item ist das aktuell gezeichnete Element. Der Parameter SubItem enthält den Index des Unterelements dieses Listenelements aus dessen Eigenschaft SubItems. Die Eigenschaft State legt verschiedene Attribute fest, die die Art und Weise, wie das Unterelement gezeichnet wird beeinflussen. Setzen DefaultDraw auf False, wenn das Steuerelement den Text der Unterelemente nicht zeichnen soll, nachdem die Ereignisbehandlungsroutine beendet ist.