clear message filter when messages are cleared

2016-03-02 11:42:35 +01:00 · 2016-03-02 11:42:35 +01:00 · a6c8767dc0
parent 2f780638a4
commit a6c8767dc0
2 changed files with 2 additions and 1 deletions
--- a/src/ce_messages.lfm
+++ b/src/ce_messages.lfm
@ -24,7 +24,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
        Width = 759
        Align = alClient
        BorderSpacing.Around = 2
-        DefaultItemHeight = 16
+        DefaultItemHeight = 18
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Quality = fqProof
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@ -777,6 +777,7 @@ var
  msgdt: PMessageData;
 begin
  list.BeginUpdate;
+  TreeFilterEdit1.Filter := '';
  if aCtxt = amcAll then
    List.Items.Clear
  else for i := List.Items.Count-1 downto 0 do