TWatchInspectNav

type TWatchInspectNav = class(TFrame)

  btnDisplayFormat: TToolButton;

  edFilter: TEditButton;

  MenuItem1: TMenuItem;

  MenuItem2: TMenuItem;

  MenuItem3: TMenuItem;

  mnuHistory: TPopupMenu;

  Panel1: TPanel;

  EdInspect: TComboBox;

  popConverter: TPopupMenu;

  popDispForm: TPopupMenu;

  BtnExecute: TSpeedButton;

  ToolBar1: TToolBar;

  btnPower: TToolButton;

  tbDivPower: TToolButton;

  btnBackward: TToolButton;

  btnForward: TToolButton;

  tbDivForwBackw: TToolButton;

  btnUseInstance: TToolButton;

  btnFunctionEval: TToolButton;

  btnUseConverter: TToolButton;

  tbDivFlags: TToolButton;

  btnColClass: TToolButton;

  btnColType: TToolButton;

  btnColVisibility: TToolButton;

  tbDivCol: TToolButton;

  ArrayNavigationBar1: TArrayNavigationBar;

  tbDivArray: TToolButton;

  BtnAddWatch: TToolButton;

  BtnInspect: TToolButton;

  BtnEvaluate: TToolButton;

  tbDivAdd: TToolButton;

  btnEvalHistory: TToolButton;

  procedure BtnAddWatchClick();

  procedure btnBackwardClick();

  procedure btnColTypeClick();

  procedure BtnEvaluateClick();

  procedure btnForwardClick();

  procedure btnFunctionEvalClick();

  procedure BtnInspectClick();

  procedure btnPowerClick();

  procedure EdInspectChange();

  procedure EdInspectEditingDone();

  procedure EdInspectKeyDown();

  procedure FrameResize();

  procedure MenuItem1Click();

  procedure BtnExecuteClick();

protected

  procedure VisibleChanged; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Init();

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure InitWatch();

  procedure ReadFromWatch();

  procedure Execute();

  procedure UpdateData();

  procedure DoContextChanged;

  procedure FocusEnterExpression;

  procedure GoPrevBrowseEntry;

  procedure GoNextBrowseEntry;

  procedure DeleteLastHistoryIf();

  property Expression: string; [r]

  property Watches: TCurrentWatches; [r]

  property CurrentWatchValue: TIdeWatchValue; [r]

  property DefaultEvalOpts: TWatcheEvaluateFlags; [rw]

  property HistoryList: TStrings; [rw]

  property HistoryListMaxCount: Integer; [rw]

  property DisplayFormat: TWatchDisplayFormat; [r]

  property EvalHistDirection: TEvalHistDirection; [r]

  property DropDownOpen: Boolean; [r]

published

  property ShowInspectColumns: Boolean; [rw]

  property ShowArrayNav: Boolean; [rw]

  property ShowAddWatch: Boolean; [rw]

  property ShowAddInspect: Boolean; [rw]

  property ShowAddEval: Boolean; [rw]

  property ShowEvalHist: Boolean; [rw]

  property ShowCallFunction: Boolean; [rw]

  property ShowDisplayFormat: Boolean; [rw]

  property ColClassIsDown: Boolean; [r]

  property ColTypeIsDown: Boolean; [r]

  property ColVisibilityIsDown: Boolean; [r]

  property PowerIsDown: Boolean; [r]

  property UseInstanceIsDown: Boolean; [r]

  property ColClassEnabled: Boolean; [rw]

  property ColTypeEnabled: Boolean; [rw]

  property ColVisibilityEnabled: Boolean; [rw]

  property OnBeforeEvaluate: TInspectWatchBeforeUdateEvent; [rw]

  property OnWatchUpdated: TInspectWatchUpdatedEvent; [rw]

  property OnClear: TNotifyEvent; [rw]

  property OnColumnsChanged: TNotifyEvent; [rw]

  property OnAddWatchClicked: TNotifyEvent; [rw]

  property OnAddEvaluateClicked: TNotifyEvent; [rw]

  property OnAddInspectClicked: TNotifyEvent; [rw]

  property OnArrayIndexChanged: TArrayNavChangeEvent; [rw]

  property OnArrayPageSize: TArrayNavChangeEvent; [rw]

  property OnDisplayFormatChanged: TNotifyEvent; [rw]

  property OnEvalHistDirectionChanged: TEvalHistDirectionChangedEvent; [rw]

end;

TWatchInspectNav

TObject