Class TScriptingDemo (unit ScriptDemo)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;