| Class TCoolColorCombo (unit envydcp1) |
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);| 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;