Class TCopyFiles (unit Unit1)

Inherits from

TForm

Constructors



Functions

procedure ButtonExitClick(Sender: TObject);


procedure ButtonMkDirClick(Sender: TObject);

close the destination file

procedure CopyFilesClick(Sender: TObject);


procedure DestinationDirectoryChange(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure SaveINIClick(Sender: TObject);


procedure SourceDirectoryChange(Sender: TObject);


function AutoCopy:boolean;

Public declarations

procedure CheckBoxClick(Sender:TObject);


procedure UpdateExt;


procedure UpdateMask;

Insert new checkboxes

Properties

Events

Variables

Bevel1 : TBevel;


Bevel2 : TBevel;


ButtonExit : TButton;


ButtonMkDir : TButton;


CopyFiles : TButton;


CopyingFileLabel : TLabel;


DestinationDirectory : TDirectoryListBox;


DestinationDrive : TDriveComboBox;


DestinationFiles : TFileListBox;


DestinationPath : TLabel;


FIleCount : TLabel;


FilesLength : TLabel;


FreeLabel : TLabel;


IncludeExtBox : TScrollBox;


Label1 : TLabel;


Label2 : TLabel;


Label4 : TLabel;


ProgressBar : TProgressBar;


SaveINI : TButton;


SaveINIDlg : TSaveDialog;


SourceDirectory : TDirectoryListBox;


SourceDrive : TDriveComboBox;


SourceFiles : TFileListBox;


SourcePath : TLabel;


WriteOpt : TRadioGroup;


IncludeExt : TStringList;

Private declarations

SourceFilesList : TStringList;



Constructors


Functions


procedure ButtonExitClick(Sender: TObject);


procedure ButtonMkDirClick(Sender: TObject);

close the destination file


procedure CopyFilesClick(Sender: TObject);


procedure DestinationDirectoryChange(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure SaveINIClick(Sender: TObject);


procedure SourceDirectoryChange(Sender: TObject);


function AutoCopy:boolean;

Public declarations


procedure CheckBoxClick(Sender:TObject);


procedure UpdateExt;


procedure UpdateMask;

Insert new checkboxes


Properties


Events


Variables


Bevel1 : TBevel;


Bevel2 : TBevel;


ButtonExit : TButton;


ButtonMkDir : TButton;


CopyFiles : TButton;


CopyingFileLabel : TLabel;


DestinationDirectory : TDirectoryListBox;


DestinationDrive : TDriveComboBox;


DestinationFiles : TFileListBox;


DestinationPath : TLabel;


FIleCount : TLabel;


FilesLength : TLabel;


FreeLabel : TLabel;


IncludeExtBox : TScrollBox;


Label1 : TLabel;


Label2 : TLabel;


Label4 : TLabel;


ProgressBar : TProgressBar;


SaveINI : TButton;


SaveINIDlg : TSaveDialog;


SourceDirectory : TDirectoryListBox;


SourceDrive : TDriveComboBox;


SourceFiles : TFileListBox;


SourcePath : TLabel;


WriteOpt : TRadioGroup;


IncludeExt : TStringList;

Private declarations


SourceFilesList : TStringList;