| Class TForm1 (unit PackUnit) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure MakeSource;
procedure OpenPackage;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);| Properties |
| Events |
| Variables |
Memo1 : TMemo;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
PkgFlagDesc : String;| 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