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

cleaner syntax

This commit is contained in:
Basile Burg 2015-02-20 11:36:30 +01:00
parent 8ad2529aa5
commit c6194d5db7
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_messages.pas
View File

@ -485,11 +485,8 @@ var
msgdt: PMessageData; msgdt: PMessageData;
begin begin
if aCtxt = amcAll then if aCtxt = amcAll then
begin List.Items.Clear
List.Items.Clear; else for i := List.Items.Count-1 downto 0 do
exit;
end;
for i := List.Items.Count-1 downto 0 do
begin begin
msgdt := PMessageData(List.Items[i].Data); msgdt := PMessageData(List.Items[i].Data);
if msgdt^.ctxt = aCtxt then if msgdt^.ctxt = aCtxt then