Class TForm1 (unit Ufile)

Inherits from

TForm

Constructors



Functions

Function ConvertFormOrText(FileToConvertFrom : string) : boolean ;


procedure FormCreate(Sender: TObject);

Swap TXT to DFM or DFM to TXT

procedure pbAboutMeClick(Sender: TObject);

Previous Screen button

procedure pbConvertClick(Sender: TObject);

Routine to process all files of a specified type

procedure pbExitClick(Sender: TObject);

Process all the files in the selected directory

procedure pbNextClick(Sender: TObject);


procedure pbPreviousClick(Sender: TObject);

Next screen button

procedure ProcessAllFiles(const Extension : string) ;

Now perform the selected conversion

procedure RadioGroup2Click(Sender: TObject);


Properties

Events

Variables

DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Panel1 : TPanel;


pbAboutMe : TButton;


pbConvert : TButton;


pbExit : TButton;


pbNext : TButton;


pbPrevious : TButton;


RadioGroup1 : TRadioGroup;


RadioGroup2 : TRadioGroup;


ResultLabel : TLabel;


StatusLabel : TLabel;


Step3lLabel : TLabel;


Wizard : TNotebook;


ConversionType : TDFMOrTXT ;

This holds the current type of conversion we are performing


Constructors


Functions


Function ConvertFormOrText(FileToConvertFrom : string) : boolean ;


procedure FormCreate(Sender: TObject);

Swap TXT to DFM or DFM to TXT


procedure pbAboutMeClick(Sender: TObject);

Previous Screen button


procedure pbConvertClick(Sender: TObject);

Routine to process all files of a specified type


procedure pbExitClick(Sender: TObject);

Process all the files in the selected directory


procedure pbNextClick(Sender: TObject);


procedure pbPreviousClick(Sender: TObject);

Next screen button


procedure ProcessAllFiles(const Extension : string) ;

Now perform the selected conversion


procedure RadioGroup2Click(Sender: TObject);


Properties


Events


Variables


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Panel1 : TPanel;


pbAboutMe : TButton;


pbConvert : TButton;


pbExit : TButton;


pbNext : TButton;


pbPrevious : TButton;


RadioGroup1 : TRadioGroup;


RadioGroup2 : TRadioGroup;


ResultLabel : TLabel;


StatusLabel : TLabel;


Step3lLabel : TLabel;


Wizard : TNotebook;


ConversionType : TDFMOrTXT ;

This holds the current type of conversion we are performing