Class TfrmMain (unit Main)
Inherits from
TForm
Constructors
Functions
procedure FormCreate(Sender: TObject);
procedure hdrFilesSized(Sender: TObject; ASection, AWidth: Integer);
procedure lstFilesClick(Sender: TObject);
procedure lstFilesDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure lstFilesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure LZHBatchCollectError(Sender: TObject; const FileName: string; var Action: TCollectErrorAction);
procedure LZHBatchFileExist(Sender: TObject; const FileName: string; var Action: TFileExistAction);
procedure LZHBatchProgress(Sender: TObject; const FileName: string; const FileBytesWritten, FileBytes, TotalBytesWritten, TotalBytes: Longint; var Cancel: Boolean);
procedure mnuActionAddClick(Sender: TObject);
procedure mnuActionClick(Sender: TObject);
procedure mnuActionDeleteClick(Sender: TObject);
procedure mnuActionDeselectAllClick(Sender: TObject);
procedure mnuActionExtractClick(Sender: TObject);
procedure mnuActionMakeAutoInstallerClick(Sender: TObject);
procedure mnuActionMakeExeClick(Sender: TObject);
procedure mnuActionRemoveExeClick(Sender: TObject);
procedure mnuActionSelectAllClick(Sender: TObject);
procedure mnuActionViewClick(Sender: TObject);
procedure mnuFileClick(Sender: TObject);
procedure mnuFileCloseArchiveClick(Sender: TObject);
procedure mnuFileCopyArchiveClick(Sender: TObject);
procedure mnuFileDeleteArchiveClick(Sender: TObject);
procedure mnuFileExitClick(Sender: TObject);
procedure mnuFileInformationClick(Sender: TObject);
procedure mnuFileMoveArchiveClick(Sender: TObject);
procedure mnuFileNewArchiveClick(Sender: TObject);
procedure mnuFileOpenArchiveClick(Sender: TObject);
procedure mnuFileRenameArchiveClick(Sender: TObject);
procedure mnuHelpAboutClick(Sender: TObject);
procedure pbxLedPaint(Sender: TObject);
function AddConfigToArchive(bAskParams : Boolean): Boolean;
function AppendSlash(const sDir : String): String;
function ConfigInArchive: Boolean;
procedure DeleteConfigFromArchive;
procedure DoAddFiles(Mode : TArchiveMode);
procedure ExtractConfigFromArchive;
function GetSelectedInformation: String;
function GetSelfExtractorOffset: LongInt;
procedure NotImplemented;
procedure OpenFile(const sFile : String);
procedure PrependExecutable(sExecutable : String);
function RemoveSlash(const sDir : String): String;
procedure Reset;
procedure SelectAll(bSelect : Boolean);
procedure SetLedColor(lColor : TColor);
procedure ShellExec(const sFile : String);
procedure ShowHint(Sender : TObject);
Properties
Events
Variables
gauProgress : TGauge;
hdrFiles : THeader;
imgLed : TImage;
lstFiles : TListBox;
LZHBatch : TLZHBatch;
mnuAction : TMenuItem;
mnuActionAdd : TMenuItem;
mnuActionDelete : TMenuItem;
mnuActionDeselectAll : TMenuItem;
mnuActionExtract : TMenuItem;
mnuActionMakeAutoInstaller : TMenuItem;
mnuActionMakeExe : TMenuItem;
mnuActionRemoveExe : TMenuItem;
mnuActionSelectAll : TMenuItem;
mnuActionSep : TMenuItem;
mnuActionSep2 : TMenuItem;
mnuActionView : TMenuItem;
mnuFile : TMenuItem;
mnuFileCloseArchive : TMenuItem;
mnuFileCopyArchive : TMenuItem;
mnuFileDeleteArchive : TMenuItem;
mnuFileExit : TMenuItem;
mnuFileInformation : TMenuItem;
mnuFileMoveArchive : TMenuItem;
mnuFileNewArchive : TMenuItem;
mnuFileOpenArchive : TMenuItem;
mnuFileRenameArchive : TMenuItem;
mnuFileSep1 : TMenuItem;
mnuFileSep2 : TMenuItem;
mnuFileSep3 : TMenuItem;
mnuHelp : TMenuItem;
mnuHelpAbout : TMenuItem;
mnuMain : TMainMenu;
NewArchiveDialog : TSaveDialog;
OpenDialog : TOpenDialog;
pbxLed : TPaintBox;
pnlMessage : TPanel;
pnlStatus : TPanel;
AskForOverwrite : Boolean;
ShowProgress : Boolean;
Constructors
Functions
procedure FormCreate(Sender: TObject);
procedure hdrFilesSized(Sender: TObject; ASection, AWidth: Integer);
procedure lstFilesClick(Sender: TObject);
procedure lstFilesDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure lstFilesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure LZHBatchCollectError(Sender: TObject; const FileName: string; var Action: TCollectErrorAction);
procedure LZHBatchFileExist(Sender: TObject; const FileName: string; var Action: TFileExistAction);
procedure LZHBatchProgress(Sender: TObject; const FileName: string; const FileBytesWritten, FileBytes, TotalBytesWritten, TotalBytes: Longint; var Cancel: Boolean);
procedure mnuActionAddClick(Sender: TObject);
procedure mnuActionClick(Sender: TObject);
procedure mnuActionDeleteClick(Sender: TObject);
procedure mnuActionDeselectAllClick(Sender: TObject);
procedure mnuActionExtractClick(Sender: TObject);
procedure mnuActionMakeAutoInstallerClick(Sender: TObject);
procedure mnuActionMakeExeClick(Sender: TObject);
procedure mnuActionRemoveExeClick(Sender: TObject);
procedure mnuActionSelectAllClick(Sender: TObject);
procedure mnuActionViewClick(Sender: TObject);
procedure mnuFileClick(Sender: TObject);
procedure mnuFileCloseArchiveClick(Sender: TObject);
procedure mnuFileCopyArchiveClick(Sender: TObject);
procedure mnuFileDeleteArchiveClick(Sender: TObject);
procedure mnuFileExitClick(Sender: TObject);
procedure mnuFileInformationClick(Sender: TObject);
procedure mnuFileMoveArchiveClick(Sender: TObject);
procedure mnuFileNewArchiveClick(Sender: TObject);
procedure mnuFileOpenArchiveClick(Sender: TObject);
procedure mnuFileRenameArchiveClick(Sender: TObject);
procedure mnuHelpAboutClick(Sender: TObject);
procedure pbxLedPaint(Sender: TObject);
function AddConfigToArchive(bAskParams : Boolean): Boolean;
function AppendSlash(const sDir : String): String;
function ConfigInArchive: Boolean;
procedure DeleteConfigFromArchive;
procedure DoAddFiles(Mode : TArchiveMode);
procedure ExtractConfigFromArchive;
function GetSelectedInformation: String;
function GetSelfExtractorOffset: LongInt;
procedure NotImplemented;
procedure OpenFile(const sFile : String);
procedure PrependExecutable(sExecutable : String);
function RemoveSlash(const sDir : String): String;
procedure Reset;
procedure SelectAll(bSelect : Boolean);
procedure SetLedColor(lColor : TColor);
procedure ShellExec(const sFile : String);
procedure ShowHint(Sender : TObject);
Properties
Events
Variables
gauProgress : TGauge;
hdrFiles : THeader;
imgLed : TImage;
lstFiles : TListBox;
LZHBatch : TLZHBatch;
mnuAction : TMenuItem;
mnuActionAdd : TMenuItem;
mnuActionDelete : TMenuItem;
mnuActionDeselectAll : TMenuItem;
mnuActionExtract : TMenuItem;
mnuActionMakeAutoInstaller : TMenuItem;
mnuActionMakeExe : TMenuItem;
mnuActionRemoveExe : TMenuItem;
mnuActionSelectAll : TMenuItem;
mnuActionSep : TMenuItem;
mnuActionSep2 : TMenuItem;
mnuActionView : TMenuItem;
mnuFile : TMenuItem;
mnuFileCloseArchive : TMenuItem;
mnuFileCopyArchive : TMenuItem;
mnuFileDeleteArchive : TMenuItem;
mnuFileExit : TMenuItem;
mnuFileInformation : TMenuItem;
mnuFileMoveArchive : TMenuItem;
mnuFileNewArchive : TMenuItem;
mnuFileOpenArchive : TMenuItem;
mnuFileRenameArchive : TMenuItem;
mnuFileSep1 : TMenuItem;
mnuFileSep2 : TMenuItem;
mnuFileSep3 : TMenuItem;
mnuHelp : TMenuItem;
mnuHelpAbout : TMenuItem;
mnuMain : TMainMenu;
NewArchiveDialog : TSaveDialog;
OpenDialog : TOpenDialog;
pbxLed : TPaintBox;
pnlMessage : TPanel;
pnlStatus : TPanel;
AskForOverwrite : Boolean;
ShowProgress : Boolean;