Class TExplorerBox (unit Explorer)

Inherits from

TCustomListBox

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


function RPos(const SubStr: Char; Str: string): Word;


procedure Click;


procedure CreateWnd;


procedure DblClick;


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


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure RePaint;


procedure Update;


procedure SetDirectory(Value: TFileName);


procedure SetStringsCase(ACase: TStringsCase);


Properties

property Align :


property BorderStyle :


property Columns :


property Ctl3D :


property Directory : TFileName


property DragCursor :


property DragMode :


property Enabled :


property FileName : TFileName


property Filter : string


property Font :


property IntegralHeight :


property ItemHeight :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Sorted :


property StringsCase : TStringsCase


property Style :


property TabOrder :


property TabStop :


property Visible :


Events

event OnDblClick :


event OnDirChange : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnDrawItem :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnFileChange : TNotifyEvent


event OnMeasureItem :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBitmaps : array [0..2] of TBitmap;


FDirectory : TFileName;


FFileName : TFileName;


FFilter : string;


FIcon : TIcon;


FOnDirChange : TNotifyEvent;


FOnFileChange : TNotifyEvent;


FStringsCase : TStringsCase;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


function RPos(const SubStr: Char; Str: string): Word;


procedure Click;


procedure CreateWnd;


procedure DblClick;


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


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure RePaint;


procedure Update;


procedure SetDirectory(Value: TFileName);


procedure SetStringsCase(ACase: TStringsCase);


Properties


property Align :


property BorderStyle :


property Columns :


property Ctl3D :


property Directory : TFileName


property DragCursor :


property DragMode :


property Enabled :


property FileName : TFileName


property Filter : string


property Font :


property IntegralHeight :


property ItemHeight :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Sorted :


property StringsCase : TStringsCase


property Style :


property TabOrder :


property TabStop :


property Visible :


Events


event OnDblClick :


event OnDirChange : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnDrawItem :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnFileChange : TNotifyEvent


event OnMeasureItem :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBitmaps : array [0..2] of TBitmap;


FDirectory : TFileName;


FFileName : TFileName;


FFilter : string;


FIcon : TIcon;


FOnDirChange : TNotifyEvent;


FOnFileChange : TNotifyEvent;


FStringsCase : TStringsCase;