TBGRANeoBorderStyle

type TBGRANeoBorderStyle = class(TPersistent)

protected

  FOwner: TControl;

  FInnerColor: TColor;

  FInnerAlpha: Byte;

  FInnerWidth: single;

  FOuterColor: TColor;

  FOuterAlpha: Byte;

  FOuterWidth: single;

  FRoundX: single;

  FRoundY: single;

  FTopLeft: TBGRANeoRoundRectangleOption;

  FTopRight: TBGRANeoRoundRectangleOption;

  FBottomLeft: TBGRANeoRoundRectangleOption;

  FBottomRight: TBGRANeoRoundRectangleOption;

  procedure SetFBottomLeft(); virtual;

  procedure SetFBottomRight(); virtual;

  procedure SetFInnerAlpha(); virtual;

  procedure SetFInnerColor(); virtual;

  procedure SetFInnerWidth(); virtual;

  procedure SetFOuterAlpha(); virtual;

  procedure SetFOuterColor(); virtual;

  procedure SetFOuterWidth(); virtual;

  procedure SetFRoundX(); virtual;

  procedure SetFRoundY(); virtual;

  procedure SetFTopLeft(); virtual;

  procedure SetFTopRight(); virtual;

public

  constructor Create();

  destructor Destroy; override;

  procedure Assign(); override;

  function Options;

published

  property InnerColor: TColor; [rw]

  property InnerColorAlpha: Byte; [rw]

  property InnerWidth: single; [rw]

  property OuterColor: TColor; [rw]

  property OuterColorAlpha: Byte; [rw]

  property OuterWidth: single; [rw]

  property RoundX: single; [rw]

  property RoundY: single; [rw]

  property TopLeft: TBGRANeoRoundRectangleOption; [rw]

  property TopRight: TBGRANeoRoundRectangleOption; [rw]

  property BottomLeft: TBGRANeoRoundRectangleOption; [rw]

  property BottomRight: TBGRANeoRoundRectangleOption; [rw]

end;

TBGRANeoBorderStyle

TObject