BUG: upload for microbit is inactive when a target with out upload was seleccted before selecting the microbit.

README.md

@@ -1,4 +1,8 @@
 # **SPS_Emulator Version History**
+**01.04.2021 Version 0.2.1.78**
+
+  * BUG: fixing upload activating for BBC micro:bit. 
+
 **31.03.2021 Version 0.2.1.76**
 
 -  FEATURE: adding upload for BBC micro:bit. 

SPS_EMU.000

@@ -2,8 +2,8 @@
 LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
-CompileDate=31.03.2021
-CompileTime=10:09:34
+CompileDate=01.04.2021
+CompileTime=07:50:52
 Name=Wilfried Klaas
 LSUBinFile=H:\privat\git-sourcen\SPS_Emulator\SPS_Emu.lsu
 LSUTextFile=H:\privat\git-sourcen\SPS_Emulator\SPS_Emu.

SPS_Emu.lpi

@@ -22,7 +22,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="76"/>
+      <BuildNr Value="78"/>
       <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.pas

@@ -1378,6 +1378,34 @@ begin
     ADC2.Value := 0;
     ADC2.MaxValue := 255;
   end;
+
+  if (cbTPSVersion.ItemIndex = 4) then
+  begin
+    // micro:bit
+    sps.setTPSVersion(microbit);
+
+    Label2.Visible := True;
+    ADC2.Visible := True;
+    PWM2.Visible := False;
+    Label16.Visible := False;
+    RC1.Visible := False;
+    Label17.Visible := False;
+    RC2.Visible := False;
+    Servo1.Visible := False;
+    Servo2.Visible := False;
+    Shape1.Visible := False;
+    Shape2.Visible := False;
+    EditE.Visible := False;
+    EditF.Visible := False;
+    acUpload.Enabled := True;
+    Label5.Visible := False;
+    btnTone.Visible := False;
+    ADC1.Value := 0;
+    ADC1.MaxValue := 15;
+    ADC2.Value := 0;
+    ADC2.MaxValue := 15;
+  end;
+
   cbCommand.Items.Clear;
   sps.getCommands(cbCommand.Items);
 end;