| Class TfScriptForm (unit ufScriptForm) |
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);
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;