Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Patch from Lipinast Lekrisov to implement setting method-type properties. Fixes issue #40970

Michaël Van Canneyt 9 months ago
parent
8520dabebb
commit
b74411cf03
1 changed files with 2 additions and 0 deletions
Unified View Show Diff Stats
  1. 2 0
      packages/rtl-objpas/src/inc/rtti.pp

+ 2 - 0
packages/rtl-objpas/src/inc/rtti.pp
View File 

@@ -6604,6 +6604,8 @@ begin
 
       SetOrdProp(TObject(Instance), FPropInfo, AValue.AsOrdinal);
 
       SetOrdProp(TObject(Instance), FPropInfo, AValue.AsOrdinal);
 
     tkClass:
 
     tkClass:
 
       SetObjectProp(TObject(Instance), FPropInfo, AValue.AsObject);
 
       SetObjectProp(TObject(Instance), FPropInfo, AValue.AsObject);
 
+    tkMethod:
 
+      SetMethodProp(TObject(Instance), FPropInfo, TMethod(AValue.GetReferenceToRawData^));
 
     tkInterface:
 
     tkInterface:
 
       SetInterfaceProp(TObject(Instance), FPropInfo, AValue.AsInterface);
 
       SetInterfaceProp(TObject(Instance), FPropInfo, AValue.AsInterface);
 
     tkFloat:
 
     tkFloat: