eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Now properly sets the default Theme script/template paths.

This commit is contained in:
mysticbbs 2012-04-02 04:57:40 -04:00
parent ebf17764fe
commit 5680b930ee
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mystic/install.pas
View File

@ -462,9 +462,11 @@ Begin
While Not Eof(LangFile) Do Begin While Not Eof(LangFile) Do Begin
Read (LangFile, TLang); Read (LangFile, TLang);
TLang.FileName := 'default'; TLang.FileName := 'default';
TLang.TextPath := Lang.TextPath; TLang.TextPath := Lang.TextPath;
TLang.MenuPath := Lang.MenuPath; TLang.MenuPath := Lang.MenuPath;
TLang.TemplatePath := Lang.TextPath;
TLang.ScriptPath := Config.ScriptPath;
Seek (LangFile, FilePos(LangFile) - 1); Seek (LangFile, FilePos(LangFile) - 1);
Write (LangFile, TLang); Write (LangFile, TLang);