| Class TRkCustomStatusControl (unit RkStatus) |
TGraphicControl
| Constructors |
constructor Create( AOwner : TComponent );====================================} {== TRkCustomStatusControl Methods ==} {====================================
| Functions |
procedure DrawCaption( CaptionStr : string );
procedure DrawStatusBorder;
function GetCaptionRect : TRect;
procedure Paint;
procedure CMTextChanged( var Msg : TMessage );
procedure SetAlignment( Value : TAlignment );
procedure SetBorderWidth( Value : TBorderWidth );
procedure SetCaption( Value : string );
procedure SetCaptionOffset( Value : Integer );
procedure SetFrameStyle( Value : TFrameStyle );| Properties |
property About : TRkAboutInfo
property Align :
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;