paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow assignment for readonly object property.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9637 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2025-02-13 10:30:43 +00:00
parent 7830ba9937
commit 846ac6f77a
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/base_service_intf.pas
View File

@ -5224,7 +5224,7 @@ begin
p := propList^[i];
sp := GetPropInfo(Source,p^.Name);
if Assigned(sp) and Assigned(sp^.GetProc) and
Assigned(p^.SetProc)
((p^.PropType^.Kind = tkClass) or Assigned(p^.SetProc))
then begin
case p^.PropType^.Kind of
tkInt64{$IFDEF HAS_QWORD} ,tkQWord{$ENDIF} :
@ -5241,6 +5241,7 @@ begin
begin
srcObj := GetObjectProp(Source,p^.Name);
dstObj := GetObjectProp(Self,p^.Name);
if (dstObj <> nil) then begin
if ( not Assigned(dstObj) ) and
( Assigned(srcObj) and srcObj.InheritsFrom(TAbstractComplexRemotable) )
then begin
@ -5257,6 +5258,7 @@ begin
end;
end;
end;
end;
tkFloat :
SetFloatProp(Self,p,GetFloatProp(Source,p^.Name));
end;