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

Refs #1297. Corrected character cut offs in a few text labels on MicroBoot's user interface. 

git-svn-id: https://svn.code.sf.net/p/openblt/code/trunk@906 5dc33758-31d5-4daf-9ae8-b24bf3d40d73
This commit is contained in:
Frank Voorburg 2021-09-09 15:30:30 +00:00
parent 9c4159e2f4
commit 50eb570ba1
12 changed files with 187 additions and 262 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.

9
Host/Source/MicroBoot/MicroBoot.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@ -108,9 +108,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
<Item1> <Item1>

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

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectSession> <ProjectSession>
<Version Value="10"/> <Version Value="11"/>
<BuildModes Active="Release"/> <BuildModes Active="Release"/>
<Units Count="32"> <Units Count="32">
<Unit0> <Unit0>
@ -21,10 +21,9 @@
<UnitName Value="MainUnit"/> <UnitName Value="MainUnit"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="45"/> <TopLine Value="45"/>
<CursorPos X="31" Y="51"/> <CursorPos X="15" Y="48"/>
<UsageCount Value="87"/> <UsageCount Value="87"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../LibOpenBLT/bindings/pascal/openblt.pas"/> <Filename Value="../LibOpenBLT/bindings/pascal/openblt.pas"/>
@ -48,11 +47,10 @@
<Filename Value="configgroups.pas"/> <Filename Value="configgroups.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ConfigGroups"/> <UnitName Value="ConfigGroups"/>
<EditorIndex Value="3"/> <EditorIndex Value="-1"/>
<TopLine Value="470"/> <TopLine Value="470"/>
<CursorPos X="37" Y="495"/> <CursorPos X="37" Y="495"/>
<UsageCount Value="84"/> <UsageCount Value="84"/>
<Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="settingsdialog.pas"/> <Filename Value="settingsdialog.pas"/>
@ -73,12 +71,10 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="SessionXcpDialog"/> <UnitName Value="SessionXcpDialog"/>
<EditorIndex Value="4"/> <EditorIndex Value="-1"/>
<TopLine Value="226"/> <TopLine Value="226"/>
<CursorPos X="52" Y="230"/> <CursorPos X="52" Y="230"/>
<UsageCount Value="76"/> <UsageCount Value="76"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="customutil.pas"/> <Filename Value="customutil.pas"/>
@ -96,12 +92,10 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TransportXcpRs232Dialog"/> <UnitName Value="TransportXcpRs232Dialog"/>
<EditorIndex Value="2"/> <EditorIndex Value="-1"/>
<TopLine Value="14"/> <TopLine Value="14"/>
<CursorPos X="101" Y="20"/> <CursorPos X="101" Y="20"/>
<UsageCount Value="62"/> <UsageCount Value="62"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="transportxcpcandialog.pas"/> <Filename Value="transportxcpcandialog.pas"/>
@ -110,12 +104,10 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TransportXcpCanDialog"/> <UnitName Value="TransportXcpCanDialog"/>
<EditorIndex Value="1"/> <EditorIndex Value="-1"/>
<TopLine Value="212"/> <TopLine Value="212"/>
<CursorPos Y="245"/> <CursorPos Y="245"/>
<UsageCount Value="62"/> <UsageCount Value="62"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="transportxcpusbdialog.pas"/> <Filename Value="transportxcpusbdialog.pas"/>
@ -126,7 +118,7 @@
<UnitName Value="TransportXcpUsbDialog"/> <UnitName Value="TransportXcpUsbDialog"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="25"/> <TopLine Value="25"/>
<CursorPos Y="50"/> <CursorPos X="55" Y="34"/>
<UsageCount Value="62"/> <UsageCount Value="62"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
@ -149,7 +141,7 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="MiscellaneousDialog"/> <UnitName Value="MiscellaneousDialog"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="152"/> <TopLine Value="151"/>
<CursorPos X="56" Y="57"/> <CursorPos X="56" Y="57"/>
<UsageCount Value="51"/> <UsageCount Value="51"/>
</Unit12> </Unit12>
@ -157,14 +149,13 @@
<Filename Value="firmwareupdate.pas"/> <Filename Value="firmwareupdate.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="FirmwareUpdate"/> <UnitName Value="FirmwareUpdate"/>
<EditorIndex Value="5"/> <EditorIndex Value="-1"/>
<TopLine Value="896"/> <TopLine Value="896"/>
<CursorPos Y="930"/> <CursorPos Y="930"/>
<UsageCount Value="49"/> <UsageCount Value="49"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="23" Y="998" ID="1"/> <Item0 X="23" Y="998" ID="1"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="stopwatch.pas"/> <Filename Value="stopwatch.pas"/>
@ -300,119 +291,15 @@
<OtherDefines Count="1"> <OtherDefines Count="1">
<Define0 Value="UseCThreads"/> <Define0 Value="UseCThreads"/>
</OtherDefines> </OtherDefines>
<JumpHistory Count="28" HistoryIndex="27"> <JumpHistory Count="1">
<Position1> <Position1>
<Filename Value="firmwareupdate.pas"/>
<Caret Line="106" Column="41" TopLine="70"/>
</Position1>
<Position2>
<Filename Value="firmwareupdate.pas"/>
<Caret Line="604" Column="50" TopLine="569"/>
</Position2>
<Position3>
<Filename Value="firmwareupdate.pas"/>
<Caret Line="694" Column="50" TopLine="659"/>
</Position3>
<Position4>
<Filename Value="firmwareupdate.pas"/>
<Caret Line="708" Column="50" TopLine="690"/>
</Position4>
<Position5>
<Filename Value="firmwareupdate.pas"/>
<Caret Line="488" Column="32" TopLine="481"/>
</Position5>
<Position6>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="127" Column="43" TopLine="114"/>
</Position6>
<Position7>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="132" Column="43" TopLine="119"/>
</Position7>
<Position8>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="104" Column="3" TopLine="92"/>
</Position8>
<Position9>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="20" Column="35"/>
</Position9>
<Position10>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="60" Column="17" TopLine="18"/>
</Position10>
<Position11>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="71" Column="17" TopLine="29"/>
</Position11>
<Position12>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="219" Column="50" TopLine="176"/>
</Position12>
<Position13>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="230" Column="60" TopLine="187"/>
</Position13>
<Position14>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="259" Column="57" TopLine="214"/>
</Position14>
<Position15>
<Filename Value="configgroups.pas"/>
<Caret Line="94" Column="6" TopLine="69"/>
</Position15>
<Position16>
<Filename Value="configgroups.pas"/>
<Caret Line="108" Column="14" TopLine="69"/>
</Position16>
<Position17>
<Filename Value="configgroups.pas"/>
<Caret Line="449" Column="13" TopLine="420"/>
</Position17>
<Position18>
<Filename Value="configgroups.pas"/>
<Caret Line="469" Column="4" TopLine="427"/>
</Position18>
<Position19>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="215" Column="30" TopLine="185"/>
</Position19>
<Position20>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="57" Column="8" TopLine="32"/>
</Position20>
<Position21>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="66" Column="8" TopLine="32"/>
</Position21>
<Position22>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="215" Column="21" TopLine="190"/>
</Position22>
<Position23>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="226" Column="6" TopLine="190"/>
</Position23>
<Position24>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="250" Column="9" TopLine="225"/>
</Position24>
<Position25>
<Filename Value="sessionxcpdialog.pas"/>
<Caret Line="251" Column="23" TopLine="225"/>
</Position25>
<Position26>
<Filename Value="firmwareupdate.pas"/>
<Caret Line="490" Column="84" TopLine="481"/>
</Position26>
<Position27>
<Filename Value="firmwareupdate.pas"/>
<Caret Line="791" Column="63" TopLine="762"/>
</Position27>
<Position28>
<Filename Value="mainunit.pas"/> <Filename Value="mainunit.pas"/>
<Caret Line="294" Column="14" TopLine="291"/> <Caret Line="294" Column="14" TopLine="291"/>
</Position28> </Position1>
</JumpHistory> </JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode="default"/>
</RunParams>
</ProjectSession> </ProjectSession>
</CONFIG> </CONFIG>

