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

Issue #213 and issue #380: auto-fix high DPI glitch in table designer

Browse Source
This commit is contained in:
Ansgar Becker
2018-11-03 15:11:19 +01:00
parent a4e041a6bb
commit f995110ad1
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/table_editor.pas
View File

@ -87,8 +87,8 @@ type
menuPasteColumns: TMenuItem;
tabPartitions: TTabSheet;
SynMemoPartitions: TSynMemo;
pnlDpiHelperBasic: TPanel;
pnlDpiHelperOptions: TPanel;
pnlDpiHelperBasic: TPanel;
pnlDpiHelperOptions: TPanel;
procedure Modification(Sender: TObject);
procedure btnAddColumnClick(Sender: TObject);
procedure btnRemoveColumnClick(Sender: TObject);
@ -251,6 +251,14 @@ var
rx: TRegExpr;
begin
inherited;
// Auto-fix high-DPI glitch:
if Self.Height > MainForm.tabEditor.Height then begin
MainForm.LogSQL('Fixing height...', lcDebug);
PageControlMain.Height := Round(MainForm.tabEditor.Height / 2 - 50);
Self.Height := MainForm.tabEditor.Height;
end;
FLoaded := False;
comboEngine.Items := DBObject.Connection.TableEngines;
comboEngine.Items.Insert(0, '<'+_('Server default')+'>');