moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-07 02:30:19 -05:00
Code Issues Releases Wiki Activity

Add -dTERMINALWRITELN to debug to terminal rather than debug box.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@193 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-11-04 23:02:37 +00:00
parent bc9999cc07
commit c3a694a46a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/SAMufasaGUI/testunit.pas
View File

@ -306,7 +306,9 @@ begin
ScriptThread := TMMLPSThread.Create(True,@CurrentSyncInfo); ScriptThread := TMMLPSThread.Create(True,@CurrentSyncInfo);
ScriptThread.SetPSScript(CurrScript.SynEdit.Lines.Text); ScriptThread.SetPSScript(CurrScript.SynEdit.Lines.Text);
// ScriptThread.SetDebug(Self.Memo1); // ScriptThread.SetDebug(Self.Memo1);
{$IFNDEF TERMINALWRITELN}
ScriptThread.SetDebug(@formWriteln); ScriptThread.SetDebug(@formWriteln);
{$ENDIF}
ScriptThread.OnError:=@ErrorThread; ScriptThread.OnError:=@ErrorThread;
if ScriptFile <> '' then if ScriptFile <> '' then
ScriptThread.SetPaths( ExtractFileDir(ScriptFile) + DS,IncludeTrailingPathDelimiter(ExpandFileName(MainDir +DS + '..' + DS + '..' + ds))) ScriptThread.SetPaths( ExtractFileDir(ScriptFile) + DS,IncludeTrailingPathDelimiter(ExpandFileName(MainDir +DS + '..' + DS + '..' + ds)))