unit UnitConfig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls , verif_version, jpeg, ComCtrls ,StrUtils ;

type
  TFormConfig = class(TForm)
    ButtonAppliquerEtFermer: TButton;
    LabelInfo: TLabel;
    Button2: TButton;
    Image1: TImage;
    PageControl: TPageControl;
    TabSheetCDM: TTabSheet;
    TabSheetAutonome: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    EditAdrIPCDM: TEdit;
    EditPortCDM: TEdit;
    GroupBox5: TGroupBox;
    Label13: TLabel;
    CheckVerifVersion: TCheckBox;
    CheckInfoVersion: TCheckBox;
    CheckLanceCDM: TCheckBox;
    CheckAvecTCO: TCheckBox;
    EditNomLay: TEdit;
    GroupBox6: TGroupBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    GroupBox7: TGroupBox;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EditcomUSB: TEdit;
    EditTempoOctetUSB: TEdit;
    EditTempoReponse: TEdit;
    GroupBox4: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    EditIPLenz: TEdit;
    EditportLenz: TEdit;
    GroupBox8: TGroupBox;
    CheckBoxServAig: TCheckBox;
    CheckBoxServDet: TCheckBox;
    CheckBoxServAct: TCheckBox;
    CheckServPosTrains: TCheckBox;
    Label6: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    TabSheetAig: TTabSheet;
    Label12: TLabel;
    TabSheetBranches: TTabSheet;
    Label14: TLabel;
    MemoBranches: TMemo;
    TabSheetSig: TTabSheet;
    Label15: TLabel;
    TabSheetAct: TTabSheet;
    Label16: TLabel;
    CheckBoxSrvSig: TCheckBox;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    GroupBox9: TGroupBox;
    CheckBoxRazSignaux: TCheckBox;
    GroupBox11: TGroupBox;
    LabelAdresse: TLabel;
    GroupBox10: TGroupBox;
    RadioButtonsans: TRadioButton;
    RadioButton30kmh: TRadioButton;
    RadioButton60kmh: TRadioButton;
    LabelLigne: TLabel;
    ImageAig: TImage;
    ImageTJD: TImage;
    ImageTri: TImage;
    GroupBox12: TGroupBox;
    ImageSignal: TImage;
    LabelAdrSig: TLabel;
    GroupBox13: TGroupBox;
    LabelDec: TLabel;
    LabelDetAss: TLabel;
    LabelElSuiv: TLabel;
    Label19: TLabel;
    GroupBox14: TGroupBox;
    RadioButtonLoc: TRadioButton;
    RadioButtonPN: TRadioButton;
    Label20: TLabel;
    GroupBoxAct: TGroupBox;
    LabelActionneur: TLabel;
    EditAct: TEdit;
    EditTrain: TEdit;
    LabelTrain: TLabel;
    EditEtatFoncSortie: TEdit;
    Labela: TLabel;
    EditFonctionAccess: TEdit;
    LabelFonction: TLabel;
    EditTempo: TEdit;
    LabelTempo: TLabel;
    GroupBoxPN: TGroupBox;
    Label21: TLabel;
    EditAdrFerme: TEdit;
    Label22: TLabel;
    EditAdrOuvre: TEdit;
    EditCmdFerme: TEdit;
    EditCdeOuvre: TEdit;
    Label23: TLabel;
    LabelV2: TLabel;
    LabelV3: TLabel;
    EditV1F: TEdit;
    Shape1: TShape;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    EditV2F: TEdit;
    EditV3F: TEdit;
    EditV1O: TEdit;
    EditV2O: TEdit;
    EditV3O: TEdit;
    Label10: TLabel;
    Label17: TLabel;
    MemoCarre: TMemo;
    RichAig: TRichEdit;
    ComboBoxDec: TComboBox;
    RichSig: TRichEdit;
    EditDet1: TEdit;
    EditSuiv1: TEdit;
    Label24: TLabel;
    Label25: TLabel;
    EditDet2: TEdit;
    EditSuiv2: TEdit;
    Label26: TLabel;
    EditDet3: TEdit;
    EditSuiv3: TEdit;
    Label27: TLabel;
    EditDet4: TEdit;
    EditSuiv4: TEdit;
    CheckVerrouCarre: TCheckBox;
    Image2: TImage;
    Label28: TLabel;
    CheckInverse: TCheckBox;
    RadioButtonAccess: TRadioButton;
    Label29: TLabel;
    Label30: TLabel;
    EditEtatActionneur: TEdit;
    CheckRAZ: TCheckBox;
    CheckFenEt: TCheckBox;
    GroupBox15: TGroupBox;
    EditNbDetDist: TEdit;
    Label31: TLabel;
    RichAct: TRichEdit;
    CheckBoxInitAig: TCheckBox;
    EditAdrSig: TEdit;
    Label32: TLabel;
    EditTempoAig: TEdit;
    EditAdrAig: TEdit;
    ComboBoxAig: TComboBox;
    GroupBox16: TGroupBox;
    LabelHG: TLabel;
    Edit_HG: TEdit;
    LabelBG: TLabel;
    EditPointe_BG: TEdit;
    ImageAffiche: TImage;
    EditP1: TEdit;
    EditP2: TEdit;
    EditP3: TEdit;
    EditP4: TEdit;
    LabelHD: TLabel;
    EditDevie_HD: TEdit;
    LabelBD: TLabel;
    EditDroit_BD: TEdit;
    Label18: TLabel;
    EditDevieS2: TEdit;
    LabelTJD1: TLabel;
    LabelTJD2: TLabel;
    Label33: TLabel;
    ComboBoxAsp: TComboBox;
    EditSpecUni: TEdit;
    LabelUni: TLabel;
    procedure ButtonAppliquerEtFermerClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MemoSignauxClick(Sender: TObject);
    procedure PageControlChange(Sender: TObject);
    procedure RichAigMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure EditPointe_BGChange(Sender: TObject);
    procedure EditDevie_HDChange(Sender: TObject);
    procedure EditDroit_BDChange(Sender: TObject);
    procedure EditDevieS2Change(Sender: TObject);
    procedure RadioButtonsansClick(Sender: TObject);
    procedure RadioButton30kmhClick(Sender: TObject);
    procedure RadioButton60kmhClick(Sender: TObject);
    procedure ComboBoxDecChange(Sender: TObject);
    procedure RichSigMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure EditDet1Change(Sender: TObject);
    procedure EditSuiv1Change(Sender: TObject);
    procedure CheckVerrouCarreClick(Sender: TObject);
    procedure EditDet2Change(Sender: TObject);
    procedure EditSuiv2Change(Sender: TObject);
    procedure EditDet3Change(Sender: TObject);
    procedure EditSuiv3Change(Sender: TObject);
    procedure EditDet4Change(Sender: TObject);
    procedure EditSuiv4Change(Sender: TObject);
    procedure EditActChange(Sender: TObject);
    procedure RichActMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure EditEtatActionneurChange(Sender: TObject);
    procedure EditTrainChange(Sender: TObject);
    procedure EditFonctionAccessChange(Sender: TObject);
    procedure EditEtatFoncSortieChange(Sender: TObject);
    procedure EditTempoChange(Sender: TObject);
    procedure CheckRAZClick(Sender: TObject);
    procedure Edit_HGChange(Sender: TObject);
    procedure CheckInverseClick(Sender: TObject);
    procedure EditAdrSigChange(Sender: TObject);
    procedure EditAdrAigChange(Sender: TObject);
    procedure ComboBoxAspChange(Sender: TObject);
    procedure EditSpecUniChange(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }

  end;

const
// variables du fichier de configuration "config-gl.cfg"
section_init='[section_init]';
nb_det_dist_ch='nb_det_dist';
IpV4_PC_ch='IpV4_PC';
retro_ch='retro';
Init_aig_ch='Init_Aig';
LAY_ch='Lay';
IPV4_INTERFACE_ch='IPV4_INTERFACE';
PROTOCOLE_SERIE_ch='PROTOCOLE_SERIE';
INTER_CAR_ch='INTER_CAR';
Tempo_maxi_ch='Tempo_maxi';
Entete_ch='Entete';
TCO_ch='TCO';
CDM_ch='CDM';
Serveur_interface_ch='Serveur_interface';
fenetre_ch='Fenetre';
Tempo_aig_ch='Tempo_Aig';
NOTIF_VERSION_ch='NOTIF_VERSION';
verif_version_ch='verif_version';
Fonte_ch='Fonte';

var
  FormConfig: TFormConfig;
  AdresseIPCDM,AdresseIP,PortCom,recuCDM,residuCDM : string;
  portCDM,TempoOctet,TimoutMaxInterface,Valeur_entete,Port,protocole,NumPort,
  LigneCliquee,AncLigneCliquee : integer;
  ack_cdm,clicliste,entreeTCO : boolean;

function config_com(s : string) : boolean;
function envoi_CDM(s : string) : boolean;
procedure connecte_CDM;
function place_id(s : string) : string;
procedure decodeAig(s : string;var adr : integer;var B : char);
procedure sauve_config;
  
implementation

uses UnitDebug,UnitPrinc, UnitTCO;

{$R *.dfm}

// envoi d'une chaîne à CDM par socket, puis attend l'ack ou le nack
function envoi_CDM(s : string) : boolean;
var temps : integer;
begin
    if SocketCDM_connecte=false then begin envoi_CDM:=false;exit;end;
    //Affiche('Envoi à CDM rail',clRed);Affiche(s,ClGreen);
    if traceTrames then afficheDebug(s,clLime);
    Formprinc.ClientSocketCDM.Socket.SendText(s);
    // attend l'ack
    ackCDM:=false;nackCDM:=false;
    temps:=0;
    repeat
      inc(temps);Sleep(100);
      Application.processMessages;
    until ferme or ackCDM or nackCDM or (temps>30); // CDM répond < 1s
    //Affiche(IntToSTR(temps),clyellow);
    if not(ackCDM) or nack then
    begin
      Affiche('Pas de réponse de CDM Rail',clRed);
    end;
  envoi_CDM:=ackCDM;
end;

// insère l'id pour le serveur CDM dans une chaîne
function place_id(s : string) : string;
begin
  delete(s,5,2);
  insert(id_cdm,s,5);
  place_id:=s;
end;

// demande les services à CDM
function services_CDM : boolean;
var s,ss : string;
    i : integer;
begin
  //s:=place_id('C-C-00-0002-RQSERV-RTSIM|030|03|SRV=ATNT;SRV=ADET;SRV=AACT;');
  s:=place_id('C-C-00-0002-RQSERV-RTSIM|xxx|xx|');
  i:=0;
  if Srvc_Aig then begin s:=s+'SRV=ATNT;';inc(i);end;
  if Srvc_Act then begin s:=s+'SRV=AACT;';inc(i);end;
  if Srvc_Det then begin s:=s+'SRV=ADET;';inc(i);end;
  if Srvc_PosTrain then  begin s:=s+'SRV=TSXY;';inc(i);end ;
  if Srvc_Sig then begin s:=s+'SRV=ASIG;';inc(i);end;

  // insère le nombre de paramètres
  ss:=format('%.*d',[2,i]) ;
  delete(s,30,2);
  insert(ss,s,30);
  // insère la longueur des paramètres
  i:=length(s)-29;
  ss:=format('%.*d',[3,i]) ;
  delete(s,26,3);
  insert(ss,s,26);
  //Affiche(s,clyellow);

  envoi_CDM(s);sleep(100);
  if ack_cdm then
  begin
    s:='Services acceptés: ';
    if Srvc_Aig then s:=s+'- aiguillages ';
    if Srvc_Act then s:=s+'- actionneurs ';
    if Srvc_Det then s:=s+'- détecteurs ';
    if Srvc_PosTrain then s:=s+'- position des trains ';
    if Srvc_sig then s:=s+'- état des signaux ';
    Affiche(s,clYellow);
  end;
  services_CDM:=ack_cdm;
  ack_cdm:=false;
