Class TColorComboBox (unit sCombos)

Inherits from

TsCustomComboBox

TColorComboBox

Constructors


constructor Create(AOwner: TComponent);

TColorComboBox


Functions

procedure BuildList;

make default color selected

procedure Change;


procedure Click;


procedure CreateWnd;


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


procedure CMFontChanged(var Message: TMessage);


procedure ResetItemHeight;


procedure SetColorValue(NewValue: TColor);


procedure SetDisplayNames(Value: Boolean);

delete two first characters which prefix "cl" educated

procedure SetFullScheme(Value: Boolean);

change selected item

Properties

property Color :


property ColorValue : TColor


property Ctl3D :


property DefaultDraw :


property DisabledFont :


property DisplayNames : Boolean


property DragCursor :


property DragMode :


property Enabled :


property Flat :


property Font :


property FullScheme : Boolean


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property Text :


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

FColorValue : TColor;


FDisplayNames : Boolean;


FFullScheme : Boolean;


FOnChange : TNotifyEvent;



Constructors


constructor Create(AOwner: TComponent);

TColorComboBox


Functions


procedure BuildList;

make default color selected


procedure Change;


procedure Click;


procedure CreateWnd;


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


procedure CMFontChanged(var Message: TMessage);


procedure ResetItemHeight;


procedure SetColorValue(NewValue: TColor);


procedure SetDisplayNames(Value: Boolean);

delete two first characters which prefix "cl" educated


procedure SetFullScheme(Value: Boolean);

change selected item


Properties


property Color :


property ColorValue : TColor


property Ctl3D :


property DefaultDraw :


property DisabledFont :


property DisplayNames : Boolean


property DragCursor :


property DragMode :


property Enabled :


property Flat :


property Font :


property FullScheme : Boolean


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property Text :


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


FColorValue : TColor;


FDisplayNames : Boolean;


FFullScheme : Boolean;


FOnChange : TNotifyEvent;