Help is displayed. #17

dvmorozov · Oct 31, 2020 · de39262 · de39262
1 parent af66823
commit de39262
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/examples/BoundingBoxConsole/bounding_box_cli.lps b/examples/BoundingBoxConsole/bounding_box_cli.lps
@@ -58,8 +58,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="46"/>
-        <CursorPos X="130" Y="56"/>
+        <TopLine Value="53"/>
+        <CursorPos X="15" Y="72"/>
         <UsageCount Value="21"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
@@ -94,7 +94,7 @@
         <EditorIndex Value="3"/>
         <TopLine Value="71"/>
         <CursorPos X="18" Y="80"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="11"/>
         <Loaded Value="True"/>
       </Unit9>
     </Units>

diff --git a/examples/BoundingBoxConsole/bounding_box_console.pas b/examples/BoundingBoxConsole/bounding_box_console.pas
@@ -69,8 +69,7 @@ procedure TBoundingBoxConsole.DoRun;
 
     { add your program here }
 
-    // stop program loop
-    Terminate;
+    WriteHelp;
 end;
 
 constructor TBoundingBoxConsole.Create(TheOwner: TComponent);