end;

procedure connecte_CDM;
var s : string;
    i : integer;
begin
  // déconnexion de l'ancienne liaison éventuelle
  Formprinc.ClientSocketCDM.Close;
  // Initialisation de la comm socket CDM
  //if CDM_connecte then begin Affiche('CDM déja connecté',Cyan);exit;end;
  if AdresseIPCDM<>'0' then
  begin
    // ouverture du socket CDM
    with Formprinc do
    begin
      ClientSocketCDM.port:=portCDM;
      ClientSocketCDM.Address:=AdresseIPCDM;
      ClientSocketCDM.Open;
    end;
    i:=0;
    repeat
      Sleep(50);
      inc(i);
      Application.processMessages;
    until (i>10) or SocketCDM_connecte  ;
    //if i>30 then affiche('Timeout',clred);
    if not(SocketCDM_connecte) then begin Affiche('Socket CDM non connecté',clOrange);exit;end;

    // connexion à CDM rail
    recuCDM:='';
    s:='C-C-00-0001-CMDGEN-_CNCT|000|';
    envoi_cdm(s);
    if ack_cdm then
    begin
      ack_cdm:=false;
      Id_CDM:=copy(recuCDM,5,2);   // récupère l'ID reçu de CDM, à utiliser dans toutes les futures trames
      recucdm:='';
      s:='Connecté au serveur CDM rail avec l''ID='+Id_CDM;

      Affiche(s,clYellow);
      AfficheDebug(s,clyellow);
      CDM_connecte:=true;

      // demande des services
      services_CDM;

      // demande les trains
      s:=place_id('C-C-01-0002-DSCTRN-DLOAD|000|');
      envoi_CDM(s);
    end;
  end
  else
  begin
    Affiche('La connexion à CDM n''est pas demandée car l''adresse IP est nulle dans config.cfg',cyan);
  end;
end;

// teste si une adresse IP V4 est ok
function Ipok(s : string) : boolean;
var i,k,octet,erreur : integer;
begin
  for k:=1 to 3 do
  begin
    i:=pos('.',s);
    if i=0 then begin IpOK:=false;exit;end;
    val(copy(s,1,i-1),octet,erreur);if (erreur<>0) or (octet>255) then begin IpOK:=false;exit;end;
    delete(s,1,i);
  end;
  val(s,octet,erreur);if (erreur<>0) or (octet>255) then begin IpOK:=false;exit;end;
  ipOK:=true;
end;

// vérifie si la config de la com série/usb est ok
function config_com(s : string) : boolean;
var sa : string;
    i,erreur : integer;
begin
  sa:=s;
  protocole:=-1;
  // supprimer la dernier paramètre
  i:=pos(',',s);
  if i<>0 then
  begin
    delete(s,1,i);
    i:=pos(',',s);
    if i<>0 then
    begin
      delete(s,1,i);
      i:=pos(',',s);
      if i<>0 then
      begin
        delete(s,1,i);
        i:=pos(',',s);
        if i<>0 then
        begin
          delete(s,1,i);
          Val(s,protocole,erreur);
        end;
      end;
    end;
  end;

  i:=pos(':',sa);
  val(copy(sa,4,i-1),Numport,erreur);
  config_com:=not( (copy(sa,1,3)<>'COM') or (NumPort>9) or (protocole=-1) or (protocole>4) or (i=0) );
end;


// transforme l'aiguillage du tableau en texte
function encode_aig(i : integer): string;
var s : string;
    c : char;
    tjd : boolean;
begin
   s:=IntToSTR(i);
   tjd:=aiguillage[i].modele=2;
   if tjd then s:=s+'TJD';
   if aiguillage[i].modele=3 then s:=s+'TJS';
   if aiguillage[i].modele=4 then begin s:=s+'TRI,';s:=s+intToSTR(aiguillage[i].AdrTriple);end;
   s:=s+',';
   if not(tjd) then
   begin
     // P
     s:=s+'P';s:=s+intToSTR(aiguillage[i].Apointe);
     c:=aiguillage[i].APointeB ;
     if c<>'Z' then s:=s+c;
     // D
     s:=s+',D';s:=s+intToSTR(aiguillage[i].Adroit);
     c:=aiguillage[i].ADroitB ;
     if c<>'Z' then s:=s+c;
     // S
     s:=s+',S';s:=s+intToSTR(aiguillage[i].Adevie);
     c:=aiguillage[i].AdevieB ;
     if c<>'Z' then s:=s+c;
     // S2 aiguillage triple
     if aiguillage[i].modele=4 then
     begin
       s:=s+',S2-';
       s:=s+intToSTR(aiguillage[i].Adevie2);
       c:=aiguillage[i].Adevie2B ;
       if c<>'Z' then s:=s+c;
     end;
     // vitesse de franchissement
     if aiguillage[i].vitesse=0 then s:=s+',V0';
     if aiguillage[i].vitesse=30 then s:=s+',V30';
     if aiguillage[i].vitesse=60 then s:=s+',V60';
     if aiguillage[i].inversionCDM=1 then s:=s+',I1' else s:=s+',I0';
   end

   else
   // tjd
   begin
     s:=s+'D('+intToSTR(aiguillage[i].Adroit);
     c:=aiguillage[i].AdroitB;if c<>'Z' then s:=s+c;
     s:=s+','+intToSTR(aiguillage[i].DDroit)+aiguillage[i].DDroitB+'),';
     s:=s+'S('+intToSTR(aiguillage[i].Adevie);
     c:=aiguillage[i].AdevieB;if c<>'Z' then s:=s+c;
     s:=s+','+intToSTR(aiguillage[i].DDevie)+aiguillage[i].DDevieB+'),';
     s:=s+'I'+IntToSTR(aiguillage[i].InversionCDM);
   end;

   encode_aig:=s;
end;

function TypeEl_to_char(i : integer) : string;
begin
  case i of  // 1=détecteur 2=aig ou TJD ou TJS  4=tri
  1 : TypeEl_to_char:='';
  2,3,4 : TypeEl_to_char:='A';
  end;

end;

// transforme le signal du tableau graphique en texte
function encode_sig(i : integer): string;
var s : string;
    c : char;
    adresse,aspect,j,k,NfeuxDir,CondCarre,l,nc : integer;
begin
  // adresse
  adresse:=feux[i].adresse;
  if adresse=0 then begin encode_sig:='';exit;end;

  s:=IntToSTR(adresse)+',';
  // forme - D=directionnel ajouter 10
  aspect:=feux[i].aspect;
  if aspect<10 then s:=s+IntToSTR(aspect)+',' else s:=s+'D'+intToSTR(aspect-10)+',';

  // bouton feu blanc, n'existe pas pour un feu directionnel (aspect>10)
  if aspect<10 then begin if feux[i].feublanc then s:=s+'1,' else s:=s+'0,';end;

  // décodeur
  s:=s+IntToSTR(feux[i].decodeur)+',';

  // detecteur et élement suivant (4 maxi)
  if aspect<10 then
  begin
    s:=s+'('+IntToSTR(feux[i].Adr_det1)+','+TypeEl_To_char(feux[i].Btype_suiv1)+IntToSTR(feux[i].Adr_el_suiv1);
    j:=feux[i].Adr_det2;
    if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det2)+','+TypeEl_To_char(feux[i].Btype_suiv2)+IntToSTR(feux[i].Adr_el_suiv2);
    j:=feux[i].Adr_det3;
    if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det3)+','+TypeEl_To_char(feux[i].Btype_suiv3)+IntToSTR(feux[i].Adr_el_suiv3);
    j:=feux[i].Adr_det4;
    if j<>0 then s:=s+','+IntToSTR(feux[i].Adr_det4)+','+TypeEl_To_char(feux[i].Btype_suiv4)+IntToSTR(feux[i].Adr_el_suiv4);
    s:=s+'),';
  end
  else
  // feux directionnels
  begin
    NfeuxDir:=aspect-10;
    for j:=1 to NfeuxDir+1 do
    begin
      s:=s+'(';
      for k:=1 to Length(feux[i].AigDirection[j])-1 do
      begin
        s:=s+'A'+IntToSTR(feux[i].AigDirection[j][k].adresse) + feux[i].AigDirection[j][k].posaig;
        if k<Length(feux[i].AigDirection[j])-1 then s:=s+',';
      end;
      s:=s+')';
    end;
  end;

  //verrouillage au carré
  if aspect<10 then
  begin
    if feux[i].verrouCarre then s:=s+'1' else s:=s+'0';
    // si unsemaf, paramètre supplémentaire
    if feux[i].decodeur=6 then s:=s+','+intToSTR(feux[i].unisemaf);
  end;

  // conditions supplémentaires pour le carré
  if aspect<10 then
  begin                
   CondCarre:=Length(feux[i].condcarre[1]);  // nombre de conditions (nombre de parenthèses ex 3 pour (A21S,A6D)(A30S,A20D)(A1D,A2S,A3D)
   if condCarre<>0 then
   begin
      dec(condCarre);
      l:=1;
      while condCarre<>0 do
      begin
        //if condcarre<>0 then dec(condcarre);
        s:=s+',(';
        nc:=Length(feux[i].condcarre[l])-1 ;     // nombre d'aiguillages dans la parenthèse A21,S,A6,D = 4 
        for k:=1 to nc do
        begin
          s:=s+'A'+IntToSTR(feux[i].condcarre[l][k].Adresse)+feux[i].condcarre[l][k].PosAig;
          if k<nc then s:=s+',';
        end;
        s:=s+')';
        inc(l);
        //CondCarre:=Length(feux[i].condcarre[l]);
        dec(condcarre);
      end;
    end;  
  end;
  encode_sig:=s;
end;

// transforme l'actionneur type loco ou actionneur du tableau en texte
// paramètre d'entrée : index
function encode_act_loc(i : integer): string;
var s : string;
    c : char;
    adresse : integer;
begin
  // adresse
  
  adresse:=Tablo_Actionneur[i].actionneur;
  if adresse=0 then begin encode_act_loc:='';exit;end;
  if Formconfig.radioButtonLoc.Checked then
    s:=IntToSTR(adresse)+','+IntToSTR(Tablo_Actionneur[i].Etat)+','+Tablo_Actionneur[i].train+',F'+IntToSTR(Tablo_Actionneur[i].fonction)+','+intToSTR(Tablo_Actionneur[i].tempo);
  if FormConfig.RadioButtonAccess.Checked then
  begin
    s:=IntToSTR(adresse)+','+IntToSTR(Tablo_Actionneur[i].Etat)+','+Tablo_Actionneur[i].train+
       ',A'+IntToSTR(Tablo_Actionneur[i].accessoire)+','+intToSTR(Tablo_Actionneur[i].sortie)+',';
    if Tablo_Actionneur[i].Raz then s:=s+'Z' else s:=s+'S';
  end;     

  encode_act_loc:=s; 
