fix, auto select category before first message

instead of after adding a new list item
This commit is contained in:
Basile Burg 2015-01-25 06:56:02 +01:00
parent b55f6ec9cb
commit 45c9468f47
1 changed files with 2 additions and 2 deletions

View File

@ -416,6 +416,8 @@ begin
dt := new(PMessageData);
dt^.data := aData;
dt^.ctxt := aCtxt;
if fAutoSelect then if fCtxt <> aCtxt then
fBtns[aCtxt].Click;
item := List.Items.Add(nil, aValue);
item.Data := dt;
item.ImageIndex := iconIndex(aKind);
@ -423,8 +425,6 @@ begin
clearOutOfRangeMessg;
scrollToBack;
Application.ProcessMessages;
if fAutoSelect then if fCtxt <> aCtxt then
fBtns[aCtxt].Click;
filterMessages(fCtxt);
end;