From 57fd30ceeca2ba66fa2a310ed75be11b4cdd2ab5 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 12 Oct 2010 22:21:45 +0000 Subject: [PATCH] Fix empty db name in query memo when doubleclicking db tree. See http://www.heidisql.com/forum.php?t=6588 --- source/main.pas | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/source/main.pas b/source/main.pas index a1cbc53d..7b94d392 100644 --- a/source/main.pas +++ b/source/main.pas @@ -4899,9 +4899,14 @@ begin // been performed in OnDragOver. So, only do typecasting here. if src = DBtree then begin // Insert table or database name. If a table is dropped and Shift is pressed, prepend the db name. - Text := mask(ActiveDbObj.Name); - if (ActiveDbObj.NodeType in [lntTable..lntEvent]) and ShiftPressed then - Text := mask(ActiveDbObj.Database) + '.' + Text; + case ActiveDbObj.NodeType of + lntDb: Text := mask(ActiveDbObj.Database); + lntTable..lntEvent: begin + if ShiftPressed then + Text := mask(ActiveDbObj.Database) + '.'; + Text := Text + mask(ActiveDbObj.Name); + end; + end; end else if src = Tree then begin if (Tree.GetNodeLevel(Tree.FocusedNode) = 1) and Assigned(Tree.FocusedNode) then begin case Tree.FocusedNode.Parent.Index of