end;


// modifie les fichiers de config en fonction du paramétrage
procedure genere_config;
var s: string;
    fichier,fichierN : text;
    i,j : integer;
    continue : boolean;
    
    // lit une ligne du fichier source "fichier", si c'est une ligne de commentaire, copie jusqu'à ne plus rencontrer
    // de ligne commentaire, et retourne la ligne en sortie
    function copie_commentaire : string  ;
    var c : char;
    begin
      repeat
        readln(fichier,s);
        //Affiche(s,clWhite);
        if length(s)>0 then c:=s[1];
        if c='/' then writeln(fichierN,s);  // copie le commentaire
      until ((c<>'/') and (s<>'')) or eof(fichier) ;
      copie_commentaire:=s;
    end;
    
begin
  try
    assign(fichier,'client-GL.cfg');
    reset(fichier);
  except
    Affiche('Fichier client-gl.cfg non trouvé',clred);
    exit;
  end;

  assign(fichierN,'client-GL.tmp');
  rewrite(fichierN);

  // entête
  copie_commentaire;
  // taille de la fonte
  writeln(fichierN,Fonte_ch+'=',TailleFonte);
  copie_commentaire;

  // adresse ip et port de CDM
  writeln(fichierN,IpV4_PC_ch+'=',adresseIPCDM+':'+intToSTR(portCDM));
  copie_commentaire;

  // adresse ip interface XpressNet
  writeln(fichierN,IPV4_Interface_ch+'=',adresseIP+':'+intToSTR(port));
  copie_commentaire;

  // port com
  writeln(fichierN,Protocole_serie_ch+'=',portcom);
  copie_commentaire;

  // temporisation caractère TempoOctet
  writeln(fichierN,Inter_Car_ch+'=',IntToSTR(TempoOctet));
  copie_commentaire;

  // temporisation attente maximale interface
  writeln(fichierN,Tempo_maxi_ch+'=',IntToSTR(TimoutMaxInterface));
  copie_commentaire;

  // entete Valeur_entete
  writeln(fichierN,Entete_ch+'=',intToSTR(Valeur_entete));
  copie_commentaire;

  // avec ou sans initialisation des aiguillages
  if AvecInitAiguillages then s:='1' else s:='0';
  writeln(fichierN,Init_Aig_ch+'='+s);
  copie_commentaire;

  // temporisation initialisation des aiguillages
  writeln(fichierN,Tempo_aig_ch+'=',IntToSTR(Tempo_aig));
  copie_commentaire;

  // plein écran
  writeln(fichierN,Fenetre_ch+'=',fenetre);
  copie_commentaire;

  // Nombre maxi de détecteurs considérés distants
  writeln(fichierN,nb_det_dist_ch+'=',Nb_Det_Dist);
  copie_commentaire;

  // Vérification des versions au démarrage
  if verifVersion then s:='1' else s:='0';
  writeln(fichierN,verif_version_ch+'=',s);
  copie_commentaire;

  // Notification de nouvelle version
  if notificationVersion then s:='1' else s:='0';
  writeln(fichierN,notif_version_ch+'=',s);
  copie_commentaire;

  // Avec TCO
  if AvecTCO then s:='1' else s:='0';
  writeln(fichierN,TCO_ch+'=',s);
  copie_commentaire;

  // lancement de CDM
  if LanceCDM then s:='1' else s:='0';
  writeln(fichierN,CDM_ch+'=',s);
  copie_commentaire;

  // Nom du LAY
  writeln(fichierN,lay_ch+'=',Lay);
  copie_commentaire;

  // Serveur d'interface de CDM
  writeln(fichierN,Serveur_interface_ch+'=',intToSTR(ServeurInterfaceCDM));
  copie_commentaire;

  // Serveur de rétrosignalisation Lenz de CDM
  writeln(fichierN,retro_ch+'=',intToSTR(ServeurRetroCDM));
  copie_commentaire;

  // [section init] est copié ici
  if pos(section_init,lowercase(s))=0 then  writeln(fichierN,section_init);
  writeln(fichierN,s);
  // valeurs des initialisations
  repeat
    readln(fichier,s);
    writeln(fichierN,s);
    continue:=s[1]<>'0';
  until not(continue);
  copie_commentaire;

  closefile(fichier);
  closefile(fichierN);

  // ----------------config.cfg ----------------------------
  try
    assign(fichier,'config.cfg');
    reset(fichier);
  except
    Affiche('Fichier config.cfg non trouvé',clred);
    exit;
  end;

  assign(fichierN,'config.tmp');
  rewrite(fichierN);

  // entête
  copie_commentaire;
  // 2 variables inutilisées
  writeln(fichierN,'Log=0');
  copie_commentaire;
  // fichier log
  writeln(fichierN,'TraceDet=0');
  copie_commentaire;
  // Raz Signaux
  if Raz_Acc_signaux then s:='1' else s:='0';
  writeln(fichierN,'RazSignaux='+s);
  copie_commentaire;

  // modélisation des aiguillages
  for i:=1 to MaxAiguillage do
  begin
    if aiguillage[i].modele<>0 then
    begin
      s:=encode_aig(i);
      aiguillage[i].modifie:=false;       // sauvegarde en cours, on démarque 
      writeln(fichierN,s);
      readln(fichier,s);
      if s[1]='/' then writeln(fichierN,s);
    end;
  end;
  
  if s[1]<>'0' then
  repeat
    readln(fichier,s);
    continue:=s[1]<>'0';
  until not(continue);
  writeln(fichierN,'0');

  copie_commentaire;
  
  writeln(fichierN,s);
  // modélisation des branches de réseau
  if s[1]<>'0' then
  repeat
    readln(fichier,s);
    writeln(fichierN,s);
    continue:=s[1]<>'0';
  until not(continue);

  // copie tous les commentaires de la branche feux
  repeat
    readln(fichier,s);
    continue:=true;
    if length(s)>0 then
    begin
      if s[1]='/' then writeln(fichierN,s);
      continue:=s[1]<>'0';
    end;
  until not(continue) or eof(fichier);

  for i:=1 to NbreFeux do
  begin
    s:=encode_sig(i);
    feux[i].modifie:=false;       // sauvegarde en cours, on démarque 
    writeln(fichierN,s);
  end;
  writeln(fichierN,'0');
  
  // Fonctions Fx généré du fichier d'origine, pas encore fait
  repeat
    continue:=true;
    readln(fichier,s);
    writeln(fichierN,s);
    if length(s)>0 then continue:=s[1]<>'0';
  until not(continue) or eof(fichier);
  
  closefile(fichier);
  closefile(fichierN);
  
  deletefile('config.cfg');
  deletefile('client-GL.cfg');

  renameFile('config.tmp','config.cfg');
  renameFile('client-GL.tmp','client-GL.cfg');

end;

// sauvegarder la config dans les fichiers cfg
procedure Sauve_config;
var i,erreur : integer;
    s : string;
    ChangeCDM,changeInterface,changeUSB,change_srv : boolean;
begin
  // Vérification de la configuration-------------------------------------------
  // contrôle adresse IP CDM
  with FormConfig do
  begin
  s:=EditAdrIPCDM.text;
  if not(IpOk(s)) then begin labelInfo.Caption:='Adresse IP CDM rail incorrecte';exit;end;
  ChangeCDM:=s<>AdresseIPCDM;
  adresseIPCDM:=s;

  // contrôle port CDM
  val(EditPortCDM.Text,i,erreur);
  if i>65535 then begin labelInfo.Caption:='Port CDM rail incorrect';exit;end;
  changeCDM:=(portCDM<>i) or ChangeCDM;
  portCDM:=i;

  // contrôle adresse IP interface
  s:=EditIPLenz.text;
  if not(IpOk(s)) and (s<>'0') then begin labelInfo.Caption:='Adresse IP Lenz incorrecte';exit;end;
  changeInterface:=s<>AdresseIP;
  AdresseIP:=s;

  // contrôle port interface
  val(EditPortLenz.Text,i,erreur);
  if i>65535 then begin labelInfo.Caption:='Port Interface incorrect';exit;end;
  changeInterface:=changeInterface or (i<>port);
  port:=i;

  Val(editTempoAig.Text,i,erreur);
  if i>3000 then begin labelInfo.Caption:='Temporisation de séquencement incorrecte ';exit;end;
  Tempo_Aig:=i;
  
  // contrôle protocole interface  COM3:57600,N,8,1,2
  s:=EditComUSB.Text;
  if not(config_com(s)) then begin labelInfo.Caption:='Protocole série USB Interface incorrect';exit;end;
  changeUSB:=portcom<>s;
  portcom:=s;
  
  val(EditTempoOctetUSB.text,i,erreur);
  if erreur<>0 then begin labelInfo.Caption:='Valeur temporisation octet incorrecte';exit;end; 
  TempoOctet:=i;
  
  val(EditTempoReponse.text,i,erreur);
  if erreur<>0 then begin labelInfo.Caption:='Valeur temporisation de réponse interface';exit;end; 
  TimoutMaxInterface:=i;

  val(EditNbDetDist.text,i,erreur);
  if (erreur<>0) or (i<3) then begin labelInfo.Caption:='Valeur nombre de détecteurs trop distants incorrecte';exit;end; 
  Nb_Det_Dist:=i;


  if RadioButton1.checked then Valeur_entete:=0;
  if RadioButton2.checked then Valeur_entete:=1;
  if RadioButton3.checked then Valeur_entete:=2;
  case Valeur_entete of
   0 : begin entete:='';suffixe:='';end;
   1 : begin entete:=#$FF+#$FE;suffixe:='';end;
   2 : begin entete:=#228;suffixe:=#13+#13+#10;end;
  end;

  if changeCDM then connecte_CDM;
  if changeInterface then 
  begin
    if AdresseIP<>'0' then
    begin
      Affiche('demande connexion à la centrale Lenz par Ethernet',clyellow);
      With Formprinc do
      begin
        ClientSocketLenz.port:=port;
        ClientSocketLenz.Address:=AdresseIP;
        ClientSocketLenz.Open;
      end;  
    end
  end;

  if changeUSB then 
  begin
    deconnecte_USB;
    connecte_USB;
  end;

  verifVersion:=CheckVerifVersion.Checked;
  notificationVersion:=CheckInfoVersion.Checked;

  LanceCDM:=CheckLanceCDM.Checked;
  if CheckFenEt.checked then fenetre:=1 else fenetre:=0;
  
  AvecTCO:=CheckAvecTCO.checked;
  Lay:=EditNomLay.Text;
  if RadioButton4.Checked then ServeurInterfaceCDM:=0;
  if RadioButton5.Checked then ServeurInterfaceCDM:=1;
  if RadioButton6.Checked then ServeurInterfaceCDM:=2;
  if RadioButton7.Checked then ServeurInterfaceCDM:=3;
  if RadioButton8.Checked then ServeurInterfaceCDM:=4;
  if RadioButton9.Checked then ServeurInterfaceCDM:=5;
  if RadioButton10.Checked then ServeurInterfaceCDM:=6;
  if RadioButton11.Checked then ServeurInterfaceCDM:=7;
  if RadioButton12.Checked then ServeurInterfaceCDM:=8;
  if RadioButton12.Checked then ServeurInterfaceCDM:=13;
  if RadioButton13.Checked then ServeurRetroCDM:=1;
  if RadioButton14.Checked then ServeurRetroCDM:=2;
  if RadioButton15.Checked then ServeurRetroCDM:=3;
  if RadioButton16.Checked then ServeurRetroCDM:=4;
  if RadioButton17.Checked then ServeurRetroCDM:=5;
  if RadioButton18.Checked then ServeurRetroCDM:=6;

  // changement sur les services CDM ?
  change_srv:=Srvc_Aig<>CheckBoxServAig.checked;
  change_srv:=Srvc_Det<>CheckBoxServDet.checked or change_srv;
  change_srv:=Srvc_Act<>CheckBoxServAct.checked or change_srv;
  change_srv:=Srvc_PosTrain<>CheckServPosTrains.checked or change_srv;
  change_srv:=Srvc_Sig<>CheckBoxSrvSig.checked or change_srv;
  
  Srvc_Aig:=CheckBoxServAig.checked;
  Srvc_Det:=CheckBoxServDet.checked;
  Srvc_Act:=CheckBoxServAct.checked;
  Srvc_PosTrain:=CheckServPosTrains.checked;
  Srvc_Sig:=CheckBoxSrvSig.checked;
  Raz_Acc_signaux:=CheckBoxRazSignaux.checked;
  AvecInitAiguillages:=CheckBoxInitAig.Checked;
  
  end;
  
  if change_srv then services_CDM;

  // générer le fichiers config.cfg et clieng-GL.cfg
  genere_config;

