opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Make SET cell editor resizable, and store and restore its dimensions. Fixes issue #2212.

Browse Source
This commit is contained in:
Ansgar Becker
2010-11-13 21:16:36 +00:00
parent a8ce8cd7fa
commit 98300c9bd5
2 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/const.inc
View File

@@ -219,6 +219,10 @@ const
REGNAME_REPLACETEXT = 'FindDialogReplaceHistory';
REGNAME_MAXQUERYRESULTS = 'MaxQueryResults';
DEFAULT_MAXQUERYRESULTS = 10;
REGNAME_SETEDITORWIDTH = 'SetEditorWidth';
DEFAULT_SETEDITORWIDTH = 100;
REGNAME_SETEDITORHEIGHT = 'SetEditorHeight';
DEFAULT_SETEDITORHEIGHT = 130;
// Log events
REGNAME_LOG_ERRORS = 'LogErrors';

21
source/grideditlinks.pas
View File

@@ -117,6 +117,7 @@ type
function EndEdit: Boolean; override;
function PrepareEdit(Tree: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex): Boolean; override;
procedure SetBounds(R: TRect); override;
procedure PanelResize(Sender: TObject);
end;
// Inplace editor with button
@@ -839,6 +840,10 @@ begin
FPanel.Hide;
FPanel.Parent := FParentForm;
FPanel.ParentBackground := False;
FPanel.Width := GetRegValue(REGNAME_SETEDITORWIDTH, DEFAULT_SETEDITORWIDTH);
FPanel.Height := GetRegValue(REGNAME_SETEDITORHEIGHT, DEFAULT_SETEDITORHEIGHT);
SetWindowSizeGrip(FPanel.Handle, True);
FPanel.OnResize := PanelResize;
FPanel.OnExit := DoEndEdit;
FCheckList := TCheckListBox.Create(FPanel);
@@ -860,6 +865,8 @@ end;
destructor TSetEditorLink.Destroy;
begin
Mainreg.WriteInteger(REGNAME_SETEDITORWIDTH, FPanel.Width);
Mainreg.WriteInteger(REGNAME_SETEDITORHEIGHT, FPanel.Height);
FreeAndNil(FPanel);
inherited;
end;
@@ -910,18 +917,16 @@ end;
procedure TSetEditorLink.SetBounds(R: TRect); stdcall;
const
margin = 3;
margin = 5;
begin
R := GetCellRect(False);
FPanel.Top := R.Top;
FPanel.Left := R.Left;
FPanel.Width := R.Right - R.Left;
FPanel.Height := 130;
FBtnOk.Width := (FPanel.Width - 3*margin) div 2;
FBtnOk.Left := margin;
FBtnOk.Height := 24;
FBtnOk.Top := FPanel.Height - margin - FBtnOk.Height;
FBtnOk.Top := FPanel.Height - 2*margin - FBtnOk.Height;
FBtnCancel.Width := FBtnOk.Width;
FBtnCancel.Left := 2*margin + FBtnOk.Width;
@@ -931,7 +936,13 @@ begin
FCheckList.Top := margin;
FCheckList.Left := margin;
FCheckList.Width := FPanel.Width - 2*margin;
FCheckList.Height := FPanel.Height - 3*margin - FBtnOk.Height;
FCheckList.Height := FBtnOk.Top - margin - FCheckList.Top;
end;
procedure TSetEditorLink.PanelResize(Sender: TObject);
begin
SetBounds(FPanel.ClientRect);
end;