[JVCL-Checkins] CVS: dev/JVCL3/examples/JvInspector InspectorExampleMain.pas,1.3,1.4 - Fixed AV

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvInspector
In directory sc8-pr-cvs1:/tmp/cvs-serv28778/examples/JvInspector

Modified Files:
	InspectorExampleMain.pas 
Log Message:
Fixed AV

Index: InspectorExampleMain.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/InspectorExampleMain.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InspectorExampleMain.pas	8 Jan 2004 09:49:23 -0000	1.3
--- InspectorExampleMain.pas	20 Jan 2004 23:05:06 -0000	1.4
***************
*** 130,138 ****
    InspCat: TJvInspectorCustomCategoryItem;
  begin
!   Application.CreateForm(TfrmTest, frmTest);
    InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil);
    InspCat.DisplayName := 'Form and controls (published property data).';
    InspCat.SortKind := iskNone;
!   AddCtrl(InspCat, frmTest);
    AddCtrl(InspCat, frmTest.PanelForLabel);
    AddCtrl(InspCat, frmTest.lblTest);
--- 130,138 ----
    InspCat: TJvInspectorCustomCategoryItem;
  begin
!   frmTest := TfrmTest.Create(Self);
    InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil);
    InspCat.DisplayName := 'Form and controls (published property data).';
    InspCat.SortKind := iskNone;
!   AddCtrl(InspCat, frmTest); 
    AddCtrl(InspCat, frmTest.PanelForLabel);
    AddCtrl(InspCat, frmTest.lblTest);
***************
*** 160,163 ****
--- 160,164 ----
    InspCat: TJvInspectorCustomCategoryItem;
    M: TNotifyEvent;
+   i: Integer;
  begin
    InspCat := TJvInspectorCustomCategoryItem.Create(Parent, nil);
***************
*** 230,236 ****
  end;
  
- type
-   THackInsp = class(TJvCustomInspector);
- 
  procedure TfrmInspector.FormCreate(Sender: TObject);
  begin
--- 231,234 ----
***************
*** 389,392 ****
--- 387,391 ----
  finalization
    RemoveTypeInfo(GeneratedTestEnum);
+ 
  end.