end;

procedure TFormConfig.ButtonAppliquerEtFermerClick(Sender: TObject);
begin
  Sauve_config;
  formConfig.close;
  // TCO  
  if avectco and not(entreeTCO) then
  begin
    //créée la fenêtre TCO non modale
    FormTCO:=TformTCO.Create(nil);
    FormTCO.show;
  end;
end;

procedure TFormConfig.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TFormConfig.FormActivate(Sender: TObject);
var i : integer;
begin
  Edit_HG.Visible:=false;
  labelHG.Visible:=false;
  EditP1.Visible:=false;
  EditP2.Visible:=false;
  EditP3.Visible:=false;
  EditP4.Visible:=false;
//  CheckInverse.Visible:=false;
  LabelTJD1.Visible:=false;
  LabelTJD2.Visible:=false;
  EditDevieS2.Visible:=false;
  Label18.Visible:=false;
  GroupBoxPN.Visible:=false;
  GroupBoxAct.Visible:=false;
  

  
  EditP1.ReadOnly:=true;
  EditP2.ReadOnly:=true;
  EditP3.ReadOnly:=true;
  EditP4.ReadOnly:=true;
  EditPointe_BG.ReadOnly:=false;
  EditDevie_HD.ReadOnly:=false;
  EditDroit_BD.ReadOnly:=false;
  Edit_HG.ReadOnly:=false;
  

  EditNbDetDist.text:=IntToSTR(Nb_Det_dist);
  EditAdrIPCDM.text:=adresseIPCDM;
  EditPortCDM.Text:=IntToSTR(portCDM);
  EditIPLenz.text:=AdresseIP;
  EditportLenz.text:=IntToSTR(Port);
  EditTempoAig.Text:=IntToSTR(Tempo_Aig);
  EditComUSB.Text:=PortCom;
  EditTempoOctetUSB.text:=IntToSTR(TempoOctet);
  EditTempoReponse.Text:=IntToSTR(TimoutMaxInterface);
  RadioButton1.checked:=false;
  RadioButton2.checked:=false;
  RadioButton3.checked:=false;
  if Valeur_entete=0 then RadioButton1.checked:=true;
  if Valeur_entete=1 then RadioButton2.checked:=true;
  if Valeur_entete=2 then RadioButton3.checked:=true;
  LabelInfo.Width:=253;LabelInfo.Height:=25;

  CheckVerifVersion.Checked:=verifVersion;
  CheckFenEt.Checked:=Fenetre=1;
  CheckInfoVersion.Checked:=notificationVersion;
  CheckLanceCDM.Checked:=LanceCDM;
  CheckAvecTCO.checked:=avecTCO;
  entreeTCO:=avecTCO;
  EditNomLay.Text:=Lay;
  RadioButton4.Checked:=ServeurInterfaceCDM=0;
  RadioButton5.Checked:=ServeurInterfaceCDM=1;
  RadioButton6.Checked:=ServeurInterfaceCDM=2;
  RadioButton7.Checked:=ServeurInterfaceCDM=3;
  RadioButton8.Checked:=ServeurInterfaceCDM=4;
  RadioButton9.Checked:=ServeurInterfaceCDM=5;
  RadioButton10.Checked:=ServeurInterfaceCDM=6;
  RadioButton11.Checked:=ServeurInterfaceCDM=7;
  RadioButton12.Checked:=ServeurInterfaceCDM=8;
  RadioButton12.Checked:=ServeurInterfaceCDM=13;
  RadioButton13.Checked:=ServeurRetroCDM=1;
  RadioButton14.Checked:=ServeurRetroCDM=2;
  RadioButton15.Checked:=ServeurRetroCDM=3;
  RadioButton16.Checked:=ServeurRetroCDM=4;
  RadioButton17.Checked:=ServeurRetroCDM=5;
  RadioButton18.Checked:=ServeurRetroCDM=6;

  CheckBoxServAig.checked:=Srvc_Aig;
  CheckBoxServDet.checked:=Srvc_Det;
  CheckBoxServAct.checked:=Srvc_Act;
  CheckServPosTrains.checked:=Srvc_PosTrain;
  CheckBoxRazSignaux.checked:=Raz_Acc_signaux;
  CheckBoxInitAig.checked:=AvecInitAiguillages;

  EditDroit_BD.Text:='';
  EditPointe_BG.Text:='';
  EditDevie_HD.Text:='';                
end;


procedure TFormConfig.FormCreate(Sender: TObject);
var i : integer;
s : string;
couleur : Tcolor;
begin
  AncLigneCliquee:=-1;
  // remplit les 4 fenêtres de config des aiguillages branches signaux, actionneurs

  // aiguillages
  RichAig.Clear;
  for i:=1 to MaxAiguillage do
  begin
    if aiguillage[i].modele<>0 then
    begin
      s:=encode_aig(i);
     // Affiche(s,couleur);
      RichAig.Lines.Add(s);
      RE_ColorLine(RichAig,RichAig.lines.count-1,ClAqua);
      Aiguillage[i].modifie:=false;
    end;
  end;
  // branches
  for i:=1 to NbreBranches do
    MemoBranches.Lines.Add(mod_Branches[i]);

  // signaux
  RichSig.clear;
  for i:=1 to NbreFeux do
  begin
    s:=encode_sig(i);
    if s<>'' then
    begin
      //Affiche(s,clyellow);
      RichSig.Lines.Add(s);
      RE_ColorLine(RichSig,RichSig.lines.count-1,ClAqua);
      Feux[i].modifie:=false; 
    end;  
  end;

  // actionneurs
  for i:=1 to maxTablo_act do
  begin
    RichAct.Lines.Add(mod_Act[i]);
    RE_ColorLine(RichAct,RichAct.lines.count-1,ClAqua)
  end;  
  PageControl.ActivePage:=TabSheetCDM;  // force le premier onglet sur la page

  for i:=1 to NbDecodeur do
  begin
    ComboBoxDec.items.add(decodeur[i-1]);
  end;
  EditDet1.Text:='';EditDet2.Text:='';EditDet3.Text:='';EditDet4.Text:='';
  EditSuiv1.Text:='';EditSuiv2.Text:='';EditSuiv3.Text:='';EditSuiv4.Text:='';
end;


// décode un morceau d'une chaine d'aiguillage ('P5S')
// si erreur, B='?'
procedure decodeAig(s : string;var adr : integer;var B : char);
var erreur,i : integer;
begin
  if s='' then begin B:='?';adr:=0;exit;end;
  if (s[1]='P') or (s[1]='S') or (s[1]='D') then delete(s,1,1);
  // supprimer le champ suivant éventuel
  i:=pos(',',s);
  if i<>0 then delete(s,i,length(s)-i+1);
  val(s,adr,erreur);
  if adr<0 then begin B:='?';adr:=0;exit;end;
  if erreur<>0 then
  begin
    if s[erreur]='S' then begin B:='S';exit;end;
    if s[erreur]='P' then begin B:='P';exit;end;
    if s[erreur]='D' then begin B:='D';exit;end;
  end;
  B:='Z';
end;

// procédure appellée quand on clique une ligne aiguillage de RichAig
procedure Aff_champs_aig;
var Adresse,Adr2,traite,erreur,i,j,Nboucle,selpos,AncAdresse,lc : integer;
    bis,tjd,tri,tjs : boolean;
    s,ss : string;
    B : char;
