Class TQuickOpenFileDialog (unit OXFOpen)

Inherits from

TForm

Constructors



Functions

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 REG

Just because Borland does it


Procedure SaveDisabled;

Read a history list

Procedure SaveHistory(Const KeyName, LastValue :String; HistoryList: TStrings);

Not Found

Properties

property FileName : String


property SearchPathList : TPathList

The return value of this dialog

Events

Variables

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;



Constructors


Functions


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


Properties


property FileName : String


property SearchPathList : TPathList

The return value of this dialog


Events


Variables


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;