Bug in Delphi version fixed.

#17
dvmorozov · Sep 6, 2020 · d58a6bb · d58a6bb
1 parent 258c3ca
commit d58a6bb
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 3 deletions.
diff --git a/examples/TBoundingBoxServerForm/bounding_box_server_demo.dpr b/examples/TBoundingBoxServerForm/bounding_box_server_demo.dpr
@@ -3,13 +3,16 @@ program bounding_box_server_demo;
 uses
   Vcl.Forms,
   bounding_box_form in 'bounding_box_form.pas' {Form1},
-  bounding_box_server in 'bounding_box_server.pas';
+  bounding_box_server in 'bounding_box_server.pas',
+  optimizing_app in '..\optimizing_app.pas',
+  int_user_interaction in '..\int_user_interaction.pas';
 
 {$R *.res}
 
 begin
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
   Application.CreateForm(TBoundingBoxForm, BoundingBoxForm);
+  OptimizingApp := TOptimizingApp.Create(nil);
   Application.Run;
 end.
diff --git a/examples/TBoundingBoxServerForm/bounding_box_server_demo.dproj b/examples/TBoundingBoxServerForm/bounding_box_server_demo.dproj
@@ -111,6 +111,8 @@
             <Form>Form1</Form>
         </DCCReference>
         <DCCReference Include="bounding_box_server.pas"/>
+        <DCCReference Include="..\optimizing_app.pas"/>
+        <DCCReference Include="..\int_user_interaction.pas"/>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -147,6 +149,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="bounding_box_server_demo.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win64">
+                        <RemoteName>bounding_box_server_demo.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployClass Name="Android_SplashImage470">
                     <Platform Name="Android">
                         <RemoteDir>res\drawable-normal</RemoteDir>
@@ -504,16 +512,17 @@
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
-                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
             </Deployment>
+            <ModelSupport>False</ModelSupport>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>