| Class TLookForm (unit PeekIDE) |
TForm
| Constructors |
| Functions |
procedure FillOutInfo (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ShowPopupClick (Sender: TObject);
procedure TimerTimer (Sender: TObject);
procedure DisplayTypeInfo (Info: PTypeInfo);
procedure MyHook (var HookCall: THookCall);
procedure Refresh;| Properties |
| Events |
| Variables |
ComponentTreeView : TTreeView;
IDETreeView : TTreeView;
N1 : TMenuItem;
Refresh1 : TMenuItem;
ShowPopupMenu : TPopupMenu;
Splitter : TSplitter;
StatusBar : TStatusBar;
TBevel1 : TMenuItem;
TGroupBox1 : TMenuItem;
Timer : TTimer;
TLabel1 : TMenuItem;
TMenuItem1 : TMenuItem;
TPanel1 : TMenuItem;
TPopupMenu1 : TMenuItem;
HookProc : pointer;
ThisHook : hHook;| Constructors |
| Functions |
procedure FillOutInfo (Sender: TObject);when the treeview is clicked on fill out the memo with the type info
procedure FormClose (Sender: TObject; var Action: TCloseAction);When the form is closed we free it, unhook and free the hook method instance
procedure FormCreate(Sender: TObject);--- LOOK FORM METHODS --------------------------------------------------------
procedure ShowPopupClick (Sender: TObject);Only tkClass is possible (?) so error on other values
procedure TimerTimer (Sender: TObject);now rebuild the treeview
procedure DisplayTypeInfo (Info: PTypeInfo);
procedure MyHook (var HookCall: THookCall);This is the hook to look for new dialogs being created by the IDE. It is put in and removed by the form.
procedure Refresh;Loads the treeview with the Application component structure
| Properties |
| Events |
| Variables |
ComponentTreeView : TTreeView;
IDETreeView : TTreeView;
N1 : TMenuItem;
Refresh1 : TMenuItem;
ShowPopupMenu : TPopupMenu;
Splitter : TSplitter;
StatusBar : TStatusBar;
TBevel1 : TMenuItem;
TGroupBox1 : TMenuItem;
Timer : TTimer;
TLabel1 : TMenuItem;
TMenuItem1 : TMenuItem;
TPanel1 : TMenuItem;
TPopupMenu1 : TMenuItem;
HookProc : pointer;
ThisHook : hHook;