[Instantobjects-cvscommit] SF.net SVN: instantobjects:[890] trunk/Source/Core/InstantRtti.pas

[<dav...@us...>]

Revision: 890
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=890&view=rev
Author:   davidvtaylor
Date:     2010-01-03 04:02:13 +0000 (Sun, 03 Jan 2010)

Log Message:
-----------
* Backout change to enumeration handling in InstantRtti to fix Model Explorer breakage

Modified Paths:
--------------
    trunk/Source/Core/InstantRtti.pas

Modified: trunk/Source/Core/InstantRtti.pas
===================================================================
--- trunk/Source/Core/InstantRtti.pas	2010-01-03 03:58:44 UTC (rev 889)
+++ trunk/Source/Core/InstantRtti.pas	2010-01-03 04:02:13 UTC (rev 890)
@@ -105,7 +105,8 @@
   Value: Variant): Variant;
 var
   PropInfo: PPropInfo;
-  PreferStrings: Boolean;
+// DVT Backed out change to fix ME breakage issue
+//PreferStrings: Boolean;
 begin
   if Assigned(AObject) then
   begin
@@ -148,8 +149,10 @@
           SetPropValue(AObject, InstantGetPropName(PropInfo), Value);
         end;
       end;
-      PreferStrings := GetTypeInfo(PropInfo)^.Kind <> tkEnumeration;
-      Result := GetPropValue(AObject, InstantGetPropName(PropInfo), PreferStrings);
+    // DVT Backed out change to fix ME breakage issue
+    //PreferStrings := GetTypeInfo(PropInfo)^.Kind <> tkEnumeration;
+    //Result := GetPropValue(AObject, InstantGetPropName(PropInfo), PreferStrings);
+      Result := GetPropValue(AObject, InstantGetPropName(PropInfo));
     end else
       Result := Null;
   end else