Class TForm1 (unit PackUnit)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);

Flags.

procedure FormDestroy(Sender: TObject);

Assign hint text

procedure MakeSource;

--------------------- Show package source TODO: - add description - add directive ---------------------

procedure OpenPackage;

------------------------------------------// // ------------------------------------------//

procedure SpeedButton1Click(Sender: TObject);

------------------------------------ Open package with standard dialog ------------------------------------

procedure SpeedButton2Click(Sender: TObject);

-------------------------- Write source to file --------------------------

procedure SpeedButton3Click(Sender: TObject);

-------------------------- Exit from program --------------------------

procedure SpeedButton4Click(Sender: TObject);

-------------------------- Show some stuff --------------------------

Properties

Events

Variables

Memo1 : TMemo;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton4 : TSpeedButton;


PkgFlagDesc : String;

Private declarations


Constructors


Functions


procedure FormCreate(Sender: TObject);

Flags.. { For I := 0 to List.Count-1 do begin If Pos('Flags=', List.Strings[I]) > 0 Then Begin Add(List.Strings[I]); End; end;


procedure FormDestroy(Sender: TObject);

Assign hint text


procedure MakeSource;

--------------------- Show package source TODO: - add description - add directive ---------------------


procedure OpenPackage;

------------------------------------------// // ------------------------------------------//


procedure SpeedButton1Click(Sender: TObject);

------------------------------------ Open package with standard dialog ------------------------------------


procedure SpeedButton2Click(Sender: TObject);

-------------------------- Write source to file --------------------------


procedure SpeedButton3Click(Sender: TObject);

-------------------------- Exit from program --------------------------


procedure SpeedButton4Click(Sender: TObject);

-------------------------- Show some stuff --------------------------


Properties


Events


Variables


Memo1 : TMemo;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton4 : TSpeedButton;


PkgFlagDesc : String;

Private declarations