opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix empty db name in query memo when doubleclicking db tree. See http://www.heidisql.com/forum.php?t=6588

Browse Source
This commit is contained in:
Ansgar Becker
2010-10-12 22:21:45 +00:00
parent 6c2a100945
commit 57fd30ceec
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/main.pas
View File

@ -4899,9 +4899,14 @@ begin
// been performed in OnDragOver. So, only do typecasting here. // been performed in OnDragOver. So, only do typecasting here.
if src = DBtree then begin if src = DBtree then begin
// Insert table or database name. If a table is dropped and Shift is pressed, prepend the db name. // Insert table or database name. If a table is dropped and Shift is pressed, prepend the db name.
Text := mask(ActiveDbObj.Name); case ActiveDbObj.NodeType of
if (ActiveDbObj.NodeType in [lntTable..lntEvent]) and ShiftPressed then lntDb: Text := mask(ActiveDbObj.Database);
Text := mask(ActiveDbObj.Database) + '.' + Text; lntTable..lntEvent: begin
if ShiftPressed then
Text := mask(ActiveDbObj.Database) + '.';
Text := Text + mask(ActiveDbObj.Name);
end;
end;
end else if src = Tree then begin end else if src = Tree then begin
if (Tree.GetNodeLevel(Tree.FocusedNode) = 1) and Assigned(Tree.FocusedNode) then begin if (Tree.GetNodeLevel(Tree.FocusedNode) = 1) and Assigned(Tree.FocusedNode) then begin
case Tree.FocusedNode.Parent.Index of case Tree.FocusedNode.Parent.Index of