TAdvPolygonD

type TAdvPolygonD = class

protected

  FAdvImage: TAdvImage32;

  FPathD: TPathD;

  FDrawElements: TDrawElements;

  FFillColor: TColor32;

  FFillRule: TFillRule;

  FFillRenderer: TCustomRenderer;

  FFillRendererUsed: Boolean;

  FLineType: FDrawLineType;

  FLineColor: TColor32;

  FLineWidth: Double;

  FLineEndStyle: TEndStyle;

  FLineJoinStyle: TJoinStyle;

  FLineMiterLimit: Double;

  FLineDashPattern: TArrayOfInteger;

  FLinePatternOffset: Double;

  FLineRenderer: TCustomRenderer;

  FLineRendererUsed: Boolean;

  function GetCount;

public

  constructor Create();

  destructor Destroy; override;

  procedure Clear;

  procedure SetDefaultValues;

  procedure Rectangle();

  procedure RoundRect();

  procedure Ellipse();

  procedure Circle();

  procedure Star();

  procedure Arc();

  procedure Pie();

  procedure FlattenQBezier();

  procedure FlattenCBezier();

  procedure DrawFill;

  procedure DrawLine;

  procedure Draw;

  property PathD: TPathD; [rw]

  property Count: Int64; [r]

  property DrawElements: TDrawElements; [rw]

  property FillColor: TColor32; [rw]

  property FillRule: TFillRule; [rw]

  property FillRenderer: TCustomRenderer; [rw]

  property FillRendererUsed: Boolean; [rw]

  property LineType: FDrawLineType; [rw]

  property LineColor: TColor32; [rw]

  property LineWidth: Double; [rw]

  property LineEndStyle: TEndStyle; [rw]

  property LineJoinStyle: TJoinStyle; [rw]

  property LineMiterLimit: Double; [rw]

  property LineDashPattern: TArrayOfInteger; [rw]

  property LinePatternOffset: Double; [rw]

  property LineRenderer: TCustomRenderer; [rw]

  property LineRendererUsed: Boolean; [rw]

  property AdvImage: TAdvImage32; [rw]

end;

TAdvPolygonD

TObject