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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_messages.pas
View File

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