Class TInstallBuildForm (unit Bemf)

Inherits from

TForm

Constructors



Functions

procedure ActualBuildBtnClick(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);


procedure BuildBtnClick(Sender: TObject);

Get the source directory information.

procedure BuildPathBtnClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure CancelBtnClick(Sender: TObject);


procedure CopyToFloppyBtnClick(Sender: TObject);


procedure DiskBtnPathClick(Sender: TObject);


procedure edExecutableChange(Sender: TObject);


procedure ExecutableBtnClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Read all the options in from the
procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure OptionsBtnClick(Sender: TObject);


procedure YsflCompressAborted(Sender: TObject);

YsflCompress Event handlers

procedure YsflCompressBeforeAdding(YsflCompress: TYsflCompress; const FileStats: TlzhFileStats);


procedure YsflCompressNewDisk(YsflCompress: TYsflCompress; const DiskNumber: Integer; var Path: OpenString);


procedure YsflCompressStatus(YsflCompress: TYsflCompress; const FileStats: TlzhFileStats);


procedure BuildInstallFiles;


procedure BuildPresetupFiles;

Build the zip that contains all files to be pre-installed on the user's computer.

procedure CopyPresetupEXE(Dir: String);

Build the presetup files

Universal constants


procedure CreateInstallDir;

Copies the ysflpsu.

procedure SetInformationButtons;


Properties

property Install : TInstall

Public declarations

Events

Variables

ActualBuildBtn : TButton;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


Bevel5 : TBevel;


Bevel6 : TBevel;


BitBtn1 : TBitBtn;


BuildBtn : TButton;


BuildPathBtn : TSpeedButton;


Button1 : TButton;


CancelBtn : TBitBtn;


CopyToFloppyBtn : TButton;


DateLabel : TLabel;


DiskBtnPath : TSpeedButton;


edBuildPath : TEdit;


edDiskPath : TEdit;


edExecutable : TEdit;


ExecutableBtn : TSpeedButton;


FileBeingAdded : TLabel;


FileGauge : TGauge;


Header1 : THeader;


IFPackedSize : TLabel;


Label1 : TLabel;


Label10 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Memo1 : TMemo;


Memo2 : TMemo;


Memo3 : TMemo;


Notebook : TNotebook;


OpenExecutable : TOpenDialog;


OptionsBtn : TButton;


TotalGauge : TGauge;


TotalPackedSize : TLabel;


YsflCompress : TYsflCompress;


BuildAction : TBuildAction;


FInstall : TInstall;

The directory the user was in when he opened the installation builder.

InsBuildINI : TInsBuildINI;

Current state

OriginalDir : String;

An interfact object to the 'insbuild.

PresetupSize : LongInt;


TotalPresetupBytes : LongInt;


TotalSetupBytes : LongInt;

Private declarations


Constructors


Functions


procedure ActualBuildBtnClick(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);


procedure BuildBtnClick(Sender: TObject);

Get the source directory information.


procedure BuildPathBtnClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure CancelBtnClick(Sender: TObject);


procedure CopyToFloppyBtnClick(Sender: TObject);


procedure DiskBtnPathClick(Sender: TObject);


procedure edExecutableChange(Sender: TObject);


procedure ExecutableBtnClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Read all the options in from the file


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure OptionsBtnClick(Sender: TObject);


procedure YsflCompressAborted(Sender: TObject);

YsflCompress Event handlers


procedure YsflCompressBeforeAdding(YsflCompress: TYsflCompress; const FileStats: TlzhFileStats);


procedure YsflCompressNewDisk(YsflCompress: TYsflCompress; const DiskNumber: Integer; var Path: OpenString);


procedure YsflCompressStatus(YsflCompress: TYsflCompress; const FileStats: TlzhFileStats);


procedure BuildInstallFiles;


procedure BuildPresetupFiles;

Build the zip that contains all files to be pre-installed on the user's computer.


procedure CopyPresetupEXE(Dir: String);

Build the presetup files

Universal constants


procedure CreateInstallDir;

Copies the ysflpsu.exe file to the installation build directory.


procedure SetInformationButtons;


Properties


property Install : TInstall

Public declarations


Events


Variables


ActualBuildBtn : TButton;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


Bevel5 : TBevel;


Bevel6 : TBevel;


BitBtn1 : TBitBtn;


BuildBtn : TButton;


BuildPathBtn : TSpeedButton;


Button1 : TButton;


CancelBtn : TBitBtn;


CopyToFloppyBtn : TButton;


DateLabel : TLabel;


DiskBtnPath : TSpeedButton;


edBuildPath : TEdit;


edDiskPath : TEdit;


edExecutable : TEdit;


ExecutableBtn : TSpeedButton;


FileBeingAdded : TLabel;


FileGauge : TGauge;


Header1 : THeader;


IFPackedSize : TLabel;


Label1 : TLabel;


Label10 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Memo1 : TMemo;


Memo2 : TMemo;


Memo3 : TMemo;


Notebook : TNotebook;


OpenExecutable : TOpenDialog;


OptionsBtn : TButton;


TotalGauge : TGauge;


TotalPackedSize : TLabel;


YsflCompress : TYsflCompress;


BuildAction : TBuildAction;


FInstall : TInstall;

The directory the user was in when he opened the installation builder.


InsBuildINI : TInsBuildINI;

Current state


OriginalDir : String;

An interfact object to the 'insbuild.ini' file that holds the options and files


PresetupSize : LongInt;


TotalPresetupBytes : LongInt;


TotalSetupBytes : LongInt;

Private declarations