TSnapshotManager

type TSnapshotManager = class

protected

  FHistoryCapacity: Integer;

  FHistoryIndex: Integer;

  FHistoryList: TSnapshotList;

  FHistorySelected: Boolean;

  function GetHistoryEntry();

  procedure SetHistoryIndex();

  procedure SetHistorySelected();

  procedure CreateHistoryEntry;

  procedure RemoveHistoryEntry();

  procedure RemoveHistoryEntryFromMonitors();

  FSnapshotIndex: Integer;

  FSnapshotList: TSnapshotList;

  FSnapshotSelected: Boolean;

  function GetSnapshotEntry();

  procedure SetSnapshotIndex();

  procedure SetSnapshotSelected();

  procedure AddSnapshotEntry();

  procedure RemoveSnapshotEntry();

  procedure AddHistoryEntry();

  procedure DoSnapShotDestroy();

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure DoChanged;

  procedure DoCurrent;

  procedure LoadDataFromXMLConfig();

  procedure SaveDataToXMLConfig();

public

  constructor Create;

  destructor Destroy; override;

  procedure AddNotification();

  procedure RemoveNotification();

  procedure DoStateChange();

  procedure DoDebuggerIdle();

  property Active: Boolean; [rw]

  function SelectedId;

  function SelectedEntry;

  procedure Clear;

  procedure ClearHistory;

  procedure ClearSnapshots;

  function GetAsXML;

  procedure SetFromXML();

  property Current: TSnapshot; [r]

  property HistoryIndex: Integer; [rw]

  property HistoryCapacity: Integer; [rw]

  property HistorySelected: Boolean; [rw]

  property History: TSnapshotList; [r]

  property SnapshotIndex: Integer; [rw]

  property SnapshotSelected: Boolean; [rw]

  property Snapshots: TSnapshotList; [r]

  property Locals: TIdeLocalsMonitor; [rw]

  property Watches: TIdeWatchesMonitor; [rw]

  property CallStack: TIdeCallStackMonitor; [rw]

  property Threads: TIdeThreadsMonitor; [rw]

  property Debugger: TDebuggerIntf; [rw]

  property UnitInfoProvider: TDebuggerUnitInfoProvider; [rw]

end;

TSnapshotManager

TObject