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

Make detection of active grid or editor in search/replace dialog more stable.

Browse Source
This commit is contained in:
Ansgar Becker
2013-02-24 09:30:12 +00:00
parent 8e68663636
commit 7c96c04ed9
1 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
source/searchreplace.pas
View File

@ -91,6 +91,8 @@ begin
_Grid := MainForm.ActiveGrid;
comboSearchIn.Items.Clear;
IsQueryTab := MainForm.IsQueryTab(MainForm.PageControlMain.ActivePageIndex, True);
SearchText := '';
if Assigned(_Editor) then begin
ObjName := _('SQL editor');
if IsQueryTab then
@ -98,7 +100,12 @@ begin
comboSearchIn.Items.AddObject(ObjName, _Editor);
if _Editor.Focused then
comboSearchIn.ItemIndex := comboSearchIn.Items.Count-1;
if _Editor.SelAvail then
SearchText := _Editor.SelText
else
SearchText := _Editor.WordAtCursor;
end;
if Assigned(_Grid) then begin
ObjName := _('Data grid');
if IsQueryTab then
@ -106,21 +113,17 @@ begin
comboSearchIn.Items.AddObject(ObjName, _Grid);
if _Grid.Focused then
comboSearchIn.ItemIndex := comboSearchIn.Items.Count-1;
if Assigned(_Grid.FocusedNode) then
SearchText := _Grid.Text[_Grid.FocusedNode, _Grid.FocusedColumn];
end;
if (comboSearchIn.ItemIndex = -1) and (comboSearchIn.Items.Count > 0) then
comboSearchIn.ItemIndex := 0;
// Prefill search editor with selected text
SearchText := '';
if Editor <> nil then begin
if Editor.SelAvail then
SearchText := Editor.SelText
else
SearchText := Editor.WordAtCursor;
end else begin
if Assigned(Grid.FocusedNode) then
SearchText := Grid.Text[Grid.FocusedNode, Grid.FocusedColumn];
end;
if SearchText <> '' then
comboSearch.Text := SearchText;
ValidateControls(Sender);
comboSearch.SetFocus;
end;