Class TTabbedNotebookDlg (unit Updprops) |
Inherits from
TForm
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
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;
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
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;