ListView vsList Abstand verändern

[bitsetter]

Hallo,

bei mir funktioniert es wenn mit

Delphi-Quellcode:

uses commctrl;
...
procedure TForm1.FormShow(Sender: TObject);
begin
  Sendmessage(listview1.Handle, LVM_SETICONSPACING, 0, MakeLong(10, 0));
end;

oder

Delphi-Quellcode:

uses commctrl;
...
procedure TForm1.FormShow(Sender: TObject);
begin
  commctrl.ListView_SetIconSpacing(listview1.Handle, 10, 0);
end;

IconOptions.AutoArrange muss im OI allerdings auf false stehen, ist aber die Standardeinstellung.