Class TForm1 (unit PackUnit) |
Inherits from
TForm
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 --------------------------
Memo1 : TMemo;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
PkgFlagDesc : String;
Private declarations
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 --------------------------
Memo1 : TMemo;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
PkgFlagDesc : String;
Private declarations