ListView: Abstand der Images zum Rand verkleinern

[kaiser1401]

Also bei mir funktioniert das mit dem click auf Button3:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  with ListView1.Items.Add do
   begin
    Caption:='someitem';
    ImageIndex:=0;
   end;
  with ListView1.Items.Add do
   begin
    Caption:='someitem';
    ImageIndex:=0;
   end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var  i:integer;
const step = 190;
begin
  for i:=0 to Listview1.items.count-1 do
   begin
    ListView1.Items[i].Left:=1;
    ListView1.Items[i].Top:=2+i*step;
   end;
end;

siehe auch Screenshot im Anhang