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

Fix wrong enabled/disabled status of "Clear filter" menu item.

Browse Source
This commit is contained in:
Ansgar Becker
2010-03-18 22:28:45 +00:00
parent 78f0838c6d
commit a96ccdfdb2
2 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/main.dfm
View File

@ -1182,7 +1182,7 @@ object MainForm: TMainForm
ScrollBars = ssVertical ScrollBars = ssVertical
WantTabs = True WantTabs = True
WordWrap = True WordWrap = True
OnChange = SynMemoFilterChange OnStatusChange = SynMemoFilterStatusChange
RemovedKeystrokes = < RemovedKeystrokes = <
item item
Command = ecDeleteLine Command = ecDeleteLine

10
source/main.pas
View File

@ -659,7 +659,7 @@ type
procedure menuEditVariableClick(Sender: TObject); procedure menuEditVariableClick(Sender: TObject);
procedure menuTreeCollapseAllClick(Sender: TObject); procedure menuTreeCollapseAllClick(Sender: TObject);
procedure menuTreeExpandAllClick(Sender: TObject); procedure menuTreeExpandAllClick(Sender: TObject);
procedure SynMemoFilterChange(Sender: TObject); procedure SynMemoFilterStatusChange(Sender: TObject; Changes: TSynStatusChanges);
procedure DataGridAfterCellPaint(Sender: TBaseVirtualTree; procedure DataGridAfterCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellRect: TRect); CellRect: TRect);
@ -6844,16 +6844,12 @@ begin
SynMemoFilter.UndoList.AddGroupBreak; SynMemoFilter.UndoList.AddGroupBreak;
SynMemoFilter.SelectAll; SynMemoFilter.SelectAll;
SynMemoFilter.SelText := Clause; SynMemoFilter.SelText := Clause;
SynMemoFilterChange(Sender);
end; end;
procedure TMainForm.SynMemoFilterChange(Sender: TObject); procedure TMainForm.SynMemoFilterStatusChange(Sender: TObject; Changes: TSynStatusChanges);
var
SomeText: Boolean;
begin begin
SomeText := (SynMemoFilter.GetTextLen > 0) or (editFilterSearch.Text <> ''); actClearFilterEditor.Enabled := (Sender as TSynMemo).GetTextLen > 0;
actClearFilterEditor.Enabled := SomeText;
end; end;