mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-14 10:02:10 +08:00
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.
This commit is contained in:
@ -6729,4 +6729,11 @@ 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
|
||||||
|
@ -449,6 +449,7 @@ 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;
|
||||||
@ -733,6 +734,7 @@ 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,7 +9575,16 @@ end;
|
|||||||
|
|
||||||
procedure TMainForm.comboOnlyDBsChange(Sender: TObject);
|
procedure TMainForm.comboOnlyDBsChange(Sender: TObject);
|
||||||
begin
|
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);
|
RefreshTree(False);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user