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

Apply grid changes by click in grid whitespace, rfe #839

Browse Source
This commit is contained in:
Ansgar Becker
2008-12-26 14:23:59 +00:00
parent 7c5dec6968
commit dfd64df4b6
2 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/childwin.dfm
View File

@@ -975,6 +975,7 @@ object MDIChild: TMDIChild
OnHeaderClick = DataGridHeaderClick
OnKeyDown = GridKeyDown
OnKeyUp = controlsKeyUp
OnMouseUp = DataGridMouseUp
OnNewText = DataGridNewText
Columns = <>
end

16
source/childwin.pas
View File

@@ -457,6 +457,8 @@ type
NewHeight: Integer; var Resize: Boolean);
procedure pnlQueryMemoCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure DataGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
uptime : Integer;
@@ -6679,4 +6681,18 @@ begin
end;
procedure TMDIChild.DataGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Grid: TVirtualStringTree;
Hit: THitInfo;
begin
// Detect mouse hit in grid whitespace and apply changes.
Grid := Sender as TVirtualStringTree;
Grid.GetHitTestInfoAt(X, Y, False, Hit);
if (Hit.HitNode = nil) or (Hit.HitColumn = NoColumn) or (Hit.HitColumn = InvalidColumn) then
DataGridPostUpdateOrInsert(Grid.FocusedNode);
end;
end.