Permalink
Browse files

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

  • Loading branch information...
ansgarbecker committed Nov 29, 2018
1 parent 0a54068 commit 9fcb139148ea5b16aa0bb19dca778288d3f889e9
Showing with 4 additions and 4 deletions.
  1. +4 −4 source/main.pas
@@ -10887,14 +10887,14 @@ procedure TMainForm.actFilterPanelExecute(Sender: TObject);
// 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;
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 @@ procedure TMainForm.UpdateFilterPanel(Sender: TObject);
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

0 comments on commit 9fcb139

Please sign in to comment.