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

Fixed #45

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@401 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2010-01-12 15:32:59 +00:00
parent 6b55f916c1
commit 99e355328a
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Projects/SAMufasaGUI/framescript.pas
View File

@ -230,7 +230,10 @@ begin
ScriptErrorLine:= ErrorAtLine;
SynEdit.Invalidate;
SynEdit.SelStart:= ErrorPosition;
formWriteln(Format('Error: %s at line %d',[errorstr,erroratline]));
if pos('error',lowercase(errorstr)) > 0 then
formWriteln(Format('%s at line %d',[errorstr,erroratline]))
else
formWriteln(Format('Error: %s at line %d',[errorstr,erroratline]));
end;
procedure TScriptFrame.MakeActiveScriptFrame;

9
Units/MMLAddon/mmlpsthread.pas
View File

@ -385,14 +385,17 @@ begin
b := False;
for l := 0 to PSScript.CompilerMessageCount - 1 do
begin
psWriteln(PSScript.CompilerErrorToStr(l));
if (not b) and (PSScript.CompilerMessages[l] is TIFPSPascalCompilerError) then
begin
b := True;
if OnError <> nil then
with PSScript.CompilerMessages[l] do
OnError(Row, Pos, MessageToString,errCompile);
end;
OnError(Row, Pos, MessageToString,errCompile)
else
psWriteln(PSScript.CompilerErrorToStr(l));
end else
psWriteln(PSScript.CompilerErrorToStr(l));
end;
end;