V2.5B

UnitConfig.dfm

@@ -1776,7 +1776,7 @@ object FormConfig: TFormConfig
     Top = 8
     Width = 585
     Height = 457
-    ActivePage = TabSheetAig
+    ActivePage = TabSheetSig
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBackground
     Font.Height = -11

UnitConfig.pas

@@ -2009,6 +2009,7 @@ procedure TFormConfig.ComboBoxDecChange(Sender: TObject);
 var s: string;
 begin
 //  Affiche(IntToStr(ComboBoxDec.ItemIndex),clyellow);
+  if NbreFeux<lignecliquee+1 then exit;
   feux[lignecliquee+1].decodeur:= ComboBoxDec.ItemIndex;
   s:=encode_sig(lignecliquee+1);
   formconfig.RichSig.Lines[lignecliquee]:=s;
@@ -2504,6 +2505,7 @@ begin
   else asp:=i+6;
   end;  
   index:=lignecliquee+1;  // index du feu
+  if NbreFeux<index then exit;
   feux[index].aspect:=asp;
   
   s:=encode_sig(index);

UnitPrinc.pas

@@ -168,7 +168,7 @@ const
 titre='Signaux complexes GL ';
 tempoFeu=100;
 MaxAcc=2048;
-LargImg=50;HtImg=91; // image des feux
+LargImg=50;HtImg=91; // Dimensions image des feux
 const_droit=2;const_devie=1;  // positions aiguillages transmises par la centrale LENZ
 const_devieG_CDM=3;  // positions aiguillages transmises par cdm
 const_devieD_CDM=2;  // positions aiguillages transmises par cdm
@@ -397,7 +397,7 @@ end;
 
 // renvoie le 1er numéro de bit à 1
 // ex BitNum(4)=2
-Function BitNum(n : word) : integer;
+Function PremBitNum(n : word) : integer;
 var i : integer;
     trouve : boolean;
 begin
@@ -407,7 +407,7 @@ begin
     if not(trouve) then inc(i);
     n:=n shr 1;
   until (i=16) or trouve;
-  BitNum:=i;
+  PremBitNum:=i;
 end;
 
 // conversion du motif de bits (codebin) de la configuration du signal complexe en deux mots:
@@ -418,8 +418,8 @@ end;
 procedure code_to_aspect(codebin : word;var premierbit,combine : word) ;
 var i,mot : word;
 begin
-  premierBit:=BitNum(CodeBin and $3ff);
+  premierBit:=PremBitNum(CodeBin and $3ff);
-  combine:=BitNum(CodeBin and $fc00);
+  combine:=PremBitNum(CodeBin and $fc00);
 end;
 
 // dessine un cercle plein dans le feu