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: scale hardcoded control dimensions in column default editor

Browse Source
This commit is contained in:
Ansgar Becker
2022-02-04 06:58:36 +01:00
parent c8ecee8f69
commit b49cd51ff9
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/grideditlinks.pas
View File

@ -1251,13 +1251,15 @@ end;
{ Column default editor } { Column default editor }
constructor TColumnDefaultEditorLink.Create(Tree: TVirtualStringTree; AllowEdit: Boolean; Col: TTableColumn); constructor TColumnDefaultEditorLink.Create(Tree: TVirtualStringTree; AllowEdit: Boolean; Col: TTableColumn);
const
m = 5;
var var
SQLFunc: TSQLFunction; SQLFunc: TSQLFunction;
m: Integer;
begin begin
inherited; inherited;
// Margin between controls and to edge of panel
m := TExtForm.ScaleSize(5, FParentForm);
FPanel := TPanel.Create(FParentForm); FPanel := TPanel.Create(FParentForm);
FPanel.Hide; FPanel.Hide;
FPanel.Parent := FParentForm; FPanel.Parent := FParentForm;
@ -1357,7 +1359,7 @@ begin
FBtnOk := TButton.Create(FPanel); FBtnOk := TButton.Create(FPanel);
FBtnOk.Parent := FPanel; FBtnOk.Parent := FPanel;
FBtnOk.Width := 60; FBtnOk.Width := TExtForm.ScaleSize(60, FParentForm);
FBtnOk.Top := FRadioAutoInc.Top + FRadioAutoInc.Height + m; FBtnOk.Top := FRadioAutoInc.Top + FRadioAutoInc.Height + m;
FBtnOk.Left := FPanel.Width - 3*m - 2*FBtnOk.Width - 2*FPanel.BorderWidth; FBtnOk.Left := FPanel.Width - 3*m - 2*FBtnOk.Width - 2*FPanel.BorderWidth;
FBtnOk.OnClick := BtnOkClick; FBtnOk.OnClick := BtnOkClick;