Class TLookForm (unit PeekIDE)

Inherits from

TForm

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.

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;



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;