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;