fix #120 - "select all" in the messages can hang dexed for a while

This commit is contained in:
Basile Burg 2023-07-06 20:48:00 +02:00
parent c2c987cdda
commit 985b8b073d
1 changed files with 1 additions and 0 deletions

View File

@ -811,6 +811,7 @@ var
i: integer; i: integer;
n: TTreeNode; n: TTreeNode;
begin begin
List.ClearSelection();
List.BeginUpdate; List.BeginUpdate;
for i := 0 to List.Items.Count-1 do for i := 0 to List.Items.Count-1 do
begin begin