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