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

When double clicking a helper tree, the query editor should only get focus if there is non empty text. First level nodes never create text but double clicking them stole focus.

Browse Source
This commit is contained in:
Ansgar Becker
2010-08-18 06:47:38 +00:00
parent 8bd5388f73
commit 6d77dc33ca
1 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
source/main.pas
View File

@ -4748,14 +4748,14 @@ procedure TMainForm.SynMemoQueryDragDrop(Sender, Source: TObject; X,
var
src : TControl;
Text, ItemText: String;
LoadText, ShiftPressed: Boolean;
ShiftPressed: Boolean;
Tree: TVirtualStringTree;
Node: PVirtualNode;
begin
// dropping a tree node or listbox item into the query-memo
ActiveQueryMemo.UndoList.AddGroupBreak;
src := Source as TControl;
LoadText := True;
Text := '';
ShiftPressed := KeyPressed(VK_SHIFT);
Tree := ActiveQueryHelpers;
// Check for allowed controls as source has already
@ -4768,12 +4768,9 @@ begin
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
HELPERNODE_SNIPPETS: begin
QueryLoad( DirnameSnippets + Tree.Text[Tree.FocusedNode, 0] + '.sql', False, nil);
LoadText := False;
end;
HELPERNODE_SNIPPETS:
Text := ReadTextFile(DirnameSnippets + Tree.Text[Tree.FocusedNode, 0] + '.sql', nil);
else begin
Text := '';
Node := Tree.GetFirstChild(Tree.FocusedNode.Parent);
while Assigned(Node) do begin
if Tree.Selected[Node] then begin
@ -4792,15 +4789,14 @@ begin
end;
end;
end else
Text := 'Error: Unspecified source control in drag''n drop operation!';
raise Exception.Create('Unspecified source control in drag''n drop operation!');
// Only insert text if no previous action did the job.
// Should be false when dropping a snippet-file here
if LoadText then
if Text <> '' then begin
ActiveQueryMemo.SelText := Text;
ActiveQueryMemo.UndoList.AddGroupBreak;
// Requires to set focus, as doubleclick actions also call this procedure
ActiveQueryMemo.SetFocus;
ActiveQueryMemo.UndoList.AddGroupBreak;
// Requires to set focus, as doubleclick actions also call this procedure
ActiveQueryMemo.SetFocus;
end;
end;