Class TTabbedNotebookDlg (unit Updprops)

Inherits from

TForm

Constructors



Functions

procedure AboutBtnClick(Sender: TObject);

To show the updated CRCs

procedure AddBtnClick(Sender: TObject);


procedure BrowseButtonClick(Sender: TObject);


procedure CloseBtnClick(Sender: TObject);


procedure ContolEnter(Sender: TObject);


procedure DeleteBtnClick(Sender: TObject);

Add the FileName and CRCs to the List

procedure FileListBoxClick(Sender: TObject);


procedure FileListBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure FileNameChange(Sender: TObject);


procedure FileNameExit(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure InvalidateCRCs(Sender: TObject);

Free InStream in case an exception got us here.

procedure LoadBtnClick(Sender: TObject);


procedure MakeBtnClick(Sender: TObject);


procedure MoveDownBtnClick(Sender: TObject);


procedure MoveUpBtnClick(Sender: TObject);

To adjust the Add button enabling

procedure OldDirectoryListBoxChange(Sender: TObject);


procedure RefreshCRCBtnClick(Sender: TObject);


procedure SaveBtnClick(Sender: TObject);


function CalculateCRCs(FileInfoObj: TObject; ErrMsgID: integer): Boolean;

Public declarations

function CanAddFileNameToList : Boolean;


function OldAndNewDirectoriesOK : Boolean;

If more than one file is selected, automatically add all but the last file to the list

procedure ClearFileList;

Private declarations

Properties

Events

Variables

AboutBtn : TBitBtn;


AddBtn : TBitBtn;


BrowseButton : TButton;


CloseBtn : TBitBtn;


DeleteBtn : TBitBtn;


FileListBox : TListBox;


FileName : TEdit;


FileNameLabel : TLabel;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


HelpBtn : TBitBtn;


Label1 : TLabel;


Label2 : TLabel;


LoadBtn : TBitBtn;


MakeBtn : TBitBtn;


MoveDownBtn : TBitBtn;


MoveUpBtn : TBitBtn;


NewDirectoryLabel : TLabel;


NewDirectoryListBox : TDirectoryListBox;


NewDriveComboBox : TDriveComboBox;


NewVersion : TEdit;


NewVersionLabel : TLabel;


OldDirectoryLabel : TLabel;


OldDirectoryListBox : TDirectoryListBox;


OldDriveComboBox : TDriveComboBox;


OldVersion : TEdit;


OldVersionLabel : TLabel;


OpenDialog : TOpenDialog;


RefreshCRCBtn : TBitBtn;


SaveBtn : TBitBtn;


SaveDialog : TSaveDialog;


TabbedNotebook1 : TTabbedNotebook;



Constructors


Functions


procedure AboutBtnClick(Sender: TObject);

To show the updated CRCs


procedure AddBtnClick(Sender: TObject);


procedure BrowseButtonClick(Sender: TObject);


procedure CloseBtnClick(Sender: TObject);


procedure ContolEnter(Sender: TObject);


procedure DeleteBtnClick(Sender: TObject);

Add the FileName and CRCs to the List


procedure FileListBoxClick(Sender: TObject);


procedure FileListBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure FileNameChange(Sender: TObject);


procedure FileNameExit(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure InvalidateCRCs(Sender: TObject);

Free InStream in case an exception got us here.


procedure LoadBtnClick(Sender: TObject);


procedure MakeBtnClick(Sender: TObject);


procedure MoveDownBtnClick(Sender: TObject);


procedure MoveUpBtnClick(Sender: TObject);

To adjust the Add button enabling


procedure OldDirectoryListBoxChange(Sender: TObject);


procedure RefreshCRCBtnClick(Sender: TObject);


procedure SaveBtnClick(Sender: TObject);


function CalculateCRCs(FileInfoObj: TObject; ErrMsgID: integer): Boolean;

Public declarations


function CanAddFileNameToList : Boolean;


function OldAndNewDirectoriesOK : Boolean;

If more than one file is selected, automatically add all but the last file to the list


procedure ClearFileList;

Private declarations


Properties


Events


Variables


AboutBtn : TBitBtn;


AddBtn : TBitBtn;


BrowseButton : TButton;


CloseBtn : TBitBtn;


DeleteBtn : TBitBtn;


FileListBox : TListBox;


FileName : TEdit;


FileNameLabel : TLabel;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


HelpBtn : TBitBtn;


Label1 : TLabel;


Label2 : TLabel;


LoadBtn : TBitBtn;


MakeBtn : TBitBtn;


MoveDownBtn : TBitBtn;


MoveUpBtn : TBitBtn;


NewDirectoryLabel : TLabel;


NewDirectoryListBox : TDirectoryListBox;


NewDriveComboBox : TDriveComboBox;


NewVersion : TEdit;


NewVersionLabel : TLabel;


OldDirectoryLabel : TLabel;


OldDirectoryListBox : TDirectoryListBox;


OldDriveComboBox : TDriveComboBox;


OldVersion : TEdit;


OldVersionLabel : TLabel;


OpenDialog : TOpenDialog;


RefreshCRCBtn : TBitBtn;


SaveBtn : TBitBtn;


SaveDialog : TSaveDialog;


TabbedNotebook1 : TTabbedNotebook;