From 3e7659201ea5b11fe2d4876df236f13877528c81 Mon Sep 17 00:00:00 2001
From: Dmitry Morozov <dvmorozov@hotmail.com>
Date: Sat, 12 Sep 2020 12:21:06 +0200
Subject: [PATCH] Interface definition updated for console application.

#17
---
 .../BoundingBoxConsole/BoundingBoxConsole.lps |  79 +++++++---
 .../bounding_box_console.pas                  |  47 ++++--
 .../bounding_box_server_demo.lpi              |   2 +-
 .../bounding_box_server_demo.lps              | 141 +++++++++---------
 .../bounding_box_server_demo.res              | Bin 53856 -> 53856 bytes
 5 files changed, 165 insertions(+), 104 deletions(-)

diff --git a/examples/BoundingBoxConsole/BoundingBoxConsole.lps b/examples/BoundingBoxConsole/BoundingBoxConsole.lps
index 018d4b7..91b35ad 100644
--- a/examples/BoundingBoxConsole/BoundingBoxConsole.lps
+++ b/examples/BoundingBoxConsole/BoundingBoxConsole.lps
@@ -15,8 +15,7 @@
       <Unit1>
         <Filename Value="..\Common\bounding_box_server.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <TopLine Value="206"/>
         <CursorPos X="20" Y="227"/>
         <UsageCount Value="21"/>
@@ -25,11 +24,11 @@
       <Unit2>
         <Filename Value="..\Common\int_user_interaction.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="-1"/>
-        <WindowIndex Value="-1"/>
-        <TopLine Value="-1"/>
-        <CursorPos X="-1" Y="-1"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="14"/>
+        <CursorPos X="9" Y="33"/>
         <UsageCount Value="21"/>
+        <Loaded Value="True"/>
       </Unit2>
       <Unit3>
         <Filename Value="..\Common\Math3d.pas"/>
@@ -50,36 +49,38 @@
         <UsageCount Value="21"/>
       </Unit4>
       <Unit5>
+        <Filename Value="bounding_box_console.pas"/>
+        <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="134"/>
+        <CursorPos X="29" Y="147"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit5>
+      <Unit6>
         <Filename Value="..\int_user_interaction.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="43" Y="8"/>
         <UsageCount Value="21"/>
-      </Unit5>
-      <Unit6>
+      </Unit6>
+      <Unit7>
         <Filename Value="..\optimizing_app.pas"/>
         <EditorIndex Value="-1"/>
         <WindowIndex Value="-1"/>
         <TopLine Value="-1"/>
         <CursorPos X="-1" Y="-1"/>
         <UsageCount Value="20"/>
-      </Unit6>
-      <Unit7>
+      </Unit7>
+      <Unit8>
         <Filename Value="..\bounding_box_server.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="126"/>
         <CursorPos X="6" Y="149"/>
         <UsageCount Value="20"/>
-      </Unit7>
-      <Unit8>
-        <Filename Value="bounding_box_console.pas"/>
-        <IsPartOfProject Value="True"/>
-        <EditorIndex Value="1"/>
-        <CursorPos X="34" Y="9"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
       </Unit8>
     </Units>
-    <JumpHistory Count="5" HistoryIndex="4">
+    <JumpHistory Count="15" HistoryIndex="14">
       <Position1>
         <Filename Value="BoundingBoxConsole.lpr"/>
         <Caret Line="139" Column="5" TopLine="82"/>
@@ -100,6 +101,46 @@
         <Filename Value="..\Common\bounding_box_server.pas"/>
         <Caret Line="227" Column="20" TopLine="206"/>
       </Position5>
