changing hint of PRG and SEL button

solving problems with german umlauts

SPS_EMU.000

@@ -2,8 +2,8 @@
 LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
-CompileDate=30.10.2020
-CompileTime=13:54:37
+CompileDate=02.11.2020
+CompileTime=16:30:36
 Name=Wilfried Klaas
 LSUBinFile=H:\privat\git-sourcen\SPS_Emulator\SPS_Emu.lsu
 LSUTextFile=H:\privat\git-sourcen\SPS_Emulator\SPS_Emu.

SPS_EMU.001

@@ -58,10 +58,10 @@ ID_OUTPUT_1=Output 1
 ID_OUTPUT_2=Output 2
 ID_OUTPUT_3=Output 3
 ID_OUTPUT_4=Output 4
-ID_INPUT_4=Input 4
-ID_INPUT_3=Input 3
-ID_INPUT_2=Input 2
-ID_INPUT_1=Input 1
+ID_INPUT_4=Input &4
+ID_INPUT_3=Input &3
+ID_INPUT_2=Input &2
+ID_INPUT_1=Input &1
 ID_REFRESH_ADDR=Refresh address
 ID_MNEMONIC=Instruction
 ID_MNE_DATA=Data
@@ -101,6 +101,11 @@ ID_GRID_MNEMONIC=Instruction
 ID_GRID_DATA=Data
 ID_GRID_DESCRIPTION=Description
 ID_GRID_COMMENT=Notes / Comment
+ID_BTN_PRG_SEL=PRG selected
+ID_BTN_PRG_NON=PRG not selected
+ID_BTN_SEL_SEL=SEL selected
+ID_BTN_SEL_NON=SEL not selected
+
 
 [form2Captions]
 ID_CAPTION=Program file

SPS_EMU.044

@@ -58,10 +58,10 @@ ID_OUTPUT_1=Output 1
 ID_OUTPUT_2=Output 2
 ID_OUTPUT_3=Output 3
 ID_OUTPUT_4=Output 4
-ID_INPUT_4=Input 4
-ID_INPUT_3=Input 3
-ID_INPUT_2=Input 2
-ID_INPUT_1=Input 1
+ID_INPUT_4=Input &4
+ID_INPUT_3=Input &3
+ID_INPUT_2=Input &2
+ID_INPUT_1=Input &1
 ID_REFRESH_ADDR=Refresh address
 ID_MNEMONIC=Instruction
 ID_MNE_DATA=Data
@@ -101,6 +101,10 @@ ID_GRID_MNEMONIC=Instruction
 ID_GRID_DATA=Data
 ID_GRID_DESCRIPTION=Description
 ID_GRID_COMMENT=Notes / Comment
+ID_BTN_PRG_SEL=PRG selected
+ID_BTN_PRG_NON=PRG not selected
+ID_BTN_SEL_SEL=SEL selected
+ID_BTN_SEL_NON=SEL not selected
 
 [form2Captions]
 ID_CAPTION=Program file

SPS_EMU.049

@@ -58,10 +58,10 @@ ID_OUTPUT_1=Ausgang 1
 ID_OUTPUT_2=Ausgang 2
 ID_OUTPUT_3=Ausgang 3
 ID_OUTPUT_4=Ausgang 4
-ID_INPUT_4=Eingang 4
-ID_INPUT_3=Eingang 3
-ID_INPUT_2=Eingang 2
-ID_INPUT_1=Eingang 1
+ID_INPUT_4=Eingang &4
+ID_INPUT_3=Eingang &3
+ID_INPUT_2=Eingang &2
+ID_INPUT_1=Eingang &1
 ID_REFRESH_ADDR=Adresse aktualisieren
 ID_MNEMONIC=Befehle
 ID_MNE_DATA=Daten
@@ -101,6 +101,11 @@ ID_GRID_MNEMONIC=
 ID_GRID_DATA=
 ID_GRID_DESCRIPTION=
 ID_GRID_COMMENT=
+ID_BTN_PRG_SEL=PRG selektiert
+ID_BTN_PRG_NON=PRG nicht selektiert
+ID_BTN_SEL_SEL=SEL selektiert
+ID_BTN_SEL_NON=SEL nicht selektiert
+
 
 [form2Captions]
 ID_CAPTION=Programmdatei

SPS_Emu.lpi

@@ -22,7 +22,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="67"/>
+      <BuildNr Value="69"/>
       <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 = 314
+  Left = 496
   Height = 584
