[JVCL-Checkins] dev/JVCL3/examples/JvInspector/BCB MainForm.cpp,1.4,1.5 - Now compatible with BCB5

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/BCB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2190/dev/JVCL3/examples/JvInspector/BCB

Modified Files:
	MainForm.cpp 
Log Message:
Now compatible with BCB5


Index: MainForm.cpp
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvInspector/BCB/MainForm.cpp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MainForm.cpp	11 Feb 2004 00:50:51 -0000	1.4
--- MainForm.cpp	30 May 2004 11:23:54 -0000	1.5
***************
*** 118,123 ****
    InspCat = new TJvInspectorCustomCategoryItem(JvInspector1->Root, NULL);
    InspCat->DisplayName = "JvInspector Settings";
    for (I = 0; I < 3; I++)
!     TJvInspectorPropData::New(__classid(TJvInspectorPropData), InspCat, JvInspector1, GetPropInfo(JvInspector1, PropArray[I][0]))->DisplayName = PropArray[I][1];
  
    TJvInspectorVarData::New(__classid(TJvInspectorVarData), InspCat, "AboutJVCL", TypeInfo(AnsiString), &VerInfoStr)->DisplayName = "About JVCL";
--- 118,124 ----
    InspCat = new TJvInspectorCustomCategoryItem(JvInspector1->Root, NULL);
    InspCat->DisplayName = "JvInspector Settings";
+   // The last argument to GetPropInfo is required by BCB5 and set to the same default value as found in BCB6
    for (I = 0; I < 3; I++)
!     TJvInspectorPropData::New(__classid(TJvInspectorPropData), InspCat, JvInspector1, GetPropInfo(JvInspector1, PropArray[I][0], System::Set<Typinfo::TTypeKind, tkUnknown, tkDynArray>()))->DisplayName = PropArray[I][1];
  
    TJvInspectorVarData::New(__classid(TJvInspectorVarData), InspCat, "AboutJVCL", TypeInfo(AnsiString), &VerInfoStr)->DisplayName = "About JVCL";
***************
*** 205,209 ****
    }
    else
!     TJvInspectorPropData::New(__classid(TJvInspectorPropData), InspCat, Ctrl);
  }
  
--- 206,211 ----
    }
    else
!     // The last argument is required by BCB5 but is not by BCB6
!     TJvInspectorPropData::New(__classid(TJvInspectorPropData), InspCat, Ctrl, System::Set<Typinfo::TTypeKind, tkUnknown, tkDynArray> ());
  }
  
***************
*** 251,255 ****
      dynamic_cast<TJvInspectorBooleanItem*>(Item)->ShowAsCheckbox = BoolsAsChecks;
    for(int I = 0; I < Item->Count; I++)
!     ChangeChkState((*Item)[I]); // Do not use Item[I], as Item is a pointer itself
  }
  
--- 253,257 ----
      dynamic_cast<TJvInspectorBooleanItem*>(Item)->ShowAsCheckbox = BoolsAsChecks;
    for(int I = 0; I < Item->Count; I++)
!     ChangeChkState(Item->Items[I]); // Do not use Item[I], as Item is a pointer itself
  }