Class TPathComboBox (unit PathCombo)

Inherits from

TCustomComboBox

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;

set current path

procedure BuildList;


procedure Change;

Note: Path not changed while dropdown list visible

procedure Click;

with canvas

procedure CreateWnd;

The only way to notify OnChange event

procedure CMFontChanged(var Message: TMessage);


procedure CNDrawItem(var Message: TWMDrawItem);

add drives after current drive

procedure SetPath(NewPath: string);


procedure WMCHAR(var Message: TMessage);


Properties

property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property Path : string


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

DriveSet : TDriveSet;


FDesktop : string;


FDesktopPath : string;


FDrives : string;


FiDesktop : integer;


FiDrives : integer;


FImageList : TImageList;


FNotifyChange : boolean;

Workaround to stop OnChange event being called twice under some circumstances

FPath : string;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;

set current path


procedure BuildList;


procedure Change;

Note: Path not changed while dropdown list visible


procedure Click;

with canvas


procedure CreateWnd;

The only way to notify OnChange event


procedure CMFontChanged(var Message: TMessage);


procedure CNDrawItem(var Message: TWMDrawItem);

add drives after current drive


procedure SetPath(NewPath: string);


procedure WMCHAR(var Message: TMessage);


Properties


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property Path : string


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


DriveSet : TDriveSet;


FDesktop : string;


FDesktopPath : string;


FDrives : string;


FiDesktop : integer;


FiDrives : integer;


FImageList : TImageList;


FNotifyChange : boolean;

Workaround to stop OnChange event being called twice under some circumstances


FPath : string;