Einzelnes Feld der ListView färben

[Reinhardtinho]

Hallo allerseits,

Wenn eine besimmte Bedingung erfüllt ist, möchte ich, dass ein Feld in der ListView eine andere Hintergrundfarbe erhält.

Die Komponente heißt JvListView und der ViewStyle ist auf vsReport eingestellt.

Im Moment fülle ich den Hintergrund in dem OnCustomDrawItem-Event mit:

Delphi-Quellcode:

procedure TForm_Main.JvListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin

...

Sender.Canvas.Brush.Color := $00CD00;

...
end;

Dabei wird aber die ganze Zeile eingefärbt. Ich möchte aber, dass nur eine Zelle gefärbt wird, also zum Beispiel das Feld Item.SubItems[i].

Ich bin für jeden Tipp dankbar.

MFG
Lorenz

[Hafish]

Hab das noch nicht gemacht und auch gerade keine Zeit das zu testen, aber gibt es da nicht sowas wie OnCustomDrawSubItem? evtl kannst du das ja da mal probieren.

[Reinhardtinho]

Erst einmal Danke für die Hilfe, aber ...

Das habe ich vergessen zu erwähnen...

Ich habe mehrere SubItems in der ListView ( 8 ). OnCustomDrawSubItem behandelt die wohl alle gleich, sodass alle die neue Hintergrundfarbe erhalten. Bei nur einem SubItem würde es gehen, so aber leider nicht.


[Edit]Aus ( 8 ) wurde ein (8).[/Edit]

[DeddyH]

Zitat:

Zitat von Reinhardtinho

OnCustomDrawSubItem behandelt die wohl alle gleich, sodass alle die neue Hintergrundfarbe erhalten.

Sicher? Ich habe hier gerade die JVCL nicht installiert, aber im Standard-Listview wird der Parameter SubItem übergeben, den Du auswerten könntest.

[Reinhardtinho]

Das ist richtig.

Aber die Items/SubItems haben weder die Eigenschaft Canvas noch Color, deswegen weiß ich nicht, wie ich die Farbe setzen soll.

Vielleicht muss ich irgendeine Umwandlung machen, aber ich weiß nicht wie.


[Edit]Rechtschreibung[/Edit]

[DeddyH]

Zitat:

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.

[Reinhardtinho]

Ja klappt, vielen Dank nochmals.

Ich habe wohl deinen ersten Post falsch verstanden :angel2:


Bis Demnächst

Lorenz