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

prevent list short freezing when selecting all the messages

This commit is contained in:
Basile Burg 2017-02-23 00:36:25 +01:00
parent 7bf7b72838
commit ac88730621
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_messages.pas
View File

@ -678,9 +678,11 @@ procedure TCEMessagesWidget.actSelAllExecute(Sender: TObject);
var var
i: Integer; i: Integer;
begin begin
List.BeginUpdate;
for i := 0 to List.Items.Count-1 do for i := 0 to List.Items.Count-1 do
if List.Items[i].Visible then if List.Items[i].Visible then
List.Items[i].MultiSelected := true; List.Items[i].MultiSelected := true;
List.EndUpdate;
end; end;
procedure TCEMessagesWidget.actSaveMsgExecute(Sender: TObject); procedure TCEMessagesWidget.actSaveMsgExecute(Sender: TObject);