TplObjectInspector

type TplObjectInspector = class(TCustomPanel)

  MainPopupMenu: TPopupMenu;

  CopyPopupmenuItem: TMenuItem;

  CutPopupmenuItem: TMenuItem;

  DeletePopupmenuItem: TMenuItem;

  EventGrid: TplOICustomPropertyGrid;

  ComponentRestrictedLabel: TLabel;

  ComponentRestrictedBox: TPaintBox;

  FindDeclarationPopupmenuItem: TMenuItem;

  OptionsSeparatorMenuItem: TMenuItem;

  NoteBook: TPageControl;

  OptionsSeparatorMenuItem2: TMenuItem;

  PastePopupmenuItem: TMenuItem;

  PropertyGrid: TplOICustomPropertyGrid;

  SetDefaultPopupMenuItem: TMenuItem;

  ShowComponentTreePopupMenuItem: TMenuItem;

  ShowHintsPopupMenuItem: TMenuItem;

  ShowOptionsPopupMenuItem: TMenuItem;

  UndoPropertyPopupMenuItem: TMenuItem;

  procedure OnGridKeyDown();

  procedure OnGridKeyUp();

  procedure OnGridDblClick();

  procedure OnSetDefaultPopupmenuItemClick();

  procedure OnUndoPopupmenuItemClick();

  procedure OnFindDeclarationPopupmenuItemClick();

  procedure OnCutPopupmenuItemClick();

  procedure OnCopyPopupmenuItemClick();

  procedure OnPastePopupmenuItemClick();

  procedure OnDeletePopupmenuItemClick();

  procedure OnShowHintPopupMenuItemClick();

  procedure OnShowOptionsPopupMenuItemClick();

  procedure OnMainPopupMenuPopup();

protected

  function PersistentToString();

  procedure AddPersistentToList();

  procedure HookLookupRootChange;

  procedure OnGridModified();

  procedure OnGridSelectionChange();

  function OnGridPropertyHint();

  procedure HookGetSelection();

  procedure HookSetSelection();

  procedure DestroyNoteBook;

  procedure CreateNoteBook;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure DoModified();

  procedure SetShowEventsPage();

  function GetSelected;

  procedure SetSelected();

  procedure RefreshPropertyValues;

  procedure RebuildPropertyLists;

  procedure HookRefreshPropertyValues;

  procedure ActivateGrid();

  procedure FocusGrid();

  function GetComponentEditorForSelection;

  procedure CreateSelfPropEditorHook;

  procedure DestroySelfPropEditorHook;

  property ComponentEditor: TBaseComponentEditor; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AddPersistent();

  procedure SaveChanges;

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure RefreshSelections;

  function GetActivePropertyGrid;

  function GetActivePropertyRow;

  function GetCurRowDefaultValue();

  property Selected: TPersistent; [rw]

  property AutoShow: Boolean; [rw]

  property DefaultItemHeight: Integer; [rw]

  property Selections: TPersistentSelectionList; [rw]

  property PropertyEditorHook: TPropertyEditorHook; [rw]

  property GridControl []: TplOICustomPropertyGrid; [r]

published

  property ShowEventsPage: Boolean; [rw]

  property ShowCheckboxForBoolean: Boolean; [rw]

  property OnAddAvailPersistent: TOnAddAvailablePersistent; [rw]

  property OnSelectPersistentsInOI: TNotifyEvent; [rw]

  property OnModified: TNotifyEvent; [rw]

  property OnSelectionChange: TNotifyEvent; [rw]

  property OnPropertyHint: TplOIPropertyHintEvent; [rw]

  property OnShowOptions: TNotifyEvent; [rw]

  property OnRemainingKeyUp: TKeyEvent; [rw]

  property OnRemainingKeyDown: TKeyEvent; [rw]

  property OnOIKeyDown: TKeyEvent; [rw]

  property OnFindDeclarationOfProperty: TNotifyEvent; [rw]

  property OnAutoShow: TNotifyEvent; [rw]

  property Align;

  property Anchors;

  property AutoSize;

  property BorderSpacing;

  property BevelInner;

  property BevelOuter;

  property BevelWidth;

  property BidiMode;

  property BorderWidth;

  property BorderStyle;

  property ChildSizing;

  property ClientHeight;

  property ClientWidth;

  property Color;

  property Constraints;

  property DockSite;

  property DragCursor;

  property DragKind;

  property DragMode;

  property Enabled;

  property Font;

  property ParentBidiMode;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property TabOrder;

  property TabStop;

  property UseDockManager;

  property Visible;

end;

TplObjectInspector

TObject