V8.37

UnitAnalyseSegCDM.pas

@@ -1577,8 +1577,13 @@ begin
       y1:=segment[i].port[j].y;
       begin
         coords(x1,y1);
-        if formAnalyseCDM.CheckConnexions.checked then
-        begin
+        if formAnalyseCDM.CheckConnexions.checked then
+        begin
+          with canvas do
+          begin
+            pen.Color:=clOrange;
+            pen.width:=1;
+            Ellipse(x1-5,y1-5,x1+5,y1+5);
             canvas.pen.Color:=clWhite;
           end;
         end;
@@ -1767,7 +1772,7 @@ begin
       Affiche('Le port '+intToSTR(NumPort)+' est connecté au port '+intToSTR(connecteAuPort)+' segment '+intToSTR(ConnecteAuSeg),clyellow);
     end;
   end;
-end;
+end;
 
 // renvoie si le segment est de type aiguillage
 function segment_aig(s : string) : boolean;
@@ -1817,7 +1822,7 @@ begin
     trouve_IdSegment_Aig:=false;
   end
 end;
-
+
 
 // trouve les index Segment et port contenant le détecteur est detecteur
 function trouve_IndexSegPortDetecteur(detecteur : integer;var indexSeg,indexPeriph : integer) : boolean;
@@ -2630,7 +2635,7 @@ begin
       end;
 
       //else
-
+
       begin
         // y a t-il un détecteur?
         NombrePeriph:=segment[indexSegSuivant].nperiph;
@@ -3316,10 +3321,11 @@ begin
 
   MaxAiguillage:=0;
 
-  Affiche('Importation des aiguillages et des branches',clWhite);
+  Affiche('Importation des aiguillages et des branches',clWhite);
 
   // recopier les aiguillages CDM dans signaux_complexes
   for i:=1 to NAig_CDM do
+  begin
     Aiguillage[i].adresse:=Aig_CDM[i].adresse;
     tablo_index_aiguillage[aiguillage[i].Adresse]:=i;
     Aiguillage[i].adrtriple:=Aig_CDM[i].adrtriple;
@@ -3504,7 +3510,7 @@ end;
   end;
 end;
 
-procedure TFormAnalyseCDM.FormCreate(Sender: TObject);
+procedure TFormAnalyseCDM.FormCreate(Sender: TObject);
 begin
   if debug=1 then Affiche('Création fenêtre réseau CDM',clLime);
   IndexClic:=0;
@@ -3534,7 +3540,7 @@ begin
 
   with FwicImage do
   begin
-    largeurTrain:=Width;   // largeur de l'icone du train
+    largeurTrain:=Width;   // largeur de l'icone du train
     hauteurTrain:=Height;
   end;
   ArcTanHautLargTrain:=ArcTan(HauteurTrain/LargeurTrain);