-  Top = 89
+  Top = 115
   Width = 751
   AllowDropFiles = True
   Caption = 'SPS Emulator'
@@ -296,7 +296,8 @@ object Form1: TForm1
         Height = 18
         Top = 1
         Width = 40
-        Caption = 'PRG'
+        Caption = '&PRG'
+        OnChange = tbPrgChange
         TabOrder = 8
       end
       object tbSel: TToggleBox
@@ -304,7 +305,8 @@ object Form1: TForm1
         Height = 18
         Top = 1
         Width = 40
-        Caption = 'SEL'
+        Caption = '&SEL'
+        OnChange = tbSelChange
         TabOrder = 9
       end
       object ToolBar2: TToolBar
@@ -651,10 +653,12 @@ object Form1: TForm1
       Caption = 'ID_EXEC_DEBUG'
     end
     object cbTPSVersion: TComboBox
-      Left = 510
+      Left = 520
       Height = 23
-      Top = 2
+      Top = 4
       Width = 125
+      Align = alClient
+      AutoSize = False
       ItemHeight = 15
       Items.Strings = (
         'TPS Holtek'
@@ -668,7 +672,7 @@ object Form1: TForm1
     end
     object Label3: TLabel
       Left = 423
-      Height = 18
+      Height = 26
       Top = 2
       Width = 87
       Align = alClient
@@ -734,27 +738,29 @@ object Form1: TForm1
       Caption = 'ID_DELLINE'
     end
     object ToolButton17: TToolButton
-      Left = 635
+      Left = 510
       Height = 26
       Top = 2
       Caption = 'ToolButton17'
       Style = tbsDivider
     end
     object ToolButton18: TToolButton
-      Left = 640
+      Left = 645
       Top = 2
       Action = acHelpAbout
     end
     object MCSLabel: TLabel
-      Left = 666
+      Left = 671
       Height = 26
       Top = 2
-      Width = 20
+      Width = 52
+      Align = alClient
       AutoSize = False
       Font.Style = [fsUnderline]
       ParentColor = False
       ParentFont = False
       OnClick = MCSLabelClick
+      OptimalFill = True
     end
     object ToolButton19: TToolButton
       Left = 277

ugui.pas

@@ -178,7 +178,9 @@ type
     procedure tbPreset1Click(Sender: TObject);
     procedure tbPreset1ContextPopup(Sender: TObject; MousePos: TPoint;
       var Handled: boolean);
+    procedure tbPrgChange(Sender: TObject);
     procedure tbResetClick(Sender: TObject);
+    procedure tbSelChange(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     { private declarations }
@@ -1530,10 +1532,24 @@ begin
   checkPresets();
 end;
 
+procedure TForm1.tbPrgChange(Sender: TObject);
+begin
+  if tbPrg.Checked then
+  begin
+    tbPrg.Hint := MCSLSU.GetLSUText('form1Hints', 'ID_BTN_PRG_SEL', lsuCode);
+  end
+  else
+  begin
+    tbPrg.Hint := MCSLSU.GetLSUText('form1Hints', 'ID_BTN_PRG_NON', lsuCode);
+  end;
+end;
+
 procedure TForm1.tbResetClick(Sender: TObject);
 begin
   tbPrg.Checked := False;
+  tbPrg.Hint := MCSLSU.GetLSUText('form1Hints', 'ID_BTN_PRG_NON', lsuCode);
   tbSel.Checked := False;
+  tbSel.Hint := MCSLSU.GetLSUText('form1Hints', 'ID_BTN_SEL_NON', lsuCode);
   Din1.Checked := False;
   Din2.Checked := False;
   Din3.Checked := False;
@@ -1544,6 +1560,18 @@ begin
   RC2.Value := 8;
 end;
 
+procedure TForm1.tbSelChange(Sender: TObject);
+begin
+  if tbSel.Checked then
+  begin
+    tbSel.Hint := MCSLSU.GetLSUText('form1Hints', 'ID_BTN_SEL_SEL', lsuCode);
+  end
+  else
+  begin
+    tbSel.Hint := MCSLSU.GetLSUText('form1Hints', 'ID_BTN_SEL_NON', lsuCode);
+  end;
+end;
+
 procedure TForm1.Timer1Timer(Sender: TObject);
 var
   jsonString: string;
@@ -1663,7 +1691,7 @@ begin
     begin
       playNote(0);
     end;
-    btntone.Enabled := true;
+    btntone.Enabled := True;
   end;
   List := TStringList.Create;
   try