V1.11

2020-01-29 16:17:26 +01:00
parent 5dd476e10a
commit 27e0df602e
12 changed files with 72 additions and 34 deletions
--- a/Signaux_complexes_GL.cfg
+++ b/Signaux_complexes_GL.cfg
@@ -31,12 +31,12 @@
 -M
 -$M16384,1048576
 -K$00400000
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-U"c:\program files (x86)\borland\delphi7\Lib\Debug"
-O"c:\program files (x86)\borland\delphi7\Lib\Debug"
-I"c:\program files (x86)\borland\delphi7\Lib\Debug"
-R"c:\program files (x86)\borland\delphi7\Lib\Debug"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-U"c:\program files\borland\delphi7\Lib\Debug"
+-O"c:\program files\borland\delphi7\Lib\Debug"
+-I"c:\program files\borland\delphi7\Lib\Debug"
+-R"c:\program files\borland\delphi7\Lib\Debug"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
--- a/Signaux_complexes_GL.exe
+++ b/Signaux_complexes_GL.exe
--- a/Signaux_complexes_GL.zip
+++ b/Signaux_complexes_GL.zip
--- a/UnitDebug.dcu
+++ b/UnitDebug.dcu
--- a/UnitDebug.dfm
+++ b/UnitDebug.dfm
@@ -1,6 +1,6 @@
 object FormDebug: TFormDebug
-  Left = 390
-  Top = 178
+  Left = 313
+  Top = 77
  BorderStyle = bsSingle
  Caption = 'FormDebug'
  ClientHeight = 639
@@ -20,7 +20,7 @@ object FormDebug: TFormDebug
  TextHeight = 13
  object Label1: TLabel
    Left = 456
-    Top = 52
+    Top = 36
    Width = 108
    Height = 13
    Caption = 'Niveau du Debug (0-3)'
@@ -35,7 +35,7 @@ object FormDebug: TFormDebug
  end
  object Label2: TLabel
    Left = 448
-    Top = 12
+    Top = 4
    Width = 131
    Height = 18
    Caption = 'Fen'#234'tre de d'#233'bug'
@@ -47,16 +47,16 @@ object FormDebug: TFormDebug
    ParentFont = False
  end
  object Label3: TLabel
-    Left = 448
-    Top = 84
+    Left = 464
+    Top = 200
    Width = 265
-    Height = 209
+    Height = 101
    AutoSize = False
    Caption = 'Label3'
    Color = clGray
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindow
-    Font.Height = -16
+    Font.Height = -15
    Font.Name = 'Arial Narrow'
    Font.Style = []
    ParentColor = False
@@ -65,7 +65,7 @@ object FormDebug: TFormDebug
  end
  object EditNivDebug: TEdit
    Left = 576
-    Top = 52
+    Top = 36
    Width = 73
    Height = 21
    Font.Charset = DEFAULT_CHARSET
@@ -79,8 +79,8 @@ object FormDebug: TFormDebug
    OnKeyPress = EditNivDebugKeyPress
  end
  object MemoEvtDet: TMemo
-    Left = 452
-    Top = 300
+    Left = 564
+    Top = 308
    Width = 181
    Height = 281
    Color = clBlack
@@ -95,8 +95,8 @@ object FormDebug: TFormDebug
    TabOrder = 1
  end
  object ButtonEcrLog: TButton
-    Left = 456
-    Top = 596
+    Left = 448
+    Top = 564
    Width = 97
    Height = 25
    Caption = 'Ecrire le log'
@@ -113,8 +113,23 @@ object FormDebug: TFormDebug
    ScrollBars = ssVertical
    TabOrder = 3
  end
+  object CheckAffSig: TCheckBox
+    Left = 448
+    Top = 64
+    Width = 297
+    Height = 17
+    Caption = 'Affichage du fonctionnement des signaux'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clBlack
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    OnClick = CheckAffSigClick
+  end
  object SaveDialog: TSaveDialog
-    Left = 616
-    Top = 16
+    Left = 480
+    Top = 440
  end
 end
--- a/UnitDebug.pas
+++ b/UnitDebug.pas
@@ -16,10 +16,12 @@ type
    ButtonEcrLog: TButton;
    Label3: TLabel;
    MemoDebug: TMemo;
+    CheckAffSig: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ButtonEcrLogClick(Sender: TObject);
    procedure EditNivDebugKeyPress(Sender: TObject; var Key: Char);
+    procedure CheckAffSigClick(Sender: TObject);
  private
    { Déclarations privées }
  public
@@ -29,6 +31,7 @@ type
 var
  FormDebug: TFormDebug;
  NivDebug : integer;
+  AffSignal : boolean;

 procedure AfficheDebug(s : string;lacouleur : TColor);
  
@@ -101,4 +104,9 @@ end;
  


