[JVCL-Checkins] SF.net SVN: jvcl: [11803] trunk/jvcl/design/JvDataProviderItemDesign.pas

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

Revision: 11803
          http://jvcl.svn.sourceforge.net/jvcl/?rev=11803&view=rev
Author:   obones
Date:     2008-05-18 05:38:39 -0700 (Sun, 18 May 2008)

Log Message:
-----------
Use the System.pas constant, it's much safer

Modified Paths:
--------------
    trunk/jvcl/design/JvDataProviderItemDesign.pas

Modified: trunk/jvcl/design/JvDataProviderItemDesign.pas
===================================================================
--- trunk/jvcl/design/JvDataProviderItemDesign.pas	2008-05-12 19:54:51 UTC (rev 11802)
+++ trunk/jvcl/design/JvDataProviderItemDesign.pas	2008-05-18 12:38:39 UTC (rev 11803)
@@ -295,7 +295,7 @@
   P: PChar;
 begin
   P := Pointer(AClass);
-  Dec(P, 60); // Now pointing to TypeInfo of the VMT table.
+  Inc(P, vmtTypeInfo); // Now pointing to TypeInfo of the VMT table.
   Result := PPTypeInfo(P);
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.