begin
  // déterminer la ligne cliquée et mettre en surbrillance
  with Formconfig.RichAig do
  begin
    lc:=Perform(EM_LINEFROMCHAR,-1,0);  // numéro de la lignée cliquée

    s:=Uppercase(Lines[lc]);   
    if s='' then exit;

    AncLigneCliquee:=LigneCliquee;
    ligneCliquee:=lc;
    //Affiche('Ancienne='+IntToSTR(AncLigneCliquee)+' Nouvelle='+IntToSTR(LigneCliquee),clyellow);
    
    // Mettre en rouge l'aiguillage modifié quand on clique sur un autre aiguillage
    if AncLigneCliquee<>-1 then 
    begin
      val(FormConfig.RichAig.Lines[AncLigneCliquee],AncAdresse,erreur);
      
      if aiguillage[AncAdresse].modifie then RE_ColorLine(Formconfig.RichAig,AncligneCliquee,ClWhite) else
      RE_ColorLine(Formconfig.RichAig,AncligneCliquee,ClAqua);
    end;  
    
    {
    SelStart:=Perform(EM_LINEINDEX,ligneCliquee,0);  // début de la sélection
    SelLength:=Length(s) ;  // fin de la sélection
    SetFocus;
    }
    
  end;

  Val(s,Adresse,erreur);  // Récupérer l'adresse de l'aiguillage
  if adresse=0 then exit;

  RE_ColorLine(Formconfig.RichAig,ligneCliquee,Clyellow);

  ss:=InttoSTr(Adresse);
  formconfig.EditAdrAig.text:= ss;

  tjd:=pos('TJD',s)<>0 ;
  tri:=pos('TRI',s)<>0 ;
  tjs:=pos('TJS',s)<>0 ;
  with formconfig do
  begin
    LabelLigne.caption:=s;
    ImageAffiche.Picture.Bitmap.TransparentMode:=tmAuto;
    ImageAffiche.Picture.Bitmap.TransparentColor:=clblue;
    ImageAffiche.Transparent:=true;
    // tjd
    if tjd or tjs then 
    begin
      if tjd then ComboBoxAig.ItemIndex:=1; //  0=n'existe pas  1=aiguillage 2=TJD 3=TJS 4=aiguillage triple
      if tjs then ComboBoxAig.ItemIndex:=2;
      ImageAffiche.Picture.BitMap:=Imagetjd.Picture.Bitmap;
      labelBG.Caption:='S';
      Edit_HG.Visible:=true;
      labelTJD1.Visible:=true;
      LabelTJD2.Visible:=true;
      Edit_HG.ReadOnly:=true;        // en mode TJD, on ne peut pas modifier
      EditPointe_BG.ReadOnly:=true;  
      EditDevie_HD.ReadOnly:=true;
      EditDroit_BD.ReadOnly:=true;
      tjd:=true;
      labelHG.Visible:=true;
      EditP1.Visible:=true;
      EditP2.Visible:=true;
      EditP3.Visible:=true;
      EditP4.Visible:=true;
      CheckInverse.Visible:=true;
      EditDevieS2.Visible:=false;
      Label18.Visible:=false;

      // champ en bas à gauche
      b:=aiguillage[adresse].ADevieB;
      if b='Z' then b:=#0;
      EditPointe_BG.Text:=intToSTR(aiguillage[adresse].ADevie)+b;

      // champ en haut à gauche
      b:=aiguillage[adresse].ADroitB;
      if b='Z' then b:=#0;
      Edit_HG.Text:=intToSTR(aiguillage[adresse].ADroit)+b;  

      // milieu haut gauche
      EditP1.Text:=intToSTR(aiguillage[adresse].Ddroit)+aiguillage[adresse].DDroitB; 
      // milieu bas gauche
      EditP2.Text:=intToSTR(aiguillage[adresse].DDevie)+aiguillage[adresse].DDevieB;   

      adr2:=aiguillage[adresse].DDevie;
      // milieu haut droit
      EditP3.Text:=intToSTR(aiguillage[adr2].DDevie)+aiguillage[adr2].DDevieB; 
      // milieu bas droit
      EditP4.Text:=intToSTR(aiguillage[adr2].Ddroit)+aiguillage[adr2].DDroitB; 

      // droit haut
      EditDevie_HD.Text:=intToSTR(aiguillage[adr2].Adevie)+aiguillage[adr2].AdevieB; 
      LabelTJD1.Caption:=IntToSTR(adresse);
      
      // droit bas
      EditDroit_BD.Text:=intToSTR(aiguillage[adr2].Ddevie)+aiguillage[adr2].DdevieB; 
      LabelTJD2.Caption:=IntToSTR(adr2);

      CheckInverse.checked:=aiguillage[adresse].inversionCDM=1;
      
      if aiguillage[adresse].vitesse=0 then begin RadioButtonSans.checked:=true;RadioButton30kmh.checked:=false;RadioButton60kmh.checked:=false;end;
      if aiguillage[adresse].vitesse=30 then begin RadioButtonSans.checked:=false;RadioButton30kmh.checked:=true;RadioButton60kmh.checked:=false;end;
      if aiguillage[adresse].vitesse=60 then begin RadioButtonSans.checked:=false;RadioButton30kmh.checked:=false;RadioButton60kmh.checked:=true;end;
      exit;
    end
    else
    // aiguillage tri
    if tri then 
    begin
      ComboBoxAig.ItemIndex:=3; //  0=n'existe pas  1=aiguillage 2=TJD 3=TJS 4=aiguillage triple
      tri:=true;
      labelTJD1.Visible:=false;
      LabelTJD2.Visible:=false;
      EditPointe_BG.ReadOnly:=false;
      labelBG.Caption:='P';
      i:=pos(',',s);delete(s,1,i);
      ImageAffiche.Picture.BitMap:=ImageTri.Picture.Bitmap;
      EditDevieS2.Visible:=true;
      Label18.Visible:=true;
      Val(s,Adr2,erreur);
      formconfig.LabelAdresse.Caption:=formconfig.LabelAdresse.Caption+','+IntToSTR(Adr2);
    end
    else
    // aiguillage normal
    begin
      ComboBoxAig.ItemIndex:=0; //  0=n'existe pas  1=aiguillage 2=TJD 3=TJS 4=aiguillage triple
      ImageAffiche.Picture.BitMap:=Imageaig.Picture.Bitmap;
      labelBG.Caption:='P';
      EditPointe_BG.ReadOnly:=false;
      Edit_HG.Visible:=false;
      labelHG.Visible:=false;
      EditP1.Visible:=false;
      EditP2.Visible:=false;
      EditP3.Visible:=false;
      EditP4.Visible:=false;
//      CheckInverse.Visible:=false;
      labelTJD1.Visible:=false;
      LabelTJD2.Visible:=false;
      EditDevieS2.Visible:=false;
      Label18.Visible:=false;
      tjd:=false;
      CheckInverse.checked:=aiguillage[adresse].inversionCDM=1;
      if aiguillage[adresse].vitesse=0 then begin RadioButtonSans.checked:=true;RadioButton30kmh.checked:=false;RadioButton60kmh.checked:=false;end;
      if aiguillage[adresse].vitesse=30 then begin RadioButtonSans.checked:=false;RadioButton30kmh.checked:=true;RadioButton60kmh.checked:=false;end;
      if aiguillage[adresse].vitesse=60 then begin RadioButtonSans.checked:=false;RadioButton30kmh.checked:=false;RadioButton60kmh.checked:=true;end;
    end;  
  end;
//  affiche(s,clOrange);
       
  i:=pos(',',s);Delete(s,1,i);
  traite:=0;nBoucle:=0;
  if not(tjd) then
  repeat
    if s<>'' then
    if s[1]='P' then
    begin
      decodeAig(s,adresse,B);
      ss:=intToSTR(Adresse);
      formconfig.EditPointe_BG.Text:=ss+B;
      i:=pos(',',s);if i=0 then i:=length(s)+1;
      Delete(s,1,i);
      inc(traite);
    end;
    if s<>'' then 
    if s[1]='S' then
    begin
      decodeAig(s,adresse,B);
      ss:=intToSTR(Adresse);
      formconfig.EditDevie_HD.Text:=ss+B;
      i:=pos(',',s);if i=0 then i:=length(s)+1;
      Delete(s,1,i);
      inc(traite);
    end;
    if s<>'' then
    if s[1]='D' then
    begin
      decodeAig(s,adresse,B);
      ss:=intToSTR(Adresse);
      formconfig.EditDroit_BD.Text:=ss+B;
      i:=pos(',',s);if i=0 then i:=length(s)+1;
      Delete(s,1,i);
      inc(traite);
    end;
    inc(nBoucle);
  until (traite=3) or (nboucle=3);

  // reste S2 pour le tri à traiter
  if tri then
  begin
    i:=pos('S2-',s);
    if i<>0 then
    begin
      delete(s,i,3);
      formconfig.EditDevieS2.text:=s;
    end;
  end;
    
  if s='' then
  with formconfig do
  begin
    RadioButtonsans.Checked:=true;
    RadioButton30kmh.Checked:=false;
    RadioButton60kmh.Checked:=false;
  end;
  if s='30' then
  with formconfig do
  begin
    RadioButtonsans.Checked:=false;
    RadioButton30kmh.Checked:=true;
    RadioButton60kmh.Checked:=false;
  end;
  if s='60' then
  with formconfig do
  begin
    RadioButtonsans.Checked:=false;
    RadioButton30kmh.Checked:=false;
    RadioButton60kmh.Checked:=true;
  end;
end;

// appellée quand on clique sur la liste signaux
Procedure aff_champs_sig;
var i,j,l,d,k,nc, ligne,lc, adresse,erreur,condCarre,AncAdresse : integer;
    s,ss,s2 : string;
begin
// déterminer la ligne cliquée et mettre en surbrillance
  with Formconfig.RichSig do
  begin
    lc:=Perform(EM_LINEFROMCHAR,-1,0);  // numéro de la lignée cliquée
    //Affiche('numéro de la ligne cliquée '+intToStr(lc),clyellow);
    s:=Uppercase(Lines[lc]);   // ligne cliquée
    if s='' then exit;

    AncLigneCliquee:=LigneCliquee;
    ligneCliquee:=lc;
    //Affiche('Ancienne='+IntToSTR(AncLigneCliquee)+' Nouvelle='+IntToSTR(LigneCliquee),clyellow);
    
    // Mettre en rouge le signal modifié quand on clique sur un autre signal
    if AncLigneCliquee<>-1 then 
    begin
      val(FormConfig.RichSig.Lines[AncLigneCliquee],AncAdresse,erreur);
      if feux[lignecliquee+1].modifie then RE_ColorLine(Formconfig.RichSig,AncligneCliquee,ClWhite) else
      RE_ColorLine(Formconfig.RichSig,AncligneCliquee,ClAqua);
    end;  
  end;

 
  Val(s,Adresse,erreur);  // Adresse du signal
  if adresse=0 then exit;

  RE_ColorLine(Formconfig.RichSig,ligneCliquee,Clyellow);

  FormConfig.EditAdrSig.text:=InttoSTr(Adresse);
  i:=Index_feu(adresse);
 
  with formconfig.ImageSignal do
  begin
    Picture.Bitmap.TransparentMode:=tmAuto; 
    Picture.Bitmap.TransparentColor:=clblue;
    Transparent:=true;
    Picture.BitMap:=feux[i].Img.Picture.Bitmap;
  end;
  with formconfig do
  begin
    MemoCarre.Lines.Clear;
    EditDet2.Text:=''; EditSuiv2.Text:='';
    EditDet3.Text:=''; EditSuiv3.Text:='';
    EditDet4.Text:=''; EditSuiv4.Text:='';
    ComboBoxDec.ItemIndex:=feux[i].decodeur;
    if feux[i].decodeur=6 then 
    begin 
      EditSpecUni.Visible:=true;LabelUni.Visible:=true;
      EditSpecUni.Text:=IntToSTR(feux[i].Unisemaf);
    end
      else begin EditSpecUni.Visible:=false;LabelUni.Visible:=false;end;
    d:=feux[i].aspect;
    case d of
    2 : ComboBoxAsp.ItemIndex:=0;
    3 : ComboBoxAsp.ItemIndex:=1;
    4 : ComboBoxAsp.ItemIndex:=2;
    5 : ComboBoxAsp.ItemIndex:=3;
    7 : ComboBoxAsp.ItemIndex:=4;
    9 : ComboBoxAsp.ItemIndex:=5;
    else
        ComboBoxAsp.ItemIndex:=d-10+4;
    end; 
    
    // signal normal
    if d<10 then
    begin
      LabelDetAss.visible:=true;
      LabelElSuiv.visible:=true;
      EditDet1.Visible:=true;EditDet2.Visible:=true;EditDet3.Visible:=true;EditDet4.Visible:=true;
      EditSuiv1.Visible:=true;EditSuiv2.Visible:=true;EditSuiv3.Visible:=true;EditSuiv4.Visible:=true;
      Label24.Visible:=true; Label25.Visible:=true;Label26.Visible:=true;Label27.Visible:=true;
      CheckVerrouCarre.Visible:=true;
      EditDet1.Text:=IntToSTR(feux[i].Adr_det1);
      EditSuiv1.Text:=TypeEl_To_char(feux[i].Btype_suiv1)+IntToSTR(feux[i].Adr_el_suiv1);
      j:=feux[i].Adr_det2;
      if j<>0 then 
      begin
        Editdet2.Text:=IntToSTR(j);EditSuiv2.Text:=TypeEl_To_char(feux[i].Btype_suiv2)+IntToSTR(feux[i].Adr_el_suiv2);
      end else begin EditDet2.Text:='';EditSuiv2.Text:='';end;  
      j:=feux[i].Adr_det3;
      if j<>0 then 
      begin
        EditDet3.Text:=IntToSTR(j);EditSuiv3.Text:=TypeEl_To_char(feux[i].Btype_suiv3)+IntToSTR(feux[i].Adr_el_suiv3);
      end 
      else begin EditDet3.Text:='';EditSuiv3.Text:='';end;
      j:=feux[i].Adr_det4;
      if j<>0 then 
      begin
        EditDet4.Text:=IntToSTR(j);EditSuiv4.Text:=TypeEl_To_char(feux[i].Btype_suiv4)+IntToSTR(feux[i].Adr_el_suiv4);
      end
      else begin EditDet4.Text:='';EditSuiv4.Text:='';end;  

      checkVerrouCarre.Checked:=feux[i].VerrouCarre;
      
      // conditions supplémentaires du carré par aiguillages
      CondCarre:=Length(feux[i].condcarre[1]);  // nombre de conditions (nombre de parenthèses ex 3 pour (A21S,A6D)(A30S,A20D)(A1D,A2S,A3D)
      l:=1;
      if condCarre<>0 then
      begin
        dec(condCarre);
        while condCarre<>0 do
        begin
          //if condcarre<>0 then dec(condcarre);
          s2:='';
          nc:=Length(feux[i].condcarre[l])-1 ;     // nombre d'aiguillages dans la parenthèse A21,S,A6,D = 4 
          for k:=1 to nc do
          begin
            s2:=s2+'A'+IntToSTR(feux[i].condcarre[l][k].Adresse)+feux[i].condcarre[l][k].PosAig;
            if k<nc then s2:=s2+',';
          end;
          MemoCarre.Lines.Add(s2); 
          inc(l);
          dec(condcarre);
        end;
        // scrolle le MemoCarre sur la première ligne
        MemoCarre.SelStart:=0;
        MemoCarre.Perform(EM_SCROLLCARET,0,0);
      end;  
    end
    else
    begin // directionnel
      EditDet1.Text:='';EditSuiv1.Text:='';
      EditDet2.Text:='';EditSuiv2.Text:='';
      EditDet3.Text:='';EditSuiv3.Text:='';
      EditDet4.Text:='';EditSuiv4.Text:='';
      LabelDetAss.visible:=false;
      LabelElSuiv.visible:=false;
      EditDet1.Visible:=false;EditDet2.Visible:=false;EditDet3.Visible:=false;EditDet4.Visible:=false;
      EditSuiv1.Visible:=false;EditSuiv2.Visible:=false;EditSuiv3.Visible:=false;EditSuiv4.Visible:=false;
      CheckVerrouCarre.Visible:=false;
      Label24.Visible:=false; Label25.Visible:=false;Label26.Visible:=false;Label27.Visible:=false;
    end;
  end;   
