Class TQuickOpenFileDialog (unit OXFOpen) |
Inherits from
TForm
procedure Button1Click(Sender: TObject);
Call with a bigger buffer
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Returns the Path and File name of the current module
procedure FormDestroy(Sender: TObject);
sets the Helpfile to the filename of the EXE in the same path
Procedure Configure(Toolservices: TIToolServices);
Put checkbox in right column
Function GetFileName: String;
Function GetSearchPath: TPathList;
The project file may contain files like
uses unit1 in 'C:\units\unit1.
Function SearchProjectUnits(Var Filename: String): Boolean;
Procedure SetFileName(Const FName: String);
Function CheckDisabled(Caption: String): Boolean;
Save the state of each checkbox
Function CreateCheckBox(Num: Integer; Caption: String): TCheckBox;
Returns True if the CheckBox is NOT checked
Procedure FillHistory(KeyName: String; HistoryList: TStrings);
These procedures are private because they use REGJust because Borland does it
Procedure SaveDisabled;
Read a history list
Procedure SaveHistory(Const KeyName, LastValue :String; HistoryList: TStrings);
Not Found
property FileName : String
property SearchPathList : TPathList
The return value of this dialog
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
FileCB : TComboBox;
GroupBox1 : TGroupBox;
Label2 : TLabel;
PathCB : TComboBox;
CheckBoxes : TStrings;
FullPath : String;
Objects of this list are checkboxes
Paths : TStrings;
FSearchPath : TPathList;
FToolServices : TIToolServices;
Reg : TRegistry;
procedure Button1Click(Sender: TObject);
Call with a bigger buffer
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Returns the Path and File name of the current module
procedure FormDestroy(Sender: TObject);
sets the Helpfile to the filename of the EXE in the same path
Procedure Configure(Toolservices: TIToolServices);
Put checkbox in right column
Function GetFileName: String;
Function GetSearchPath: TPathList;
The project file may contain files like
uses unit1 in 'C:\units\unit1.pas',
Filename would be changed from unit1 to C:\units\unit1.pas} {Returns true if filename is found among the project files
Function SearchProjectUnits(Var Filename: String): Boolean;
Procedure SetFileName(Const FName: String);
Function CheckDisabled(Caption: String): Boolean;
Save the state of each checkbox
Function CreateCheckBox(Num: Integer; Caption: String): TCheckBox;
Returns True if the CheckBox is NOT checked
Procedure FillHistory(KeyName: String; HistoryList: TStrings);
These procedures are private because they use REG
Just because Borland does it
Procedure SaveDisabled;
Read a history list
Procedure SaveHistory(Const KeyName, LastValue :String; HistoryList: TStrings);
Not Found
property FileName : String
property SearchPathList : TPathList
The return value of this dialog
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
FileCB : TComboBox;
GroupBox1 : TGroupBox;
Label2 : TLabel;
PathCB : TComboBox;
CheckBoxes : TStrings;
FullPath : String;
Objects of this list are checkboxes
Paths : TStrings;
FSearchPath : TPathList;
FToolServices : TIToolServices;
Reg : TRegistry;