moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Extensions: Changed OpenScript(Ex) to allow running of the script.

This commit is contained in:
John P (Dgby714) 2010-12-25 04:00:37 -05:00
parent 4f861ffb5d
commit b36866921e
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Projects/Simba/psextension.pas
View File

@ -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;');

10
Units/MMLAddon/PSInc/Wrappers/extensions.inc
View File

@ -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;