opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

7
source/main.dfm
View File

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

13
source/main.pas
View File

@ -449,7 +449,6 @@ type
actFilterPanel: TAction; actFilterPanel: TAction;
actFindInVT1: TMenuItem; actFindInVT1: TMenuItem;
TimerFilterVT: TTimer; TimerFilterVT: TTimer;
TimerFilterDBTree: TTimer;
procedure refreshMonitorConfig; procedure refreshMonitorConfig;
procedure loadWindowConfig; procedure loadWindowConfig;
procedure saveWindowConfig; procedure saveWindowConfig;
@ -734,7 +733,6 @@ type
procedure comboOnlyDBsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure comboOnlyDBsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure actFilterPanelExecute(Sender: TObject); procedure actFilterPanelExecute(Sender: TObject);
procedure TimerFilterVTTimer(Sender: TObject); procedure TimerFilterVTTimer(Sender: TObject);
procedure TimerFilterDBTreeTimer(Sender: TObject);
private private
ReachedEOT : Boolean; ReachedEOT : Boolean;
FDelimiter: String; FDelimiter: String;
@ -9573,16 +9571,7 @@ end;
procedure TMainForm.comboOnlyDBsChange(Sender: TObject); procedure TMainForm.comboOnlyDBsChange(Sender: TObject);
begin begin
// Reset editing timer // Immediately apply database filter
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;
RefreshTree(False); RefreshTree(False);
end; end;