Class TCoolPanel (unit envydcp1)

Inherits from

TCustomPanel

TCoolPanel - Panel component with border offset property --------------------} { This is the oddest component I've written to date. All it is is a panel descendant that lets you offset the horizontal and vertical borders by a number of pixels. I wrote this because while writing my Explorer Style Interface application I found a Panel component went a pixel too far left and right when aligned in another panel along with a TreeView or ListView control. Setting this OffsetHorizontal to 1 resolves it now with this. The text is offset a little more from the left too.

Constructors


constructor Create(AOwner: TComponent);

TCoolPanel - Panel component with border offset property --------------------


Functions

procedure Paint;


procedure SetOffsetHorizontal(Value: Integer);


procedure SetOffsetVertical(Value: Integer);


Properties

property Align :


property Alignment :


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Caption :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Locked :


property OffsetHorizontal : Integer


property OffsetVertical : Integer


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


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

FOffsetHorizontal : Integer;


FOffsetVertical : Integer;



Constructors


constructor Create(AOwner: TComponent);

TCoolPanel - Panel component with border offset property --------------------


Functions


procedure Paint;


procedure SetOffsetHorizontal(Value: Integer);


procedure SetOffsetVertical(Value: Integer);


Properties


property Align :


property Alignment :


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Caption :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Locked :


property OffsetHorizontal : Integer


property OffsetVertical : Integer


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


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


FOffsetHorizontal : Integer;


FOffsetVertical : Integer;