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 #1482: high DPI related: try to store and restore width and height of dialogs without DPI-back-calculation

Browse Source
This commit is contained in:
Ansgar Becker
2025-03-26 16:52:44 +01:00
parent 56b46f1b89
commit f9ce32542c
24 changed files with 150 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/selectdbobject.pas
View File

@ -68,6 +68,8 @@ end;
procedure TfrmSelectDBObject.FormCreate(Sender: TObject);
begin
HasSizeGrip := True;
Width := AppSettings.ReadInt(asSelectDBOWindowWidth);
Height := AppSettings.ReadInt(asSelectDBOWindowHeight);
TreeDBO.TreeOptions := MainForm.DBtree.TreeOptions;
TreeDBO.TreeOptions.SelectionOptions := TreeDBO.TreeOptions.SelectionOptions + [toMultiSelect];
FixVT(TreeDBO);
@ -76,8 +78,8 @@ end;
procedure TfrmSelectDBObject.FormDestroy(Sender: TObject);
begin
AppSettings.WriteIntDpiAware(asSelectDBOWindowWidth, Self, Width);
AppSettings.WriteIntDpiAware(asSelectDBOWindowHeight, Self, Height);
AppSettings.WriteInt(asSelectDBOWindowWidth, ScaleFormToDesign(Width));
AppSettings.WriteInt(asSelectDBOWindowHeight, ScaleFormToDesign(Height));
end;
@ -98,8 +100,6 @@ end;
procedure TfrmSelectDBObject.FormShow(Sender: TObject);
begin
Width := AppSettings.ReadIntDpiAware(asSelectDBOWindowWidth, Self);
Height := AppSettings.ReadIntDpiAware(asSelectDBOWindowHeight, Self);
TreeDBO.Clear;
TreeDBO.RootNodeCount := Mainform.DBtree.RootNodeCount;
TreeDBO.OnFocusChanged(TreeDBO, TreeDBO.FocusedNode, 0);