Class TRkCustomStatusControl (unit RkStatus) |
Inherits from
TGraphicControl
constructor Create( AOwner : TComponent );
- Redefined Property
====================================} {== TRkCustomStatusControl Methods ==} {====================================
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 );
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
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FAboutInfo : TRkAboutInfo;
FAlignment : TAlignment;
FBorderWidth : TBorderWidth;
FCaption : string;
FCaptionOffset : Integer;
FFrameStyle : TFrameStyle;
constructor Create( AOwner : TComponent );
Redefined Property
====================================} {== TRkCustomStatusControl Methods ==} {====================================
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 );
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
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FAboutInfo : TRkAboutInfo;
FAlignment : TAlignment;
FBorderWidth : TBorderWidth;
FCaption : string;
FCaptionOffset : Integer;
FFrameStyle : TFrameStyle;