V8.53

UnitConfig.pas

@@ -357,6 +357,7 @@ type
     TabAvance: TTabSheet;
     Label31: TLabel;
     Label39: TLabel;
+    CheckBoxMsgAigInc: TCheckBox;
     procedure ButtonAppliquerEtFermerClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure ListBoxAigMouseDown(Sender: TObject; Button: TMouseButton;
@@ -578,6 +579,7 @@ Avec_roulage_ch='Avec_roulage';
     procedure modif_editT(Sender : TObject);
     procedure modif_ComboTS(Sender : TObject);
     procedure modif_ComboL(Sender : TObject);
+    procedure cb_onclick(Sender : Tobject);
     procedure tb_onChange(sender : TObject);
     procedure Bt_onclick(sender : Tobject);
     procedure tbCde_onchange(Sender : Tobject);
@@ -651,7 +653,7 @@ var
 HauteurF_ch='HauteurF';
 OffsetXF_ch='OffsetX';
 OffsetYF_ch='OffsetY';
-PosSplitter_ch='Splitter';
+PosSplitter_ch='Splitter';
 
 // sections de config
 section_aig_ch='[section_aig]';
@@ -1873,6 +1875,9 @@ begin
     s:=NomFichierTCO[i];
     if s='' then s:='TCO'+intToSTR(i);
     writeln(fichierN,Nom_fich_TCO_ch+intToSTR(i)+'=',s);
+  end;
+
+  if MasqueBandeauTCO then s:='1' else s:='0';
   writeln(fichierN,MasqueBandeauTCO_ch+'=',s);
 
   // lancement de CDM
@@ -3691,6 +3696,17 @@ var s,sa,SOrigine: string;
       begin
         inc(nv);
         delete(s,i,length(sa));
+        val(s,i,erreur);
+        Z21:=i=1;
+      end;
+
+      sa:=uppercase(nb_det_dist_ch)+'=';
+      i:=pos(sa,s);
+      if i=1 then
+      begin
+        inc(nv);
+        trouve_NbDetDist:=true;
+        delete(s,i,length(sa));
         val(s,i,erreur);
         if i<2 then begin i:=2;Affiche('Attention '+nb_det_dist_ch+' ramené à '+IntToSTR(i),clOrange); end;
         Nb_Det_Dist:=i;
@@ -4159,6 +4175,7 @@ begin
     lay:=editLay.Text;
     if RadioButtonSS.Checked then ServeurInterfaceCDM:=0;
     if RadioButtonXn.Checked then ServeurInterfaceCDM:=1;
+    if RadioButtonp50.Checked then ServeurInterfaceCDM:=2;
     if RadioButtonSP.Checked then ServeurInterfaceCDM:=3;
     if RadioButtonFIS.Checked then ServeurInterfaceCDM:=4;
     if RadioButtonRS.Checked then ServeurInterfaceCDM:=5;
@@ -5960,6 +5977,7 @@ begin
   begin
     Left:=x;Top:=48;Width:=30;Height:=15;
     name:='EditMaxSignalSens';
+    text:='';
     parent:=GroupBoxExpert;
     hint:='Nombre maxi d''éléments de recherche lors d''un signal dans le bon sens';
     ShowHint:=true;
@@ -14436,6 +14454,7 @@ begin
 
 procedure TFormConfig.FormActivate(Sender: TObject);
 
+  var i : integer;
     s : string;
 begin
   if affevt or (debug=1) then affiche('FormConfig activate',clLime);