From 49615158a7a62f6815aaa12ec818caa2da4b05c5 Mon Sep 17 00:00:00 2001 From: Irwin Rodriguez Date: Tue, 9 Jun 2026 15:22:04 +0200 Subject: [PATCH] Fix: correct __Usual boxing --- src/Runtime/XSharp.VFP/Classes/PropertyContainer.prg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Runtime/XSharp.VFP/Classes/PropertyContainer.prg b/src/Runtime/XSharp.VFP/Classes/PropertyContainer.prg index 25fc97d717..47d28c5f4f 100644 --- a/src/Runtime/XSharp.VFP/Classes/PropertyContainer.prg +++ b/src/Runtime/XSharp.VFP/Classes/PropertyContainer.prg @@ -150,10 +150,10 @@ class XSharp.VFP.PropertyContainer IMPLEMENTS IEnumerable virtual method NoIvarPut(cName as string, uValue as usual) as void if _Properties:TryGetValue( cName, out var desc) if desc:PropInfo is PropertyInfo var oProp - oProp:SetValue(_Owner, uValue) + oProp:SetValue(_Owner, OOPHelpers.ValueConvert(uValue, oProp:PropertyType)) return elseif desc:PropInfo is FieldInfo var oFld - oFld:SetValue(_Owner, uValue) + oFld:SetValue(_Owner, OOPHelpers.ValueConvert(uValue, oFld:FieldType)) return elseif self:_Values:ContainsKey(cName) self:_Values[cName] := uValue