TAdvPolygonsD

type TAdvPolygonsD = class

protected

  FAdvImage: TAdvImage32;

  FPathsD: TPathsD;

  FDrawElements: TDrawElements;

  FFillColor: TColor32;

  FFillBackColor: 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 DrawFill;

  procedure DrawLine;

  procedure Draw;

  procedure FlattenQBezier();

  procedure FlattenCBezier();

  property PathsD: TPathsD; [rw]

  property Count: Int64; [r]

  property DrawElements: TDrawElements; [rw]

  property FillColor: TColor32; [rw]

  property FillBackColor: 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;

TAdvPolygonsD

TObject