opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #1503: move SaveListSetup and RestoreListSetup to extra_controls unit, and handle column widths DPI independently

Browse Source
This commit is contained in:
Ansgar Becker
2021-12-26 13:58:25 +01:00
parent 500cad6e9a
commit 142e26ec22
7 changed files with 166 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/insertfiles.pas
View File

@ -118,10 +118,6 @@ begin
HasSizeGrip := True;
ListFiles.Images := GetSystemImageList;
DragAcceptFiles(Handle, True);
MainForm.RestoreListSetup(ListColumns);
MainForm.RestoreListSetup(ListFiles);
FixVT(ListFiles);
FixVT(ListColumns);
end;
@ -129,8 +125,8 @@ procedure TfrmInsertFiles.FormDestroy(Sender: TObject);
begin
AppSettings.WriteIntDpiAware(asFileImportWindowWidth, Self, Width);
AppSettings.WriteIntDpiAware(asFileImportWindowHeight, Self, Height);
MainForm.SaveListSetup(ListColumns);
MainForm.SaveListSetup(listFiles);
SaveListSetup(ListColumns);
SaveListSetup(listFiles);
end;
@ -138,6 +134,10 @@ procedure TfrmInsertFiles.FormShow(Sender: TObject);
begin
Width := AppSettings.ReadIntDpiAware(asFileImportWindowWidth, Self);
Height := AppSettings.ReadIntDpiAware(asFileImportWindowHeight, Self);
RestoreListSetup(ListColumns);
RestoreListSetup(ListFiles);
FixVT(ListFiles);
FixVT(ListColumns);
FConnection := Mainform.ActiveConnection;
Caption := FConnection.Parameters.SessionName + ' - ' + MainForm.actInsertFiles.Caption;
comboDBs.Items.Clear;