BIN
Host/Source/MicroBoot/MicroBoot.res
View File

Binary file not shown.

26
Host/Source/MicroBoot/mainunit.lfm
View File

@ -85,7 +85,7 @@ object MainForm: TMainForm
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.6.4.0' LCLVersion = '2.0.12.0'
object PnlBody: TPanel object PnlBody: TPanel
Left = 0 Left = 0
Height = 84 Height = 84
@ -146,9 +146,10 @@ object MainForm: TMainForm
end end
object LblFirmwareUpdateInfo: TLabel object LblFirmwareUpdateInfo: TLabel
Left = 16 Left = 16
Height = 17 Height = 20
Top = 14 Top = 14
Width = 135 Width = 399
AutoSize = False
Caption = 'LblFirmwareUpdateInfo' Caption = 'LblFirmwareUpdateInfo'
ParentColor = False ParentColor = False
end end
@ -199,9 +200,10 @@ object MainForm: TMainForm
end end
object LblElapsedTime: TLabel object LblElapsedTime: TLabel
Left = 16 Left = 16
Height = 17 Height = 20
Top = 14 Top = 14
Width = 91 Width = 306
AutoSize = False
Caption = 'LblElapsedTime' Caption = 'LblElapsedTime'
ParentColor = False ParentColor = False
end end
@ -302,9 +304,10 @@ object MainForm: TMainForm
end end
object LblProgramName: TLabel object LblProgramName: TLabel
Left = 8 Left = 8
Height = 17 Height = 20
Top = 8 Top = 8
Width = 64 Width = 88
AutoSize = False
Caption = 'MicroBoot' Caption = 'MicroBoot'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -312,9 +315,10 @@ object MainForm: TMainForm
end end
object LblProgramConfig: TLabel object LblProgramConfig: TLabel
Left = 16 Left = 16
Height = 17 Height = 20
Top = 29 Top = 29
Width = 106 Width = 402
AutoSize = False
Caption = 'LblProgramConfig' Caption = 'LblProgramConfig'
ParentColor = False ParentColor = False
end end
@ -322,12 +326,12 @@ object MainForm: TMainForm
object OpenDialog: TOpenDialog object OpenDialog: TOpenDialog
Filter = ' Motorola S-record (*.s19;*.s28;*.s37;*.sx;*.srec;*.mot)|*.s19;*.s28;*.s37;*.sx;*.srec;*.mot|All files (*.*)|*.*' Filter = ' Motorola S-record (*.s19;*.s28;*.s37;*.sx;*.srec;*.mot)|*.s19;*.s28;*.s37;*.sx;*.srec;*.mot|All files (*.*)|*.*'
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail] Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 384 Left = 384
end end
object TmrClose: TTimer object TmrClose: TTimer
Enabled = False Enabled = False
Interval = 200 Interval = 200
OnTimer = TmrCloseTimer OnTimer = TmrCloseTimer
left = 312 Left = 312
end end
end end

