new version

SPS_EMU.000

@@ -3,8 +3,8 @@ LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
 CompileDate=15.11.2018
-CompileTime=14:52:21
+CompileTime=23:25:25
 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-sourcen\SPS_Emulator\SPS_Emu.lsu
+LSUTextFile=E:\daten\git-sourcen\SPS_Emulator\SPS_Emu.
 RegString=

SPS_EMU.001

@@ -1,4 +1,3 @@
-
 [LSUOptions]
 LSUTextFile=1
 
@@ -17,6 +16,9 @@ ID_EXEC_NEXT=Next step
 ID_EXEC_STOP=Stop execution
 ID_EXEC_DEBUG=Debug program
 ID_ABOUT=&About
+ID_RESETPRESETS=R
+ID_SAVEPRESETS=S
+ID_LOADPRESETS=L
 
 [form1ButtonHints]
 ID_EXIT=Exit the program
@@ -33,6 +35,9 @@ ID_EXEC_NEXT=Execute the next step
 ID_EXEC_STOP=Stop the debug program execution
 ID_EXEC_DEBUG=Start/stop the program
 ID_ABOUT=About this program
+ID_RESETPRESETS=reset all presets
+ID_SAVEPRESETS=save presets to file
+ID_LOADPRESETS=load presets from file
 
 [infobox]
 ID_APPTITLE=TPS/PLC Emulator
@@ -165,4 +170,4 @@ ID_COMMENT=Please select the port of the arduino and the path to the arduino ins
 [frmSelectComHints]
 ID_COMPORT=Com Port
 ID_ARDUINO_INST=Arduino installtion
-ID_COMMENT=Comment
+ID_COMMENT=Comment

SPS_EMU.044

@@ -1,4 +1,3 @@
-
 [LSUOptions]
 LSUTextFile=1
 
@@ -17,6 +16,9 @@ ID_EXEC_NEXT=Next step
 ID_EXEC_STOP=Stop debug execution
 ID_EXEC_DEBUG=Start/stop the program
 ID_ABOUT=&About
+ID_RESETPRESETS=R
+ID_SAVEPRESETS=S
+ID_LOADPRESETS=L
 
 [form1ButtonHints]
 ID_EXIT=Exit the program
@@ -33,6 +35,9 @@ ID_EXEC_NEXT=Execute the next step
 ID_EXEC_STOP=Stop the debug program execution
 ID_EXEC_DEBUG=Start/stop the program
 ID_ABOUT=About this program
+ID_RESETPRESETS=reset all presets
+ID_SAVEPRESETS=save presets to file
+ID_LOADPRESETS=load presets from file
 
 [infobox]
 ID_APPTITLE=TPS/PLC Emulator
@@ -165,4 +170,4 @@ ID_COMMENT=Please select the port of the arduino and the path to the arduino ins
 [frmSelectComHints]
 ID_COMPORT=Com Port
 ID_ARDUINO_INST=Arduino installtion
-ID_COMMENT=Comment
+ID_COMMENT=Comment

SPS_EMU.049

@@ -1,5 +1,4 @@
-
-[LSUOptions]
+[LSUOptions]
 LSUTextFile=1
 
 [form1Buttons]
@@ -17,6 +16,9 @@ ID_EXEC_NEXT=Nächster Schritt
 ID_EXEC_STOP=Debuggen stoppen
 ID_EXEC_DEBUG=Programm starten/stoppen
 ID_ABOUT=&Über
+ID_RESETPRESETS=R
+ID_SAVEPRESETS=S
+ID_LOADPRESETS=L
 
 [form1ButtonHints]
 ID_EXIT=Beenden
@@ -33,6 +35,9 @@ ID_EXEC_NEXT=Nächsten Schritt ausführen
 ID_EXEC_STOP=Debuggen stoppen
 ID_EXEC_DEBUG=Programm starten/stoppen
 ID_ABOUT=Über dieses Programm
+ID_RESETPRESETS=Einstellungen zurücksetzen
+ID_LOADPRESETS=Presets aus Datei laden
+ID_SAVEPRESETS=Presets in Datei speichern
 
 [infobox]
 ID_APPTITLE=TPS/SPS Emulator
@@ -166,3 +171,5 @@ ID_COMMENT=Bitte wählen Sie die Schnittstelle des Arduino und den Ort der Ardui
 ID_COMPORT=
 ID_ARDUINO_INST=
 ID_COMMENT=
+[LSUOptions]
+LSUTextFile=1

SPS_Emu.lpi

@@ -22,7 +22,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="52"/>
+      <BuildNr Value="55"/>
       <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 = -1685
+  Left = 228
   Height = 582
-  Top = 146
+  Top = 105
   Width = 691
   AllowDropFiles = True
   Caption = 'SPS Emulator'
@@ -9,7 +9,6 @@ object Form1: TForm1
   ClientWidth = 691
   Constraints.MinHeight = 582
   Constraints.MinWidth = 684
