| Class TDirectoryListBox (unit FileCtrl) |
TCustomListBox
TDirectoryListBox
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function DisplayCase(const S: String): String;
function FileCompareText(const A, B: String): Integer;
function GetItemPath(Index: Integer): string;
procedure OpenCurrent;
procedure Update;
procedure BuildList;
procedure Change;
procedure CreateWnd;
procedure DblClick;
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure KeyPress(var Key: Char);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure ReadBitmaps;
function ReadDirectoryNames(const ParentDirectory: string;
DirectoryList: TStringList): Integer;
procedure CMFontChanged(var Message: TMessage);
procedure CNDrawItem(var Message: TWMDrawItem);
procedure DriveChange(NewDrive: Char);
function GetDrive: char;
procedure ResetItemHeight;
procedure SetDir(const NewDirectory: string);
procedure SetDirectory(const NewDirectory: string);
procedure SetDirLabel(Value: TLabel);
procedure SetDirLabelCaption;
procedure SetDrive(Value: char);
procedure SetFileListBox(Value: TFileListBox);| Properties |
property Align :
property Color :
property Columns :
property Ctl3D :
property DirLabel : TLabel
property DragCursor :
property DragMode :
property Enabled :
property FileList : TFileListBox
property Font :
property ImeMode :
property ImeName :
property IntegralHeight :
property ItemHeight :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property CaseSensitive : Boolean
property Directory : string
property Drive : Char
property PreserveCase : Boolean| 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 |
ClosedBMP : TBitmap;
CurrentBMP : TBitmap;
FDirectory : string;
FOnChange : TNotifyEvent;
OpenedBMP : TBitmap;
FCaseSensitive : Boolean;
FDirLabel : TLabel;
FDriveCombo : TDriveComboBox;
FFileList : TFileListBox;
FInSetDir : Boolean;
FPreserveCase : Boolean;| Constructors |
constructor Create(AOwner: TComponent);counts '\' in path
| Functions |
destructor Destroy;initially use current dir on default drive
function DisplayCase(const S: String): String;
function FileCompareText(const A, B: String): Integer;
function GetItemPath(Index: Integer): string;add 2 for spacing
procedure OpenCurrent;store correct directory name
procedure Update;
procedure BuildList;
procedure Change;
procedure CreateWnd;
procedure DblClick;
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure KeyPress(var Key: Char);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure ReadBitmaps;read all the dir names into Siblings
function ReadDirectoryNames(const ParentDirectory: string;
DirectoryList: TStringList): Integer;Reads all directories in ParentDirectory, adds their paths to DirectoryList,and returns the number added
procedure CMFontChanged(var Message: TMessage);
procedure CNDrawItem(var Message: TWMDrawItem);
procedure DriveChange(NewDrive: Char);
function GetDrive: char;
procedure ResetItemHeight;
procedure SetDir(const NewDirectory: string);
procedure SetDirectory(const NewDirectory: string);
procedure SetDirLabel(Value: TLabel);
procedure SetDirLabelCaption;
procedure SetDrive(Value: char);
procedure SetFileListBox(Value: TFileListBox);store correct directory name
| Properties |
property Align :
property Color :
property Columns :
property Ctl3D :
property DirLabel : TLabel
property DragCursor :
property DragMode :
property Enabled :
property FileList : TFileListBox
property Font :
property ImeMode :
property ImeName :
property IntegralHeight :
property ItemHeight :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property CaseSensitive : Boolean
property Directory : string
property Drive : Char
property PreserveCase : Boolean| 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 |
ClosedBMP : TBitmap;
CurrentBMP : TBitmap;
FDirectory : string;
FOnChange : TNotifyEvent;
OpenedBMP : TBitmap;
FCaseSensitive : Boolean;
FDirLabel : TLabel;
FDriveCombo : TDriveComboBox;
FFileList : TFileListBox;
FInSetDir : Boolean;
FPreserveCase : Boolean;