Class TInspector (unit Insp2)

Inherits from

TForm

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.

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.

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;



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;