FOME-Tech
/
openblt
mirror of https://github.com/FOME-Tech/openblt.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Frank Voorburg 2019-11-06 17:15:50 +00:00
parent 8a63823005
commit fa59ddedfb
3 changed files with 20 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Host/MicroBoot.exe
View File

Binary file not shown.

13
Host/Source/MicroBoot/MicroBoot.lps
View File

@ -47,7 +47,7 @@
<Filename Value="configgroups.pas"/> <Filename Value="configgroups.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ConfigGroups"/> <UnitName Value="ConfigGroups"/>
<EditorIndex Value="2"/> <EditorIndex Value="3"/>
<TopLine Value="470"/> <TopLine Value="470"/>
<CursorPos X="37" Y="495"/> <CursorPos X="37" Y="495"/>
<UsageCount Value="84"/> <UsageCount Value="84"/>
@ -72,7 +72,7 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="SessionXcpDialog"/> <UnitName Value="SessionXcpDialog"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<TopLine Value="226"/> <TopLine Value="226"/>
<CursorPos X="52" Y="230"/> <CursorPos X="52" Y="230"/>
<UsageCount Value="76"/> <UsageCount Value="76"/>
@ -95,10 +95,13 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TransportXcpRs232Dialog"/> <UnitName Value="TransportXcpRs232Dialog"/>
<EditorIndex Value="-1"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="14"/> <TopLine Value="14"/>
<CursorPos X="47" Y="34"/> <CursorPos X="47" Y="34"/>
<UsageCount Value="62"/> <UsageCount Value="62"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="transportxcpcandialog.pas"/> <Filename Value="transportxcpcandialog.pas"/>
@ -107,13 +110,11 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TransportXcpCanDialog"/> <UnitName Value="TransportXcpCanDialog"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="212"/> <TopLine Value="212"/>
<CursorPos X="75" Y="239"/> <CursorPos X="75" Y="239"/>
<UsageCount Value="62"/> <UsageCount Value="62"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="transportxcpusbdialog.pas"/> <Filename Value="transportxcpusbdialog.pas"/>
@ -155,7 +156,7 @@
<Filename Value="firmwareupdate.pas"/> <Filename Value="firmwareupdate.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="FirmwareUpdate"/> <UnitName Value="FirmwareUpdate"/>
<EditorIndex Value="4"/> <EditorIndex Value="5"/>
<TopLine Value="896"/> <TopLine Value="896"/>
<CursorPos Y="930"/> <CursorPos Y="930"/>
<UsageCount Value="49"/> <UsageCount Value="49"/>

33
Host/Source/MicroBoot/transportxcprs232dialog.lfm
View File

@ -8,12 +8,12 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
ClientWidth = 407 ClientWidth = 407
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.6.2.0' LCLVersion = '1.6.4.0'
object LlbCommunication: TLabel object LlbCommunication: TLabel
Left = 8 Left = 8
Height = 17 Height = 15
Top = 8 Top = 8
Width = 96 Width = 87
Caption = 'Communication' Caption = 'Communication'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -21,11 +21,11 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
end end
object CmbDevice: TComboBox object CmbDevice: TComboBox
Left = 96 Left = 96
Height = 29 Height = 23
Hint = 'Name of the communication device' Hint = 'Name of the communication device'
Top = 35 Top = 35
Width = 192 Width = 192
ItemHeight = 0 ItemHeight = 15
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
@ -33,45 +33,38 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
end end
object LblDevice: TLabel object LblDevice: TLabel
Left = 24 Left = 24
Height = 17 Height = 15
Top = 38 Top = 38
Width = 41 Width = 38
Caption = 'Device:' Caption = 'Device:'
ParentColor = False ParentColor = False
end end
object CmbBaudrate: TComboBox object CmbBaudrate: TComboBox
Left = 96 Left = 96
Height = 27 Height = 23
Hint = 'The communication speed in bits per second, as a 32-bit value (Default = 57600)' Hint = 'The communication speed in bits per second, as a 32-bit value (Default = 57600)'
Top = 75 Top = 75
Width = 192 Width = 192
ItemHeight = 0 ItemHeight = 15
ItemIndex = 0 ItemIndex = 3
Items.Strings = ( Items.Strings = (
'1200'
'2400'
'4800'
'9600' '9600'
'14400'
'19200' '19200'
'38400' '38400'
'56000'
'57600' '57600'
'115200' '115200'
'128000'
'256000'
) )
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
Text = '1200' Text = '57600'
end end
object LblBaudrate: TLabel object LblBaudrate: TLabel
Left = 24 Left = 24
Height = 17 Height = 15
Top = 78 Top = 78
Width = 55 Width = 50
Caption = 'Baudrate:' Caption = 'Baudrate:'
ParentColor = False ParentColor = False
end end