Class TDriveCombo (unit Win32Cmb)

Inherits from

TCustomComboBox

Constructors


constructor Create(AOwner: TComponent);

Public declarations

TDriveCombo



Functions

destructor Destroy;


procedure BuildList;


procedure Change;


procedure CNCommand(var Message: TWMCommand);


procedure CreateWnd;

Invalid

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


procedure MeasureItem(Index: Integer;var Height: Integer);


procedure SetDrive(Value:char);


procedure CMFontChanged(var Message: TMessage);


procedure ResetItemHeight;


procedure SetImageSize(Value:TImageSize);


procedure SetOffset(Value:integer);


Properties

property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ImageSize : TImageSize


property Offset : integer

Published declarations

property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property Drive : char


Events

event OnChange : TNotifyEvent


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

FOnChange : TNotifyEvent;

Protected declarations

FDrive : char;


FDrives : TStrings;

Private declarations

FImages : TImagelist;


FImageSize : TImageSize;


FImageWidth : integer;


FItemIndex : integer;


FLarge : integer;


FOffset : integer;


FSmall : integer;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

TDriveCombo


Functions


destructor Destroy;


procedure BuildList;


procedure Change;


procedure CNCommand(var Message: TWMCommand);


procedure CreateWnd;

Invalid


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


procedure MeasureItem(Index: Integer;var Height: Integer);


procedure SetDrive(Value:char);


procedure CMFontChanged(var Message: TMessage);


procedure ResetItemHeight;


procedure SetImageSize(Value:TImageSize);


procedure SetOffset(Value:integer);


Properties


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ImageSize : TImageSize


property Offset : integer

Published declarations


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property Drive : char


Events


event OnChange : TNotifyEvent


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


FOnChange : TNotifyEvent;

Protected declarations


FDrive : char;


FDrives : TStrings;

Private declarations


FImages : TImagelist;


FImageSize : TImageSize;


FImageWidth : integer;


FItemIndex : integer;


FLarge : integer;


FOffset : integer;


FSmall : integer;