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

Fix issue #1156: Table editor, checkbox state change although mouse clicked elsewhere in white space. Same goes for index tree.

Browse Source
This commit is contained in:
Ansgar Becker
2009-05-25 22:24:49 +00:00
parent ac66f01b44
commit dfc87736de
1 changed files with 14 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
source/table_editor.pas
View File

@ -946,26 +946,26 @@ var
VT: TVirtualStringTree;
Props: TWideStringlist;
dt: TMySQLDataTypeRecord;
Node: PVirtualNode;
Click: THitInfo;
begin
// Handle click event
VT := Sender as TVirtualStringTree;
if not Assigned(VT.FocusedNode) then
VT.GetHitTestInfoAt(Mouse.CursorPos.X-VT.ClientOrigin.X, Mouse.CursorPos.Y-VT.ClientOrigin.Y, True, Click);
if not Assigned(Click.HitNode) then
Exit;
if VT.FocusedColumn in [4, 5] then begin
if Click.HitColumn in [4, 5] then begin
// For checkboxes, cell editors are disabled, instead toggle their state
Props := TWideStringList(Columns.Objects[VT.FocusedNode.Index]);
Props := TWideStringList(Columns.Objects[Click.HitNode.Index]);
dt := GetDatatypeByName(Props[0]);
if dt.HasUnsigned or (VT.FocusedColumn = 5) then begin
Props[VT.FocusedColumn-2] := BoolToStr(not StrToBool(Props[VT.FocusedColumn-2]));
VT.InvalidateNode(VT.FocusedNode);
if dt.HasUnsigned or (Click.HitColumn = 5) then begin
Props[Click.HitColumn-2] := BoolToStr(not StrToBool(Props[Click.HitColumn-2]));
VT.InvalidateNode(Click.HitNode);
end;
end else begin
// All other cells go into edit mode please
// Explicitely done on OnClick, not in OnFocusChanged which seemed annoying for keyboard users
Node := VT.GetNodeAt(Mouse.CursorPos.X-VT.ClientOrigin.X, Mouse.CursorPos.Y-VT.ClientOrigin.Y);
if Assigned(Node) then
VT.EditNode(Node, VT.FocusedColumn);
if Assigned(Click.HitNode) then
VT.EditNode(Click.HitNode, Click.HitColumn);
end;
end;
@ -1270,15 +1270,13 @@ end;
procedure TfrmTableEditor.treeIndexesClick(Sender: TObject);
var
VT: TVirtualStringTree;
Node: PVirtualNode;
Click: THitInfo;
begin
// Handle click event
VT := Sender as TVirtualStringTree;
if not Assigned(VT.FocusedNode) then
Exit;
Node := VT.GetNodeAt(Mouse.CursorPos.X-VT.ClientOrigin.X, Mouse.CursorPos.Y-VT.ClientOrigin.Y);
if Assigned(Node) then
VT.EditNode(Node, VT.FocusedColumn);
VT.GetHitTestInfoAt(Mouse.CursorPos.X-VT.ClientOrigin.X, Mouse.CursorPos.Y-VT.ClientOrigin.Y, True, Click);
if Assigned(Click.HitNode) then
VT.EditNode(Click.HitNode, Click.HitColumn);
end;