+      <Position6>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="42" Column="66" TopLine="29"/>
+      </Position6>
+      <Position7>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="31" Column="58" TopLine="18"/>
+      </Position7>
+      <Position8>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="32" Column="23" TopLine="21"/>
+      </Position8>
+      <Position9>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="7" Column="23"/>
+      </Position9>
+      <Position10>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="29" Column="58" TopLine="21"/>
+      </Position10>
+      <Position11>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="7" Column="41"/>
+      </Position11>
+      <Position12>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="13" Column="57" TopLine="7"/>
+      </Position12>
+      <Position13>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="43" Column="40" TopLine="27"/>
+      </Position13>
+      <Position14>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="25" Column="29" TopLine="12"/>
+      </Position14>
+      <Position15>
+        <Filename Value="bounding_box_console.pas"/>
+        <Caret Line="105" Column="5" TopLine="92"/>
+      </Position15>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>
diff --git a/examples/BoundingBoxConsole/bounding_box_console.pas b/examples/BoundingBoxConsole/bounding_box_console.pas
index 3e55e4b..41a3f6f 100644
--- a/examples/BoundingBoxConsole/bounding_box_console.pas
+++ b/examples/BoundingBoxConsole/bounding_box_console.pas
@@ -4,9 +4,7 @@ interface
 
 uses {$IFDEF UNIX} {$IFDEF UseCThreads}
     cthreads, {$ENDIF} {$ENDIF}
-    Classes,
-    SysUtils,
-    CustApp, int_user_interaction;
+    Classes, SysUtils, CustApp, SimpMath, int_user_interaction;
 
 type
 
@@ -21,26 +19,29 @@     TBoundingBoxConsole = class(TCustomApplication, IUserInteraction)
         procedure WriteHelp; virtual;
 
         { IUserInteraction }
-
-        function GetEditExitDerivate: double;
+        function GetInitialAngleStep: Double;
+        function GetModelFileName: string;
+        function GetFinalTolerance: Double;
+        function GetEditExitDerivate: Double;
         { Prints final results among a few runs. }
         procedure DisplayPointCloud(PointCloud: TList);
         { Displays computation results and removes container.
           Should be member of form because works with form controls.
           Removes handler from FHandlers list. }
