Просмотр исходного кода

new build for Austria as language

Willie 3 лет назад
Родитель
Сommit
0b11c9c309
9 измененных файлов с 495 добавлено и 302 удалено
  1. 4 4
      SPS_EMU.000
  2. 1 1
      SPS_EMU.001
  3. 193 0
      SPS_EMU.043
  4. 1 1
      SPS_EMU.044
  5. 1 1
      SPS_EMU.049
  6. 1 1
      SPS_Emu.lpi
  7. 4 1
      SPS_Emu.lpr
  8. BIN
      SPS_Emu.lsu
  9. 290 293
      ugui.lfm

+ 4 - 4
SPS_EMU.000

@@ -2,9 +2,9 @@
 LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
-CompileDate=10.06.2021
-CompileTime=10:47:50
+CompileDate=11.06.2021
+CompileTime=21:56:52
 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=

+ 1 - 1
SPS_EMU.001

@@ -46,7 +46,7 @@ ID_EXAMPLE=Load example from web
 
 [infobox]
 ID_APPTITLE=TPS/PLC Emulator
-ID_COPYRIGHT=MCS (C) 2020 Wilfried Klaas #13#10 EMail: w.klaas@gmx.de
+ID_COPYRIGHT=MCS (C) 2021 Wilfried Klaas #13#10 EMail: w.klaas@gmx.de
 
 [form1Captions]
 ID_TPS_VERSION=PLC target: 

+ 193 - 0
SPS_EMU.043

