Same as previous commit: Revert r3056. Fixes issue #1749.

This commit is contained in:
Ansgar Becker
2010-03-14 10:22:23 +00:00
parent 630244aa16
commit bbab8c5d12

View File

@ -6632,10 +6632,7 @@ begin
if not Assigned(Node) then Exit; if not Assigned(Node) then Exit;
if DBtree.GetNodeLevel(Node) = 0 then Exit; if DBtree.GetNodeLevel(Node) = 0 then Exit;
if not QueryTabActive then Exit; if not QueryTabActive then Exit;
Text := mask(DBtree.Text[Node, 0]); ActiveQueryMemo.SelText := mask(DBtree.Text[Node, 0]);
if DBtree.GetNodeLevel(Node) = 2 then
Text := mask(DBtree.Text[Node.Parent, 0]) + '.' + Text;
ActiveQueryMemo.SelText := Text;
ActiveQueryMemo.SetFocus; ActiveQueryMemo.SetFocus;
end; end;