end;

Procedure aff_champs_act;
var i,v, ligne,etatact,erreur, adresse,sortie,fonction,tempo,access : integer;
    s,s2,ss : string;
    trouve : bool;
begin
  with formConfig.RichAct do
  begin
    ligne:=Perform(EM_LINEFROMCHAR,-1,0);  // numéro de la lignée cliquée
    AncLigneCliquee:=Ligne;
    ligneCliquee:=ligne;
    //affiche(intToSTR(ligne),clLime);
    s:=Uppercase(Lines[ligne]);            
    if s='' then exit;
    SelStart:=Perform(EM_LINEINDEX,Ligne,0);  // début de la sélection
    SelLength:=Length(s) ;  // fin de la sélection
    SetFocus;
  end;

  // actionneur passage à niveau
  if s[1]='(' then 
  begin
    with formconfig do
    begin
      GroupBoxact.Visible:=false;
      GroupBoxPN.Top:=104;
      GroupBoxPN.Left:=16;
      GroupBoxPN.Visible:=true;
      Visible:=true;
      RadioButtonPN.Checked:=true;
      RadioButtonLoc.Checked:=false;
      RadioButtonAccess.Checked:=false;
    end;
    // trouver l'index dans le tableau
    i:=pos('PN(',s);
    delete(s,1,i+2);
    val(s,adresse,erreur);
    i:=0;
    repeat
      inc(i);
      trouve:=(Tablo_PN[i].AdresseFerme=adresse);
    until trouve or (i>NbrePN);
    if not(trouve) then exit;

    with formConfig do
    begin
      EditAdrFerme.text:=IntToSTR(Tablo_PN[i].AdresseFerme);
      EditAdrOuvre.text:=IntToSTR(Tablo_PN[i].AdresseOuvre);
      if Tablo_PN[i].CommandeFerme=2 then s:='+' else s:='-';
      EditCmdFerme.text:=s;
      if Tablo_PN[i].CommandeOuvre=2 then s:='+' else s:='-';
      EditCdeOuvre.text:=s;
      EditV1F.text:=intToSTR(Tablo_PN[i].voie[1].ActFerme);
      EditV1O.text:=intToSTR(Tablo_PN[i].voie[1].ActOuvre);
      v:=Tablo_PN[i].nbvoies;
      if v>=2 then
      begin
        EditV2F.text:=intToSTR(Tablo_PN[i].voie[2].ActFerme);
        EditV2O.text:=intToSTR(Tablo_PN[i].voie[2].ActOuvre);
        EditV2F.Visible:=true;
        EditV2O.Visible:=true;
        labelV2.Visible:=true;
      end;
      if v>=3 then
      begin
        EditV3F.text:=intToSTR(Tablo_PN[i].voie[3].ActFerme);
        EditV3O.text:=intToSTR(Tablo_PN[i].voie[3].ActOuvre);
        EditV3F.Visible:=true;
        EditV3O.Visible:=true;
        labelV3.visible:=true;
      end;
      if v<3 then
      begin
        EditV3F.Visible:=false;
        EditV3O.Visible:=false;
        labelV3.visible:=false;
      end;
      if v<2 then
      begin
        EditV2F.Visible:=false;
        EditV2O.Visible:=false;
        labelV2.visible:=false;
      end;
    end;
  end
  else

  // actionneur fonction F locomotive ou Accessoire
  begin
    with formconfig do
    begin
      GroupBoxAct.Top:=104;
      GroupBoxAct.Left:=16;
      
      GroupBoxact.Visible:=true;
      GroupBoxPN.Visible:=false;     
    end;
    // trouver l'index dans le tableau
    val(s,adresse,erreur);
    i:=0;
    repeat
      inc(i);
      trouve:=(Tablo_actionneur[i].actionneur=adresse);
    until trouve or (i>MaxTablo_act);
    if not(trouve) then exit;
    
    fonction:=Tablo_actionneur[i].fonction;
    Access:=Tablo_actionneur[i].accessoire;
    if fonction<>0 then 
    begin
      etatAct:=Tablo_actionneur[i].etat ;
      //etatFonc:=Tablo_actionneur[i].
      Adresse:=Tablo_actionneur[i].actionneur;
      s2:=Tablo_actionneur[i].train;
      tempo:=tablo_actionneur[i].Tempo;
      with formconfig do
      begin
        CheckRaz.Visible:=false;
        GroupBoxAct.Caption:='Actionneur de fonction F de locomotive';
        LabelTempo.Visible:=true; EditTempo.visible:=true; editEtatFoncSortie.visible:=false;LabelA.Visible:=false;
        editEtatActionneur.Text:=IntToSTR(etatAct);
        LabelFonction.caption:='Fonction';
        RadioButtonPN.Checked:=false;
        RadioButtonLoc.Checked:=true;
        RadioButtonAccess.Checked:=false;
        EditAct.text:=IntToSTR(Adresse);
        EditTrain.Text:=s2;
        editFonctionAccess.Text:=intToSTR(fonction);
        //editEtat.Text:=intToSTR(etatAct);
        editTempo.Text:=intToSTR(tempo);
      end;
    end;  

    if Access<>0 then 
    begin
      etatAct:=Tablo_actionneur[i].etat ;
      Adresse:=Tablo_actionneur[i].actionneur;
      sortie:=Tablo_actionneur[i].sortie;
      s2:=Tablo_actionneur[i].train;
      tempo:=tablo_actionneur[i].Tempo;
      with formconfig do
      begin
        GroupBoxAct.Caption:='Actionneur d''accessoire';
        CheckRaz.Visible:=true;
        CheckRaz.Checked:=Tablo_actionneur[i].Raz;
        LabelTempo.Visible:=false; EditTempo.visible:=false;editEtatFoncSortie.visible:=true;LabelA.Visible:=true;
        LabelFonction.caption:='Accessoire';
        RadioButtonPN.Checked:=false;
        RadioButtonLoc.Checked:=false;
        RadioButtonAccess.Checked:=true;
        EditAct.text:=IntToSTR(Adresse);
        EditTrain.Text:=s2;
        EditEtatActionneur.Text:=IntToSTR(etatAct);
        editFonctionAccess.Text:=intToSTR(Access);
        editEtatFoncSortie.Text:=intToSTR(sortie);
        editTempo.Text:=intToSTR(tempo);
      end;
    end;  

    
  end;
  
  ss:='Actionneur '+InttoSTr(Adresse);
end;  
  


procedure TFormConfig.MemoSignauxClick(Sender: TObject);
begin
  Aff_champs_sig;
end;

procedure TFormConfig.PageControlChange(Sender: TObject);
begin
  if PageControl.ActivePage=TabSheetAig then
  begin
  end;
end;

// cliqué sur liste aiguillages
procedure TFormConfig.RichAigMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  clicliste:=true;
  LabelInfo.caption:='';
  Aff_champs_aig;
  clicliste:=false;
end;

// on change la valeur de la description du champ HG pour les TJD
procedure change_HG ;
begin
  if clicliste then exit;
end;

// on change la valeur de la description de la pointe de l'aiguillage
procedure change_Pointe;
var AdrAig,adr,erreur : integer;
    b : char;
    s : string;
