Class TDirectoryListBox (unit FileCtrl)

Inherits from

TCustomListBox

TDirectoryListBox

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;



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;