opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Prefer query left to the current one, if current one contains no text. Closes #603

Browse Source
This commit is contained in:
Ansgar Becker
2021-10-17 08:34:38 +02:00
parent 54153df4d2
commit eb6386f218
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/main.pas
View File

@@ -3040,18 +3040,25 @@ end;
function TMainForm.GetCurrentQuery(Tab: TQueryTab): String;
var
BatchAll: TSQLBatch;
Query: TSQLSentence;
Query, PrevQuery: TSQLSentence;
begin
// Return SQL query on cursor position
Result := '';
BatchAll := TSQLBatch.Create;
BatchAll.SQL := Tab.Memo.Text;
PrevQuery := nil;
for Query in BatchAll do begin
if (Tab.Memo.SelStart >= Query.LeftOffset-1) and (Tab.Memo.SelStart < Query.RightOffset) then begin
Result := Query.SQL;
Tab.LeftOffsetInMemo := Query.LeftOffset;
break;
end;
PrevQuery := Query;
end;
// Prefer query left to the current one, if current one contains no text
if Trim(Result).IsEmpty and Assigned(PrevQuery) then begin
Result := PrevQuery.SQL;
Tab.LeftOffsetInMemo := PrevQuery.LeftOffset;
end;
BatchAll.Free;
end;