More Information on automated upload of program to Arduino SPS

SPS_EMU.000

@@ -2,9 +2,9 @@
 LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
-CompileDate=02.11.2020
-CompileTime=16:30:36
+CompileDate=30.12.2020
+CompileTime=18:00:02
 Name=Wilfried Klaas
-LSUBinFile=H:\privat\git-sourcen\SPS_Emulator\SPS_Emu.lsu
-LSUTextFile=H:\privat\git-sourcen\SPS_Emulator\SPS_Emu.
+LSUBinFile=E:\DATEN\Git-box\SPS_Emulator\SPS_Emu.lsu
+LSUTextFile=E:\DATEN\Git-box\SPS_Emulator\SPS_Emu.
 RegString=

SPS_EMU.001

@@ -171,12 +171,16 @@ ID_START_LINE=Addr   BD   Inst.    Data      Comment
 [MessagesMSG]
 ID_MB_WARNINGT=Warning
 ID_MB_QUESTIONT=Question
+ID_MB_INFOT=Information
 SAVE_CHANGESM=The program has been changed. Do you want to save the changes?
+ID_UPLOAD_OKM=Pogram uploaded.
+ID_NOT_READYM=Arduino not responding. Maybe not connected, SEL not pressed oder wrong firmware version^?
 
 [frmSelectComCaptions]
 ID_COMPORT=Port
 ID_ARDUINO_INST=Arduino installation
 ID_COMMENT=Please select the port of the arduino.
+ID_COMMAND_HINT=To upload, please hold the SEL button down until a message appears.
 
 [frmSelectComHints]
 ID_COMPORT=Com Port

SPS_EMU.044

@@ -170,12 +170,16 @@ ID_START_LINE=Addr   BD   Inst.    Data      Comment
 [MessagesMSG]
 ID_MB_WARNINGT=Warning
 ID_MB_QUESTIONT=Question
+ID_MB_INFOT=Information
 SAVE_CHANGESM=The program has been changed. Do you want to save the changes?
+ID_UPLOAD_OKM=Pogram uploaded.
+ID_NOT_READYM=Arduino not responding. Maybe not connected, SEL not pressed oder wrong firmware version^?
 
 [frmSelectComCaptions]
 ID_COMPORT=Port
 ID_ARDUINO_INST=Arduino installation
 ID_COMMENT=Please select the port of the arduino.
+ID_COMMAND_HINT=To upload, please hold the SEL button down until a message appears.
 
 [frmSelectComHints]
 ID_COMPORT=Com Port

SPS_EMU.049

@@ -171,12 +171,16 @@ ID_START_LINE=Addr   BD   Befehl   Daten     Kommentar
 [MessagesMSG]
 ID_MB_WARNINGT=Warnung
 ID_MB_QUESTIONT=Frage
+ID_MB_INFOT=Information
 SAVE_CHANGESM=Die Datei wurde geändert. Wollen Sie die Änderungen speichern?
+ID_UPLOAD_OKM=Pogramm übertragen.
+ID_NOT_READYM=Arduino antwortet nicht. Evtl. Arduino nicht angeschlossen, SEL nicht gedrückt oder falsche Firmware?
 
 [frmSelectComCaptions]
 ID_COMPORT=Schnittstelle
 ID_ARDUINO_INST=Arduinoinstallation
 ID_COMMENT=Bitte wählen Sie die Schnittstelle des Arduino.
+ID_COMMAND_HINT=Zum Upload halten Sie bitte die SEL Taste gedrückt bis eine Meldung erscheint.
 
 [frmSelectComHints]
 ID_COMPORT=

SPS_Emu.lpi

@@ -10,7 +10,8 @@
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <XPManifest>
-        <DpiAware Value="True"/>
+        <DpiAware Value="Per-monitor"/>
+        <ExecutionLevel Value="highestAvailable"/>
       </XPManifest>
       <Icon Value="0"/>
     </General>
@@ -22,7 +23,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="69"/>
+      <BuildNr Value="72"/>
       <Language Value="0407"/>
       <StringTable CompanyName="MCS" FileDescription="TPS/SPS Emulator" InternalName="SPS_EMU" LegalCopyright="MCS (C) Wilfried Klaas" OriginalFilename="SPS_EMU.exe" ProductName="TPS/SPS Emulator" ProductVersion="0.2"/>
     </VersionInfo>

ugui.lfm

@@ -1,7 +1,7 @@
 object Form1: TForm1
-  Left = 496
+  Left = 234
   Height = 584
-  Top = 115
+  Top = 113
   Width = 751
   AllowDropFiles = True
   Caption = 'SPS Emulator'

ugui.pas

@@ -1035,10 +1035,10 @@ begin
 
       if (error) then
       begin
-        Application.MessageBox(
-          'Arduino antwortet nicht. Evtl. Arduino nicht angeschlossen oder falsche Firmware?',
-          'Keine Antwort',
-          MB_OK + MB_ICONEXCLAMATION);
+        LSUAutoMsgBox('Messages', 'ID_NOT_READY', MB_OK + MB_ICONERROR);
+      end else
+      begin
+        LSUAutoMsgBox('Messages', 'ID_UPLOAD_OK', MB_OK + MB_ICONINFORMATION);
       end;
       SdpoSerial1.Active := False;
       DeleteFile(hexFile);

uselectcom.lfm

@@ -9,7 +9,7 @@ object frmSelectCom: TfrmSelectCom
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.8.4.0'
+  LCLVersion = '2.0.10.0'
   object ButtonPanel1: TButtonPanel
     Left = 6
     Height = 34
@@ -30,10 +30,10 @@ object frmSelectCom: TfrmSelectCom
     AnchorSideTop.Control = cbServices
     AnchorSideTop.Side = asrCenter
     AnchorSideRight.Side = asrBottom
-    Left = 78
+    Left = 79
     Height = 15
     Top = 52
-    Width = 73
+    Width = 72
     Anchors = [akTop, akRight]
     Caption = 'ID_COMPORT'
     ParentColor = False
@@ -49,13 +49,26 @@ object frmSelectCom: TfrmSelectCom
   end
   object Label2: TLabel
     AnchorSideRight.Side = asrBottom
-    Left = 0
+    Left = 4
     Height = 15
-    Top = 0
-    Width = 401
+    Top = 4
+    Width = 393
     Align = alTop
+    BorderSpacing.Around = 4
     Caption = 'ID_COMMENT'
     ParentColor = False
     WordWrap = True
   end
+  object Label3: TLabel
+    Left = 4
+    Height = 39
+    Top = 87
+    Width = 393
+    Align = alBottom
+    AutoSize = False
+    BorderSpacing.Around = 4
+    Caption = 'ID_COMMAND_HINT'
+    ParentColor = False
+    WordWrap = True
+  end
 end

uselectcom.pas

@@ -17,6 +17,7 @@ type
     cbServices: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private