opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Doubleclicking a stored routine should bring up the editor dialog instead of the data tab.

Browse Source
This commit is contained in:
Ansgar Becker
2009-05-24 17:11:57 +00:00
parent a6716d7713
commit fe8ae38dd9
2 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/main.dfm
View File

@ -792,7 +792,7 @@ object MainForm: TMainForm
OnAfterPaint = vstAfterPaint
OnChange = ListTablesChange
OnCompareNodes = vstCompareNodes
OnDblClick = actViewDataExecute
OnDblClick = ListTablesDblClick
OnEditing = ListTablesEditing
OnFreeNode = vstFreeNode
OnGetText = vstGetText

16
source/main.pas
View File

@ -679,6 +679,7 @@ type
procedure DBtreeExpanded(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure actEditObjectExecute(Sender: TObject);
procedure actViewDataExecute(Sender: TObject);
procedure ListTablesDblClick(Sender: TObject);
private
ReachedEOT : Boolean;
FDelimiter: String;
@ -8891,5 +8892,20 @@ begin
end;
procedure TMainForm.ListTablesDblClick(Sender: TObject);
var
NodeData: PVTreeData;
begin
// DoubleClick: Display datagrid for tables and views, editor dialog for routines
NodeData := ListTables.GetNodeData(ListTables.FocusedNode);
case NodeData.NodeType of
NODETYPE_TABLE, NODETYPE_CRASHED_TABLE, NODETYPE_VIEW:
actViewDataExecute(actViewData);
NODETYPE_FUNCTION, NODETYPE_PROCEDURE:
actEditObjectExecute(actEditObject);
end;
end;
end.