Listview mit Objecten

[Manne]

du musst sie einfach im OnCustomDraw neu zeichnen lassen.

z.B.

Delphi-Quellcode:

Procedure TForm1.JvListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
var _i:integer;
for _i := 0 to High(mySterne) do
 begin
  mySterne[_i].Left :=  JvListView1.Column[0].Width;
  mySterne[_i].Width := JvListView1.Column[1].Width;
  mySterne[_i].Top :=  JvListView1.Items.Item[_i].Top +3;
 end;
end;