Class TInspector (unit Insp2) |
Inherits from
TForm
Constructor Create(AOwner : TComponent);
- Public declarations
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
property ActiveEditor : TFormDesigner
property ActiveForm : TForm
property keyComponent : TComponent
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;
Constructor Create(AOwner : TComponent);
Public declarations
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
property ActiveEditor : TFormDesigner
property ActiveForm : TForm
property keyComponent : TComponent
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;