27
Host/Source/MicroBoot/miscellaneousdialog.lfm
View File

@ -1,19 +1,20 @@
object MiscellaneousForm: TMiscellaneousForm object MiscellaneousForm: TMiscellaneousForm
Left = 1305 Left = 536
Height = 308 Height = 308
Top = 322 Top = 356
Width = 407 Width = 407
Caption = 'Miscellaneous Settings' Caption = 'Miscellaneous Settings'
ClientHeight = 308 ClientHeight = 308
ClientWidth = 407 ClientWidth = 407
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.6.2.0' LCLVersion = '2.0.12.0'
object LblLogging: TLabel object LblLogging: TLabel
Left = 8 Left = 8
Height = 17 Height = 20
Top = 8 Top = 8
Width = 50 Width = 68
AutoSize = False
Caption = 'Logging' Caption = 'Logging'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -21,10 +22,11 @@ object MiscellaneousForm: TMiscellaneousForm
end end
object CbxLogging: TCheckBox object CbxLogging: TCheckBox
Left = 23 Left = 23
Height = 23 Height = 20
Hint = 'Check this box to generate a log-file during a firmware update' Hint = 'Check this box to generate a log-file during a firmware update'
Top = 35 Top = 35
Width = 128 Width = 166
AutoSize = False
Caption = 'Enable file logging' Caption = 'Enable file logging'
OnChange = CbxLoggingChange OnChange = CbxLoggingChange
ParentShowHint = False ParentShowHint = False
@ -33,7 +35,7 @@ object MiscellaneousForm: TMiscellaneousForm
end end
object EdtLogFile: TEdit object EdtLogFile: TEdit
Left = 48 Left = 48
Height = 29 Height = 23
Hint = 'Specify the name and location of the log-file to write to' Hint = 'Specify the name and location of the log-file to write to'
Top = 93 Top = 93
Width = 256 Width = 256
@ -53,9 +55,10 @@ object MiscellaneousForm: TMiscellaneousForm
end end
object LblLogFile: TLabel object LblLogFile: TLabel
Left = 48 Left = 48
Height = 17 Height = 20
Top = 69 Top = 69
Width = 150 Width = 258
AutoSize = False
Caption = 'Log-file name and location:' Caption = 'Log-file name and location:'
ParentColor = False ParentColor = False
end end
@ -63,7 +66,7 @@ object MiscellaneousForm: TMiscellaneousForm
Title = 'Log-file selection' Title = 'Log-file selection'
DefaultExt = '.*.log' DefaultExt = '.*.log'
Filter = 'Log files (*.log)|*.log|All files (*.*)|*.*' Filter = 'Log files (*.log)|*.log|All files (*.*)|*.*'
left = 340 Left = 340
top = 32 Top = 32
end end
end end

