Ich habe das ganze jetzt endlich mal ausprobiert und irgendwie passiert gar nichts, hier mal der Aufruf des
Dialogs der die ListView Komponente enthält und in den Ereignissen der Versuch die größe anzupassen.
uMain.pas:
Delphi-Quellcode:
procedure TfrmMain.btn_LogEntryClick(Sender: TObject);
begin
if frmLogEntryDlg = nil then frmLogEntryDlg := TfrmLogEntryDlg.Create(Application);
frmLogEntryDlg.Left := (frmMain.Width - frmLogEntryDlg.Width) div 2 + frmMain.Left;
frmLogEntryDlg.Top := (frmMain.Height - frmLogEntryDlg.Height) div 2 + frmMain.Top;
frmLogEntryDlg.pInit;
frmLogEntryDlg.ShowModal;
end;
uLogEntryDlg.pas:
Delphi-Quellcode:
procedure TfrmLogEntryDlg.FormCreate(Sender: TObject);
begin
Sendmessage(ltvDrivers.Handle, LVM_SETICONSPACING, 0, MakeLong(10, 0));
end;
//oder ...
procedure TfrmLogEntryDlg.FormShow(Sender: TObject);
begin
ListView_SetIconSpacing(ltvDrivers.Handle, 10, 0);
end;