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

temp fix order of init and service assignation

This commit is contained in:
Basile Burg 2016-03-21 22:41:03 +01:00
parent 76f63354fa
commit 32655fd0d1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_tools.pas
View File

@ -127,6 +127,7 @@ end;
constructor TCEToolItem.create(ACollection: TCollection);
begin
inherited;
// TODO-cbugfix: tools are init before symstring, even when order of 'uses' is modified (lpr)
fSymStringExpander:= getSymStringExpander;
fMsgs := getMessageDisplay;
fToolItems := TCEToolItems(ACollection);
@ -200,6 +201,8 @@ begin
//
if fClearMessages then
getMessageDisplay(fMsgs).clearByContext(amcMisc);
if fSymStringExpander = nil then
fSymStringExpander:= getSymStringExpander;
//
old := GetCurrentDirUTF8;
fProcess := TCEProcess.Create(nil);