79
Host/Source/MicroBoot/sessionxcpdialog.lfm
View File

@ -8,12 +8,13 @@ object SessionXcpForm: TSessionXcpForm
ClientWidth = 407 ClientWidth = 407
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.8.2.0' LCLVersion = '2.0.12.0'
object LblTimeouts: TLabel object LblTimeouts: TLabel
Left = 8 Left = 8
Height = 16 Height = 20
Top = 160 Top = 160
Width = 59 Width = 68
AutoSize = False
Caption = 'Timeouts' Caption = 'Timeouts'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -21,15 +22,16 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblTimeoutT1: TLabel object LblTimeoutT1: TLabel
Left = 23 Left = 23
Height = 16 Height = 20
Top = 187 Top = 187
Width = 47 Width = 53
AutoSize = False
Caption = 'T1 (ms):' Caption = 'T1 (ms):'
ParentColor = False ParentColor = False
end end
object EdtTimeoutT1: TEdit object EdtTimeoutT1: TEdit
Left = 80 Left = 80
Height = 28 Height = 23
Hint = 'Command response timeout in milliseconds as a 16-bit value (Default = 1000 ms)' Hint = 'Command response timeout in milliseconds as a 16-bit value (Default = 1000 ms)'
Top = 184 Top = 184
Width = 115 Width = 115
@ -41,15 +43,16 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblTimeoutT3: TLabel object LblTimeoutT3: TLabel
Left = 23 Left = 23
Height = 16 Height = 20
Top = 227 Top = 227
Width = 47 Width = 50
AutoSize = False
Caption = 'T3 (ms):' Caption = 'T3 (ms):'
ParentColor = False ParentColor = False
end end
object EdtTimeoutT3: TEdit object EdtTimeoutT3: TEdit
Left = 80 Left = 80
Height = 28 Height = 23
Hint = 'Start programming timeout in milliseconds as a 16-bit value (Default = 2000 ms)' Hint = 'Start programming timeout in milliseconds as a 16-bit value (Default = 2000 ms)'
Top = 224 Top = 224
Width = 115 Width = 115
@ -61,15 +64,16 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblTimeoutT4: TLabel object LblTimeoutT4: TLabel
Left = 23 Left = 23
Height = 16 Height = 20
Top = 267 Top = 267
Width = 47 Width = 51
AutoSize = False
Caption = 'T4 (ms):' Caption = 'T4 (ms):'
ParentColor = False ParentColor = False
end end
object EdtTimeoutT4: TEdit object EdtTimeoutT4: TEdit
Left = 80 Left = 80
Height = 28 Height = 23
Hint = 'Erase memory timeout in milliseconds as a 16-bit value (Default = 10000 ms)' Hint = 'Erase memory timeout in milliseconds as a 16-bit value (Default = 10000 ms)'
Top = 264 Top = 264
Width = 115 Width = 115
@ -81,15 +85,16 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblTimeoutT5: TLabel object LblTimeoutT5: TLabel
Left = 226 Left = 226
Height = 16 Height = 20
Top = 187 Top = 187
Width = 47 Width = 46
AutoSize = False
Caption = 'T5 (ms):' Caption = 'T5 (ms):'
ParentColor = False ParentColor = False
end end
object EdtTimeoutT5: TEdit object EdtTimeoutT5: TEdit
Left = 280 Left = 280
Height = 28 Height = 23
Hint = 'Program memory and target reset timeout in milliseconds as a 16-bit value (Default = 1000 ms)' Hint = 'Program memory and target reset timeout in milliseconds as a 16-bit value (Default = 1000 ms)'
Top = 184 Top = 184
Width = 115 Width = 115
@ -101,15 +106,16 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblTimeoutT7: TLabel object LblTimeoutT7: TLabel
Left = 226 Left = 226
Height = 16 Height = 20
Top = 267 Top = 267
Width = 47 Width = 46
AutoSize = False
Caption = 'T7 (ms):' Caption = 'T7 (ms):'
ParentColor = False ParentColor = False
end end
object EdtTimeoutT7: TEdit object EdtTimeoutT7: TEdit
Left = 280 Left = 280
Height = 28 Height = 23
Hint = 'Busy wait timer timeout in milliseconds as a 16-bit value (Default = 2000 ms)' Hint = 'Busy wait timer timeout in milliseconds as a 16-bit value (Default = 2000 ms)'
Top = 264 Top = 264
Width = 115 Width = 115
@ -121,9 +127,10 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblConnection: TLabel object LblConnection: TLabel
Left = 8 Left = 8
Height = 16 Height = 20
Top = 8 Top = 8
Width = 74 Width = 80
AutoSize = False
Caption = 'Connection' Caption = 'Connection'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -131,19 +138,20 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblConnectMode: TLabel object LblConnectMode: TLabel
Left = 23 Left = 23
Height = 16 Height = 20
Top = 38 Top = 38
Width = 38 Width = 49
AutoSize = False
Caption = 'Mode:' Caption = 'Mode:'
ParentColor = False ParentColor = False
end end
object CmbConnectMode: TComboBox object CmbConnectMode: TComboBox
Left = 80 Left = 80
Height = 26 Height = 23
Hint = 'Connection mode value sent in the XCP connect command as a 8-bit value (Default=0)' Hint = 'Connection mode value sent in the XCP connect command as a 8-bit value (Default=0)'
Top = 35 Top = 35
Width = 120 Width = 120
ItemHeight = 0 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'0' '0'
@ -411,9 +419,10 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblSecurity: TLabel object LblSecurity: TLabel
Left = 8 Left = 8
Height = 16 Height = 20
Top = 72 Top = 72
Width = 54 Width = 64
AutoSize = False
Caption = 'Security' Caption = 'Security'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -421,15 +430,16 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblSeedKey: TLabel object LblSeedKey: TLabel
Left = 23 Left = 23
Height = 16 Height = 20
Top = 96 Top = 96
Width = 298 Width = 369
AutoSize = False
Caption = 'Select your seed/key algorithm shared library file:' Caption = 'Select your seed/key algorithm shared library file:'
ParentColor = False ParentColor = False
end end
object EdtSeedKey: TEdit object EdtSeedKey: TEdit
Left = 23 Left = 23
Height = 28 Height = 23
Hint = 'Seed/key algorithm shared library filename (Optional)' Hint = 'Seed/key algorithm shared library filename (Optional)'
Top = 120 Top = 120
Width = 281 Width = 281
@ -448,15 +458,16 @@ object SessionXcpForm: TSessionXcpForm
end end
object LblTimeoutT6: TLabel object LblTimeoutT6: TLabel
Left = 224 Left = 224
Height = 16 Height = 20
Top = 227 Top = 227
Width = 47 Width = 50
AutoSize = False
Caption = 'T6 (ms):' Caption = 'T6 (ms):'
ParentColor = False ParentColor = False
end end
object EdtTimeoutT6: TEdit object EdtTimeoutT6: TEdit
Left = 280 Left = 280
Height = 28 Height = 23
Hint = 'Connect response timeout in milliseconds as a 16-bit value (Default = 50 ms)' Hint = 'Connect response timeout in milliseconds as a 16-bit value (Default = 50 ms)'
Top = 224 Top = 224
Width = 115 Width = 115
@ -469,7 +480,7 @@ object SessionXcpForm: TSessionXcpForm
object OpenDialog: TOpenDialog object OpenDialog: TOpenDialog
Filter = 'Shared libraries (*.dll;*.so)|*.dll;*.so|All files (*.*)|*.*' Filter = 'Shared libraries (*.dll;*.so)|*.dll;*.so|All files (*.*)|*.*'
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail] Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 344 Left = 344
top = 31 Top = 31
end end
end end

