V9.6

2024-11-24 10:16:39 +01:00
parent 31bb8233e3
commit 087351ecd3
13 changed files with 2589 additions and 1044 deletions
--- a/UnitPilote.pas
+++ b/UnitPilote.pas
@@ -428,6 +428,7 @@ end;
 procedure TFormPilote.FormActivate(Sender: TObject);
 var n,i,d : integer;
 begin
+  if fermeSC then exit;
  // mise à jour du champ décodeur
  if affevt then affiche('FormPilote activate',clLime);
  i:=Index_Signal(AdrPilote);