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

28
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,19 +5241,21 @@ begin
begin
srcObj := GetObjectProp(Source,p^.Name);
dstObj := GetObjectProp(Self,p^.Name);
if ( not Assigned(dstObj) ) and
( Assigned(srcObj) and srcObj.InheritsFrom(TAbstractComplexRemotable) )
then begin
dstObj := TAbstractComplexRemotableClass(srcObj.ClassType).Create();
SetObjectProp(Self,p,dstObj);
end;
if Assigned(dstObj) then begin
if ( srcObj = nil ) then begin
FreeAndNil(dstObj);
if (dstObj <> nil) then begin
if ( not Assigned(dstObj) ) and
( Assigned(srcObj) and srcObj.InheritsFrom(TAbstractComplexRemotable) )
then begin
dstObj := TAbstractComplexRemotableClass(srcObj.ClassType).Create();
SetObjectProp(Self,p,dstObj);
end else begin
if dstObj.InheritsFrom(TPersistent) and srcObj.InheritsFrom(TPersistent) then
TPersistent(dstObj).Assign(TPersistent(srcObj));
end;
if Assigned(dstObj) then begin
if ( srcObj = nil ) then begin
FreeAndNil(dstObj);
SetObjectProp(Self,p,dstObj);
end else begin
if dstObj.InheritsFrom(TPersistent) and srcObj.InheritsFrom(TPersistent) then
TPersistent(dstObj).Assign(TPersistent(srcObj));
end;
end;
end;
end;