-  DesignTimePPI = 120
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDropFiles = FormDropFiles
@@ -18,27 +17,27 @@ object Form1: TForm1
   LCLVersion = '1.8.4.0'
   object Panel1: TPanel
     Left = 367
-    Height = 527
+    Height = 533
     Top = 26
     Width = 324
     Align = alRight
     BevelOuter = bvNone
     BorderStyle = bsSingle
-    ClientHeight = 523
+    ClientHeight = 529
     ClientWidth = 320
     TabOrder = 0
-    object GroupBox1: TGroupBox
+    object GBOutput: TGroupBox
       Left = 182
       Height = 294
       Top = 5
       Width = 134
       Caption = 'ID_OUTPUT'
-      ClientHeight = 269
+      ClientHeight = 274
       ClientWidth = 130
       TabOrder = 0
       object PWM1: TLabeledEdit
         Left = 57
-        Height = 28
+        Height = 23
         Top = 120
         Width = 40
         EditLabel.AnchorSideTop.Control = PWM1
@@ -46,10 +45,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = PWM1
         EditLabel.AnchorSideBottom.Control = PWM1
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 8
-        EditLabel.Height = 20
+        EditLabel.Left = 16
+        EditLabel.Height = 15
         EditLabel.Top = 124
-        EditLabel.Width = 46
+        EditLabel.Width = 38
         EditLabel.Caption = 'PWM.1'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -58,7 +57,7 @@ object Form1: TForm1
       end
       object PWM2: TLabeledEdit
         Left = 57
-        Height = 28
+        Height = 23
         Top = 148
         Width = 40
         EditLabel.AnchorSideTop.Control = PWM2
@@ -66,10 +65,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = PWM2
         EditLabel.AnchorSideBottom.Control = PWM2
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 8
-        EditLabel.Height = 20
+        EditLabel.Left = 16
+        EditLabel.Height = 15
         EditLabel.Top = 152
-        EditLabel.Width = 46
+        EditLabel.Width = 38
         EditLabel.Caption = 'PWM.2'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -78,33 +77,33 @@ object Form1: TForm1
       end
       object Label10: TLabel
         Left = 6
-        Height = 20
+        Height = 15
         Top = 25
-        Width = 90
+        Width = 73
         Caption = 'ID_OUTPUT_1'
         ParentColor = False
       end
       object Label11: TLabel
         Left = 6
-        Height = 20
+        Height = 15
         Top = 47
-        Width = 90
+        Width = 73
         Caption = 'ID_OUTPUT_2'
         ParentColor = False
       end
       object Label12: TLabel
         Left = 6
-        Height = 20
+        Height = 15
         Top = 71
-        Width = 90
+        Width = 73
         Caption = 'ID_OUTPUT_3'
         ParentColor = False
       end
       object Label13: TLabel
         Left = 6
-        Height = 20
+        Height = 15
         Top = 95
-        Width = 90
+        Width = 73
         Caption = 'ID_OUTPUT_4'
         ParentColor = False
       end
@@ -138,7 +137,7 @@ object Form1: TForm1
       end
       object Servo1: TLabeledEdit
         Left = 57
-        Height = 28
+        Height = 23
         Top = 178
         Width = 40
         EditLabel.AnchorSideTop.Control = Servo1
@@ -146,10 +145,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = Servo1
         EditLabel.AnchorSideBottom.Control = Servo1
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 6
-        EditLabel.Height = 20
+        EditLabel.Left = 16
+        EditLabel.Height = 15
         EditLabel.Top = 182
-        EditLabel.Width = 48
+        EditLabel.Width = 38
         EditLabel.Caption = 'Servo.1'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -158,7 +157,7 @@ object Form1: TForm1
       end
       object Servo2: TLabeledEdit
         Left = 57
-        Height = 28
+        Height = 23
         Top = 205
         Width = 40
         EditLabel.AnchorSideTop.Control = Servo2
@@ -166,10 +165,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = Servo2
         EditLabel.AnchorSideBottom.Control = Servo2
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 6
-        EditLabel.Height = 20
+        EditLabel.Left = 16
+        EditLabel.Height = 15
         EditLabel.Top = 209
-        EditLabel.Width = 48
+        EditLabel.Width = 38
         EditLabel.Caption = 'Servo.2'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -194,9 +193,9 @@ object Form1: TForm1
       end
       object Label5: TLabel
         Left = 16
-        Height = 20
+        Height = 15
         Top = 240
-        Width = 32
+        Width = 26
         Caption = 'Tone'
         ParentColor = False
       end
@@ -210,54 +209,54 @@ object Form1: TForm1
         TabOrder = 4
       end
     end
-    object GroupBox2: TGroupBox
+    object GBInput: TGroupBox
       Left = 4
       Height = 294
       Top = 5
       Width = 172
       Caption = 'ID_INPUT'
-      ClientHeight = 269
+      ClientHeight = 274
       ClientWidth = 168
       TabOrder = 1
       object Din4: TCheckBox
         Left = 14
