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

View File

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