begin
  // cliqué sur le edit pointe aiguillage
  // ne pas traiter si on a cliqué sur la liste
  if clicliste then exit;
  
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
  with Formconfig do
  begin
    s:=formconfig.RichAig.Lines[lignecliquee];
      
    Val(s,adrAig,erreur);
    //vérifier la syntaxe de P
    s:=Editpointe_BG.text;
    decodeAig(s,adr,B);
    if ((B='S') or (B='P') or (B='D') or (B=#0)) and (s<>'') then 
    begin
      // RichAig.SelStart:=Perform(EM_LINEINDEX,ligneCliquee,0);  // début de la sélection
      // RichAig.SelLength:=Length(s) ;  // fin de la sélection
      //SetFocus;
      RE_ColorLine(RichAig,ligneCliquee,ClWhite);
      Aiguillage[AdrAig].modifie:=true;
      LabelInfo.caption:='';
      // modifier la base de données de l'aiguillage
      if b=#0 then b:='Z';
      
      Aiguillage[AdrAig].APointe:=adr;
      Aiguillage[AdrAig].APointeB:=B;
      // réencoder la ligne
      s:=encode_aig(AdrAig);
      
      formconfig.RichAig.Lines[lignecliquee]:=s;
      labelLigne.Caption:=s;
    end
      else
        LabelInfo.caption:='Erreur pointe aiguillage '+intToSTR(AdrAig);
    end;  
end;

// on change la valeur de la description de la déviation de l'aiguillage
procedure change_Devie;
var AdrAig,adr,erreur : integer;
    b : char;
    tjd : boolean;
    s : string;
begin
  // cliqué sur le edit dévié aiguillage
  // ne pas traiter si on a cliqué sur la liste
  if clicliste then exit;
    
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
  with Formconfig do
  begin
    s:=formconfig.RichAig.Lines[lignecliquee];
    Val(s,adrAig,erreur);
    //vérifier la syntaxe de P
    s:=EditDevie_HD.text;
    decodeAig(s,adr,B);

   
    if ((B='S') or (B='P') or (B='D') or (B=#0)) and (s<>'') then 
    begin
      // RichAig.SelStart:=Perform(EM_LINEINDEX,ligneCliquee,0);  // début de la sélection
      // RichAig.SelLength:=Length(s) ;  // fin de la sélection
      //SetFocus;
      tjd:=pos('TJD',s)<>0;
      if tjd then 
      begin
        val(EditP1.Text,AdrAig,erreur); // adresse de pointe de la tjd = adresse à utiliser
      end;  
    
      
      RE_ColorLine(RichAig,ligneCliquee,ClWhite);
      Aiguillage[AdrAig].modifie:=true;
      LabelInfo.caption:='';
      // modifier la base de données de l'aiguillage
      if b=#0 then b:='Z';
      Aiguillage[AdrAig].ADevie:=adr;
      Aiguillage[AdrAig].ADevieB:=B;
      // réencoder la ligne
      s:=encode_aig(AdrAig);
      formconfig.RichAig.Lines[lignecliquee]:=s;
      labelLigne.Caption:=s;
    end
    else
    begin
      LabelInfo.caption:='Erreur déviation aiguillage '+intToSTR(AdrAig);
    end;
  end;  
end;

// on change la valeur de la description du droit de l'aiguillage
procedure change_Droit;
var AdrAig,adr,erreur : integer;
    b : char;
    tjd : boolean;
    s : string;
begin
  // cliqué sur le edit droit aiguillage
  // ne pas traiter si on a cliqué sur la liste
  if clicliste then exit;
  
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
  with Formconfig do
  begin
    s:=formconfig.RichAig.Lines[lignecliquee];
    Val(s,adrAig,erreur);
    //vérifier la syntaxe de P
    s:=EditDroit_BD.text;
    decodeAig(s,adr,B);

    if ((B='S') or (B='P') or (B='D') or (B=#0)) and (s<>'') then 
    begin
      // RichAig.SelStart:=Perform(EM_LINEINDEX,ligneCliquee,0);  // début de la sélection
      // RichAig.SelLength:=Length(s) ;  // fin de la sélection
      //SetFocus;

      tjd:=pos('TJD',s)<>0;
      if tjd then 
      begin
        val(EditP1.Text,AdrAig,erreur); // adresse de pointe de la tjd = adresse à utiliser
      end; 
      
      RE_ColorLine(RichAig,ligneCliquee,ClWhite);
      Aiguillage[AdrAig].modifie:=true;
      LabelInfo.caption:='';
      // modifier la base de données de l'aiguillage
      if b=#0 then b:='Z';
      Aiguillage[AdrAig].ADroit:=adr;
      Aiguillage[AdrAig].ADroitB:=B;
      // réencoder la ligne
      s:=encode_aig(AdrAig);
      formconfig.RichAig.Lines[lignecliquee]:=s;
      labelLigne.Caption:=s;
    end
    else
    begin
      LabelInfo.caption:='Erreur droit aiguillage '+intToSTR(AdrAig);
    end;
  end;  
end;

procedure change_S2;
var AdrAig,adr,erreur : integer;
    b : char;
    s : string;
begin
  // cliqué sur le edit droit aiguillage
  // ne pas traiter si on a cliqué sur la liste
  if clicliste then exit;
  
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
  with Formconfig do
  begin
    s:=formconfig.RichAig.Lines[lignecliquee];
    Val(s,adrAig,erreur);
    //vérifier la syntaxe de P
    s:=EditDevieS2.text;
    decodeAig(s,adr,B);

    if ((B='S') or (B='P') or (B='D') or (B=#0)) and (s<>'') then 
    begin
      // RichAig.SelStart:=Perform(EM_LINEINDEX,ligneCliquee,0);  // début de la sélection
      // RichAig.SelLength:=Length(s) ;  // fin de la sélection
      //SetFocus;
           
      RE_ColorLine(RichAig,ligneCliquee,ClWhite);
      Aiguillage[AdrAig].modifie:=true;
      LabelInfo.caption:='';
      // modifier la base de données de l'aiguillage
      if b=#0 then b:='Z';
      Aiguillage[AdrAig].ADevie2:=adr;
      Aiguillage[AdrAig].ADevie2B:=B;
      // réencoder la ligne
      s:=encode_aig(AdrAig);
      formconfig.RichAig.Lines[lignecliquee]:=s;
      labelLigne.Caption:=s;
    end
    else
    begin
      LabelInfo.caption:='Erreur droit aiguillage '+intToSTR(AdrAig);
    end;
  end;  
end;


procedure TFormConfig.EditPointe_BGChange(Sender: TObject);
begin
  change_pointe;
end;

procedure TFormConfig.Edit_HGChange(Sender: TObject);
begin
  change_HG;
end;

procedure TFormConfig.EditDevie_HDChange(Sender: TObject);
begin
  Change_devie;
end;

procedure TFormConfig.EditDroit_BDChange(Sender: TObject);
begin
  Change_droit;
end;

procedure TFormConfig.EditDevieS2Change(Sender: TObject);
begin
  Change_s2;
end;


procedure TFormConfig.CheckInverseClick(Sender: TObject);
var s : string;
    adrAig,erreur : integer;
begin
  // récupérer l'adresse de l'aiguillage cliqué
  s:=formconfig.RichAig.Lines[lignecliquee];
  Val(s,adrAig,erreur);
  if checkInverse.Checked then aiguillage[adraig].InversionCDM:=1 else aiguillage[adraig].InversionCDM:=0;
  // réencoder la ligne
  s:=encode_aig(AdrAig);
  formconfig.RichAig.Lines[lignecliquee]:=s;
  labelLigne.Caption:=s;
end;

procedure TFormConfig.RadioButtonsansClick(Sender: TObject);
var AdrAig,erreur : integer;
    s : string;
begin
  s:=formconfig.RichAig.Lines[lignecliquee];
  Val(s,adrAig,erreur);
  if AdrAig=0 then exit;
  aiguillage[AdrAig].vitesse:=0;
  aiguillage[AdrAig].modifie:=true;
  s:=encode_aig(AdrAig);
  formconfig.RichAig.Lines[lignecliquee]:=s;
  labelLigne.Caption:=s;
end;

procedure TFormConfig.RadioButton30kmhClick(Sender: TObject);
var AdrAig,erreur : integer;
    s : string;
begin
  s:=formconfig.RichAig.Lines[lignecliquee];
  Val(s,adrAig,erreur);
  if AdrAig=0 then exit;
  aiguillage[AdrAig].vitesse:=30;
  aiguillage[AdrAig].modifie:=true;
  s:=encode_aig(AdrAig);
  formconfig.RichAig.Lines[lignecliquee]:=s;
  labelLigne.Caption:=s;
end;

procedure TFormConfig.RadioButton60kmhClick(Sender: TObject);
var AdrAig,erreur : integer;
    s : string;
begin
  s:=formconfig.RichAig.Lines[lignecliquee];
  Val(s,adrAig,erreur);
  if AdrAig=0 then exit;
  aiguillage[AdrAig].vitesse:=60;
  aiguillage[AdrAig].modifie:=true;
  s:=encode_aig(AdrAig);
  formconfig.RichAig.Lines[lignecliquee]:=s;
  labelLigne.Caption:=s;
end;



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;
end;

// cliqué sur liste feux
procedure TFormConfig.RichSigMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  clicliste:=true;
  LabelInfo.caption:='';
  Aff_champs_sig;
  clicliste:=false;
end;

procedure TFormConfig.EditDet1Change(Sender: TObject);
var s : string;
    i,erreur : integer;
begin
  if clicliste or (feux[lignecliquee+1].Aspect>10) then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditDet1.Text;
    Val(s,i,erreur);
    if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur1 ';exit;end;
    LabelInfo.caption:=' ';
    feux[lignecliquee+1].Adr_det1:=i;
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
    feux[lignecliquee+1].modifie:=true;
  end;
end;

procedure TFormConfig.EditSuiv1Change(Sender: TObject);
var s : string;
    i,erreur : integer;
    B : char;
begin
  if clicliste or (feux[lignecliquee+1].Aspect>10) then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditSuiv1.Text;
    if s='' then begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
    Val(s,i,erreur);
    //if erreur<>0 then
    if erreur<>0 then
    begin
      if (s[erreur]='A') and (erreur=1) then
      begin
        feux[lignecliquee+1].Btype_suiv1:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
        delete(s,erreur,1);
        Val(s,i,erreur);
      end
      else begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
    end
    else feux[lignecliquee+1].Btype_suiv1:=1;

    LabelInfo.caption:=' ';

    feux[lignecliquee+1].Adr_el_suiv1:=i;
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
  end;
end;

procedure TFormConfig.EditDet2Change(Sender: TObject);
var s : string;
    i,erreur : integer;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditDet2.Text;
    Val(s,i,erreur);
    //if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur2 ';exit;end;
    LabelInfo.caption:=' ';
    feux[lignecliquee+1].Adr_det2:=i;
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
    feux[lignecliquee+1].modifie:=true;
  end;
end;

procedure TFormConfig.CheckVerrouCarreClick(Sender: TObject);
var s : string;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  begin
    feux[lignecliquee+1].VerrouCarre:=checkVerrouCarre.Checked;
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
    feux[lignecliquee+1].modifie:=true;
  end;
end;

procedure TFormConfig.EditSuiv2Change(Sender: TObject);
var s : string;
    erreur,Btype,Adr : integer;
    B : char;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditSuiv2.Text;
    if s='' then 
    begin 
      Btype:=0;
      Adr:=0;
    end
    else
    begin
      Val(s,Adr,erreur);
      if (erreur<>0) and (s<>'') then
      begin
        if (s[erreur]='A') and (erreur=1) then
        begin
          Btype:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
          delete(s,erreur,1);
          Val(s,Adr,erreur);
        end
        else begin LabelInfo.caption:='Erreur élément suivant 2';exit;end;
      end;
    end;  
    feux[lignecliquee+1].Btype_suiv2:=Btype;
    feux[lignecliquee+1].Adr_el_suiv2:=Adr;
    LabelInfo.caption:=' '; 
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
  end;
end;


procedure TFormConfig.EditDet3Change(Sender: TObject);
var s : string;
    i,erreur : integer;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditDet3.Text;
    Val(s,i,erreur);
   // if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur3 ';exit;end;
    LabelInfo.caption:=' ';
    feux[lignecliquee+1].Adr_det3:=i;
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
    feux[lignecliquee+1].modifie:=true;
  end;
end;

procedure TFormConfig.EditSuiv3Change(Sender: TObject);
var s : string;
    erreur,Btype,Adr : integer;
    B : char;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditSuiv3.Text;
    if s='' then 
    begin 
      Btype:=0;
      Adr:=0;
    end
    else
    begin
      Val(s,Adr,erreur);
      if (erreur<>0) and (s<>'') then
      begin
        if (s[erreur]='A') and (erreur=1) then
        begin
          Btype:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
          delete(s,erreur,1);
          Val(s,Adr,erreur);
        end
        else begin LabelInfo.caption:='Erreur élément suivant 3';exit;end;
      end;
    end;  
    feux[lignecliquee+1].Btype_suiv3:=Btype;
    feux[lignecliquee+1].Adr_el_suiv3:=Adr;
    LabelInfo.caption:=' '; 
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
  end;
end;

procedure TFormConfig.EditDet4Change(Sender: TObject);
var s : string;
    i,erreur : integer;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditDet4.Text;
    Val(s,i,erreur);
    //if erreur<>0 then begin LabelInfo.caption:='Erreur détecteur4 ';exit;end;
    LabelInfo.caption:=' ';
    feux[lignecliquee+1].Adr_det4:=i;
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
    feux[lignecliquee+1].modifie:=true;
  end;
end;

procedure TFormConfig.EditSuiv4Change(Sender: TObject);
var s : string;
    erreur,Btype,Adr : integer;
    B : char;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditSuiv4.Text;
    if s='' then 
    begin 
      Btype:=0;
      Adr:=0;
    end
    else
    begin
      Val(s,Adr,erreur);
      if (erreur<>0) and (s<>'') then
      begin
        if (s[erreur]='A') and (erreur=1) then
        begin
          Btype:=2;  // type de l'élément suivant (1=détecteur 2=aig ou TJD ou TJS  4=tri
          delete(s,erreur,1);
          Val(s,Adr,erreur);
        end
        else begin LabelInfo.caption:='Erreur élément suivant 4';exit;end;
      end;
    end;  
    feux[lignecliquee+1].Btype_suiv4:=Btype;
    feux[lignecliquee+1].Adr_el_suiv4:=Adr;
    LabelInfo.caption:=' '; 
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s;
  end;
end;

procedure TFormConfig.EditActChange(Sender: TObject);
var s : string;
    act,erreur : integer;
begin
  if clicliste then exit;
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
  with Formconfig do
  begin 
    s:=EditAct.Text;
    if radioButtonLoc.Checked or RadioButtonAccess.Checked then
    begin
      Val(s,act,erreur);
      if erreur<>0 then
      begin
        LabelInfo.caption:='Erreur adresse actionneur';exit
      end else LabelInfo.caption:=' ';
      
      tablo_actionneur[lignecliquee+1].actionneur:=act;
      s:=encode_act_loc(lignecliquee+1);
      RichAct.Lines[lignecliquee]:=s;
    end;
  end;
end;



procedure TFormConfig.RichActMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  clicliste:=true;
  LabelInfo.caption:='';
  Aff_champs_Act;
  clicliste:=false;
end;

procedure TFormConfig.EditEtatActionneurChange(Sender: TObject);
var s : string;
    etat,erreur : integer;
begin
  if clicliste then exit;
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
  with Formconfig do
  begin 
    s:=EditEtatActionneur.Text;
    if radioButtonLoc.Checked or RadioButtonAccess.Checked then
    begin
      Val(s,etat,erreur);
      if (erreur<>0) or (etat<0) or (etat>1) then
      begin
        LabelInfo.caption:='Erreur état actionneur';exit
      end else LabelInfo.caption:=' ';
      
      tablo_actionneur[lignecliquee+1].etat:=etat;
      s:=encode_act_loc(lignecliquee+1);
      RichAct.Lines[lignecliquee]:=s;
    end;
  end;
end;
  
procedure TFormConfig.EditTrainChange(Sender: TObject);
var s,train : string;
begin
  if clicliste then exit;
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
  with Formconfig do
  begin 
    if radioButtonLoc.Checked or RadioButtonAccess.Checked then
    begin
      train:=editTrain.Text;
      if train='' then
      begin
        LabelInfo.caption:='Erreur train';exit
      end else LabelInfo.caption:=' ';
      
      tablo_actionneur[lignecliquee+1].train:=train;
      s:=encode_act_loc(lignecliquee+1);
      RichAct.Lines[lignecliquee]:=s;
    end;
  end;
end;

procedure TFormConfig.EditFonctionAccessChange(Sender: TObject);
var s : string;
    fonction,erreur : integer;
begin
  if clicliste then exit;
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
  with Formconfig do
  begin
    s:=EditFonctionAccess.Text;
    if radioButtonLoc.Checked or RadioButtonAccess.Checked then
    begin
      Val(s,fonction,erreur);
      if erreur<>0 then
      begin
        LabelInfo.caption:='Erreur fonction actionneur';exit
      end else LabelInfo.caption:=' ';
      
      if radioButtonLoc.Checked then tablo_actionneur[lignecliquee+1].fonction:=fonction;
      if RadioButtonAccess.Checked then Tablo_Actionneur[lignecliquee+1].accessoire:=fonction;
      
      s:=encode_act_loc(lignecliquee+1);
      RichAct.Lines[lignecliquee]:=s;
    end;
  end;
end;

procedure TFormConfig.EditEtatFoncSortieChange(Sender: TObject);
var s : string;
    Etat,erreur : integer;
begin
  if clicliste then exit;
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
  with Formconfig do
  begin 
    s:=EditEtatFoncSortie.Text;
    if radioButtonAccess.Checked then
    begin
      Val(s,etat,erreur);
      if (erreur<>0) or (etat<0) or (etat>2) then
      begin
        LabelInfo.caption:='Erreur Etat actionneur';exit
      end else LabelInfo.caption:=' ';

      tablo_actionneur[lignecliquee+1].sortie:=etat;
      s:=encode_act_loc(lignecliquee+1);
      RichAct.Lines[lignecliquee]:=s;
    end;
  end;

end;

procedure TFormConfig.EditTempoChange(Sender: TObject);
var s : string;
    tempo,erreur : integer;
begin
  if clicliste then exit;
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
  with Formconfig do
  begin 
    s:=EditTempo.Text;
    if radioButtonLoc.Checked then
    begin
      Val(s,tempo,erreur);
      if erreur<>0 then
      begin
        LabelInfo.caption:='Erreur Tempo actionneur';exit
      end else LabelInfo.caption:=' ';
      
      tablo_actionneur[lignecliquee+1].tempo:=tempo;
      s:=encode_act_loc(lignecliquee+1);
      RichAct.Lines[lignecliquee]:=s;
    end;
  end;
end;


  
procedure TFormConfig.CheckRAZClick(Sender: TObject);
 var s : string;
    Etat,erreur : integer;
begin
  if clicliste then exit;
  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
  with Formconfig do
  begin 
    if radioButtonAccess.Checked then
    begin
      tablo_actionneur[lignecliquee+1].raz:=CheckRAZ.checked;
      s:=encode_act_loc(lignecliquee+1);
      RichAct.Lines[lignecliquee]:=s;
    end;
  end;
end;

procedure TFormConfig.EditAdrSigChange(Sender: TObject);
var s : string;
    i, erreur : integer;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditAdrSig.Text;
    Val(s,i,erreur);
    if erreur<>0 then begin LabelInfo.caption:='Erreur adresse signal ';exit;end;
    LabelInfo.caption:=' ';
    feux[lignecliquee+1].Adresse:=i;
    s:=encode_sig(lignecliquee+1);
    RichSig.Lines[lignecliquee]:=s; 
    feux[lignecliquee+1].modifie:=true;
  end;
end;


procedure TFormConfig.EditAdrAigChange(Sender: TObject);
var s : string;
    i, erreur : integer;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAig then
  with Formconfig do
  begin
    s:=EditAdrAig.Text;
    Val(s,i,erreur);
    if erreur<>0 then begin LabelInfo.caption:='Erreur adresse aiguillage ';exit;end;
    //  vérifier si l'adresse de l'aiguillage existe déja
    if (aiguillage[i].modele<>0) then 
    begin
      LabelInfo.caption:='aiguillage '+IntToSTR(i)+' existe déja - ne sera pas écrasé' ;
      exit;
    end  
    else LabelInfo.caption:='';
    
    LabelInfo.caption:=' ';
    s:=encode_aig(i);
    affiche(s,clyellow);
  end;
end;

procedure TFormConfig.ComboBoxAspChange(Sender: TObject);
var i,index,feu,asp : integer;
    s : string;
begin
  i:=ComboBoxAsp.ItemIndex;
  //Affiche(IntToSTR(i),clyellow);
  case i of
  0 : asp:=2;
  1 : asp:=3;
  2 : asp:=4;
  3 : asp:=5;
  4 : asp:=7;
  5 : asp:=9;
  else asp:=i+6;
  end;  
  index:=lignecliquee+1;  // index du feu
  if NbreFeux<index then exit;
  feux[index].aspect:=asp;
  
  s:=encode_sig(index);
  formconfig.RichSig.Lines[lignecliquee]:=s;
  // change l'image du feu
  feux[index].Img.picture.Bitmap:=Select_dessin_feu(asp);
  // mettre rouge par défaut
  if asp=2 then EtatSignalCplx[feux[index].adresse]:=32;
  if asp=3 then EtatSignalCplx[feux[index].adresse]:=2;
  if (asp>3) and (asp<10) then EtatSignalCplx[feux[index].adresse]:=1;
  if asp>10 then EtatSignalCplx[feux[index].adresse]:=0;
  
  aff_champs_sig;  // redessine le graphisme du cadre
  dessine_feu_mx(Feux[index].Img.Canvas,0,0,1,1,feux[index].adresse,1);
end;

procedure TFormConfig.EditSpecUniChange(Sender: TObject);
var erreur,i,Adr : integer ;
    s : string ;
begin
  if clicliste then exit;

  if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
  with Formconfig do
  begin
    s:=EditSpecUni.Text;
    Val(s,i,erreur); // code unisemaf
    s:=EditAdrSig.Text;
    Val(s,Adr,erreur); // Adresse signal
    // vérification code unisemaf
    erreur:=verif_unisemaf(Adr,i);
    if erreur=1 then begin LabelInfo.caption:='Erreur code Unisemaf';exit;end;
    if erreur=2 then begin LabelInfo.caption:='Erreur cohérence aspect signal';exit;end;
    
    LabelInfo.caption:=' ';
    feux[lignecliquee+1].Unisemaf:=i;
    s:=encode_sig(lignecliquee+1);
    formconfig.RichSig.Lines[lignecliquee]:=s;
  end;  
end;

end.