TplCirclesChart

type TplCirclesChart = class(TGraphicControl)

protected

  procedure Paint; override;

  procedure DoOnResize; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function LoadFromStream();

  function LoadFromFile();

  function SaveToStream();

  function SaveToFile();

  function AddCircle();

  function DelCircle();

  procedure Clear;

  procedure DeselectAll;

  function GetCircleAtPos();

  function Iterator;

  function IterFirst;

  function IterNext;

  procedure NeedReEvaluation;

  property Changed: Boolean; [r]

  property CircleCount: Integer; [r]

published

  property Color;

  property ShowHint;

  property OnAfterCirclePaint: TOnCirclePaint; [rw]

  property OnAfterPaint: TNotifyEvent; [rw]

  property OnBeforeCircletPaint: TOnCirclePaint; [rw]

  property OnClick;

  property OnDeleteCirclesUserData: TOnDeleteCirclesUserData; [rw]

  property OnDblClick;

  property OnLoadUserData: TOnLoadUserData; [rw]

  property OnMouseUp;

  property OnMouseMove;

  property OnMouseDown;

  property OnSaveUserData: TOnSaveUserData; [rw]

  property OnShowHint;

  property OnResize;

end;

TplCirclesChart

TObject