TIdeWatchesMonitor

type TIdeWatchesMonitor = class(TWatchesMonitor)

protected

  procedure DoStateEnterPause; override;

  procedure DoStateLeavePause; override;

  procedure DoStateLeavePauseClean; override;

  procedure InvalidateWatchValues; override;

  procedure NotifyAdd();

  procedure NotifyRemove();

  procedure NotifyUpdate();

  procedure RequestData();

  function CreateWatches; virtual;

  function CreateSnapshot();

public

  constructor Create;

  destructor Destroy; override;

  procedure AddNotification();

  procedure RemoveNotification();

  procedure NewSnapshot();

  procedure RemoveSnapshot();

  property Watches: TWatches; [r]

  property CurrentWatches: TCurrentWatches; [r]

  property Snapshots []: TIdeWatches; [r]

  procedure Clear;

  procedure DoModified; override;

  procedure LoadFromXMLConfig();

  procedure SaveToXMLConfig();

  procedure BeginIgnoreModified;

  procedure EndIgnoreModified;

  property OnModified: TNotifyEvent; [rw]

  property OnWatchesInvalidated: TNotifyEvent; [rw]

end;

TIdeWatchesMonitor

TObject