opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +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
WantTabs = True
WordWrap = True
OnChange = SynMemoFilterChange
OnStatusChange = SynMemoFilterStatusChange
RemovedKeystrokes = <
item
Command = ecDeleteLine

10
source/main.pas
View File

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