TCurrentWatches

type TCurrentWatches = class(TIdeWatches)

protected

  function GetItem();

  procedure SetItem();

  function WatchClass; override;

  procedure NotifyAdd(); virtual;

  procedure NotifyRemove(); virtual;

  procedure DoModified;

  procedure Update(); override;

  procedure RequestData();

  property SnapShot: TIdeWatches; [rw]

public

  constructor Create();

  destructor Destroy; override;

  function Add(); override;

  function Find();

  procedure LoadFromXMLConfig();

  procedure SaveToXMLConfig();

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

end;

TCurrentWatches

TIdeWatches

TObject