From e680c3e3bc1e56f83737a07babf8e30a01557819 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 10 Dec 2015 01:36:13 +0100
Subject: [PATCH] fix, error in nix 32 version due to bugged lcl enumerator

---
 src/ce_messages.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 7e8c9393..8dd54903 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -893,6 +893,8 @@ var
 begin
   result := false;
   msgDt := PMessageData(item.Data);
+  if (not assigned(msgDt)) then
+    exit;
   if aCtxt = amcAll then
     result := true
   else case msgDt^.ctxt of
@@ -906,12 +908,14 @@ end;
 procedure TCEMessagesWidget.filterMessages(aCtxt: TCEAppMessageCtxt);
 var
   itm: TTreeNode;
+  i: integer;
 begin
   if updating then
     exit;
   List.BeginUpdate;
-  for itm in List.Items do
+  for i := 0 to List.Items.Count-1 do
   begin
+    itm := List.Items.Item[i];
     if not fFiltering then
       itm.Visible := itemShouldBeVisible(itm, aCtxt)
     else