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

Add the same timer based delay to the db tree filter as for the filter panel in r2627, was also complained about in issue #1350.

Browse Source
This commit is contained in:
Ansgar Becker
2009-09-11 20:01:58 +00:00
parent 5e35c1811d
commit f940c20b06
2 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/main.dfm
View File

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

13
source/main.pas
View File

@ -449,6 +449,7 @@ type
actFilterPanel: TAction;
actFindInVT1: TMenuItem;
TimerFilterVT: TTimer;
TimerFilterDBTree: TTimer;
procedure refreshMonitorConfig;
procedure loadWindowConfig;
procedure saveWindowConfig;
@ -733,6 +734,7 @@ 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,7 +9575,16 @@ end;
procedure TMainForm.comboOnlyDBsChange(Sender: TObject);
begin
// Immediately apply database filter
// 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;
RefreshTree(False);
end;