52
Host/Source/MicroBoot/settingsdialog.lfm
View File

@ -13,7 +13,7 @@ object SettingsForm: TSettingsForm
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnKeyPress = FormKeyPress OnKeyPress = FormKeyPress
Position = poOwnerFormCenter Position = poOwnerFormCenter
LCLVersion = '1.8.2.0' LCLVersion = '2.0.12.0'
object PnlFooter: TPanel object PnlFooter: TPanel
Left = 0 Left = 0
Height = 46 Height = 46
@ -82,37 +82,38 @@ object SettingsForm: TSettingsForm
TabOrder = 0 TabOrder = 0
object TabCommunicationInterface: TTabSheet object TabCommunicationInterface: TTabSheet
Caption = 'Communication Interface' Caption = 'Communication Interface'
ClientHeight = 364 ClientHeight = 367
ClientWidth = 412 ClientWidth = 414
object PnlCommunicationTop: TPanel object PnlCommunicationTop: TPanel
Left = 0 Left = 0
Height = 44 Height = 44
Top = 0 Top = 0
Width = 412 Width = 414
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'PnlCommunicationTop' Caption = 'PnlCommunicationTop'
ClientHeight = 44 ClientHeight = 44
ClientWidth = 412 ClientWidth = 414
Color = clForm Color = clForm
ParentColor = False ParentColor = False
TabOrder = 0 TabOrder = 0
object LblInterface: TLabel object LblInterface: TLabel
Left = 8 Left = 8
Height = 17 Height = 20
Top = 11 Top = 11
Width = 107 Width = 112
AutoSize = False
Caption = 'Interface selection:' Caption = 'Interface selection:'
ParentColor = False ParentColor = False
end end
object CmbInterface: TComboBox object CmbInterface: TComboBox
Left = 120 Left = 120
Height = 27 Height = 23
Hint = 'Select the communication hardware interface to use during firmware updates' Hint = 'Select the communication hardware interface to use during firmware updates'
Top = 8 Top = 8
Width = 200 Width = 200
DropDownCount = 4 DropDownCount = 4
ItemHeight = 0 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'XCP on RS232' 'XCP on RS232'
@ -130,9 +131,9 @@ object SettingsForm: TSettingsForm
end end
object PnlCommunicationBody: TPanel object PnlCommunicationBody: TPanel
Left = 0 Left = 0
Height = 320 Height = 323
Top = 44 Top = 44
Width = 412 Width = 414
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'PnlCommunicationBody' Caption = 'PnlCommunicationBody'
@ -143,27 +144,27 @@ object SettingsForm: TSettingsForm
end end
object TabSessionProtocol: TTabSheet object TabSessionProtocol: TTabSheet
Caption = 'Session Protocol' Caption = 'Session Protocol'
ClientHeight = 364 ClientHeight = 367
ClientWidth = 412 ClientWidth = 414
object PnlSessionTop: TPanel object PnlSessionTop: TPanel
Left = 0 Left = 0
Height = 44 Height = 44
Top = 0 Top = 0
Width = 412 Width = 414
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'PnlSessionTop' Caption = 'PnlSessionTop'
ClientHeight = 44 ClientHeight = 44
ClientWidth = 412 ClientWidth = 414
TabOrder = 0 TabOrder = 0
object CmbProtocol: TComboBox object CmbProtocol: TComboBox
Left = 120 Left = 120
Height = 31 Height = 23
Hint = 'Select the communication protocol to use during firmware updates' Hint = 'Select the communication protocol to use during firmware updates'
Top = 8 Top = 8
Width = 200 Width = 200
DropDownCount = 4 DropDownCount = 4
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'XCP version 1.0' 'XCP version 1.0'
) )
@ -175,18 +176,19 @@ object SettingsForm: TSettingsForm
end end
object LblProtocol: TLabel object LblProtocol: TLabel
Left = 8 Left = 8
Height = 17 Height = 20
Top = 11 Top = 11
Width = 102 Width = 112
AutoSize = False
Caption = 'Protocol selection:' Caption = 'Protocol selection:'
ParentColor = False ParentColor = False
end end
end end
object PnlSessionBody: TPanel object PnlSessionBody: TPanel
Left = 0 Left = 0
Height = 320 Height = 323
Top = 44 Top = 44
Width = 412 Width = 414
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'PnlSessionBody' Caption = 'PnlSessionBody'
@ -195,13 +197,13 @@ object SettingsForm: TSettingsForm
end end
object TabMiscellaneous: TTabSheet object TabMiscellaneous: TTabSheet
Caption = 'Miscellaneous' Caption = 'Miscellaneous'
ClientHeight = 364 ClientHeight = 367
ClientWidth = 412 ClientWidth = 414
object PnlMiscellaneousBody: TPanel object PnlMiscellaneousBody: TPanel
Left = 0 Left = 0
Height = 364 Height = 367
Top = 0 Top = 0
Width = 412 Width = 414
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'PnlMiscellaneousBody' Caption = 'PnlMiscellaneousBody'

