TBGRAPathCursor

type TBGRAPathCursor = class(TBGRACustomPathCursor)

protected

  FPath: TBGRAPath;

  FDataPos: IntPtr;

  FAcceptedDeviation: single;

  FPathLength: single;

  FPathLengthComputed: Boolean;

  FBounds: TRectF;

  FBoundsComputed: Boolean;

  FArcPos: Single;

  FStartCoordinate: TPointF;

  FEndCoordinate: TPointF;

  FLoopClosedShapes: Boolean;

  FLoopPath: Boolean;

  FCurrentElementType: TBGRAPathElementType;

  FCurrentElement: Pointer;

  FCurrentElementArcPos: single;

  FCurrentElementArcPosScale: single;

  FCurrentElementStartCoord: TPointF;

  FCurrentElementEndCoord: TPointF;

  FCurrentElementLength: single;

  FCurrentElementPoints: array of TPointF;

  FCurrentSegment: Int32or64;

  FCurrentSegmentPos: single;

  function GoToNextElement();

  function GoToPreviousElement();

  procedure MoveToEndOfElement;

  procedure MoveForwardInElement();

  procedure MoveBackwardInElement();

  function NeedPolygonalApprox;

  procedure OnPathFree; virtual;

  function GetLoopClosedShapes; override;

  function GetLoopPath; override;

  function GetStartCoordinate; override;

  procedure SetLoopClosedShapes(); override;

  procedure SetLoopPath(); override;

  function GetArcPos; override;

  function GetCurrentTangent; override;

  procedure SetArcPos(); override;

  function GetBounds; override;

  function GetPathLength; override;

  procedure PrepareCurrentElement; virtual;

  function GetCurrentCoord; override;

  function GetPath; virtual;

public

  constructor Create();

  function MoveForward(); override;

  function MoveBackward(); override;

  destructor Destroy; override;

  property CurrentCoordinate: TPointF; [r]

  property CurrentTangent: TPointF; [r]

  property Position: single; [rw]

  property PathLength: single; [r]

  property Path: TBGRAPath; [r]

  property Bounds: TRectF; [r]

  property StartCoordinate: TPointF; [r]

  property LoopClosedShapes: Boolean; [rw]

  property LoopPath: Boolean; [rw]

  property AcceptedDeviation: single; [r]

end;

TBGRAPathCursor

TBGRACustomPathCursor

TObject