update

Author: Al-Muhandis

demos/relations/RelationsDemo.lpr

@@ -146,7 +146,7 @@ function TPerson.GetProfile: TProfile;
 begin
   PersonOpf := TPersonOpf.Create(GetConnection, 'person');
   try
-    RelatedObject := PersonOpf.GetRelatedObject(PersonOpf.Entity, 'Profile') as TProfile;
+    RelatedObject := PersonOpf.GetRelatedObject(Self, 'Profile') as TProfile;
     Result := specialize TdGRelatedObjectHelper<TProfile>.SafeCast(RelatedObject);
   finally
     PersonOpf.Free;

packages/dopfrt.lpk

@@ -13,6 +13,11 @@
         <OtherUnitFiles Value="..\core;..\brokers"/>
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
+      <Other>
+        <CompilerMessages>
+          <IgnoredMessages idx6058="True" idx3124="True" idx3123="True"/>
+        </CompilerMessages>
+      </Other>
     </CompilerOptions>
     <Description Value="Object Persistence Framework"/>
     <License Value="See the file LICENSE, included in this distribution, for details about the copyright."/>

tests/gui.lpi

@@ -21,7 +21,6 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
-            <OtherUnitFiles Value="..\core"/>
             <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
           <Parsing>
@@ -52,7 +51,7 @@
           </Linking>
           <Other>
             <CompilerMessages>
-              <IgnoredMessages idx6058="True"/>
+              <IgnoredMessages idx6058="True" idx3124="True" idx3123="True"/>
             </CompilerMessages>
           </Other>
         </CompilerOptions>