ListView: OnCustromDrawSubItem -> Text flackert

[Sascha L]

Hallo,

Ich habe folgenden Code:

Code:

procedure TForm6.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if SubItem = 1 then begin
  DefaultDraw := false;
  Item.SubItems.Strings[1] := 'test';
  end;
end;

In der ListView sind nun jedoch alle anderen SubItems leer und der Text "test" ist total am flackern, als ob er im 10tel-Sekundentakt immer wieder neu gezeichnet wird.

Wenn ich nur

Code:

procedure TForm6.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  DefaultDraw := false;
  Item.SubItems.Strings[1] := 'test';
end;

verwende, dann sind alle SubItems leer.

Sinn der ganzen Sache ist der: In der 2. Spalte (SubItem 1) stehen zahlen z.B. von 0-2. Wenn also nun der Wert 0 in der Spalte steht, dann soll er dort nicht 0 anzeigen, sondern z.B. "Niedrig" für 1 dann "Mittel", usw.

Wie kann ich das am besten realisieren?

Gruß
Sascha

[marabu]

Hallo Sascha,

der event handler OnCustomDrawSubItem() ist keine gute Lösung für dein Problem. Ich würde das eher mit einer virtuellen ListView lösen. Schau dir dazu mal das Ereignis OnData() und die Eigenschaft OwnerData der ListView an.

Grüße vom marabu