forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

clear message filter when messages are cleared

This commit is contained in:
Basile Burg 2016-03-02 11:42:35 +01:00
parent 2f780638a4
commit a6c8767dc0
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_messages.lfm
View File

@ -24,7 +24,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
Width = 759 Width = 759
Align = alClient Align = alClient
BorderSpacing.Around = 2 BorderSpacing.Around = 2
DefaultItemHeight = 16 DefaultItemHeight = 18
Font.Height = -12 Font.Height = -12
Font.Name = 'Courier New' Font.Name = 'Courier New'
Font.Quality = fqProof Font.Quality = fqProof

1
src/ce_messages.pas
View File

@ -777,6 +777,7 @@ var
msgdt: PMessageData; msgdt: PMessageData;
begin begin
list.BeginUpdate; list.BeginUpdate;
TreeFilterEdit1.Filter := '';
if aCtxt = amcAll then if aCtxt = amcAll then
List.Items.Clear List.Items.Clear
else for i := List.Items.Count-1 downto 0 do else for i := List.Items.Count-1 downto 0 do