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

fix message selection not yet compatible with new system: filtering, selection

This commit is contained in:
Basile Burg 2014-11-11 06:29:46 +01:00
parent 98be70f68f
commit 07acbd42cf
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_messages.pas
View File

@ -272,6 +272,7 @@ var
i: NativeInt; i: NativeInt;
begin begin
for i := 0 to List.Items.Count-1 do for i := 0 to List.Items.Count-1 do
if List.Items[i].Visible then
List.Items[i].MultiSelected := true; List.Items[i].MultiSelected := true;
end; end;
@ -373,6 +374,7 @@ begin
clearOutOfRangeMessg; clearOutOfRangeMessg;
scrollToBack; scrollToBack;
Application.ProcessMessages; Application.ProcessMessages;
filterMessages(fCtxt);
end; end;
procedure TCEMessagesWidget.lmClearByContext(aCtxt: TCEAppMessageCtxt); procedure TCEMessagesWidget.lmClearByContext(aCtxt: TCEAppMessageCtxt);
@ -466,6 +468,7 @@ begin
begin begin
itm := List.Items[i]; itm := List.Items[i];
Itm.Visible := false; Itm.Visible := false;
Itm.Selected := false;
msgdt := PMessageData(itm.Data); msgdt := PMessageData(itm.Data);
if aCtxt = amcAll then if aCtxt = amcAll then
Itm.Visible := true Itm.Visible := true