TBGRAFillShape

type TBGRAFillShape = class(TbgraGraphicControl)

protected

  procedure SetAngle();

  procedure SetAutoSize(); override;

  procedure SetFilled();

  procedure SeTBGRARepeatMode();

  procedure SetShapeType();

  procedure SetShapeH();

  procedure SetShapeW();

  procedure SetXSpacing();

  procedure SetYSpacing();

  procedure SetXMargin();

  procedure SetYMargin();

  procedure SetBorder();

  procedure SetBorderColor();

  procedure SetBorderWidth();

  procedure SetShadow();

  procedure SetShadowColor();

  procedure SetShadowX();

  procedure SetShadowY();

  procedure PrepareText;

  procedure UnprepareText;

  procedure AdjustShapeSize;

  procedure AdjustControlSize;

  procedure DrawRectangle();

  procedure DrawRoundRect();

  procedure DrawDiamond();

  procedure DrawEllipse();

  procedure DrawTriangle();

  procedure DrawLine();

  procedure DrawText();

  procedure Paint; override;

  property AutoSize: Boolean; [rw]

public

  constructor Create(); override;

  procedure SetBounds(); override;

published

  property Angle: Integer; [rw]

  property Filled: Boolean; [rw]

  property RepeatMode: TBGRARepeatMode; [rw]

  property ShapeType: TBGRAFillShapeType; [rw]

  property ShapeH: Integer; [rw]

  property ShapeW: Integer; [rw]

  property XSpacing: Integer; [rw]

  property YSpacing: Integer; [rw]

  property XMargin: Integer; [rw]

  property YMargin: Integer; [rw]

  property Border: Boolean; [rw]

  property BorderColor: TColor; [rw]

  property BorderWidth: Integer; [rw]

  property Shadow: Boolean; [rw]

  property ShadowColor: TColor; [rw]

  property ShadowX: Integer; [rw]

  property ShadowY: Integer; [rw]

  property Align;

  property Color;

  property Font;

  property ParentColor;

  property ParentFont;

  property Text;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnStartDrag;

end;

TBGRAFillShape

TObject