-        Height = 24
+        Height = 19
         Top = 95
-        Width = 100
+        Width = 81
         Caption = 'ID_INPUT_4'
         ParentBidiMode = False
         TabOrder = 0
       end
       object Din3: TCheckBox
         Left = 14
-        Height = 24
+        Height = 19
         Top = 71
-        Width = 100
+        Width = 81
         Caption = 'ID_INPUT_3'
         ParentBidiMode = False
         TabOrder = 1
       end
       object Din2: TCheckBox
         Left = 14
-        Height = 24
+        Height = 19
         Top = 47
-        Width = 100
+        Width = 81
         Caption = 'ID_INPUT_2'
         ParentBidiMode = False
         TabOrder = 2
       end
       object Din1: TCheckBox
         Left = 14
-        Height = 24
+        Height = 19
         Top = 25
-        Width = 100
+        Width = 81
         Caption = 'ID_INPUT_1'
         ParentBidiMode = False
         TabOrder = 3
       end
       object ADC1: TSpinEdit
         Left = 62
-        Height = 28
+        Height = 23
         Top = 120
         Width = 54
         MaxValue = 255
@@ -265,7 +264,7 @@ object Form1: TForm1
       end
       object ADC2: TSpinEdit
         Left = 62
-        Height = 28
+        Height = 23
         Top = 148
         Width = 54
         MaxValue = 255
@@ -273,23 +272,23 @@ object Form1: TForm1
       end
       object Label1: TLabel
         Left = 14
-        Height = 20
+        Height = 15
         Top = 127
-        Width = 41
+        Width = 33
         Caption = 'ADC.1'
         ParentColor = False
       end
       object Label2: TLabel
         Left = 14
-        Height = 20
+        Height = 15
         Top = 154
-        Width = 41
+        Width = 33
         Caption = 'ADC.2'
         ParentColor = False
       end
       object RC1: TSpinEdit
         Left = 62
-        Height = 28
+        Height = 23
         Top = 177
         Width = 54
         MaxValue = 255
@@ -297,7 +296,7 @@ object Form1: TForm1
       end
       object RC2: TSpinEdit
         Left = 62
-        Height = 28
+        Height = 23
         Top = 205
         Width = 54
         MaxValue = 255
@@ -305,17 +304,17 @@ object Form1: TForm1
       end
       object Label16: TLabel
         Left = 14
-        Height = 20
+        Height = 15
         Top = 183
-        Width = 29
+        Width = 24
         Caption = 'RC.1'
         ParentColor = False
       end
       object Label17: TLabel
         Left = 14
-        Height = 20
+        Height = 15
         Top = 211
-        Width = 29
+        Width = 24
         Caption = 'RC.2'
         ParentColor = False
       end
@@ -337,7 +336,7 @@ object Form1: TForm1
       end
       object ToolBar2: TToolBar
         Left = 133
-        Height = 269
+        Height = 274
         Top = 0
         Width = 35
         Align = alRight
@@ -359,7 +358,7 @@ object Form1: TForm1
         object tbPreset2: TToolButton
           Left = 3
           Hint = 'Zum Speichern der Eingangsparameter bitte rechte Maustaste über den jeweiligen Button betätigen.'
-          Top = 30
+          Top = 25
           Caption = '2'
           OnClick = tbPreset1Click
           OnContextPopup = tbPreset1ContextPopup
@@ -367,7 +366,7 @@ object Form1: TForm1
         object tbPreset3: TToolButton
           Left = 3
           Hint = 'Zum Speichern der Eingangsparameter bitte rechte Maustaste über den jeweiligen Button betätigen.'
-          Top = 58
+          Top = 48
           Caption = '3'
           OnClick = tbPreset1Click
           OnContextPopup = tbPreset1ContextPopup
@@ -375,7 +374,7 @@ object Form1: TForm1
         object tbPreset4: TToolButton
           Left = 3
           Hint = 'Zum Speichern der Eingangsparameter bitte rechte Maustaste über den jeweiligen Button betätigen.'
-          Top = 86
+          Top = 71
           Caption = '4'
           OnClick = tbPreset1Click
           OnContextPopup = tbPreset1ContextPopup
@@ -383,7 +382,7 @@ object Form1: TForm1
         object tbPreset5: TToolButton
           Left = 3
           Hint = 'Zum Speichern der Eingangsparameter bitte rechte Maustaste über den jeweiligen Button betätigen.'
-          Top = 114
+          Top = 94
           Caption = '5'
           OnClick = tbPreset1Click
           OnContextPopup = tbPreset1ContextPopup
@@ -391,7 +390,7 @@ object Form1: TForm1
         object tbPreset6: TToolButton
           Left = 3
           Hint = 'Zum Speichern der Eingangsparameter bitte rechte Maustaste über den jeweiligen Button betätigen.'
-          Top = 142
+          Top = 117
           Caption = '6'
           OnClick = tbPreset1Click
           OnContextPopup = tbPreset1ContextPopup
