TPoints

type TPoints = class

protected

  function GetPoints();

  procedure SetAllocBy();

  procedure SetCaption();

  procedure SetColor();

  procedure SetDrawStyle();

  procedure SetFunc();

  procedure SetVisible();

  procedure SetPointSymbol();

  procedure SetFuncDomX1();

  procedure SetFuncDomX2();

public

  procedure Add();

  constructor Create;

  destructor Destroy; override;

  procedure Delete();

  procedure Clear;

  property Points []: TPoint2D; default; [r]

published

  property AllocBy: Integer; [rw]

  property Caption: string; [rw]

  property Color: TColor; [rw]

  property Count: Integer; [r]

  property DrawStyle: TDrawStyle; [rw]

  property Func: AnsiString; [rw]

  property FuncDomX1: Double; [rw]

  property FuncDomX2: Double; [rw]

  property OnChange: TNotifyEvent; [rw]

  property PointSymbol: char; [rw]

  property Visible: Boolean; [rw]

end;

TPoints

TObject