Class TcpColorBox (unit cpColorBox)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner: TComponent);

Déclarations publiques


Functions

destructor Destroy;


procedure CMChangeColor(var Message: TMessage);


procedure Createcolor;


procedure disposition;


procedure SetBackColor (value: Tcolor);


procedure Setcoloroption (value: TColorDialogOptions);


procedure SetForeColor (value: Tcolor);


procedure siDblClick(Sender: TObject);


procedure siMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure siRDblClick(Sender: TObject);


procedure WMsize(var Message: TWMsize);


Properties

property Align :


property BackColor : Tcolor


property BevelInner :


property BevelOuter :


property BorderStyle :


property BorderWidth :


property Color :


property Ctl3D :


property DialogOptions : TColorDialogOptions


property DragCursor :


property DragMode :


property Enabled :


property ForeColor : Tcolor


property FullRepaint :


property ParentColor :


property ParentCtl3D :


property ParentShowhint :


property PopUpMenu :


property Showhint :


property TabOrder :


property TabStop :


property Tag :


property Visible :


Events

event OnClickColorChange : TColorchangeevent

Déclarations publiées

event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnResize :


event OnStartDrag :


Variables

f_on_color_change : TColorchangeevent;

Déclarations protégées

FBackcolor : Tcolor;


FColor : array [1..18] of TcpPanel;

Déclarations privées

Fcolordialog : Tcolordialog;


Fcoloroption : TColorDialogOptions;


FForecolor : Tcolor;



Constructors


constructor Create(AOwner: TComponent);

Déclarations publiques


Functions


destructor Destroy;


procedure CMChangeColor(var Message: TMessage);


procedure Createcolor;


procedure disposition;


procedure SetBackColor (value: Tcolor);


procedure Setcoloroption (value: TColorDialogOptions);


procedure SetForeColor (value: Tcolor);


procedure siDblClick(Sender: TObject);


procedure siMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure siRDblClick(Sender: TObject);


procedure WMsize(var Message: TWMsize);


Properties


property Align :


property BackColor : Tcolor


property BevelInner :


property BevelOuter :


property BorderStyle :


property BorderWidth :


property Color :


property Ctl3D :


property DialogOptions : TColorDialogOptions


property DragCursor :


property DragMode :


property Enabled :


property ForeColor : Tcolor


property FullRepaint :


property ParentColor :


property ParentCtl3D :


property ParentShowhint :


property PopUpMenu :


property Showhint :


property TabOrder :


property TabStop :


property Tag :


property Visible :


Events


event OnClickColorChange : TColorchangeevent

Déclarations publiées


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnResize :


event OnStartDrag :


Variables


f_on_color_change : TColorchangeevent;

Déclarations protégées


FBackcolor : Tcolor;


FColor : array [1..18] of TcpPanel;

Déclarations privées


Fcolordialog : Tcolordialog;


Fcoloroption : TColorDialogOptions;


FForecolor : Tcolor;