Class TFileListBox (unit FileCtrl) |
Inherits from
TCustomListBox
TFileListBox
constructor Create(AOwner: TComponent);
- TFileListBox
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);
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
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 :
DirBMP : TBitmap;
ExeBMP : TBitmap;
FDirectory : string;
FDirList : TDirectoryListBox;
FFileEdit : TEdit;
FFileType : TFileType;
FFilterCombo : TFilterComboBox;
FLastSel : Integer;
FMask : string;
FOnChange : TNotifyEvent;
FShowGlyphs : Boolean;
UnknownBMP : TBitmap;
constructor Create(AOwner: TComponent);
TFileListBox
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);
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
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 :
DirBMP : TBitmap;
ExeBMP : TBitmap;
FDirectory : string;
FDirList : TDirectoryListBox;
FFileEdit : TEdit;
FFileType : TFileType;
FFilterCombo : TFilterComboBox;
FLastSel : Integer;
FMask : string;
FOnChange : TNotifyEvent;
FShowGlyphs : Boolean;
UnknownBMP : TBitmap;