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.
procedure btnGoClick(Sender: TObject);
procedure FormResize(Sender: TObject);
btnGoClick And just to make it look nice.
procedure rbJavaClick(Sender: TObject);
procedure rbVBClick(Sender: TObject);
btnGo : TButton;
mJCode : TMemo;
mVBCode : TMemo;
Panel1 : TPanel;
panelCode : TPanel;
panelTopLeft : TPanel;
panelTopRight : TPanel;
pcCode : TPageControl;
rbJava : TRadioButton;
rbVB : TRadioButton;
tsJ : TTabSheet;
tsVB : TTabSheet;
procedure btnGoClick(Sender: TObject);
procedure FormResize(Sender: TObject);
btnGoClick And just to make it look nice...
procedure rbJavaClick(Sender: TObject);
procedure rbVBClick(Sender: TObject);
btnGo : TButton;
mJCode : TMemo;
mVBCode : TMemo;
Panel1 : TPanel;
panelCode : TPanel;
panelTopLeft : TPanel;
panelTopRight : TPanel;
pcCode : TPageControl;
rbJava : TRadioButton;
rbVB : TRadioButton;
tsJ : TTabSheet;
tsVB : TTabSheet;