Issue #1482: high DPI related: call RestoreListSetup in any FormShow event, not FormCreate, move FixVT again to FormShow

This commit is contained in:
Ansgar Becker
2025-03-30 12:41:06 +02:00
parent b2b5cf6ad3
commit b266d1475e
5 changed files with 12 additions and 10 deletions

View File

@ -120,10 +120,6 @@ begin
//DragAcceptFiles(Handle, True);
Width := AppSettings.ReadInt(asFileImportWindowWidth);
Height := AppSettings.ReadInt(asFileImportWindowHeight);
RestoreListSetup(ListColumns);
RestoreListSetup(ListFiles);
FixVT(ListFiles);
FixVT(ListColumns);
end;
@ -138,6 +134,10 @@ end;
procedure TfrmInsertFiles.FormShow(Sender: TObject);
begin
RestoreListSetup(ListColumns);
RestoreListSetup(ListFiles);
FixVT(ListFiles);
FixVT(ListColumns);
FConnection := Mainform.ActiveConnection;
Caption := FConnection.Parameters.SessionName + ' - ' + MainForm.actInsertFiles.Caption;
comboDBs.Items.Clear;