-        procedure DisplayGlobalMinVolume(Handler: TBoundingBoxServer;
+        procedure DisplayGlobalMinVolume(Handler: TObject;
             BoxSizes: TDoubleVector3);
         { Displays computation results of single run.
           Should be member of form because works with form controls.
           Removes handler from FHandlers list. }
-        procedure DisplayCurrentMinVolume(Handler: TBoundingBoxServer);
+        procedure DisplayCurrentMinVolume(Handler: TObject);
         { Displays computation results of single run of brute force search. }
-        procedure DisplayBruteForceResult(Handler: TBoundingBoxServer;
+        procedure DisplayBruteForceResult(Handler: TObject;
             DeltaVolume: single; BoxSizes: TDoubleVector3);
         procedure DisplayInitialAngles(Alpha, Beta, Gamma: single; ShowDetails: boolean);
         procedure DisplayListOfModels(ListOfFiles: TStringList);
-        procedure DisplayComputationTime(ComputationTime: TComputationTime);
+        procedure DisplayComputationTime(ComputationTime: TObject);
         procedure DisplayInitialBoxVolume(InitialBoxVolume: double);
+        procedure DisplayDetails(Line: string);
     end;
 
 implementation
@@ -89,6 +90,21 @@ procedure TBoundingBoxConsole.WriteHelp;
     writeln('Usage: ', ExeName, ' -h');
 end;
 
+function TBoundingBoxConsole.GetInitialAngleStep: Double;
+begin
+
+end;
+
+function TBoundingBoxConsole.GetModelFileName: string;
+begin
+
+end;
+
+function TBoundingBoxConsole.GetFinalTolerance: Double;
+begin
+
+end;
+
 function TBoundingBoxConsole.GetEditExitDerivate: double;
 begin
 
@@ -99,18 +115,18 @@ procedure TBoundingBoxConsole.DisplayPointCloud(PointCloud: TList);
 
 end;
 
-procedure TBoundingBoxConsole.DisplayGlobalMinVolume(Handler: TBoundingBoxServer;
+procedure TBoundingBoxConsole.DisplayGlobalMinVolume(Handler: TObject;
     BoxSizes: TDoubleVector3);
 begin
 
 end;
 
-procedure TBoundingBoxConsole.DisplayCurrentMinVolume(Handler: TBoundingBoxServer);
+procedure TBoundingBoxConsole.DisplayCurrentMinVolume(Handler: TObject);
 begin
 
 end;
 
-procedure TBoundingBoxConsole.DisplayBruteForceResult(Handler: TBoundingBoxServer;
+procedure TBoundingBoxConsole.DisplayBruteForceResult(Handler: TObject;
     DeltaVolume: single; BoxSizes: TDoubleVector3);
 begin
 
@@ -128,7 +144,7 @@ procedure TBoundingBoxConsole.DisplayListOfModels(ListOfFiles: TStringList);
 end;
 
 procedure TBoundingBoxConsole.DisplayComputationTime(
-    ComputationTime: TComputationTime);
+    ComputationTime: TObject);
 begin
 
 end;
@@ -138,5 +154,10 @@ procedure TBoundingBoxConsole.DisplayInitialBoxVolume(InitialBoxVolume: double);
 
 end;
 
+procedure TBoundingBoxConsole.DisplayDetails(Line: string);
+begin
+
+end;
+
 end.
 
diff --git a/examples/BoundingBoxServerForm/bounding_box_server_demo.lpi b/examples/BoundingBoxServerForm/bounding_box_server_demo.lpi
index 4c1477f..606f2be 100644
--- a/examples/BoundingBoxServerForm/bounding_box_server_demo.lpi
+++ b/examples/BoundingBoxServerForm/bounding_box_server_demo.lpi
@@ -23,7 +23,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="1"/>
       <RevisionNr Value="11"/>
-      <BuildNr Value="34"/>
+      <BuildNr Value="35"/>
       <Attributes pvaDebug="True"/>
     </VersionInfo>
     <BuildModes Count="1">
diff --git a/examples/BoundingBoxServerForm/bounding_box_server_demo.lps b/examples/BoundingBoxServerForm/bounding_box_server_demo.lps
index 15a9415..e080918 100644
--- a/examples/BoundingBoxServerForm/bounding_box_server_demo.lps
+++ b/examples/BoundingBoxServerForm/bounding_box_server_demo.lps
@@ -31,19 +31,19 @@
         <Filename Value="..\Common\bounding_box_server.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="6"/>
-        <TopLine Value="229"/>
-        <CursorPos X="25" Y="241"/>
-        <UsageCount Value="92"/>
+        <TopLine Value="409"/>
+        <CursorPos X="9" Y="422"/>
+        <UsageCount Value="117"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit2>
       <Unit3>
         <Filename Value="..\Common\int_user_interaction.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="11"/>
-        <CursorPos X="66" Y="31"/>
-        <UsageCount Value="92"/>
+        <CursorPos X="31" Y="20"/>
+        <UsageCount Value="117"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit3>
@@ -54,17 +54,16 @@
         <WindowIndex Value="-1"/>
         <TopLine Value="-1"/>
         <CursorPos X="-1" Y="-1"/>
-        <UsageCount Value="92"/>
+        <UsageCount Value="117"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit4>
       <Unit5>
         <Filename Value="..\Common\optimizing_app.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <TopLine Value="314"/>
-        <CursorPos X="57" Y="327"/>
-        <UsageCount Value="92"/>
+        <CursorPos X="28" Y="330"/>
+        <UsageCount Value="117"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit5>
@@ -73,7 +72,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="37"/>
         <CursorPos X="44" Y="50"/>
-        <UsageCount Value="249"/>
+        <UsageCount Value="246"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit6>
       <Unit7>
@@ -81,42 +80,42 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="95"/>
         <CursorPos Y="108"/>
-        <UsageCount Value="205"/>
+        <UsageCount Value="202"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit7>
       <Unit8>
         <Filename Value="..\int_user_interaction.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="21" Y="9"/>
-        <UsageCount Value="107"/>
+        <UsageCount Value="104"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit8>
       <Unit9>
         <Filename Value="..\..\package\DownhillSimplexContainer.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="57" Y="150"/>
-        <UsageCount Value="12"/>
+        <UsageCount Value="9"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit9>
       <Unit10>
         <Filename Value="..\..\package\AlgorithmContainer.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="74" Y="15"/>
-        <UsageCount Value="37"/>
+        <UsageCount Value="34"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit10>
       <Unit11>
         <Filename Value="..\..\package\CBRCComponent.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="45" Y="15"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="7"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit11>
       <Unit12>
         <Filename Value="..\..\package\Algorithm.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="59" Y="13"/>
-        <UsageCount Value="30"/>
+        <UsageCount Value="27"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit12>
       <Unit13>
@@ -124,14 +123,14 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="166"/>
         <CursorPos X="71" Y="178"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="66"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit13>
       <Unit14>
         <Filename Value="..\..\package\CombEnumerator.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="77" Y="11"/>
-        <UsageCount Value="29"/>
+        <UsageCount Value="26"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit14>
       <Unit15>
@@ -147,14 +146,14 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="216"/>
         <CursorPos X="30" Y="237"/>
-        <UsageCount Value="18"/>
+        <UsageCount Value="15"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit16>
       <Unit17>
         <Filename Value="..\..\package\Decisions.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="61" Y="103"/>
-        <UsageCount Value="29"/>
+        <UsageCount Value="26"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit17>
       <Unit18>
@@ -162,7 +161,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="31"/>
         <CursorPos X="56" Y="87"/>
-        <UsageCount Value="82"/>
+        <UsageCount Value="79"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit18>
       <Unit19>
@@ -170,7 +169,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="109"/>
         <CursorPos Y="111"/>
-        <UsageCount Value="22"/>
+        <UsageCount Value="19"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit19>
       <Unit20>
@@ -178,14 +177,14 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="180"/>
         <CursorPos Y="223"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="10"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit20>
       <Unit21>
         <Filename Value="..\BoundingBoxComponentForm\downhill_simplex_handler.pas"/>
         <EditorIndex Value="5"/>
         <CursorPos X="26" Y="18"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="23"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit21>
@@ -196,123 +195,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="223" Column="11" TopLine="211"/>
+        <Caret Line="290" Column="9" TopLine="31"/>
       </Position1>
       <Position2>
         <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="290" Column="9" TopLine="278"/>
+        <Caret Line="282" Column="37"/>
       </Position2>
       <Position3>
-        <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="368" Column="9" TopLine="356"/>
+        <Filename Value="..\Common\int_user_interaction.pas"/>
+        <Caret Line="6" Column="32"/>
       </Position3>
       <Position4>
-        <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="372" Column="45" TopLine="104"/>
+        <Filename Value="..\Common\int_user_interaction.pas"/>
+        <Caret Line="11" Column="9"/>
       </Position4>
       <Position5>
-        <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="290" Column="9" TopLine="31"/>
+        <Filename Value="..\Common\int_user_interaction.pas"/>
+        <Caret Line="12" Column="9"/>
       </Position5>
       <Position6>
-        <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="282" Column="37"/>
+        <Filename Value="..\Common\int_user_interaction.pas"/>
+        <Caret Line="9" Column="29"/>
       </Position6>
       <Position7>
         <Filename Value="..\Common\int_user_interaction.pas"/>
-        <Caret Line="6" Column="32"/>
+        <Caret Line="11"/>
       </Position7>
       <Position8>
         <Filename Value="..\Common\int_user_interaction.pas"/>
-        <Caret Line="11" Column="9"/>
+        <Caret Line="6" Column="53"/>
       </Position8>
       <Position9>
         <Filename Value="..\Common\int_user_interaction.pas"/>
-        <Caret Line="12" Column="9"/>
+        <Caret Line="31" Column="66" TopLine="11"/>
       </Position9>
       <Position10>
-        <Filename Value="..\Common\int_user_interaction.pas"/>
-        <Caret Line="9" Column="29"/>
+        <Filename Value="..\Common\bounding_box_server.pas"/>
+        <Caret Line="241" Column="25" TopLine="13"/>
       </Position10>
       <Position11>
-        <Filename Value="..\Common\int_user_interaction.pas"/>
-        <Caret Line="11"/>
+        <Filename Value="..\Common\bounding_box_server.pas"/>
+        <Caret Line="112" Column="28" TopLine="99"/>
       </Position11>
       <Position12>
-        <Filename Value="..\Common\int_user_interaction.pas"/>
-        <Caret Line="6" Column="53"/>
+        <Filename Value="..\Common\bounding_box_server.pas"/>
+        <Caret Line="241" Column="25" TopLine="229"/>
       </Position12>
       <Position13>
-        <Filename Value="..\Common\int_user_interaction.pas"/>
-        <Caret Line="31" Column="66" TopLine="11"/>
+        <Filename Value="bounding_box_form.pas"/>
+        <Caret Line="15" Column="43" TopLine="11"/>
       </Position13>
       <Position14>
-        <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="241" Column="25" TopLine="13"/>
+        <Filename Value="bounding_box_form.pas"/>
+        <Caret Line="23" Column="24" TopLine="10"/>
       </Position14>
       <Position15>
-        <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="112" Column="28" TopLine="99"/>
+        <Filename Value="bounding_box_form.pas"/>
+        <Caret Line="63" Column="58" TopLine="43"/>
       </Position15>
       <Position16>
-        <Filename Value="..\Common\bounding_box_server.pas"/>
-        <Caret Line="241" Column="25" TopLine="229"/>
+        <Filename Value="bounding_box_form.pas"/>
+        <Caret Line="444" Column="39" TopLine="430"/>
       </Position16>
       <Position17>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="15" Column="43" TopLine="11"/>
+        <Caret Line="23" Column="24" TopLine="10"/>
       </Position17>
       <Position18>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="23" Column="24" TopLine="10"/>
+        <Caret Line="68" Column="59" TopLine="48"/>
       </Position18>
       <Position19>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="63" Column="58" TopLine="43"/>
+        <Caret Line="162" Column="40" TopLine="142"/>
       </Position19>
       <Position20>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="444" Column="39" TopLine="430"/>
+        <Caret Line="22" Column="82" TopLine="10"/>
       </Position20>
       <Position21>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="23" Column="24" TopLine="10"/>
+        <Caret Line="70" Column="59" TopLine="50"/>
       </Position21>
       <Position22>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="68" Column="59" TopLine="48"/>
+        <Caret Line="387" Column="40" TopLine="368"/>
       </Position22>
       <Position23>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="162" Column="40" TopLine="142"/>
+        <Caret Line="20" Column="78" TopLine="10"/>
       </Position23>
       <Position24>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="22" Column="82" TopLine="10"/>
+        <Caret Line="76" Column="66" TopLine="57"/>
       </Position24>
       <Position25>
         <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="70" Column="59" TopLine="50"/>
+        <Caret Line="517" Column="9" TopLine="493"/>
       </Position25>
       <Position26>
-        <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="387" Column="40" TopLine="368"/>
+        <Filename Value="..\Common\optimizing_app.pas"/>
+        <Caret Line="15" Column="79"/>
       </Position26>
       <Position27>
-        <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="20" Column="78" TopLine="10"/>
+        <Filename Value="..\Common\optimizing_app.pas"/>
+        <Caret Line="330" Column="28" TopLine="314"/>
       </Position27>
       <Position28>
-        <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="76" Column="66" TopLine="57"/>
+        <Filename Value="..\Common\bounding_box_server.pas"/>
+        <Caret Line="290" Column="9" TopLine="278"/>
       </Position28>
       <Position29>
-        <Filename Value="bounding_box_form.pas"/>
-        <Caret Line="517" Column="9" TopLine="493"/>
+        <Filename Value="..\Common\bounding_box_server.pas"/>
+        <Caret Line="368" Column="9" TopLine="356"/>
       </Position29>
       <Position30>
-        <Filename Value="..\Common\optimizing_app.pas"/>
-        <Caret Line="15" Column="79"/>
+        <Filename Value="..\Common\bounding_box_server.pas"/>
+        <Caret Line="401" Column="9" TopLine="389"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/examples/BoundingBoxServerForm/bounding_box_server_demo.res b/examples/BoundingBoxServerForm/bounding_box_server_demo.res
index 3f620fc91d29c4659db9f9c669c411c765830302..58a5ed909ae7167aa1574eda3aba70bf37ccfdb2 100644
GIT binary patch
delta 22
ecmaE`g!#b|<_&Y$8I>o`W&h7;x_K_g;gbMy;R)6N

delta 22
ecmaE`g!#b|<_&Y$8I>l_W&h7;vUx7Y;gbMy&k583