46
Host/Source/MicroBoot/transportxcpcandialog.lfm
View File

@ -1,19 +1,20 @@
object TransportXcpCanForm: TTransportXcpCanForm object TransportXcpCanForm: TTransportXcpCanForm
Left = 1287 Left = 550
Height = 308 Height = 308
Top = 261 Top = 357
Width = 407 Width = 407
Caption = 'XCP on CAN' Caption = 'XCP on CAN'
ClientHeight = 308 ClientHeight = 308
ClientWidth = 407 ClientWidth = 407
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.6.4.0' LCLVersion = '2.0.12.0'
object LblCommunication: TLabel object LblCommunication: TLabel
Left = 8 Left = 8
Height = 15 Height = 20
Top = 8 Top = 8
Width = 87 Width = 106
AutoSize = False
Caption = 'Communication' Caption = 'Communication'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -39,9 +40,10 @@ object TransportXcpCanForm: TTransportXcpCanForm
end end
object LblDevice: TLabel object LblDevice: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 38 Top = 38
Width = 38 Width = 88
AutoSize = False
Caption = 'Device:' Caption = 'Device:'
ParentColor = False ParentColor = False
end end
@ -77,9 +79,10 @@ object TransportXcpCanForm: TTransportXcpCanForm
end end
object LblChannel: TLabel object LblChannel: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 78 Top = 78
Width = 47 Width = 88
AutoSize = False
Caption = 'Channel:' Caption = 'Channel:'
ParentColor = False ParentColor = False
end end
@ -108,17 +111,19 @@ object TransportXcpCanForm: TTransportXcpCanForm
end end
object LblBaudrate: TLabel object LblBaudrate: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 118 Top = 118
Width = 50 Width = 90
AutoSize = False
Caption = 'Baudrate:' Caption = 'Baudrate:'
ParentColor = False ParentColor = False
end end
object LblIdentifiers: TLabel object LblIdentifiers: TLabel
Left = 8 Left = 8
Height = 15 Height = 20
Top = 160 Top = 160
Width = 58 Width = 106
AutoSize = False
Caption = 'Identifiers' Caption = 'Identifiers'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -139,9 +144,10 @@ object TransportXcpCanForm: TTransportXcpCanForm
end end
object LblTransmitId: TLabel object LblTransmitId: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 190 Top = 190
Width = 78 Width = 88
AutoSize = False
Caption = 'Transmit (hex):' Caption = 'Transmit (hex):'
ParentColor = False ParentColor = False
end end
@ -160,18 +166,20 @@ object TransportXcpCanForm: TTransportXcpCanForm
end end
object LblReceiveId: TLabel object LblReceiveId: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 230 Top = 230
Width = 72 Width = 89
AutoSize = False
Caption = 'Receive (hex):' Caption = 'Receive (hex):'
ParentColor = False ParentColor = False
end end
object CbxExtended: TCheckBox object CbxExtended: TCheckBox
Left = 120 Left = 120
Height = 19 Height = 20
Hint = 'Check if the CAN identifiers are 29-bit extended (Default = 11-bit standard)' Hint = 'Check if the CAN identifiers are 29-bit extended (Default = 11-bit standard)'
Top = 267 Top = 267
Width = 185 Width = 224
AutoSize = False
Caption = '29-bit extended CAN identifiers' Caption = '29-bit extended CAN identifiers'
OnChange = CbxExtendedChange OnChange = CbxExtendedChange
ParentShowHint = False ParentShowHint = False

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

