save a sloc when adding messages

This commit is contained in:
Basile Burg 2018-06-23 14:51:44 +02:00
parent 3944a2e0f2
commit 3a6e482650
1 changed files with 1 additions and 2 deletions

View File

@ -903,8 +903,7 @@ begin
fBtns[aCtxt].Click;
if fastDisplay then
IncLoopUpdate;
item := List.Items.Add(nil, msg);
item.Data := dt;
item := List.Items.AddObject(nil, msg, dt);
item.ImageIndex := iconIndex(aKind);
item.SelectedIndex := item.ImageIndex;
if not fastDisplay then