Class TLookForm (unit PeekIDE) |
Inherits from
TForm
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.
procedure Refresh;
Loads the treeview with the Application component structure
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;
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
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;