@@ -399,7 +398,7 @@ object Form1: TForm1
         object tbPreset7: TToolButton
           Left = 3
           Hint = 'Zum Speichern der Eingangsparameter bitte rechte Maustaste über den jeweiligen Button betätigen.'
-          Top = 170
+          Top = 140
           Caption = '7'
           OnClick = tbPreset1Click
           OnContextPopup = tbPreset1ContextPopup
@@ -407,42 +406,44 @@ object Form1: TForm1
         object tbPreset8: TToolButton
           Left = 3
           Hint = 'Zum Speichern der Eingangsparameter bitte rechte Maustaste über den jeweiligen Button betätigen.'
-          Top = 198
+          Top = 163
           Caption = '8'
           OnClick = tbPreset1Click
           OnContextPopup = tbPreset1ContextPopup
         end
         object tbReset: TToolButton
           Left = 3
-          Hint = 'EInstellungen zurücksetzen'
-          Top = 226
-          Caption = 'R'
+          Hint = 'ID_RESETPRESETS'
+          Top = 186
+          Caption = 'ID_RESETPRESETS'
           OnClick = tbResetClick
         end
         object tbPreLoad: TToolButton
-          Left = 33
-          Top = 2
+          Left = 3
+          Top = 209
           Action = acPresetLoad
+          Caption = 'ID_LOADPRESETS'
         end
         object tbPreSave: TToolButton
-          Left = 33
-          Top = 30
+          Left = 3
+          Top = 232
           Action = acPresetSave
+          Caption = 'ID_SAVEPRESETS'
         end
       end
     end
-    object GroupBox3: TGroupBox
+    object GBInternal: TGroupBox
       Left = 4
       Height = 142
       Top = 304
       Width = 312
       Caption = 'ID_INTERNAL_DATA'
-      ClientHeight = 117
+      ClientHeight = 122
       ClientWidth = 308
       TabOrder = 2
       object EditA: TLabeledEdit
         Left = 22
-        Height = 28
+        Height = 23
         Top = 4
         Width = 40
         EditLabel.AnchorSideTop.Control = EditA
@@ -450,10 +451,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditA
         EditLabel.AnchorSideBottom.Control = EditA
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 9
-        EditLabel.Height = 20
+        EditLabel.Left = 11
+        EditLabel.Height = 15
         EditLabel.Top = 8
-        EditLabel.Width = 10
+        EditLabel.Width = 8
         EditLabel.Caption = 'A'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -462,7 +463,7 @@ object Form1: TForm1
       end
       object EditC: TLabeledEdit
         Left = 22
-        Height = 28
+        Height = 23
         Top = 32
         Width = 40
         EditLabel.AnchorSideTop.Control = EditC
@@ -470,10 +471,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditC
         EditLabel.AnchorSideBottom.Control = EditC
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 10
-        EditLabel.Height = 20
+        EditLabel.Left = 11
+        EditLabel.Height = 15
         EditLabel.Top = 36
-        EditLabel.Width = 9
+        EditLabel.Width = 8
         EditLabel.Caption = 'C'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -482,7 +483,7 @@ object Form1: TForm1
       end
       object EditE: TLabeledEdit
         Left = 22
-        Height = 28
+        Height = 23
         Top = 60
         Width = 40
         EditLabel.AnchorSideTop.Control = EditE
@@ -490,10 +491,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditE
         EditLabel.AnchorSideBottom.Control = EditE
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 11
-        EditLabel.Height = 20
+        EditLabel.Left = 13
+        EditLabel.Height = 15
         EditLabel.Top = 64
-        EditLabel.Width = 8
+        EditLabel.Width = 6
         EditLabel.Caption = 'E'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -502,7 +503,7 @@ object Form1: TForm1
       end
       object EditB: TLabeledEdit
         Left = 86
-        Height = 28
+        Height = 23
         Top = 4
         Width = 40
         EditLabel.AnchorSideTop.Control = EditB
@@ -510,10 +511,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditB
         EditLabel.AnchorSideBottom.Control = EditB
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 74
-        EditLabel.Height = 20
+        EditLabel.Left = 76
+        EditLabel.Height = 15
         EditLabel.Top = 8
-        EditLabel.Width = 9
+        EditLabel.Width = 7
         EditLabel.Caption = 'B'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -522,7 +523,7 @@ object Form1: TForm1
       end
       object EditD: TLabeledEdit
         Left = 86
-        Height = 28
+        Height = 23
         Top = 32
         Width = 40
         EditLabel.AnchorSideTop.Control = EditD
@@ -530,10 +531,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditD
         EditLabel.AnchorSideBottom.Control = EditD
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 72
-        EditLabel.Height = 20
+        EditLabel.Left = 75
+        EditLabel.Height = 15
         EditLabel.Top = 36
-        EditLabel.Width = 11
+        EditLabel.Width = 8
         EditLabel.Caption = 'D'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -542,7 +543,7 @@ object Form1: TForm1
       end
       object EditF: TLabeledEdit
         Left = 86
