Class TColorComboBox (unit RXCombos)

Inherits from

TCustomComboBox

TColorComboBox

Constructors


constructor Create(AOwner: TComponent);

TColorComboBox


Functions

destructor Destroy;

make default color selected

procedure BuildList;


procedure Click;


procedure CreateWnd;


procedure DoChange;


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

change selected item

procedure CMFontChanged(var Message: TMessage);


procedure ColorNamesChanged(Sender: TObject);

delete two first characters which prefix "cl" educated

procedure ResetItemHeight;


procedure SetColorNames(Value: TStrings);


procedure SetColorValue(NewValue: TColor);


procedure SetDisplayNames(Value: Boolean);


Properties

property Color :


property ColorNames : TStrings


property ColorValue : TColor


property Ctl3D :


property DisplayNames : Boolean


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ImeMode :


property ImeName :


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

FColorNames : TStrings;


FColorValue : TColor;


FDisplayNames : Boolean;


FOnChange : TNotifyEvent;



Constructors


constructor Create(AOwner: TComponent);

TColorComboBox


Functions


destructor Destroy;

make default color selected


procedure BuildList;


procedure Click;


procedure CreateWnd;


procedure DoChange;


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

change selected item


procedure CMFontChanged(var Message: TMessage);


procedure ColorNamesChanged(Sender: TObject);

delete two first characters which prefix "cl" educated


procedure ResetItemHeight;


procedure SetColorNames(Value: TStrings);


procedure SetColorValue(NewValue: TColor);


procedure SetDisplayNames(Value: Boolean);


Properties


property Color :


property ColorNames : TStrings


property ColorValue : TColor


property Ctl3D :


property DisplayNames : Boolean


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ImeMode :


property ImeName :


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


FColorNames : TStrings;


FColorValue : TColor;


FDisplayNames : Boolean;


FOnChange : TNotifyEvent;