diff --git a/Host/Source/MicroBoot/MicroBoot.lpi b/Host/Source/MicroBoot/MicroBoot.lpi index d9c64936..7c54cebf 100644 --- a/Host/Source/MicroBoot/MicroBoot.lpi +++ b/Host/Source/MicroBoot/MicroBoot.lpi @@ -1,7 +1,7 @@ - + diff --git a/Host/Source/MicroBoot/MicroBoot.lps b/Host/Source/MicroBoot/MicroBoot.lps index ee271494..c43352de 100644 --- a/Host/Source/MicroBoot/MicroBoot.lps +++ b/Host/Source/MicroBoot/MicroBoot.lps @@ -1,7 +1,7 @@ - + @@ -19,7 +19,6 @@ - @@ -48,10 +47,12 @@ - - - + + + + + @@ -60,7 +61,7 @@ - + @@ -152,8 +153,8 @@ - - + + @@ -173,7 +174,7 @@ - + @@ -298,122 +299,122 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - - + + - + - + - + - + - + - + - + - + - + - + - + diff --git a/Host/Source/MicroBoot/MicroBoot.res b/Host/Source/MicroBoot/MicroBoot.res index f5bff5ee..7c74ea2d 100644 Binary files a/Host/Source/MicroBoot/MicroBoot.res and b/Host/Source/MicroBoot/MicroBoot.res differ diff --git a/Host/Source/MicroBoot/configgroups.pas b/Host/Source/MicroBoot/configgroups.pas index c7caad9f..98d21ddc 100644 --- a/Host/Source/MicroBoot/configgroups.pas +++ b/Host/Source/MicroBoot/configgroups.pas @@ -221,7 +221,7 @@ end; //*** end of Create *** //*************************************************************************************** procedure TMainWindowConfig.Defaults; begin - FWidth := 500; + FWidth := 520; FHeight := 180; end; //*** end of Defaults *** diff --git a/Host/Source/MicroBoot/firmwareupdate.pas b/Host/Source/MicroBoot/firmwareupdate.pas index 7b733e95..fdf5cd6a 100644 --- a/Host/Source/MicroBoot/firmwareupdate.pas +++ b/Host/Source/MicroBoot/firmwareupdate.pas @@ -487,7 +487,7 @@ begin if BltSessionStart() <> BLT_RESULT_OK then begin // Not yet successful. Request the user to reset the system if it takes too long. - FInfoString := 'Connecting to the target (reset your target if this takes long time)'; + FInfoString := 'Connecting to the target (reset your target if this takes a long time)'; Synchronize(@SynchronizeInfoEvent); // Update the log. FLogString := 'First connection attempt failed'; diff --git a/Host/Source/MicroBoot/mainunit.lfm b/Host/Source/MicroBoot/mainunit.lfm index 53769ab4..f26fcc5c 100644 --- a/Host/Source/MicroBoot/mainunit.lfm +++ b/Host/Source/MicroBoot/mainunit.lfm @@ -2,13 +2,13 @@ object MainForm: TMainForm Left = 505 Height = 180 Top = 293 - Width = 500 + Width = 520 ActiveControl = BtnBrowse Caption = 'MicroBoot' ClientHeight = 180 - ClientWidth = 500 + ClientWidth = 520 Constraints.MinHeight = 180 - Constraints.MinWidth = 500 + Constraints.MinWidth = 520 Icon.Data = { BE0800000000010001002020000000000000A808000016000000280000002000 0000400000000100080000000000800400000000000000000000000100000000 @@ -85,20 +85,20 @@ object MainForm: TMainForm OnCreate = FormCreate OnDestroy = FormDestroy Position = poScreenCenter - LCLVersion = '1.6.2.0' + LCLVersion = '1.8.2.0' object PnlBody: TPanel Left = 0 Height = 84 Top = 50 - Width = 500 + Width = 520 Align = alClient BevelInner = bvLowered Caption = 'PnlBody' ClientHeight = 84 - ClientWidth = 500 + ClientWidth = 520 TabOrder = 0 object PnlBodyRight: TPanel - Left = 400 + Left = 420 Height = 80 Top = 2 Width = 98 @@ -124,12 +124,12 @@ object MainForm: TMainForm Left = 2 Height = 80 Top = 2 - Width = 398 + Width = 418 Align = alClient BevelOuter = bvNone Caption = 'PnlBodyMain' ClientHeight = 80 - ClientWidth = 398 + ClientWidth = 418 Color = clForm ParentColor = False TabOrder = 1 @@ -138,7 +138,7 @@ object MainForm: TMainForm Left = 16 Height = 28 Top = 34 - Width = 379 + Width = 399 Position = 35 Smooth = True Step = 1 @@ -146,9 +146,9 @@ object MainForm: TMainForm end object LblFirmwareUpdateInfo: TLabel Left = 16 - Height = 17 + Height = 16 Top = 14 - Width = 132 + Width = 143 Caption = 'LblFirmwareUpdateInfo' ParentColor = False end @@ -158,17 +158,17 @@ object MainForm: TMainForm Left = 0 Height = 46 Top = 134 - Width = 500 + Width = 520 Align = alBottom BevelOuter = bvNone Caption = 'PnlFooter' ClientHeight = 46 - ClientWidth = 500 + ClientWidth = 520 Color = clForm ParentColor = False TabOrder = 1 object PnlFooterButtons: TPanel - Left = 306 + Left = 326 Height = 46 Top = 0 Width = 194 @@ -199,9 +199,9 @@ object MainForm: TMainForm end object LblElapsedTime: TLabel Left = 16 - Height = 17 + Height = 16 Top = 14 - Width = 88 + Width = 96 Caption = 'LblElapsedTime' ParentColor = False end @@ -210,17 +210,17 @@ object MainForm: TMainForm Left = 0 Height = 50 Top = 0 - Width = 500 + Width = 520 Align = alTop BevelOuter = bvNone Caption = 'PnlHeader' ClientHeight = 50 - ClientWidth = 500 + ClientWidth = 520 Color = clForm ParentColor = False TabOrder = 2 object ImgHeader: TImage - Left = 448 + Left = 468 Height = 50 Top = 0 Width = 52 @@ -302,9 +302,9 @@ object MainForm: TMainForm end object LblProgramName: TLabel Left = 8 - Height = 17 + Height = 16 Top = 8 - Width = 60 + Width = 68 Caption = 'MicroBoot' Font.Style = [fsBold] ParentColor = False @@ -312,9 +312,9 @@ object MainForm: TMainForm end object LblProgramConfig: TLabel Left = 16 - Height = 17 + Height = 16 Top = 29 - Width = 101 + Width = 112 Caption = 'LblProgramConfig' ParentColor = False end