Class TGpcPolygonClass

Unit

GPC_Classes

Declaration

type TGpcPolygonClass = class(TObject)

Description

Hierarchy

• TObject
• TGpcPolygonClass

Overview

Fields

FPolygon: Tgpc_polygon;

Methods

	function GetContours(ContourIndex: integer): Tgpc_vertex_list;
	function GetHoles(ContourIndex: integer): boolean;
	function GetNumberOfContours: integer;
	function GetVertexCount(ContourIndex: integer): integer;
	function GetVertices(ContourIndex, VertexIndex: integer): Tgpc_vertex;
	procedure SetContours(ContourIndex: integer; const Value: Tgpc_vertex_list);
	procedure SetHoles(ContourIndex: integer; const Value: boolean);
	procedure SetNumberOfContours(const Value: integer);
	procedure SetVertexCount(ContourIndex: integer; const Value: integer);
	procedure SetVertices(ContourIndex, VertexIndex: integer; const Value: Tgpc_vertex);
	Constructor Create;
	Constructor CreateFromOperation(Operation: Tgpc_op; Subject, Clip: TGpcPolygonClass);
	Destructor Destroy; override;
	procedure ReadFromFile(FileName: string; ReadHoles: boolean);
	procedure WriteToFile(FileName: string; WriteHoles: boolean);
	function ContourArea(ContourIndex: integer): double;
	procedure AddContour(const contour: Tgpc_vertex_list; Hole: boolean);
	function TotalVertexCount: integer;

Properties

	property NumberOfContours: integer read GetNumberOfContours write SetNumberOfContours;
	property Contours[ContourIndex:integer]: Tgpc_vertex_list read GetContours write SetContours;
	property Holes[ContourIndex:integer]: boolean read GetHoles write SetHoles;
	property VertexCount[ContourIndex:integer]: integer read GetVertexCount write SetVertexCount;
	property Vertices[ContourIndex,VertexIndex:integer]: Tgpc_vertex read GetVertices write SetVertices;

Description

Fields

	FPolygon: Tgpc_polygon;

Methods

	function GetContours(ContourIndex: integer): Tgpc_vertex_list;

	function GetHoles(ContourIndex: integer): boolean;

	function GetNumberOfContours: integer;

	function GetVertexCount(ContourIndex: integer): integer;

	function GetVertices(ContourIndex, VertexIndex: integer): Tgpc_vertex;

	procedure SetContours(ContourIndex: integer; const Value: Tgpc_vertex_list);

	procedure SetHoles(ContourIndex: integer; const Value: boolean);

	procedure SetNumberOfContours(const Value: integer);

	procedure SetVertexCount(ContourIndex: integer; const Value: integer);

	procedure SetVertices(ContourIndex, VertexIndex: integer; const Value: Tgpc_vertex);

	Constructor Create;

	Constructor CreateFromOperation(Operation: Tgpc_op; Subject, Clip: TGpcPolygonClass);

	Destructor Destroy; override;

	procedure ReadFromFile(FileName: string; ReadHoles: boolean);

	procedure WriteToFile(FileName: string; WriteHoles: boolean);

	function ContourArea(ContourIndex: integer): double;

	procedure AddContour(const contour: Tgpc_vertex_list; Hole: boolean);

	function TotalVertexCount: integer;

Properties

	property NumberOfContours: integer read GetNumberOfContours write SetNumberOfContours;
Setting NumberOfContours erases all existing contours.

	property Contours[ContourIndex:integer]: Tgpc_vertex_list read GetContours write SetContours;

	property Holes[ContourIndex:integer]: boolean read GetHoles write SetHoles;

	property VertexCount[ContourIndex:integer]: integer read GetVertexCount write SetVertexCount;
Setting VertexCount erases all vertices in the specified contour.

	property Vertices[ContourIndex,VertexIndex:integer]: Tgpc_vertex read GetVertices write SetVertices;