| Class TInspector (unit Insp2) |
TForm
| Constructors |
Constructor Create(AOwner : TComponent);| Functions |
procedure CBOnTopClick(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
procedure ShowHelpCBClick(Sender: TObject);
procedure TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
procedure AddProperty(PropertyEditor: TPropertyEditor);
Procedure Clear;
Procedure CommitChanges(Designer : TFormDesigner; Commit : Boolean);
Destructor Destroy;
Procedure HideHelp;
procedure Prepare(ComponentList : TList);
Procedure Renew(Designer : TFormDesigner);
Procedure SelectNextForm(OldForm : TForm);
Procedure SetFocusPropertyEditor(Sender : TObject);
procedure SetupHint(Sender : TObject);
Procedure ShowHelp;
Procedure UseComponents(Components : TList; Designer : TformDesigner);
Procedure CommitEdit(Commit : Boolean);
Function GetActiveForm : TForm;
Function GetKeyComponent : TComponent;
Function GetShowWidth : Integer;
Procedure LoadMap;
Procedure PositionPropertyEditor(PageIndex : Integer; PropertyLabel : TLabel; VPropertyEditor : TVpe;
PropertyEditor : TPropertyEditor);
Procedure RemoveBlankPages;
Procedure SetCurrentForm(Form : TForm);
Procedure RefreshProportions;| Properties |
property ActiveEditor : TFormDesigner
property ActiveForm : TForm
property keyComponent : TComponent| Events |
| Variables |
CBOnTop : TCheckBox;
HelpBox : TMemo;
Label1 : TLabel;
Label3 : TLabel;
LCurrentControl : TLabel;
LCurrentForm : TLabel;
Notebook1 : TNotebook;
Panel1 : TPanel;
Panel3 : TPanel;
PropertyPanel : TPanel;
ScrollBox1 : TScrollBox;
ShowHelpCB : TCheckBox;
TabSet1 : TTabSet;
FDesigner : TFormDesigner;
FHints : TStringlist;
FKeyComponent : TComponent;
FMapFile : TIniFile;
FMapPages : TStringlist;
FSelectedComponents : TList;| Constructors |
Constructor Create(AOwner : TComponent);Public declarations
| Functions |
procedure CBOnTopClick(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);make sure TVpe's are right width
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure OKButtonClick(Sender: TObject);Screenrect.TopLeft:=Point(0,0); ScreenRect.Right:=GetSystemMetrics(SM_CXSCREEN); ScreenRect.Bottom:=GetSystemMetrics(SM_CYSCREEN); Left:=ScreenRect.Right-Width-10; Top:=10; Height:=ScreenRect.Bottom-30;} { If not PtInRect(ScreenRect,Parent.ClientToScreen(Point(X,Y)) then begin end;
procedure ShowHelpCBClick(Sender: TObject);
procedure TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);Only add this property if it is index, and add it to right page
procedure AddProperty(PropertyEditor: TPropertyEditor);
Procedure Clear;Now see which pages exist at all
Procedure CommitChanges(Designer : TFormDesigner; Commit : Boolean);
Destructor Destroy;Find path
Procedure HideHelp;
procedure Prepare(ComponentList : TList);SAMFIX destroywnd the old window..??
Procedure Renew(Designer : TFormDesigner);
Procedure SelectNextForm(OldForm : TForm);now load map into MapPages
Procedure SetFocusPropertyEditor(Sender : TObject);
procedure SetupHint(Sender : TObject);
Procedure ShowHelp;
Procedure UseComponents(Components : TList; Designer : TformDesigner);
Procedure CommitEdit(Commit : Boolean);
Function GetActiveForm : TForm;PropertyLabel.FocusControl:=VPropertyEditor
Function GetKeyComponent : TComponent;
Function GetShowWidth : Integer;
Procedure LoadMap;
Procedure PositionPropertyEditor(PageIndex : Integer; PropertyLabel : TLabel; VPropertyEditor : TVpe;
PropertyEditor : TPropertyEditor);
Procedure RemoveBlankPages;Free associated property editors
Procedure SetCurrentForm(Form : TForm);Bug in tnotebook, when you delete a page it sets pageindex to 0, but if you delete } { page 0, then you aree donefor as nothing happens as it thinks its already on that page } { This isn;t a proper fix as we miss out many things set as active control which setpage index does
Procedure RefreshProportions;Private declarations
| Properties |
property ActiveEditor : TFormDesigner
property ActiveForm : TForm
property keyComponent : TComponent| Events |
| Variables |
CBOnTop : TCheckBox;
HelpBox : TMemo;
Label1 : TLabel;
Label3 : TLabel;
LCurrentControl : TLabel;
LCurrentForm : TLabel;
Notebook1 : TNotebook;
Panel1 : TPanel;
Panel3 : TPanel;
PropertyPanel : TPanel;
ScrollBox1 : TScrollBox;
ShowHelpCB : TCheckBox;
TabSet1 : TTabSet;
FDesigner : TFormDesigner;
FHints : TStringlist;
FKeyComponent : TComponent;
FMapFile : TIniFile;
FMapPages : TStringlist;
FSelectedComponents : TList;