Class TRkPanel (unit RkPanel) |
Inherits from
TCustomPanel
constructor Create( AOwner : TComponent );
- ======================} {== TRkPanel Methods ==} {======================
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 );
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
event OnStartDrag :
FAboutInfo : TRkAboutInfo;
FBevelSides : TSides;
FBorderColor : TColor;
FBorderSides : TSides;
FVerticalAlignment : TVerticalAlignment;
constructor Create( AOwner : TComponent );
======================} {== TRkPanel Methods ==} {======================
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 );
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize :
event OnStartDrag :
FAboutInfo : TRkAboutInfo;
FBevelSides : TSides;
FBorderColor : TColor;
FBorderSides : TSides;
FVerticalAlignment : TVerticalAlignment;