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