| Class TRkPanel (unit RkPanel) |
TCustomPanel
| Constructors |
constructor Create( AOwner : TComponent );| Functions |
procedure DrawBevel( var Rect : TRect; ULColor, LRColor : TColor;
Width : Integer; Sides : TSides );
procedure DrawSides( Rect : TRect; ULColor, LRColor : TColor;
Sides : TSides );
function GetClientRect : TRect;
procedure Paint;
procedure SetBevelSides( Value : TSides );
procedure SetBorderColor( Value : TColor );
procedure SetBorderSides( Value : TSides );
procedure SetVerticalAlignment( Value : TVerticalAlignment );| Properties |
property About : TRkAboutInfo
property Align :
property Alignment :
property BevelInner :
property BevelOuter :
property BevelSides : TSides
property BevelWidth :
property BorderColor : TColor
property BorderSides : TSides
property BorderWidth :
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;