@ -1,19 +1,20 @@
object TransportXcpRs232Form: TTransportXcpRs232Form object TransportXcpRs232Form: TTransportXcpRs232Form
Left = 1297 Left = 558
Height = 308 Height = 308
Top = 271 Top = 310
Width = 407 Width = 407
Caption = 'XCP on RS232' Caption = 'XCP on RS232'
ClientHeight = 308 ClientHeight = 308
ClientWidth = 407 ClientWidth = 407
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.6.4.0' LCLVersion = '2.0.12.0'
object LlbCommunication: TLabel object LlbCommunication: TLabel
Left = 8 Left = 8
Height = 15 Height = 20
Top = 8 Top = 8
Width = 87 Width = 104
AutoSize = False
Caption = 'Communication' Caption = 'Communication'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -33,9 +34,10 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
end end
object LblDevice: TLabel object LblDevice: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 38 Top = 38
Width = 38 Width = 64
AutoSize = False
Caption = 'Device:' Caption = 'Device:'
ParentColor = False ParentColor = False
end end
@ -62,9 +64,10 @@ object TransportXcpRs232Form: TTransportXcpRs232Form
end end
object LblBaudrate: TLabel object LblBaudrate: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 78 Top = 78
Width = 50 Width = 66
AutoSize = False
Caption = 'Baudrate:' Caption = 'Baudrate:'
ParentColor = False ParentColor = False
end end

