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

fix, error in nix 32 version due to bugged lcl enumerator

This commit is contained in:
Basile Burg 2015-12-10 01:36:13 +01:00
parent 700bcef6ad
commit e680c3e3bc
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_messages.pas
View File

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