Class TRkCustomStatusControl (unit RkStatus)

Inherits from

TGraphicControl

Constructors


constructor Create( AOwner : TComponent );

Redefined Property

====================================} {== TRkCustomStatusControl Methods ==} {====================================



Functions

procedure DrawCaption( CaptionStr : string );


procedure DrawStatusBorder;

= TRkCustomStatusControl.

function GetCaptionRect : TRect;


procedure Paint;

= TRkCustomStatusControl.

procedure CMTextChanged( var Msg : TMessage );


procedure SetAlignment( Value : TAlignment );


procedure SetBorderWidth( Value : TBorderWidth );


procedure SetCaption( Value : string );

Invalidate b/c Border position changes

procedure SetCaptionOffset( Value : Integer );


procedure SetFrameStyle( Value : TFrameStyle );


Properties

property About : TRkAboutInfo


property Align :

Inherited Properties

property BorderWidth : TBorderWidth


property DragCursor :


property DragMode :


property Enabled :


property Font :


property FrameStyle : TFrameStyle


property Height :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


property Width :


property Alignment : TAlignment


property Caption : string


property CaptionOffset : Integer


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FAboutInfo : TRkAboutInfo;


FAlignment : TAlignment;


FBorderWidth : TBorderWidth;


FCaption : string;


FCaptionOffset : Integer;


FFrameStyle : TFrameStyle;



Constructors


constructor Create( AOwner : TComponent );

Redefined Property

====================================} {== TRkCustomStatusControl Methods ==} {====================================


Functions


procedure DrawCaption( CaptionStr : string );


procedure DrawStatusBorder;

= TRkCustomStatusControl.DrawCaption =


function GetCaptionRect : TRect;


procedure Paint;

= TRkCustomStatusControl.DrawStatusBorder =


procedure CMTextChanged( var Msg : TMessage );


procedure SetAlignment( Value : TAlignment );


procedure SetBorderWidth( Value : TBorderWidth );


procedure SetCaption( Value : string );

Invalidate b/c Border position changes


procedure SetCaptionOffset( Value : Integer );


procedure SetFrameStyle( Value : TFrameStyle );


Properties


property About : TRkAboutInfo


property Align :

Inherited Properties


property BorderWidth : TBorderWidth


property DragCursor :


property DragMode :


property Enabled :


property Font :


property FrameStyle : TFrameStyle


property Height :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


property Width :


property Alignment : TAlignment


property Caption : string


property CaptionOffset : Integer


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FAboutInfo : TRkAboutInfo;


FAlignment : TAlignment;


FBorderWidth : TBorderWidth;


FCaption : string;


FCaptionOffset : Integer;


FFrameStyle : TFrameStyle;