TSPointsStore

type TSPointsStore = class(TList)

protected

  procedure Notify(); override;

  function GetItem();

  procedure SetItem();

public

  Flags: TPointStoreFlagsSet;

  constructor Create();

  procedure Paint;

  function Add();

  procedure Insert();

  function AddLL();

  procedure InsertLL();

  function Remove();

  function IndexOf();

  function FindInstanceOf();

  procedure CopyToTPointStore();

  function CloneToTPointStore;

  procedure CloneFromTPointStore();

  function PointOnPolyline();

  function PointInPolygon();

  procedure MoveCenter();

  function PointStoreMER;

  property OwnsObjects: Boolean; [rw]

  property Items []: TObjPointLL; default; [rw]

  property Center: TPointLL; [rw]

  property StoreHeight: Boolean; [rw]

  property Active: Boolean; [rw]

  property OnPaint: TNotifyEvent; [rw]

end;

TSPointsStore

TObject