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

Replace out-dated code which does not compile in 64bit mode in helpers.SetWindowSizeGrip. Use a TForm descendant in the new unit "extra_controls". Code parts taken from http://www.delphigroups.info/2/4/326787.html

Browse Source
This commit is contained in:
Ansgar Becker
2013-11-01 14:54:13 +00:00
parent 6d1acb1136
commit 6e608f157e
18 changed files with 94 additions and 192 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/grideditlinks.pas
View File

@ -915,9 +915,7 @@ begin
FPanel.Hide;
FPanel.Parent := FParentForm;
FPanel.ParentBackground := False;
FPanel.Width := AppSettings.ReadInt(asSetEditorWidth);
FPanel.Height := AppSettings.ReadInt(asSetEditorHeight);
SetWindowSizeGrip(FPanel.Handle, True);
FPanel.Height := 150;
FPanel.OnResize := PanelResize;
FPanel.OnExit := DoEndEdit;
@ -1002,6 +1000,7 @@ begin
R := GetCellRect(False);
FPanel.Top := R.Top;
FPanel.Left := R.Left;
FPanel.Width := R.Width;
FBtnOk.Width := (FPanel.Width - 3*margin) div 2;
FBtnOk.Left := margin;