TBGRAShape

type TBGRAShape = class(TBGRAGraphicCtrl)

protected

  procedure Paint; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SaveToFile();

  procedure LoadFromFile();

  procedure OnFindClass();

published

  property AutoSize;

  property Align;

  property Anchors;

  property Angle: single; [rw]

  property BorderWidth: Integer; [rw]

  property BorderOpacity: Byte; [rw]

  property BorderColor: TColor; [rw]

  property BorderGradient: TBCGradient; [rw]

  property BorderStyle: TPenStyle; [rw]

  property FillColor: TColor; [rw]

  property FillOpacity: Byte; [rw]

  property FillGradient: TBCGradient; [rw]

  property SideCount: Integer; [rw]

  property RatioXY: single; [rw]

  property UseRatioXY: Boolean; [rw]

  property UseFillGradient: Boolean; [rw]

  property UseBorderGradient: Boolean; [rw]

  property ShapeType: TBGRAShapeType; [rw]

  property BorderSpacing;

  property Caption;

  property PopupMenu;

  property RoundRadius: Integer; [rw]

  property Visible;

  property OnClick;

  property OnDblClick;

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

end;

TBGRAShape

TBGRAGraphicCtrl

TObject