Class TFileComboBox (unit FileCombo)

Inherits from

TCustomComboBox

TFileComboBox

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure ApplyFilePath (const EditText: string);


destructor Destroy;

default file mask is all

procedure Update;


procedure Change;


procedure Click;

exclude normal files if ftNormal not set

procedure CreateWnd;


procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);


function GetFilePath: string;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure ReadBitmaps;


procedure ReadFileNames;


function GetDrive: char;


function GetFileName: string;


function IsMaskStored: Boolean;


procedure SetDirectory(const NewDirectory: string);


procedure SetDrive(Value: char);


procedure SetFileEdit(Value: TEdit);


procedure SetFileName(const NewFile: string);

if (idx < 0) or (Items.

procedure SetFileType(NewFileType: TFileType);

store correct directory name

procedure SetMask(const NewMask: string);


Properties

property Align :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property FileEdit : TEdit


property FileType : TFileType


property Font :


property ItemHeight :


property Mask : string


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property Directory : string


property Drive : char


property FileName : string


Events

event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

DirBMP : TBitmap;


ExeBMP : TBitmap;


FDirectory : string;


FDirList : TDirectoryListBox;


FFileEdit : TEdit;


FFileType : TFileType;


FFilterCombo : TFilterComboBox;


FLastSel : Integer;


FMask : string;


FOnChange : TNotifyEvent;


UnknownBMP : TBitmap;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure ApplyFilePath (const EditText: string);


destructor Destroy;

default file mask is all


procedure Update;


procedure Change;


procedure Click;

exclude normal files if ftNormal not set


procedure CreateWnd;


procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);


function GetFilePath: string;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure ReadBitmaps;


procedure ReadFileNames;


function GetDrive: char;


function GetFileName: string;


function IsMaskStored: Boolean;


procedure SetDirectory(const NewDirectory: string);


procedure SetDrive(Value: char);


procedure SetFileEdit(Value: TEdit);


procedure SetFileName(const NewFile: string);

if (idx < 0) or (Items.Count = 0) or (Selected[idx] = FALSE) then Result := '' else


procedure SetFileType(NewFileType: TFileType);

store correct directory name


procedure SetMask(const NewMask: string);


Properties


property Align :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property FileEdit : TEdit


property FileType : TFileType


property Font :


property ItemHeight :


property Mask : string


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property Directory : string


property Drive : char


property FileName : string


Events


event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


DirBMP : TBitmap;


ExeBMP : TBitmap;


FDirectory : string;


FDirList : TDirectoryListBox;


FFileEdit : TEdit;


FFileType : TFileType;


FFilterCombo : TFilterComboBox;


FLastSel : Integer;


FMask : string;


FOnChange : TNotifyEvent;


UnknownBMP : TBitmap;