Class TScriptingDemo (unit ScriptDemo) |
Inherits from
TForm
procedure About1Click(Sender: TObject);
Error Message displayed in IActiveScriptSite
procedure btnFireClick(Sender: TObject);
Parse Script and Fire the "OnEvent" Sub/Function
procedure tmOpenClick(Sender: TObject);
Opens a script file
procedure tmSaveClick(Sender: TObject);
Saves a script file
procedure tmVBScriptClick(Sender: TObject);
procedure FireMethod(const EventName : WideString);
This calls the Main Subroutine/Function in the Script
function GetScriptFilter: String;
Returns File Filter
function InitEngine : Boolean;
This Initializes Script Engine and declares internal objects
function ParseScript(const ScriptText : WideString): Boolean;
This parses the Script
procedure StopEngine;
Resets Engine Clearing the Script and all Objects
About1 : TMenuItem;
btnFire : TButton;
dlgOpen : TOpenDialog;
dlgSave : TSaveDialog;
Exit1 : TMenuItem;
File1 : TMenuItem;
Help1 : TMenuItem;
Language1 : TMenuItem;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
Open1 : TMenuItem;
Panel1 : TPanel;
Save1 : TMenuItem;
teEventName : TEdit;
tmEditor : TMemo;
tmJScript : TMenuItem;
tmVBScript : TMenuItem;
ActiveScript : IActiveScript;
Private declarations
ActiveScriptParse : IActiveScriptParse;
ActiveScriptSite : IActiveScriptSite;
procedure About1Click(Sender: TObject);
Error Message displayed in IActiveScriptSite
procedure btnFireClick(Sender: TObject);
Parse Script and Fire the "OnEvent" Sub/Function
procedure tmOpenClick(Sender: TObject);
Opens a script file
procedure tmSaveClick(Sender: TObject);
Saves a script file
procedure tmVBScriptClick(Sender: TObject);
procedure FireMethod(const EventName : WideString);
This calls the Main Subroutine/Function in the Script
function GetScriptFilter: String;
Returns File Filter
function InitEngine : Boolean;
This Initializes Script Engine and declares internal objects
function ParseScript(const ScriptText : WideString): Boolean;
This parses the Script
procedure StopEngine;
Resets Engine Clearing the Script and all Objects
About1 : TMenuItem;
btnFire : TButton;
dlgOpen : TOpenDialog;
dlgSave : TSaveDialog;
Exit1 : TMenuItem;
File1 : TMenuItem;
Help1 : TMenuItem;
Language1 : TMenuItem;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
Open1 : TMenuItem;
Panel1 : TPanel;
Save1 : TMenuItem;
teEventName : TEdit;
tmEditor : TMemo;
tmJScript : TMenuItem;
tmVBScript : TMenuItem;
ActiveScript : IActiveScript;
Private declarations
ActiveScriptParse : IActiveScriptParse;
ActiveScriptSite : IActiveScriptSite;