diff --git a/Projects/Simba/psextension.pas b/Projects/Simba/psextension.pas index d09a6dd..f8c83d5 100644 --- a/Projects/Simba/psextension.pas +++ b/Projects/Simba/psextension.pas @@ -192,8 +192,8 @@ begin AddFunction(@ext_MessageDlg,'function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;'); AddFunction(@ext_InputQuery,'function InputQuery(const ACaption, APrompt : String; var Value : String) : Boolean;'); AddFunction(@ext_ScriptText,'function ScriptText: string;'); - AddFunction(@ext_OpenScript,'procedure OpenScript(Name, Data: string);'); - AddFunction(@ext_OpenScriptEx,'procedure OpenScriptEx(FileName: string);'); + AddFunction(@ext_OpenScript,'procedure OpenScript(Name, Data: string; Run: boolean);'); + AddFunction(@ext_OpenScriptEx,'procedure OpenScriptEx(FileName: string; Run: boolean);'); AddRegisteredPTRVariable('Settings','TMMLSettingsSandbox'); AddFunction(@ext_GetPageEx,'function GetPageEx(const URL, PostData, MimeType: string): string;'); AddFunction(@ext_GetJSONValue,'function GetJSONValue(const Data, Value: string): string;'); diff --git a/Units/MMLAddon/PSInc/Wrappers/extensions.inc b/Units/MMLAddon/PSInc/Wrappers/extensions.inc index ab1ba48..3e236d4 100644 --- a/Units/MMLAddon/PSInc/Wrappers/extensions.inc +++ b/Units/MMLAddon/PSInc/Wrappers/extensions.inc @@ -129,7 +129,7 @@ begin Result := ReplaceRegExpr('([N|n][A|a][M|m][E|e]|[P|p][A|a][S|s]{2}|[P|p][I|i][N|n])\s*\:\=\s*\''.*?\'';', Result, '$1 := ''*********'';', True); end; -procedure ext_OpenScript(Name, Data: string); +procedure ext_OpenScript(Name, Data: string; Run: boolean); begin if (Name = '') then Name := 'Untitled'; @@ -145,9 +145,12 @@ begin RefreshTab(); UpdateTitle(); end; + + if (Run) then + SimbaForm.RunScript(); end; -procedure ext_OpenScriptEx(FileName: string); +procedure ext_OpenScriptEx(FileName: string; Run: boolean); begin FileName := SetDirSeparators(FileName); with SimbaForm do @@ -164,6 +167,9 @@ begin RefreshTab(); UpdateTitle(); end; + + if (Run) then + SimbaForm.RunScript(); end; function ext_GetPageEx(const URL, PostData, MimeType: string): string;