| Class TForm1 (unit Ufile) |
TForm
| Constructors |
| Functions |
Function ConvertFormOrText(FileToConvertFrom : string) : boolean ;
procedure FormCreate(Sender: TObject);
procedure pbAboutMeClick(Sender: TObject);
procedure pbConvertClick(Sender: TObject);
procedure pbExitClick(Sender: TObject);
procedure pbNextClick(Sender: TObject);
procedure pbPreviousClick(Sender: TObject);
procedure ProcessAllFiles(const Extension : string) ;
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 ;| 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