Class TDirectoryListBox (unit FileCtrl) |
Inherits from
TCustomListBox
TDirectoryListBox
constructor Create(AOwner: TComponent);
- counts '\' in path
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
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
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 :
ClosedBMP : TBitmap;
CurrentBMP : TBitmap;
FDirectory : string;
FOnChange : TNotifyEvent;
OpenedBMP : TBitmap;
FCaseSensitive : Boolean;
FDirLabel : TLabel;
FDriveCombo : TDriveComboBox;
FFileList : TFileListBox;
FInSetDir : Boolean;
FPreserveCase : Boolean;
constructor Create(AOwner: TComponent);
counts '\' in path
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
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
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 :
ClosedBMP : TBitmap;
CurrentBMP : TBitmap;
FDirectory : string;
FOnChange : TNotifyEvent;
OpenedBMP : TBitmap;
FCaseSensitive : Boolean;
FDirLabel : TLabel;
FDriveCombo : TDriveComboBox;
FFileList : TFileListBox;
FInSetDir : Boolean;
FPreserveCase : Boolean;