-        Height = 28
+        Height = 23
         Top = 60
         Width = 40
         EditLabel.AnchorSideTop.Control = EditF
@@ -550,10 +551,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditF
         EditLabel.AnchorSideBottom.Control = EditF
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 76
-        EditLabel.Height = 20
+        EditLabel.Left = 77
+        EditLabel.Height = 15
         EditLabel.Top = 64
-        EditLabel.Width = 7
+        EditLabel.Width = 6
         EditLabel.Caption = 'F'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -562,7 +563,7 @@ object Form1: TForm1
       end
       object EditAddr: TLabeledEdit
         Left = 174
-        Height = 28
+        Height = 23
         Top = 4
         Width = 48
         EditLabel.AnchorSideTop.Control = EditAddr
@@ -570,10 +571,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditAddr
         EditLabel.AnchorSideBottom.Control = EditAddr
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 138
-        EditLabel.Height = 20
+        EditLabel.Left = 145
+        EditLabel.Height = 15
         EditLabel.Top = 8
-        EditLabel.Width = 33
+        EditLabel.Width = 26
         EditLabel.Caption = 'Addr'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -582,7 +583,7 @@ object Form1: TForm1
       end
       object EditRAdr: TLabeledEdit
         Left = 174
-        Height = 28
+        Height = 23
         Hint = 'Rücksprungadresse'
         Top = 60
         Width = 48
@@ -591,10 +592,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditRAdr
         EditLabel.AnchorSideBottom.Control = EditRAdr
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 138
-        EditLabel.Height = 20
+        EditLabel.Left = 145
+        EditLabel.Height = 15
         EditLabel.Top = 64
-        EditLabel.Width = 33
+        EditLabel.Width = 26
         EditLabel.Caption = 'RAdr'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -611,15 +612,15 @@ object Form1: TForm1
       end
       object Label4: TLabel
         Left = 232
-        Height = 20
+        Height = 15
         Top = 8
-        Width = 35
+        Width = 28
         Caption = 'Stack'
         ParentColor = False
       end
       object EditDelay: TLabeledEdit
         Left = 174
-        Height = 28
+        Height = 23
         Top = 88
         Width = 48
         EditLabel.AnchorSideTop.Control = EditDelay
@@ -627,10 +628,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditDelay
         EditLabel.AnchorSideBottom.Control = EditDelay
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 133
-        EditLabel.Height = 20
+        EditLabel.Left = 142
+        EditLabel.Height = 15
         EditLabel.Top = 92
-        EditLabel.Width = 38
+        EditLabel.Width = 29
         EditLabel.Caption = 'Delay'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -639,7 +640,7 @@ object Form1: TForm1
       end
       object EditPage: TLabeledEdit
         Left = 174
-        Height = 28
+        Height = 23
         Top = 32
         Width = 48
         EditLabel.AnchorSideTop.Control = EditPage
@@ -647,10 +648,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditPage
         EditLabel.AnchorSideBottom.Control = EditPage
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 139
-        EditLabel.Height = 20
+        EditLabel.Left = 145
+        EditLabel.Height = 15
         EditLabel.Top = 36
-        EditLabel.Width = 32
+        EditLabel.Width = 26
         EditLabel.Caption = 'Page'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -659,7 +660,7 @@ object Form1: TForm1
       end
       object EditJump: TLabeledEdit
         Left = 86
-        Height = 28
+        Height = 23
         Top = 88
         Width = 40
         EditLabel.AnchorSideTop.Control = EditJump
@@ -667,10 +668,10 @@ object Form1: TForm1
         EditLabel.AnchorSideRight.Control = EditJump
         EditLabel.AnchorSideBottom.Control = EditJump
         EditLabel.AnchorSideBottom.Side = asrBottom
-        EditLabel.Left = 30
-        EditLabel.Height = 20
+        EditLabel.Left = 40
+        EditLabel.Height = 15
         EditLabel.Top = 92
-        EditLabel.Width = 53
+        EditLabel.Width = 43
         EditLabel.Caption = 'Jump to'
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -678,20 +679,20 @@ object Form1: TForm1
         TabOrder = 11
       end
     end
-    object GroupBox4: TGroupBox
+    object GBControl: TGroupBox
       Left = 4
       Height = 56
       Top = 456
       Width = 312
       Caption = 'ID_CONTROL'
-      ClientHeight = 31
+      ClientHeight = 36
       ClientWidth = 308
       TabOrder = 3
       object cbAdrActual: TCheckBox
         Left = 5
-        Height = 24
+        Height = 19
         Top = 4
-        Width = 152
+        Width = 119
         Caption = 'ID_REFRESH_ADDR'
         TabOrder = 0
       end
@@ -754,11 +755,11 @@ object Form1: TForm1
       Caption = 'ID_EXEC_DEBUG'
     end
     object cbTPSVersion: TComboBox
