listview 2. Spalte ansprechen

[fkerber]

Hi!

Ja klar, weil in der Listview ja strings drinstehen.
Deswegen muss es bei dir wohl alles in allem so aussehen:

Delphi-Quellcode:

if strtoint(lvi.SubItems.Text) > 0 ...

Ciao fkerber

[Micha]

O.K., aber es funktioniert trotzdem nicht.

Denn

Delphi-Quellcode:

lvi.SubItems.Text

enthält Spalte 2 UND 3

[M-O-D]

Hi,

wenn das Problem noch steht... so gehts:

Im Ereigniss der Listview: ONCustomDrawSubItem

Zugriff aufs Subitem: Item.SubItems[0];

also so(LV is der Name der Listview :zwinker: :
[delphi]

procedure TForm1.LVCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
with LV.Canvas.Brush do begin

if StrToInt(Item.SubItems[0]) > 0 then
Color := clred;

end;
end;
[delphi]


Ich hoffe es hilft weiter...
CU