+procedure TFormDebug.CheckAffSigClick(Sender: TObject);
+begin
+  AffSignal:=checkAffSig.Checked;
+end;
+
 end.
--- a/UnitPrinc.dcu
+++ b/UnitPrinc.dcu
--- a/UnitPrinc.dfm
+++ b/UnitPrinc.dfm
@@ -1,6 +1,6 @@
 object FormPrinc: TFormPrinc
-  Left = 89
-  Top = 186
+  Left = 61
+  Top = 202
  BorderStyle = bsSingle
  Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ'
  ClientHeight = 607
--- a/UnitPrinc.pas
+++ b/UnitPrinc.pas
@@ -4672,11 +4672,12 @@ end;
    if not(trouve) then inc(i);
  until trouve or (i>1024);
  if trouve then Test_mem_origine:=i else Test_mem_origine:=0;
-end;
+end;

 // mise à jour de l'état d'un feu en fontion de son environnement et affiche le feu
-procedure Maj_Feu(Adrfeu : integer);
-var i,j,k1,k2,BtypeSuiv,Adr_det,etat,Adr,Aig,DetPrec1,DetPrec2,Detprec3,Detprec4,Adr_El_Suiv,
+procedure Maj_Feu(Adrfeu : integer);
+var i,j,k1,k2,BtypeSuiv,Adr_det,etat,Adr,Aig,DetPrec1,DetPrec2,Detprec3,Detprec4,Adr_El_Suiv,
+    Btype_el_suivant,det_initial,bt,el_suiv,modele : integer ;
    bisSuiv,PresTrain,Aff_semaphore,car : boolean;
    s : string;
 begin
@@ -4845,7 +4846,6 @@ begin
                if TestBit(etat,jaune) then Maj_Etat_Signal(AdrFeu,jaune_cli)
                  else  Maj_Etat_Signal(AdrFeu,vert)
            end;
-          end;
          end;
        end;
        end;
--- a/verif_version.dcu
+++ b/verif_version.dcu
--- a/verif_version.dfm
+++ b/verif_version.dfm
@@ -22,7 +22,7 @@ object FormVersion: TFormVersion
    Height = 105
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
-    Font.Height = -12
+    Font.Height = -13
    Font.Name = 'Arial Narrow'
    Font.Style = []
    ParentFont = False
--- a/verif_version.pas
+++ b/verif_version.pas
@@ -114,13 +114,13 @@ begin
        begin
          i:=pos('version ',s);
          trouve_version:=i<>0;
-          if trouve_version then s2:=s;
+          if trouve_version then s2:=s;  // chaine contenant la version sur le site
        end;
        if not(trouve_zip) then
        begin
          i:=pos('.zip',s);
          trouve_zip:=i<>0;
-          if trouve_zip then s3:=s;
+          if trouve_zip then s3:=s;    // chaine de l'Id du zip à télécharger
        end;
       // Aff(s)
    end;
@@ -133,21 +133,35 @@ begin
      j:=pos(' ',s2);
      Version_p:=copy(s2,1,j-1);        // version dans version_p
      // isoler l'url du zip
+      //'href="./download/file.php?id=12086&amp;sid=9d0f759226f8c6e48671ab7c23cf36b4">Signaux_complexes_GL.zip';
+      //'href="./download/file.php?id=12086">Signaux_complexes_GL.zip</';
      i:=pos('href="',s3);
      delete(s3,1,i+5);
-      j:=pos('"',s3);
-      s3:=copy(s3,1,j-1);
+      // tester si champ sid=
+      i:=pos('sid=',s3);
+      if i<>0 then
+      begin
+        // supprimer la chaine sid
+        i:=pos('&amp',s3);
+        j:=pos('"',s3);
+        delete(s3,i,j-1); 
+      end
+      else
+      begin
+        j:=pos('"',s3);
+        s3:=copy(s3,1,j-1);
+      end;  
      i:=pos('.',s3);
      if i<>0 then delete(s3,i,1); // supprimer le .
      s3:='http://cdmrail.free.fr/ForumCDR'+s3 ;
-      //aff(s3);               // lien dans s3
+      aff(s3);               // lien dans s3

      // changer le . en ,
      s:=Version_p;
      i:=pos('.',s);if i<>0 then s[i]:=',';
      s2:=version;
      i:=pos('.',s2);if i<>0 then s2[i]:=',';
-
+    
      V_publie:=StrToFloat(s);
      V_utile:=StrToFloat(s2);
        if V_utile<V_publie then
@@ -162,6 +176,7 @@ begin
            Aff(s);

            if DownloadURL_NOCache(s3,s) then
+            //if true then
            begin
              Aff('Téléchargement réussi');
              Aff('Vous pouvez ouvrir le dossier de téléchargement, décomprimer le zip et l''installer');