Class TfScriptForm (unit ufScriptForm)

Inherits from

TForm

This is the user interface unit. All of the ActiveScript initialization, execution, and clean up is handled in a singe ButtonClick handler. This, of course, is a bad way of implimenting ActiveScript, but for the purposes of the demo, it's a great way of showing all the necessary steps involved in a straight forward way.

Constructors



Functions

procedure btnGoClick(Sender: TObject);


procedure FormResize(Sender: TObject);

btnGoClick And just to make it look nice.

procedure rbJavaClick(Sender: TObject);


procedure rbVBClick(Sender: TObject);


Properties

Events

Variables

btnGo : TButton;


mJCode : TMemo;


mVBCode : TMemo;


Panel1 : TPanel;


panelCode : TPanel;


panelTopLeft : TPanel;


panelTopRight : TPanel;


pcCode : TPageControl;


rbJava : TRadioButton;


rbVB : TRadioButton;


tsJ : TTabSheet;


tsVB : TTabSheet;



Constructors


Functions


procedure btnGoClick(Sender: TObject);


procedure FormResize(Sender: TObject);

btnGoClick And just to make it look nice...


procedure rbJavaClick(Sender: TObject);


procedure rbVBClick(Sender: TObject);


Properties


Events


Variables


btnGo : TButton;


mJCode : TMemo;


mVBCode : TMemo;


Panel1 : TPanel;


panelCode : TPanel;


panelTopLeft : TPanel;


panelTopRight : TPanel;


pcCode : TPageControl;


rbJava : TRadioButton;


rbVB : TRadioButton;


tsJ : TTabSheet;


tsVB : TTabSheet;