| Class TDriveComboBox (unit FileCtrl) |
TSoComboBox97
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure BuildList;
procedure Click;
procedure CreateWnd;
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure CMFontChanged(var Message: TMessage);
procedure ReadBitmaps;
procedure ResetItemHeight;
procedure SetDirListBox (Value: TDirectoryListBox);
procedure SetDrive(NewDrive: Char);
procedure SetTextCase(NewTextCase: TTextCase);| 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;