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

messages, support for quick jump from assert errors

This commit is contained in:
Basile Burg 2015-05-03 05:40:54 +02:00
parent 2a0a3a9f91
commit ad280fc06c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_messages.pas
View File

@ -553,6 +553,7 @@ begin
item.ImageIndex := iconIndex(aKind);
item.SelectedIndex := item.ImageIndex;
clearOutOfRangeMessg;
//TODO:-cfeature: reset horz scroll bar to the left
scrollToBack;
Application.ProcessMessages;
filterMessages(fCtxt);
@ -787,8 +788,11 @@ begin
exit;
getMultiDocHandler.openDocument(ident);
result := true;
end;
ident += aMessage[i];
end
else if aMessage[i] = '@' then
ident := ''
else
ident += aMessage[i];
end;
end;
{$ENDREGION}