Unit FileCtrl

*****************************************************} { } { Delphi Visual Component Library } { } { Copyright (c) 1995,97 Borland International } { } {

Classes

TDirectoryListBox - TDirectoryListBox
TDriveComboBox -
TFileListBox - TFileListBox
TFilterComboBox - TFilterComboBox

Functions

DirectoryExists - scale to screen res
ForceDirectories -
MinimizeName -
ProcessPath -
SelectDirectory -

Types

TDriveType
TFileAttr
TFileType
TSelectDirOpt
TSelectDirOpts
TTextCase

Constants

WNTYPE_DRIVE

Variables


Functions


function DirectoryExists(const Name: string): Boolean;

scale to screen res

procedure ForceDirectories(Dir: string);


function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;


procedure ProcessPath (const EditText: string; var Drive: Char; var DirPart: string; var FilePart: string);


function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;


Types


TDriveType = (dtUnknown, dtNoDrive, dtFloppy, dtFixed, dtNetwork, dtCDROM,
    dtRAM);

TFileAttr = (ftReadOnly, ftHidden, ftSystem, ftVolumeID, ftDirectory,
    ftArchive, ftNormal);

TFileType = set of TFileAttr

TSelectDirOpt = (sdAllowCreate, sdPerformCreate, sdPrompt);
from WINNET.H, WFW 3.1 SDK
TSelectDirOpts = set of TSelectDirOpt

TTextCase = (tcLowerCase, tcUpperCase);
TDriveComboBox

Constants

WNTYPE_DRIVE = 1


Variables