Class TCoolColorCombo (unit envydcp1)

Inherits from

TCustomComboBox

TCoolColorCombo - Colour selecting drop-down combo box-----------------------} { Quite often I've needed a colour component and although Delphi already has a choice of two I didn't want the complexity of a ColorDialog nor take up the space of a ColorGrid so I have created this colour-drop-down box which is almost identical to that found in the Windows 95/NT font dialog.

Constructors


constructor Create(AOwner: TComponent);

TCoolColorCombo - Colour selecting drop-down combo box-----------------------


Functions

procedure BuildList;


procedure Click;


procedure CreateWnd;


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


procedure CMFontChanged(var Message: TMessage);


procedure ResetItemHeight;


procedure SetSelectedColor(Value: TColor);


Properties

property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property MaxLength :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property SelectedColor : TColor


property ShowHint :


property Sorted :


property TabOrder :


property TabStop :


property Text :


property Visible :


Events

event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawItem :


event OnDropDown :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMeasureItem :


event OnStartDrag :


Variables

FSelectedColor : TColor;



Constructors


constructor Create(AOwner: TComponent);

TCoolColorCombo - Colour selecting drop-down combo box-----------------------


Functions


procedure BuildList;


procedure Click;


procedure CreateWnd;


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


procedure CMFontChanged(var Message: TMessage);


procedure ResetItemHeight;


procedure SetSelectedColor(Value: TColor);


Properties


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property MaxLength :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property SelectedColor : TColor


property ShowHint :


property Sorted :


property TabOrder :


property TabStop :


property Text :


property Visible :


Events


event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawItem :


event OnDropDown :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMeasureItem :


event OnStartDrag :


Variables


FSelectedColor : TColor;