Class TDriveList (unit Win32Cmb)

Inherits from

TCustomListBox

TDriveList

Constructors


constructor Create(AOwner: TComponent);

Public declarations

TDrivelist



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 Align :


property BorderStyle :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ImageSize : TImageSize

Published declarations

property IntegralHeight :


property ItemHeight :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Sorted :


property TabOrder :


property TabStop :


property Tag :


property Visible :


property Drive : char


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 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

TDrivelist


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 Align :


property BorderStyle :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ImageSize : TImageSize

Published declarations


property IntegralHeight :


property ItemHeight :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Sorted :


property TabOrder :


property TabStop :


property Tag :


property Visible :


property Drive : char


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 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;