-      Left = 456
-      Height = 28
+      Left = 433
+      Height = 23
       Top = 2
       Width = 125
-      ItemHeight = 20
+      ItemHeight = 15
       Items.Strings = (
         'TPS Holtek'
         'TPS ATMega8'
@@ -771,9 +772,9 @@ object Form1: TForm1
     end
     object Label3: TLabel
       Left = 345
-      Height = 20
+      Height = 15
       Top = 2
-      Width = 111
+      Width = 88
       Alignment = taCenter
       Caption = 'ID_TPS_VERSION'
       Layout = tlCenter
@@ -836,19 +837,19 @@ object Form1: TForm1
       Caption = 'ID_DELLINE'
     end
     object ToolButton17: TToolButton
-      Left = 581
+      Left = 558
       Height = 22
       Top = 2
       Caption = 'ToolButton17'
       Style = tbsDivider
     end
     object ToolButton18: TToolButton
-      Left = 586
+      Left = 563
       Top = 2
       Action = acHelpAbout
     end
     object MCSLabel: TLabel
-      Left = 610
+      Left = 587
       Height = 22
       Top = 2
       Width = 20
@@ -867,25 +868,25 @@ object Form1: TForm1
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 29
-    Top = 553
+    Height = 23
+    Top = 559
     Width = 691
     Panels = <>
   end
   object Panel2: TPanel
     Left = 0
-    Height = 527
+    Height = 533
     Top = 26
     Width = 367
     Align = alClient
     BevelOuter = bvNone
     Caption = 'Panel2'
-    ClientHeight = 527
+    ClientHeight = 533
     ClientWidth = 367
     TabOrder = 3
     object StringGrid1: TStringGrid
       Left = 0
-      Height = 493
+      Height = 499
       Top = 0
       Width = 367
       Align = alClient
@@ -926,7 +927,7 @@ object Form1: TForm1
     object Panel3: TPanel
       Left = 0
       Height = 34
-      Top = 493
+      Top = 499
       Width = 367
       Align = alBottom
       BevelInner = bvLowered
@@ -936,10 +937,10 @@ object Form1: TForm1
       TabOrder = 1
       object cbCommand: TComboBox
         Left = 64
-        Height = 28
+        Height = 23
         Top = 4
         Width = 100
-        ItemHeight = 20
+        ItemHeight = 15
         Items.Strings = (
           ''
           'Dout'
@@ -967,7 +968,7 @@ object Form1: TForm1
         AnchorSideRight.Control = cbCommand
         AnchorSideRight.Side = asrBottom
         Left = 8
-        Height = 20
+        Height = 15
         Top = 8
         Width = 156
         Anchors = [akTop, akLeft, akRight]
@@ -976,10 +977,10 @@ object Form1: TForm1
       end
       object cbData: TComboBox
         Left = 232
-        Height = 28
+        Height = 23
         Top = 4
         Width = 100
-        ItemHeight = 20
+        ItemHeight = 15
         ItemIndex = 0
         Items.Strings = (
           ''
@@ -1004,9 +1005,9 @@ object Form1: TForm1
         AnchorSideTop.Control = cbData
         AnchorSideTop.Side = asrCenter
         Left = 184
-        Height = 20
+        Height = 15
         Top = 8
-        Width = 96
+        Width = 76
         Caption = 'ID_MNE_DATA'
         ParentColor = False
       end

ugui.pas

@@ -41,7 +41,7 @@ type
     EditRAdr: TLabeledEdit;
     acPresetLoad: TFileOpen;
     acPresetSave: TFileSaveAs;
-    GroupBox4: TGroupBox;
+    GBControl: TGroupBox;
     ImageList2: TImageList;
     Label3: TLabel;
     Label4: TLabel;
@@ -56,9 +56,9 @@ type
     Din2: TCheckBox;
     Din3: TCheckBox;
     Din4: TCheckBox;
-    GroupBox1: TGroupBox;
-    GroupBox2: TGroupBox;
-    GroupBox3: TGroupBox;
+    GBOutput: TGroupBox;
+    GBInput: TGroupBox;
+    GBInternal: TGroupBox;
     ImageList1: TImageList;
     Label1: TLabel;
     Label10: TLabel;
@@ -164,8 +164,7 @@ type
     procedure StringGrid1EditingDone(Sender: TObject);
     procedure StringGrid1Selection(Sender: TObject; aCol, aRow: integer);
     procedure tbPreset1Click(Sender: TObject);
-    procedure tbPreset1ContextPopup(Sender: TObject; MousePos: TPoint;
-      var Handled: boolean);
+    procedure tbPreset1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: boolean);
     procedure tbResetClick(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
@@ -194,6 +193,7 @@ type
     procedure addHeaderText;
     procedure loadPreset(filename: string);
     procedure savePreset(filename: string);
+    procedure activateSps(enable: boolean);
   public
     { public declarations }
   end;
@@ -245,7 +245,7 @@ begin
     line := Application.Params[1];
     loadFile(line);
   end;
-  Panel1.Enabled := False;
+  activateSps(False);
   Timer1.Enabled := True;
   MCSLSU.MakeForm('form1', 'ID_', form1);
 end;
@@ -411,8 +411,8 @@ begin
     begin
       if (StringGrid1.Cells[1, x] <> '') then
       begin
-        line := StringGrid1.Cells[0, x] + ',' + StringGrid1.Cells[1, x] +
-          ',' + StringGrid1.Cells[2, x] + ',"' + StringGrid1.Cells[4, x] + '"';
+        line := StringGrid1.Cells[0, x] + ',' + StringGrid1.Cells[1, x] + ',' +
+          StringGrid1.Cells[2, x] + ',"' + StringGrid1.Cells[4, x] + '"';
         Writeln(f, line);
       end;
     end;
@@ -431,7 +431,7 @@ begin
   end
   else
   begin
-    Panel1.Enabled := True;
+    activateSps(True);
     acDebug.Enabled := True;
     acDebug.ImageIndex := 10;
     cbAdrActual.Enabled := True;
@@ -572,7 +572,7 @@ procedure TForm1.nextStep;
 begin
   if (not sps.isActive()) then
   begin
-    Panel1.Enabled := True;
+    activateSps(True);
     programSps;
     sps.start();
     acStop.Enabled := True;
@@ -669,8 +669,7 @@ begin
         tmp := tmp + '0';
       line := line + tmp;
 
-      line := line + '      ' + StringGrid1.Cells[3, x] + '   ,"' +
-        StringGrid1.Cells[4, x] + '"';
+      line := line + '      ' + StringGrid1.Cells[3, x] + '   ,"' + StringGrid1.Cells[4, x] + '"';
       list.add(line);
     end;
   end;
@@ -695,7 +694,7 @@ begin
     acDebug.Enabled := True;
     outputSps();
     selectAddress(0);
-    Panel1.Enabled := False;
+    activateSps(False);
   end;
 end;
 
@@ -765,8 +764,7 @@ begin
     begin
       KeyName := 'SOFTWARE\WOW6432Node\Arduino';
       StringValue := 'Install_Dir';
-      Res := RegistryReadString(HKEY_LOCAL_MACHINE, WideString(KeyName),
-        WideString(StringValue));
+      Res := RegistryReadString(HKEY_LOCAL_MACHINE, WideString(KeyName), WideString(StringValue));
       if Res <> '' then
       begin
         line := string(Res);
@@ -852,8 +850,7 @@ var
 begin
   if (dirty) then
   begin
-    i := MCSLSU.LSUAutoMsgBox('Messages', 'SAVE_CHANGES', MB_ICONQUESTION or
-      MB_YESNOCANCEL);
+    i := MCSLSU.LSUAutoMsgBox('Messages', 'SAVE_CHANGES', MB_ICONQUESTION or MB_YESNOCANCEL);
     if (i = mrYes) then
     begin
       saveFile(activeFile);
@@ -953,8 +950,7 @@ begin
   end
   else
   begin
-    Caption := MCSLSU.GetLSUText('form1Captions', 'ID_CAPTION', lsuCode) +
-      ':' + ExtractFileName(activeFile);
+    Caption := MCSLSU.GetLSUText('form1Captions', 'ID_CAPTION', lsuCode) + ':' + ExtractFileName(activeFile);
   end;
 
 end;
@@ -969,8 +965,7 @@ begin
     StringGrid1.Columns[i].Title.Caption :=
       MCSLSU.GetLSUText('form1Captions', StringGrid1.Columns[i].Title.Caption, lsuCode);
   end;
-  StringGrid1.Cells[0, 0] := MCSLSU.GetLSUText('form1Captions',
-    'ID_GRID_STORAGE', lsuCode);
+  StringGrid1.Cells[0, 0] := MCSLSU.GetLSUText('form1Captions', 'ID_GRID_STORAGE', lsuCode);
   StringGrid1.Repaint;
 end;
 
@@ -1110,8 +1105,7 @@ begin
   begin
     x := StringGrid1.Row;
     StringGrid1.Cells[3, x] :=
-      sps.getCommandText(HexToInt(StringGrid1.Cells[1, x]),
-      HexToInt(StringGrid1.Cells[2, x]));
+      sps.getCommandText(HexToInt(StringGrid1.Cells[1, x]), HexToInt(StringGrid1.Cells[2, x]));
     setDirty(True);
   end;
 end;
@@ -1151,19 +1145,23 @@ begin
   end;
 end;
 
+procedure TForm1.activateSps(enable: boolean);
+begin
+  GBControl.Enabled := enable;
+  GBInternal.Enabled := enable;
+  GBOutput.Enabled := enable;
+  ;
+end;
+
 procedure TForm1.saveSection(filename: string; key: string);
 begin
   WriteIniBool(key, 'set', XMLPropStorage1.ReadBoolean(key + '.set', False), filename);
   WriteIniBool(key, 'prg', XMLPropStorage1.ReadBoolean(key + '.prg', False), filename);
   WriteIniBool(key, 'sel', XMLPropStorage1.ReadBoolean(key + '.sel', False), filename);
-  WriteIniBool(key, 'input1', XMLPropStorage1.ReadBoolean(key + '.input1', False),
-    filename);
-  WriteIniBool(key, 'input2', XMLPropStorage1.ReadBoolean(key + '.input2', False),
-    filename);
-  WriteIniBool(key, 'input3', XMLPropStorage1.ReadBoolean(key + '.input3', False),
-    filename);
-  WriteIniBool(key, 'input4', XMLPropStorage1.ReadBoolean(key + '.input4', False),
-    filename);
+  WriteIniBool(key, 'input1', XMLPropStorage1.ReadBoolean(key + '.input1', False), filename);
+  WriteIniBool(key, 'input2', XMLPropStorage1.ReadBoolean(key + '.input2', False), filename);
+  WriteIniBool(key, 'input3', XMLPropStorage1.ReadBoolean(key + '.input3', False), filename);
+  WriteIniBool(key, 'input4', XMLPropStorage1.ReadBoolean(key + '.input4', False), filename);
   WriteIniInteger(key, 'adc1', XMLPropStorage1.ReadInteger(key + '.adc1', 0), filename);
   WriteIniInteger(key, 'adc2', XMLPropStorage1.ReadInteger(key + '.adc2', 0), filename);
   WriteIniInteger(key, 'rc1', XMLPropStorage1.ReadInteger(key + '.rc1', 0), filename);
@@ -1175,14 +1173,10 @@ begin
   XMLPropStorage1.WriteBoolean(key + '.set', ReadIniBool(key, 'set', False, filename));
   XMLPropStorage1.WriteBoolean(key + '.prg', ReadIniBool(key, 'prg', False, filename));
   XMLPropStorage1.WriteBoolean(key + '.sel', ReadIniBool(key, 'sel', False, filename));
-  XMLPropStorage1.WriteBoolean(key + '.input1', ReadIniBool(key,
-    'input1', False, filename));
-  XMLPropStorage1.WriteBoolean(key + '.input2', ReadIniBool(key,
-    'input2', False, filename));
-  XMLPropStorage1.WriteBoolean(key + '.input3', ReadIniBool(key,
-    'input3', False, filename));
-  XMLPropStorage1.WriteBoolean(key + '.input4', ReadIniBool(key,
-    'input4', False, filename));
+  XMLPropStorage1.WriteBoolean(key + '.input1', ReadIniBool(key, 'input1', False, filename));
+  XMLPropStorage1.WriteBoolean(key + '.input2', ReadIniBool(key, 'input2', False, filename));
+  XMLPropStorage1.WriteBoolean(key + '.input3', ReadIniBool(key, 'input3', False, filename));
+  XMLPropStorage1.WriteBoolean(key + '.input4', ReadIniBool(key, 'input4', False, filename));
   XMLPropStorage1.WriteInteger(key + '.adc1', ReadIniInteger(key, 'adc1', 0, filename));
   XMLPropStorage1.WriteInteger(key + '.adc2', ReadIniInteger(key, 'adc2', 0, filename));
   XMLPropStorage1.WriteInteger(key + '.rc1', ReadIniInteger(key, 'rc1', 0, filename));
@@ -1229,8 +1223,7 @@ begin
   RC2.Value := XMLPropStorage1.ReadInteger(key + '.rc2', RC2.Value);
 end;
 
-procedure TForm1.tbPreset1ContextPopup(Sender: TObject; MousePos: TPoint;
-  var Handled: boolean);
+procedure TForm1.tbPreset1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: boolean);
 var
   key: string;
 begin
@@ -1300,8 +1293,8 @@ begin
   if (InfoBox.newVersion) then
   begin
     MCSLabel.Font.Color := clred;
-    MCSLabel.Hint := InfoBox.versionHint + chr($0a) + chr($0d) +
-      MCSLSU.GetLSUText('form1Captions', 'ID_CLICK_HERE', lsuCode);
+    MCSLabel.Hint := InfoBox.versionHint + chr($0a) + chr($0d) + MCSLSU.GetLSUText(
+      'form1Captions', 'ID_CLICK_HERE', lsuCode);
   end;
   MCSLabel.Caption := InfoBox.versionText;
 end;
@@ -1319,8 +1312,7 @@ begin
     if (StringGrid1.Cells[2, x] = '') then
       StringGrid1.Cells[2, x] := '0';
     StringGrid1.Cells[3, x] :=
-      sps.getCommandText(HexToInt(StringGrid1.Cells[1, x]),
-      HexToInt(StringGrid1.Cells[2, x]));
+      sps.getCommandText(HexToInt(StringGrid1.Cells[1, x]), HexToInt(StringGrid1.Cells[2, x]));
   end;
 end;