Class TGrapLabel (unit Graphlbl)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure DrawShape;


procedure Paint;


procedure AutoInitialize;


procedure CMMouseEnter(var msg: TMessage);


procedure CMMouseLeave(var msg: TMessage);


procedure CMTextChanged(var Message: TMessage);

no button effect if no 3d

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


Procedure Set3D(value : Boolean);


procedure SetAlignment(value :TAlignment);


procedure SetBorderWidth(value: Integer);


procedure SetButtonLike(Value : Boolean);


procedure SetForColor(Value : Tcolor);


procedure SetShape(Value : TyShape);


procedure WMSize(var Message: TWMSize);


Properties

property Alignment : TAlignment


property BackColor : TColor


property BorderWidth : Integer


property ButtonLike : Boolean


property Caption :


property Ctl3D : Boolean


property Font :


property ForColor : TColor


property Shape : Tyshape


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FaceColor : Tcolor;


Isdown : boolean;


F3d : Boolean;


FAlignment : TAlignment;


FBackColor : TColor;


FborderWidth : Integer;


FButtonLike : Boolean;


FForColor : TColor;


FShape : TyShape;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure DrawShape;


procedure Paint;


procedure AutoInitialize;


procedure CMMouseEnter(var msg: TMessage);


procedure CMMouseLeave(var msg: TMessage);


procedure CMTextChanged(var Message: TMessage);

no button effect if no 3d


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


Procedure Set3D(value : Boolean);


procedure SetAlignment(value :TAlignment);


procedure SetBorderWidth(value: Integer);


procedure SetButtonLike(Value : Boolean);


procedure SetForColor(Value : Tcolor);


procedure SetShape(Value : TyShape);


procedure WMSize(var Message: TWMSize);


Properties


property Alignment : TAlignment


property BackColor : TColor


property BorderWidth : Integer


property ButtonLike : Boolean


property Caption :


property Ctl3D : Boolean


property Font :


property ForColor : TColor


property Shape : Tyshape


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FaceColor : Tcolor;


Isdown : boolean;


F3d : Boolean;


FAlignment : TAlignment;


FBackColor : TColor;


FborderWidth : Integer;


FButtonLike : Boolean;


FForColor : TColor;


FShape : TyShape;