Class TRkPanel (unit RkPanel)

Inherits from

TCustomPanel

Constructors


constructor Create( AOwner : TComponent );

======================} {== TRkPanel Methods ==} {======================


Functions

procedure DrawBevel( var Rect : TRect; ULColor, LRColor : TColor; Width : Integer; Sides : TSides );

= TRkPanel.

procedure DrawSides( Rect : TRect; ULColor, LRColor : TColor; Sides : TSides );


function GetClientRect : TRect;

Loop through width of bevel

procedure Paint;


procedure SetBevelSides( Value : TSides );

Set Default values

procedure SetBorderColor( Value : TColor );


procedure SetBorderSides( Value : TSides );


procedure SetVerticalAlignment( Value : TVerticalAlignment );


Properties

property About : TRkAboutInfo


property Align :

Inherited Properties & Events

property Alignment :


property BevelInner :


property BevelOuter :


property BevelSides : TSides


property BevelWidth :


property BorderColor : TColor


property BorderSides : TSides


property BorderWidth :

property BorderStyle; Property is Not redeclared to hide it from user

property Caption :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Locked :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property VerticalAlignment : TVerticalAlignment


property Visible :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize :


event OnStartDrag :


Variables

FAboutInfo : TRkAboutInfo;


FBevelSides : TSides;


FBorderColor : TColor;


FBorderSides : TSides;


FVerticalAlignment : TVerticalAlignment;



Constructors


constructor Create( AOwner : TComponent );

======================} {== TRkPanel Methods ==} {======================


Functions


procedure DrawBevel( var Rect : TRect; ULColor, LRColor : TColor; Width : Integer; Sides : TSides );

= TRkPanel.DrawSides =


procedure DrawSides( Rect : TRect; ULColor, LRColor : TColor; Sides : TSides );


function GetClientRect : TRect;

Loop through width of bevel


procedure Paint;


procedure SetBevelSides( Value : TSides );

Set Default values


procedure SetBorderColor( Value : TColor );


procedure SetBorderSides( Value : TSides );


procedure SetVerticalAlignment( Value : TVerticalAlignment );


Properties


property About : TRkAboutInfo


property Align :

Inherited Properties & Events


property Alignment :


property BevelInner :


property BevelOuter :


property BevelSides : TSides


property BevelWidth :


property BorderColor : TColor


property BorderSides : TSides


property BorderWidth :

property BorderStyle; Property is Not redeclared to hide it from user


property Caption :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Locked :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property VerticalAlignment : TVerticalAlignment


property Visible :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize :


event OnStartDrag :


Variables


FAboutInfo : TRkAboutInfo;


FBevelSides : TSides;


FBorderColor : TColor;


FBorderSides : TSides;


FVerticalAlignment : TVerticalAlignment;