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

Issue #394: fix even more confusion with the filter panel

Browse Source
This commit is contained in:
Ansgar Becker
2018-11-29 08:48:10 +01:00
parent 0a5406834c
commit 9fcb139148
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/main.pas
View File

@@ -10887,6 +10887,7 @@ begin
// On startup, we cannot SetFocus, throws exceptons. Call with nil in that special case - see FormCreate
if pnlFilterVT.Visible and editFilterVT.CanFocus and (Sender <> nil) then
editFilterVT.SetFocus;
UpdateFilterPanel(Sender);
end;
@@ -10894,7 +10895,6 @@ procedure TMainForm.UpdateFilterPanel(Sender: TObject);
var
tab: TTabSheet;
f: String;
FilterPanelVisible: Boolean;
begin
// Called when active tab changes
pnlFilterVT.Enabled := (PageControlMain.ActivePage <> tabEditor) or (ActiveObjectEditor is TfrmTableEditor);
@@ -10909,14 +10909,14 @@ begin
tab := PageControlMain.ActivePage;
if tab = tabHost then
tab := PageControlHost.ActivePage;
FilterPanelVisible := pnlFilterVT.Tag = Integer(True);
if not FilterPanelVisible then begin
if not pnlFilterVT.Visible then begin
if editFilterVT.Text <> '' then
editFilterVT.Text := ''
else
editFilterVTChange(Sender);
end else begin
if tab = tabVariables then f := FFilterTextVariables
if tab = tabDatabases then f := FFilterTextDatabases
else if tab = tabVariables then f := FFilterTextVariables
else if tab = tabStatus then f := FFilterTextStatus
else if tab = tabProcesslist then f := FFilterTextProcessList
else if tab = tabCommandStats then f := FFilterTextCommandStats