TDividerBevel

type TDividerBevel = class(TGraphicControl)

protected

  FBevelHeight: Integer;

  FBevelTop: Integer;

  FNeedCalcSize: Boolean;

  FTextExtent: TSize;

  class function GetControlClassDefaultSize; override;

  procedure CalcSize;

  procedure Paint; override;

  procedure FontChanged(); override;

  procedure BoundsChanged; override;

  procedure SetAutoSize(); override;

  procedure TextChanged; override;

  procedure CalculatePreferredSize(); override;

public

  constructor Create(); override;

  procedure ShouldAutoAdjust(); override;

published

  property Caption;

  property Align;

  property AutoSize;

  property Anchors;

  property BevelStyle: TBevelStyle; [rw]

  property BevelWidth: Integer; [rw]

  property BiDiMode;

  property BorderSpacing;

  property CaptionSpacing: Integer; [rw]

  property Color;

  property Constraints;

  property DragCursor;

  property DragKind;

  property DragMode;

  property Font;

  property Hint;

  property LeftIndent: Integer; [rw]

  property Orientation: TTrackBarOrientation; [rw]

  property ParentBiDiMode;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property Style: TGrabStyle; [rw]

  property Transparent: Boolean; [rw]

  property Visible;

  property OnChangeBounds;

  property OnClick;

  property OnContextPopup;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

  property OnResize;

  property OnStartDrag;

end;

TDividerBevel

TObject