Class TDriveComboBox (unit FileCtrl)

Inherits from

TSoComboBox97

Constructors


constructor Create(AOwner: TComponent);

TDriveComboBox


Functions

destructor Destroy;

make default drive selected

procedure BuildList;


procedure Click;

uses DrawText instead of TextOut in order to get clipping against the combo box button

procedure CreateWnd;


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


procedure Notification(AComponent: TComponent; Operation: TOperation);

assign bitmap glyphs

procedure CMFontChanged(var Message: TMessage);


procedure ReadBitmaps;


procedure ResetItemHeight;


procedure SetDirListBox (Value: TDirectoryListBox);


procedure SetDrive(NewDrive: Char);

fill list

procedure SetTextCase(NewTextCase: TTextCase);

change selected item

Properties

property Color :


property Ctl3D :


property DirList : TDirectoryListBox


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ImeMode :


property ImeName :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property TextCase : TTextCase


property Visible :


property Drive : Char


property Text :


Events

event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDropDown :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnStartDrag :


Variables

CDROMBMP : TBitmap;


FixedBMP : TBitmap;


FloppyBMP : TBitmap;


NetworkBMP : TBitmap;


RAMBMP : TBitmap;


FDirList : TDirectoryListBox;


FDrive : Char;


FTextCase : TTextCase;



Constructors


constructor Create(AOwner: TComponent);

TDriveComboBox


Functions


destructor Destroy;

make default drive selected


procedure BuildList;


procedure Click;

uses DrawText instead of TextOut in order to get clipping against the combo box button


procedure CreateWnd;


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


procedure Notification(AComponent: TComponent; Operation: TOperation);

assign bitmap glyphs


procedure CMFontChanged(var Message: TMessage);


procedure ReadBitmaps;


procedure ResetItemHeight;


procedure SetDirListBox (Value: TDirectoryListBox);


procedure SetDrive(NewDrive: Char);

fill list


procedure SetTextCase(NewTextCase: TTextCase);

change selected item


Properties


property Color :


property Ctl3D :


property DirList : TDirectoryListBox


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ImeMode :


property ImeName :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property TextCase : TTextCase


property Visible :


property Drive : Char


property Text :


Events


event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDropDown :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnStartDrag :


Variables


CDROMBMP : TBitmap;


FixedBMP : TBitmap;


FloppyBMP : TBitmap;


NetworkBMP : TBitmap;


RAMBMP : TBitmap;


FDirList : TDirectoryListBox;


FDrive : Char;


FTextCase : TTextCase;