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

Do not steel focus or change cursor position on filter editor while pressing F9 or "Apply filter".

Browse Source
This commit is contained in:
Ansgar Becker
2010-03-18 22:19:19 +00:00
parent 89774dbe44
commit 78f0838c6d
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/main.pas
View File

@@ -3689,7 +3689,9 @@ begin
vt.Header.Columns.EndUpdate;
vt.EndUpdate;
vt.SetFocus;
// Do not steel filter while writing filters
if not SynMemoFilter.Focused then
vt.SetFocus;
if not RefreshingData then begin
// Scroll to top left if switched to another table
@@ -7688,7 +7690,7 @@ var
rx: TRegExpr;
idx, i: Integer;
TestList: TStringList;
Sort, KeyName, FocusedCol, CellFocus: String;
Sort, KeyName, FocusedCol, CellFocus, Filter: String;
begin
OpenRegistry;
MainReg.OpenKey(GetRegKeyTable, True);
@@ -7758,9 +7760,11 @@ begin
if MainReg.ValueExists(REGNAME_HIDDENCOLUMNS) then
DataGridHiddenColumns.DelimitedText := MainReg.ReadString(REGNAME_HIDDENCOLUMNS);
// Filter
// Set filter, without changing cursor position
if MainReg.ValueExists(REGNAME_FILTER) then begin
SynMemoFilter.Text := MainReg.ReadString(REGNAME_FILTER);
Filter := MainReg.ReadString(REGNAME_FILTER);
if SynMemoFilter.Text <> Filter then
SynMemoFilter.Text := Filter;
if SynMemoFilter.GetTextLen > 0 then
ToggleFilterPanel(True);
end;