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
|
