From fa59ddedfbd5b29b5f7411ecdad409efcff97a75 Mon Sep 17 00:00:00 2001
From: Frank Voorburg <voorburg@feaser.com>
Date: Wed, 6 Nov 2019 17:15:50 +0000
Subject: [PATCH] Refs #894. Limited the selectable RS232 baudrates in
 MicroBoot to those that are currently supported in LibOpenBLT.

git-svn-id: https://svn.code.sf.net/p/openblt/code/trunk@724 5dc33758-31d5-4daf-9ae8-b24bf3d40d73
---
 Host/MicroBoot.exe                            | Bin 1940992 -> 1940992 bytes
 Host/Source/MicroBoot/MicroBoot.lps           |  13 +++----
 .../MicroBoot/transportxcprs232dialog.lfm     |  33 +++++++-----------
 3 files changed, 20 insertions(+), 26 deletions(-)

diff --git a/Host/MicroBoot.exe b/Host/MicroBoot.exe
index 3d232109cbd1face93ea43549f655f557c85531f..57989a30916f35cc3d1cbd8f8b4c896c5d6cc06a 100644
GIT binary patch
delta 604
zcmZ9_KS%;`6u|MjQ!h33viwu(JBXxF{F9bb5<y7~K~4?fkd#zHcA0~rrBq-F5%nT!
zZE6S_TpXHfZHyp@2m+x!qIV5qzk?6&zQ6l%uhh(ynz>sOFFZH#Ys(S5i}8Ln%30wc
zEAT{}8lojSB9bnmCkA39-NZ!9#6l#}L#(8i^bs4e69;jUelkE@#NEgWo`uiiwT5dy
zO`pu2cXT2sbCVr?9+o*<`!>hjFn!PT6Vo3|e~0DbzaREQ{x9${J;wAb(@CZkrVp9E
zj5Hov9_b1ncfpMBRgljX!GeVon8KMoa2b>0bSk~Pq6kjhIf4mZ!q+r-@$Cpg_)-B8
z$4^0ztyM5$p$vmKR|7Zi#I+i1#3VypNv+2-OR2n|F{|&JzIi2^&Ma^8qBa`w`$b(K
z8dOJUY(yR5QT0#^1j2O6sjFOgQGr3DHj&CJf8X)A4#Vnd3vTbj5L&BXZ~W9jkj`=r
F|1T8fd^rFB

delta 615
zcmZ9`u}cC`9Ki9r^X@9Ov@$dGClw(C5#H&Yx=ADi4GlRpxkw5^Bqk1pQeuOe)$)s=
zt)(q+u)+3-XbT!z0=FXSKj?Q3qVM4I9^ZTK?!9uSQ0^4&t-N4;#J>Zl+KTZ3BTjO{
zX-?pYF`I};BqEa$GD^mXnOKOGjFSmsBX%-LrpPpLkQw46v&2Q_h?{uYIl;U0ReCdV
z{pWkt$6XC{MfGv(1O24=I7fds$9*vU%e1Hu?{_i1qWeliKa4RO5=^I=K4kiw>072B
zn10dQ&p%$<4K|Zt!EO!aajyh2wwkboo5$cbC*_S)W;dM|0FUah#&h_YfhFwLA&Bo6
zFu^aQzX5UHgV_e`<6RbDTU69QKo-@IF@_?>7}aT%l#uaCQliGX6pZvrqa`XWY;2Jg
zMKcy<MWyd(R(s36Q{8x7fdz}0NEP#P?+lDr=`Q|Dx<(j_RaiuO4V>-QGZ1Y50eN%Q

diff --git a/Host/Source/MicroBoot/MicroBoot.lps b/Host/Source/MicroBoot/MicroBoot.lps
index 3e7a3424..566b74af 100644
--- a/Host/Source/MicroBoot/MicroBoot.lps
+++ b/Host/Source/MicroBoot/MicroBoot.lps
@@ -47,7 +47,7 @@
         <Filename Value="configgroups.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="ConfigGroups"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <TopLine Value="470"/>
         <CursorPos X="37" Y="495"/>
         <UsageCount Value="84"/>
@@ -72,7 +72,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="SessionXcpDialog"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="4"/>
         <TopLine Value="226"/>
         <CursorPos X="52" Y="230"/>
         <UsageCount Value="76"/>
@@ -95,10 +95,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TransportXcpRs232Dialog"/>
-        <EditorIndex Value="-1"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="2"/>
         <TopLine Value="14"/>
         <CursorPos X="47" Y="34"/>
         <UsageCount Value="62"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit8>
       <Unit9>
         <Filename Value="transportxcpcandialog.pas"/>
@@ -107,13 +110,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TransportXcpCanDialog"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="212"/>
         <CursorPos X="75" Y="239"/>
         <UsageCount Value="62"/>
         <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit9>
       <Unit10>
         <Filename Value="transportxcpusbdialog.pas"/>
@@ -155,7 +156,7 @@
         <Filename Value="firmwareupdate.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="FirmwareUpdate"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="5"/>
         <TopLine Value="896"/>
         <CursorPos Y="930"/>
         <UsageCount Value="49"/>
diff --git a/Host/Source/MicroBoot/transportxcprs232dialog.lfm b/Host/Source/MicroBoot/transportxcprs232dialog.lfm
index 1779211b..39f88627 100644
--- a/Host/Source/MicroBoot/transportxcprs232dialog.lfm
+++ b/Host/Source/MicroBoot/transportxcprs232dialog.lfm
@@ -8,12 +8,12 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
   ClientWidth = 407
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  LCLVersion = '1.6.2.0'
+  LCLVersion = '1.6.4.0'
   object LlbCommunication: TLabel
     Left = 8
-    Height = 17
+    Height = 15
     Top = 8
-    Width = 96
+    Width = 87
     Caption = 'Communication'
     Font.Style = [fsBold]
     ParentColor = False
@@ -21,11 +21,11 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
   end
   object CmbDevice: TComboBox
     Left = 96
-    Height = 29
+    Height = 23
     Hint = 'Name of the communication device'
     Top = 35
     Width = 192
-    ItemHeight = 0
+    ItemHeight = 15
     ParentShowHint = False
     ShowHint = True
     TabOrder = 0
@@ -33,45 +33,38 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
   end
   object LblDevice: TLabel
     Left = 24
-    Height = 17
+    Height = 15
     Top = 38
-    Width = 41
+    Width = 38
     Caption = 'Device:'
     ParentColor = False
   end
   object CmbBaudrate: TComboBox
     Left = 96
-    Height = 27
+    Height = 23
     Hint = 'The communication speed in bits per second, as a 32-bit value (Default = 57600)'
     Top = 75
     Width = 192
-    ItemHeight = 0
-    ItemIndex = 0
+    ItemHeight = 15
+    ItemIndex = 3
     Items.Strings = (
-      '1200'
-      '2400'
-      '4800'
       '9600'
-      '14400'
       '19200'
       '38400'
-      '56000'
       '57600'
       '115200'
-      '128000'
-      '256000'
     )
     ParentShowHint = False
     ShowHint = True
     Style = csDropDownList
     TabOrder = 1
-    Text = '1200'
+    Text = '57600'
   end
   object LblBaudrate: TLabel
     Left = 24
-    Height = 17
+    Height = 15
     Top = 78
-    Width = 55
+    Width = 50
     Caption = 'Baudrate:'
     ParentColor = False
   end