@@ -0,0 +1,193 @@
+[LSUOptions]
+LSUTextFile=1
+
+[form1Buttons]
+ID_EXIT=B&eenden
+ID_NEW=&Neu
+ID_OPEN=Ö&ffnen
+ID_SAVE=&Speichern
+ID_SAVE_AS=&Speichern als
+ID_NEWLINE=Neue &Zeile
+ID_DELLINE=Zeile löschen
+ID_PRGFILE=Programmierdatei
+ID_PRGULOAD=Upload
+ID_HEXFILE=HEX Datei erzeugen
+ID_EXEC_STATEMENT=Befehl ausführen
+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
+ID_NEXT_INSERT=
+
+[form1ButtonHints]
+ID_EXIT=Beenden
+ID_NEW=Neue Datei erzeugen
+ID_OPEN=Datei öffnen
+ID_SAVE=Aktuelle Datei speichern
+ID_SAVE_AS=Datei speichern unter
+ID_NEWLINE=Neue Zeile hinzufügen
+ID_DELLINE=Aktuelle Zeile löschen
+ID_PRGFILE=Programmierdatei anzeigen
+ID_PRGULOAD=Programm übertragen
+ID_HEXFILE=HEX Datei erzeugen
+ID_EXEC_STATEMENT=Einzelnen Befehl ausführen
+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
+ID_NEXT_INSERT=nächste Zeile, wenn nötig, lege neue Zeile an
+ID_EXAMPLE=Beispiele aus dem Internet laden
+
+[infobox]
+ID_APPTITLE=TPS/SPS Emulator
+ID_COPYRIGHT=MCS (C) 2021 Wilfried Klaas #13#10 EMail: w.klaas@gmx.de
+
+[form1Captions]
+ID_TPS_VERSION=TPS Zielsystem: 
+ID_OUTPUT=Ausgänge
+ID_INPUT=Eingänge
+ID_INTERNAL_DATA=Interne Daten
+ID_CONTROL=Steuerung
+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_REFRESH_ADDR=Adresse aktualisieren
+ID_MNEMONIC=Befehle
+ID_MNE_DATA=Daten
+ID_CAPTION=TPS/SPS Emulator
+ID_GRID_STORAGE=Speicher
+ID_GRID_MNEMONIC=Befehl
+ID_GRID_DATA=Daten
+ID_GRID_DESCRIPTION=Beschr.
+ID_GRID_COMMENT=Notizen
+ID_SAVE_TPS=Datei sichern als
+ID_SAVE_HEX=Datei sichern als
+ID_SAVE_BIN=Datei sichern als
+ID_OPEN=Programm öffnen
+ID_SAVE=Programm speichern
+ID_SAVE_AS=Programm speichern untern
+ID_CLICK_HERE= oder clicken sie hier.
+ 
+[form1Hints]
+ID_TPS_VERSION=TPS Zielsystem für dieses Programm
+ID_OUTPUT=Ausgänge
+ID_INPUT=Eingänge
+ID_INTERNAL_DATA=Interne Daten
+ID_CONTROL=Steuerung
+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_REFRESH_ADDR=Adresse aktualisieren
+ID_MNEMONIC=Befehle
+ID_MNE_DATA=Daten
+ID_CAPTION=
+ID_GRID_STORAGE=
+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
+
+[form2Hints]
+ID_CAPTION= 
+
+[form2Buttons]
+ID_CLOSE=&Schliessen
+
+[form2ButtonHints]
+ID_CLOSE=Fenster schliessen
+
+[form1Filter]
+ID_SAVE_TPS=TPS/SPS Dateien (*.tps)|*.tps|alle Dateien (*.*)|*.*
+ID_SAVE_HEX=Intel Hex File (*.hex)|*.hex|alle Dateien (*.*)|*.*
+ID_OPEN=TPS/SPS Dateien (*.tps)|*.tps|alle Dateien (*.*)|*.*
+ID_SAVE=TPS/SPS Dateien (*.tps)|*.tps|alle Dateien (*.*)|*.*
+ID_SAVE_BIN=Binärdatei (*)|*|alle Dateien (*.*)|*.*
+
+[form1Action]
+ID_EXIT=B&eenden
+ID_OPEN=Öffnen
+ID_SAVE=Speichern
+ID_DEBUG=Start/Stop
+ID_NEXT_STEP=Nächster Schritt
+ID_STOP=Debug Stop
+ID_EXEC_MNEMONIC=Befehl ausführen
+ID_SHOW_HEX=HEX Datei anzeigen
+ID_UPLOAD=Programm übertragen
+ID_NEW=Neues Programm
+ID_NEW_ROW=Neue Zeile
+ID_DEL_ROW=Zeile löschen
+ID_SAVE_FILE=Datei speichern
+ID_ABOUT=Über
+ID_HEX_FILE=HEX Datei erzeugen
+
+[form1ActionHints]
+ID_EXIT=Programm beenden
+ID_OPEN=Programm öffnen
+ID_SAVE=Programm speichern
+ID_DEBUG=Programm starten/stoppen
+ID_NEXT_STEP=Nächster Schritt ausführen
+ID_STOP=Debuggen Stoppen
+ID_EXEC_MNEMONIC=Befehl ausführen
+ID_SHOW_HEX=HEX Datei anzeigen
+ID_UPLOAD=Programm übertragen
+ID_NEW=Neues Programm
+ID_NEW_ROW=Neue Zeile
+ID_DEL_ROW=Zeile löschen
+ID_SAVE_FILE=Datei speichern
+ID_ABOUT=Über
+ID_HEX_FILE=HEX Datei erzeugen
+
+[statusbar]
+ID_SPS_START=SPS starten
+ID_SPS_RUNNING=SPS läuft
+ID_SPS_STOPPED=SPS gestopped
+ID_SPS_PROGRAMMING=SPS programmieren
+
+[hexfile]
+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?
+ID_PRG_TO_LONGM=Das Program ist zu lang für die selektierte Hardware.
+
+[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=
+ID_ARDUINO_INST=
+ID_COMMENT=
+[LSUOptions]
+LSUTextFile=1

+ 1 - 1
SPS_EMU.044

@@ -46,7 +46,7 @@ ID_EXAMPLE=Load example from web
 
 [infobox]
 ID_APPTITLE=TPS/PLC Emulator
-ID_COPYRIGHT=MCS (C) 2020 Wilfried Klaas #13#10 EMail: w.klaas@gmx.de
+ID_COPYRIGHT=MCS (C) 2021 Wilfried Klaas #13#10 EMail: w.klaas@gmx.de
 
 [form1Captions]
 ID_TPS_VERSION=PLC target: 

+ 1 - 1
SPS_EMU.049

@@ -46,7 +46,7 @@ ID_EXAMPLE=Beispiele aus dem Internet laden
 
 [infobox]
 ID_APPTITLE=TPS/SPS Emulator
-ID_COPYRIGHT=MCS (C) 2020 Wilfried Klaas #13#10 EMail: w.klaas@gmx.de
+ID_COPYRIGHT=MCS (C) 2021 Wilfried Klaas #13#10 EMail: w.klaas@gmx.de
 
 [form1Captions]
 ID_TPS_VERSION=TPS Zielsystem: 

+ 1 - 1
SPS_Emu.lpi

@@ -23,7 +23,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="95"/>
+      <BuildNr Value="96"/>
       <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>

+ 4 - 1
SPS_Emu.lpr

@@ -13,13 +13,16 @@ uses
 {$R *.res}
 
 var path : string;
+    code : integer;
 begin
   path := ParamStr(0);
   RequireDerivedFormResource := True;
   Application.Scaled:=True;
   Application.Initialize;
   MCSLSU.LSUSetDebug(false);
-  MCSLSU.LSUInit(path, NOR_Mode, GetLNGCode);
+  code := MCSLSU.LSUInit(path, NOR_Mode, GetLNGCode);
+  if code = R_LNG_Not_Supp then
+    code := MCSLSU.LSUInit(path, NOR_Mode, 44);
 
   Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm2, Form2);


Разница между файлами не показана из-за своего большого размера
+ 290 - 293
ugui.lfm


Некоторые файлы не были показаны из-за большого количества измененных файлов