Class TFileListBox (unit FileCtrl)

Inherits from

TCustomListBox

TFileListBox

Constructors


constructor Create(AOwner: TComponent);

TFileListBox


Functions

procedure ApplyFilePath (const EditText: string);


destructor Destroy;

default is not multi-select

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;


procedure CMFontChanged(var Message: TMessage);


procedure CNDrawItem(var Message: TWMDrawItem);


function GetDrive: char;


function GetFileName: string;


function IsMaskStored: Boolean;


procedure ResetItemHeight;


procedure SetDirectory(const NewDirectory: string);


procedure SetDrive(Value: char);


procedure SetFileEdit(Value: TEdit);


procedure SetFileName(const NewFile: string);

if multi-select is turned on, then using ItemIndex returns a bogus value if nothing is selected

procedure SetFileType(NewFileType: TFileType);

store correct directory name

procedure SetMask(const NewMask: string);


procedure SetShowGlyphs (Value: Boolean);


Properties

property Align :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property ExtendedSelect :


property FileEdit : TEdit


property FileType : TFileType


property Font :


property ImeMode :


property ImeName :


property IntegralHeight :


property ItemHeight :


property Mask : string


property MultiSelect :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowGlyphs : Boolean


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;


FShowGlyphs : Boolean;


UnknownBMP : TBitmap;



Constructors


constructor Create(AOwner: TComponent);

TFileListBox


Functions


procedure ApplyFilePath (const EditText: string);


destructor Destroy;

default is not multi-select


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;


procedure CMFontChanged(var Message: TMessage);


procedure CNDrawItem(var Message: TWMDrawItem);


function GetDrive: char;


function GetFileName: string;


function IsMaskStored: Boolean;


procedure ResetItemHeight;


procedure SetDirectory(const NewDirectory: string);


procedure SetDrive(Value: char);


procedure SetFileEdit(Value: TEdit);


procedure SetFileName(const NewFile: string);

if multi-select is turned on, then using ItemIndex returns a bogus value if nothing is selected


procedure SetFileType(NewFileType: TFileType);

store correct directory name


procedure SetMask(const NewMask: string);


procedure SetShowGlyphs (Value: Boolean);


Properties


property Align :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property ExtendedSelect :


property FileEdit : TEdit


property FileType : TFileType


property Font :


property ImeMode :


property ImeName :


property IntegralHeight :


property ItemHeight :


property Mask : string


property MultiSelect :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowGlyphs : Boolean


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;


FShowGlyphs : Boolean;


UnknownBMP : TBitmap;