Class TSelectFileDlg (unit Filedlg)

Inherits from

TForm

----- File: FILEDLG.PAS for Project CODEAPP.DPR -----

Constructors



Functions

procedure CancelBtnClick(Sender: TObject);


procedure DirectoryListBox1Change(Sender: TObject);


procedure DriveComboBox1Change(Sender: TObject);


procedure Edit1Click(Sender: TObject);


procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

-Make file list match Directory list

procedure Edit1KeyPress(Sender: TObject; var Key: Char);


procedure FileListBox1Change(Sender: TObject);


procedure FileListBox1DblClick(Sender: TObject);


procedure FileListBox1KeyPress(Sender: TObject; var Key: Char);


procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormActivate(Sender: TObject);

-Give user a clue or two

procedure FormCreate(Sender: TObject);

-Show # of files in list

procedure HelpBtnClick(Sender: TObject);


procedure OKBtnClick(Sender: TObject);

-Select a file from list

function HaveFileName: boolean;

Private declarations

file selection filter


Properties

Events

Variables

CancelBtn : TBitBtn;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


Edit1 : TComboBox;


FileInfo : TLabel;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


GroupBox1 : TGroupBox;


HelpBtn : TBitBtn;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


OKBtn : TBitBtn;


FilePath : string;

the chosen file /w path

FileSpec : string;

Public declarations

FileTypes : string;



Constructors


Functions


procedure CancelBtnClick(Sender: TObject);


procedure DirectoryListBox1Change(Sender: TObject);


procedure DriveComboBox1Change(Sender: TObject);


procedure Edit1Click(Sender: TObject);


procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

-Make file list match Directory list


procedure Edit1KeyPress(Sender: TObject; var Key: Char);


procedure FileListBox1Change(Sender: TObject);


procedure FileListBox1DblClick(Sender: TObject);


procedure FileListBox1KeyPress(Sender: TObject; var Key: Char);


procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormActivate(Sender: TObject);

-Give user a clue or two


procedure FormCreate(Sender: TObject);

-Show # of files in list


procedure HelpBtnClick(Sender: TObject);


procedure OKBtnClick(Sender: TObject);

-Select a file from list


function HaveFileName: boolean;

Private declarations

file selection filter


Properties


Events


Variables


CancelBtn : TBitBtn;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


Edit1 : TComboBox;


FileInfo : TLabel;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


GroupBox1 : TGroupBox;


HelpBtn : TBitBtn;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


OKBtn : TBitBtn;


FilePath : string;

the chosen file /w path


FileSpec : string;

Public declarations


FileTypes : string;