25
Host/Source/MicroBoot/transportxcptcpipdialog.lfm
View File

@ -1,19 +1,20 @@
object TransportXcpTcpIpForm: TTransportXcpTcpIpForm object TransportXcpTcpIpForm: TTransportXcpTcpIpForm
Left = 1279 Left = 578
Height = 308 Height = 308
Top = 273 Top = 343
Width = 407 Width = 407
Caption = 'XCP on TCP/IP' Caption = 'XCP on TCP/IP'
ClientHeight = 308 ClientHeight = 308
ClientWidth = 407 ClientWidth = 407
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.6.2.0' LCLVersion = '2.0.12.0'
object LblCommunication: TLabel object LblCommunication: TLabel
Left = 8 Left = 8
Height = 17 Height = 20
Top = 8 Top = 8
Width = 96 Width = 104
AutoSize = False
Caption = 'Communication' Caption = 'Communication'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -21,7 +22,7 @@ object TransportXcpTcpIpForm: TTransportXcpTcpIpForm
end end
object EdtAddress: TEdit object EdtAddress: TEdit
Left = 88 Left = 88
Height = 29 Height = 23
Hint = 'The IP address or hostname of the target to connect to. For example 192.168.178.23 or mydevice.mydomain.com' Hint = 'The IP address or hostname of the target to connect to. For example 192.168.178.23 or mydevice.mydomain.com'
Top = 35 Top = 35
Width = 288 Width = 288
@ -32,7 +33,7 @@ object TransportXcpTcpIpForm: TTransportXcpTcpIpForm
end end
object EdtPort: TEdit object EdtPort: TEdit
Left = 88 Left = 88
Height = 29 Height = 23
Hint = 'The TCP port number to use, as a 16-bit value (Default = 1000)' Hint = 'The TCP port number to use, as a 16-bit value (Default = 1000)'
Top = 75 Top = 75
Width = 144 Width = 144
@ -45,17 +46,19 @@ object TransportXcpTcpIpForm: TTransportXcpTcpIpForm
end end
object LblAddress: TLabel object LblAddress: TLabel
Left = 24 Left = 24
Height = 17 Height = 20
Top = 38 Top = 38
Width = 49 Width = 56
AutoSize = False
Caption = 'Address:' Caption = 'Address:'
ParentColor = False ParentColor = False
end end
object LblPort: TLabel object LblPort: TLabel
Left = 24 Left = 24
Height = 17 Height = 20
Top = 78 Top = 78
Width = 26 Width = 57
AutoSize = False
Caption = 'Port:' Caption = 'Port:'
ParentColor = False ParentColor = False
end end

21
Host/Source/MicroBoot/transportxcpusbdialog.lfm
View File

@ -1,19 +1,20 @@
object TransportXcpUsbForm: TTransportXcpUsbForm object TransportXcpUsbForm: TTransportXcpUsbForm
Left = 1285 Left = 528
Height = 308 Height = 308
Top = 253 Top = 303
Width = 407 Width = 407
Caption = 'XCP on USB' Caption = 'XCP on USB'
ClientHeight = 308 ClientHeight = 308
ClientWidth = 407 ClientWidth = 407
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.6.4.0' LCLVersion = '2.0.12.0'
object LblCommunication: TLabel object LblCommunication: TLabel
Left = 8 Left = 8
Height = 15 Height = 20
Top = 8 Top = 8
Width = 87 Width = 112
AutoSize = False
Caption = 'Communication' Caption = 'Communication'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -47,17 +48,19 @@ object TransportXcpUsbForm: TTransportXcpUsbForm
end end
object LblVID: TLabel object LblVID: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 38 Top = 38
Width = 83 Width = 100
AutoSize = False
Caption = 'Vendor ID (hex):' Caption = 'Vendor ID (hex):'
ParentColor = False ParentColor = False
end end
object LblPID: TLabel object LblPID: TLabel
Left = 24 Left = 24
Height = 15 Height = 20
Top = 78 Top = 78
Width = 88 Width = 97
AutoSize = False
Caption = 'Product ID (hex):' Caption = 'Product ID (hex):'
ParentColor = False ParentColor = False
end end