Revert r2630, edit delay for database filter. Not needed any longer as the filter works in real-time now. Also, this delay has the chance to annoy users. Related to issue #1350.

This commit is contained in:
Ansgar Becker
2009-09-11 21:12:27 +00:00
parent eb1e857810
commit 77ec7315e8
2 changed files with 1 additions and 19 deletions

View File

@ -6729,11 +6729,4 @@ object MainForm: TMainForm
Left = 40
Top = 269
end
object TimerFilterDBTree: TTimer
Enabled = False
Interval = 500
OnTimer = TimerFilterDBTreeTimer
Left = 136
Top = 269
end
end

View File

@ -449,7 +449,6 @@ type
actFilterPanel: TAction;
actFindInVT1: TMenuItem;
TimerFilterVT: TTimer;
TimerFilterDBTree: TTimer;
procedure refreshMonitorConfig;
procedure loadWindowConfig;
procedure saveWindowConfig;
@ -734,7 +733,6 @@ type
procedure comboOnlyDBsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure actFilterPanelExecute(Sender: TObject);
procedure TimerFilterVTTimer(Sender: TObject);
procedure TimerFilterDBTreeTimer(Sender: TObject);
private
ReachedEOT : Boolean;
FDelimiter: String;
@ -9573,16 +9571,7 @@ end;
procedure TMainForm.comboOnlyDBsChange(Sender: TObject);
begin
// Reset editing timer
TimerFilterDBTree.Enabled := False;
TimerFilterDBTree.Enabled := True;
end;
procedure TMainForm.TimerFilterDBTreeTimer(Sender: TObject);
begin
// Apply database filter as the user has finished typing
TimerFilterDBTree.Enabled := False;
// Immediately apply database filter
RefreshTree(False);
end;