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: move auto-arrangement of controls from OnCreate to OnShow, so the final height of a TEdit is considered (35px vs 28px on Ubuntu with 100% DPI)

Browse Source
This commit is contained in:
Ansgar Becker
2025-03-23 15:39:39 +01:00
parent 483a7ca386
commit 48bddbc3b6
3 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/connections.pas
View File

@ -286,11 +286,6 @@ var
i: Integer;
ExeFiles: TStringList;
begin
ArrangeControls(tabSettings);
ArrangeControls(tabSSHtunnel);
ArrangeControls(tabAdvanced);
ArrangeControls(tabSSL);
ArrangeControls(tabStatistics);
Width := AppSettings.ReadInt(asSessionManagerWindowWidth);
Height := AppSettings.ReadInt(asSessionManagerWindowHeight);
Left := AppSettings.ReadInt(asSessionManagerWindowLeft, '', Left);
@ -416,6 +411,12 @@ var
PSess: PConnectionParameters;
Node: PVirtualNode;
begin
ArrangeControls(tabSettings);
ArrangeControls(tabSSHtunnel);
ArrangeControls(tabAdvanced);
ArrangeControls(tabSSL);
ArrangeControls(tabStatistics);
// Init sessions tree
RefreshSessions(nil);

1
source/extra_controls.pas
View File

@ -189,6 +189,7 @@ begin
Inc(y, 1);
end
else begin
ControlRow.Height := aParentControl.ScaleDesignToForm(ControlRow.Height);
Add(ControlRow);
Inc(y, yCoordStep);
end;

3
source/usermanager.pas
View File

@ -278,6 +278,9 @@ var
end;
begin
ArrangeControls(tabCredentials);
ArrangeControls(tabLimitations);
ArrangeControls(tabSSL);
Width := AppSettings.ReadIntDpiAware(asUsermanagerWindowWidth, Self);
Height := AppSettings.ReadIntDpiAware(asUsermanagerWindowHeight, Self);
pnlLeft.Width := AppSettings.ReadIntDpiAware(asUsermanagerListWidth, Self);