mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some function parameters hints and changed error message.

Browse Source
This commit is contained in:
utak3r 2006-12-09 23:09:36 +00:00
parent e56ecc474d
commit deab189375
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2.10/Source/ScriptForm.pas
View File

@ -3603,7 +3603,7 @@ procedure TScriptEditor.ScripterCompileError(Sender: TObject;
var msg: string; row, col: Integer; var ShowException: Boolean); var msg: string; row, col: Integer; var ShowException: Boolean);
begin begin
Editor.ActiveLine := row - 1; Editor.ActiveLine := row - 1;
Console.Lines.Add(msg); Console.Lines.Add('Line '+IntToStr(row)+' : '+msg);
ScriptRenderForm.Close; ScriptRenderForm.Close;
btnRun.Enabled := True; btnRun.Enabled := True;
btnStop.Enabled := False; btnStop.Enabled := False;
@ -3612,6 +3612,7 @@ begin
MainForm.mnuRun.Enabled := True; MainForm.mnuRun.Enabled := True;
MainForm.mnuStop.Enabled := False; MainForm.mnuStop.Enabled := False;
btnBreak.Enabled := False; btnBreak.Enabled := False;
ShowException := true;
Application.ProcessMessages; Application.ProcessMessages;
end; end;