unit UnitModifAction;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls, Spin , MMSystem, ImgList,
  Menus;

type
  TFormModifAction = class(TForm)
    ComboBoxActions: TComboBox;
    PageControlAct: TPageControl;
    TabSheetDecl: TTabSheet;
    TabSheetOp: TTabSheet;
    ListBoxDeclench: TListBox;
    GroupBoxDecl: TGroupBox;
    LabelAdresse: TLabel;
    LabelTrain: TLabel;
    EditAdr: TEdit;
    EditAdr2: TEdit;
    EditTrainDecl: TEdit;
    ComboBoxFamille: TComboBox;
    ListBoxOper: TListBox;
    Shape1: TShape;
    ListBoxOperations: TListBox;
    LabelDecl: TLabel;
    Label3: TLabel;
    GroupBoxParam: TGroupBox;
    ButtonAjouter: TButton;
    ButtonAppAction: TButton;
    Label2: TLabel;
    SpeedButtonSupprime: TSpeedButton;
    LabelEtat: TLabel;
    SpinEditEtat: TSpinEdit;
    SpinButton1: TSpinButton;
    Labelheure: TLabel;
    LabeledEditTrain: TLabeledEdit;
    OpenDialogSon: TOpenDialog;
    SpeedButtonCharger: TSpeedButton;
    SpeedButtonJoue: TSpeedButton;
    LabeledEditAdresse: TLabeledEdit;
    LabeledEditFonctionF: TLabeledEdit;
    CheckBoxRAZ: TCheckBox;
    Label5: TLabel;
    RichEditInf: TRichEdit;
    ButtonApplDecl: TButton;
    LabeledEditNomAct: TLabeledEdit;
    Label1: TLabel;
    ComboBoxAccComUSB: TComboBox;
    LabeledEditTempoF: TLabeledEdit;
    ImageIcone: TImage;
    LabelPeriph: TLabel;
    LabelInfo: TLabel;
    TabSheet1: TTabSheet;
    Label4: TLabel;
    ListBoxCondTot: TListBox;
    Shape2: TShape;
    Label6: TLabel;
    ListBoxConditions: TListBox;
    GroupBox1: TGroupBox;
    ChampTrain: TLabeledEdit;
    Champ1: TLabeledEdit;
    Champ2: TLabeledEdit;
    ButtonAppCond: TButton;
    SpinEditHeure1: TSpinEdit;
    SpinEditMn1: TSpinEdit;
    SpinEditHeure2: TSpinEdit;
    SpinEditMn2: TSpinEdit;
    LabelHeureDebut: TLabel;
    LabelHeureFin: TLabel;
    SpinEditEtat2: TSpinEdit;
    LabelEtat2: TLabel;
    RadioEtatSignal: TRadioGroup;
    SpinEditEtatop: TSpinEdit;
    LabelEtatOp: TLabel;
    ButtonFonction: TButton;
    ButtonVoirFonc: TButton;
    LabelInfoFonc: TLabel;
    Label2InfoFonction: TLabel;
    SpeedButton1: TSpeedButton;
    PopupMenuOP: TPopupMenu;
    Monteropration1: TMenuItem;
    Descendreopration1: TMenuItem;
    N1: TMenuItem;
    Supprimeropration1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure ListBoxOperDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ListBoxDeclenchDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ComboBoxFamilleChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBoxActionsChange(Sender: TObject);
    procedure ListBoxOperationsDrawItem(Control: TWinControl;
      Index: Integer; Rect: TRect; State: TOwnerDrawState);
    procedure ButtonAppActionClick(Sender: TObject);
    procedure ButtonAjouterClick(Sender: TObject);
    procedure SpeedButtonSupprimeClick(Sender: TObject);
    procedure SpinButton1UpClick(Sender: TObject);
    procedure SpinButton1DownClick(Sender: TObject);
    procedure EditAdrChange(Sender: TObject);
    procedure EditAdr2Change(Sender: TObject);
    procedure SpinEditEtatChange(Sender: TObject);
    procedure EditTrainDeclChange(Sender: TObject);
    procedure ListBoxOperationsMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure LabeledEditAdresseChange(Sender: TObject);
    procedure LabeledEditFonctionFChange(Sender: TObject);
    procedure LabeledEditTrainChange(Sender: TObject);
    procedure SpeedButtonJoueClick(Sender: TObject);
    procedure SpeedButtonChargerClick(Sender: TObject);
    procedure CheckBoxRAZClick(Sender: TObject);
    procedure ButtonApplDeclClick(Sender: TObject);
    procedure LabeledEditNomActChange(Sender: TObject);
    procedure ComboBoxAccComUSBChange(Sender: TObject);
    procedure LabeledEditTempoFChange(Sender: TObject);
    procedure ListBoxOperationsDblClick(Sender: TObject);
    procedure ListBoxCondTotDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ListBoxConditionsMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ListBoxConditionsDrawItem(Control: TWinControl;
      Index: Integer; Rect: TRect; State: TOwnerDrawState);
    procedure ButtonAppCondClick(Sender: TObject);
    procedure Champ1Change(Sender: TObject);
    procedure Champ2Change(Sender: TObject);
    procedure SpinEditHeure1Change(Sender: TObject);
    procedure SpinEditMn1Change(Sender: TObject);
    procedure SpinEditHeure2Change(Sender: TObject);
    procedure SpinEditMn2Change(Sender: TObject);
    procedure ChampTrainChange(Sender: TObject);
    procedure SpinEditEtat2Change(Sender: TObject);
    procedure RadioEtatSignalClick(Sender: TObject);
    procedure SpinEditEtatopChange(Sender: TObject);
    procedure ListBoxOperationsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonFonctionClick(Sender: TObject);
    procedure ButtonVoirFoncClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Supprimeropration1Click(Sender: TObject);
    procedure Monteropration1Click(Sender: TObject);
    procedure Descendreopration1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  FormModifAction: TFormModifAction;
  AffParam : boolean;
  ClicDeclenche,ClicAction,ClicCond,DeclencheurAffiche,OperationAffiche : integer;

function Info_action(i : integer) : string;
function affecte_operation(i : integer) : string;

implementation

uses Unitprinc, UnitConfigCellTCO, UnitConfig;


{$R *.dfm}

procedure efface_champs_declencheurs_conditions;
begin
  with formModifAction do
  begin
    // déclencheurs
    RadioEtatSignal.Visible:=false;
    LabelAdresse.Visible:=false;
    SpinEditEtat.Visible:=false;
    EditAdr.visible:=false;
    LabelHeure.Visible:=false;
    EditAdr2.Visible:=false;
    LabelTrain.Visible:=false;
    EditTrainDecl.Visible:=false;
    LabelEtat.Visible:=false;
    LabelInfoFonc.Visible:=false;
    ButtonFonction.Visible:=false;
    // conditions
    Champ1.Visible:=false;
    Champ2.Visible:=false;
    SpinEditHeure1.visible:=false;
    SpinEditMn1.visible:=false;
    SpinEditHeure2.visible:=false;
    SpinEditMn2.visible:=false;
    LabelHeureDebut.Visible:=false;
    LabelHeureFin.Visible:=false;
    LabelEtat2.Visible:=false;
    SpinEditEtat2.Visible:=false;
    ChampTrain.Visible:=false;
    ButtonVoirFonc.Visible:=false;
    Label2InfoFonction.visible:=false;
  end;

end;

// rend invisibles les champs opérations
procedure efface_champs_operations;
begin
  with FormModifAction do
  begin
    LabelPeriph.Visible:=false;
    LabeledEditTempoF.Visible:=false;
    LabeledEditTrain.Visible:=false;
    SpeedButtonJoue.visible:=false;
    SpeedButtonCharger.visible:=false;
    LabeledEditFonctionF.Visible:=false;
    LabeledEditAdresse.Visible:=false;
    SpinEditEtatop.Visible:=false;
    checkBoxRaz.Visible:=false;
    GroupBoxParam.Visible:=true;
    labelEtatOp.Visible:=false;
    //RichEditInf.clear;
    ComboBoxAccComUSB.visible:=false;
  end;
end;

// ajoute à la listbox t une ligne avec son icone opérations[]
// i numéro d'opération dans le ytableau operations
function affecte_operation(i : integer) : string;
var s : string;
    io : integer;
begin
  //if ligneClicAct>=0 then io:=Tablo_Action[ligneclicAct+1].tabloOp[i].numoperation else io:=0;
  s:='';
  if i<ActionBoutonTCO then s:=(Format('%d%s', [i-1, s])); // valeur d'index de l'icone dans la ImagelistIcones
  if i=ActionBoutonTCO then s:=(Format('%d%s', [IconeBouton, s])); // valeur d'index de l'icone dans la ImagelistIcones
  if i=ActionAffecteMemoire then s:=(Format('%d%s', [IconeActionAffecteMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
  if i=ActionIncMemoire then s:=(Format('%d%s', [IconeActionIncMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
  if i=ActionDecMemoire then s:=(Format('%d%s', [IconeActionDecMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
  s:=s+operations[i].nom;
  result:=s;
end;

procedure TFormModifAction.FormCreate(Sender: TObject);
var i,icone : integer;
    s : string;
begin
  ListBoxOper.Style:=lbOwnerDrawVariable;      // pour afficher des icones
  ListBoxDeclench.Style:=lbOwnerDrawVariable;
  ListBoxOperations.Style:=lbOwnerDrawVariable;
  ListBoxCondTot.Style:=lbOwnerDrawVariable;
  ListBoxConditions.Style:=lbOwnerDrawVariable;

  for i:=1 to NbreDeclencheurs do
  begin
    icone:=0;
    case i of
      DeclHorloge : icone:=iconeHorloge;
      DeclPeriph : icone:=iconePeriph;
      DeclAccessoire: icone:=IconeAccessoire;
      DeclDetAct: icone:=IconeDet;
      DeclZoneDet: icone:=IconeZoneDet;
      DeclDemarTrain : icone:=IconeDemarTrain;
      DeclArretTrain : icone:=IconeArretTrain;
      DeclSignal : icone:=IconeSignal;
      DeclFonction : icone:=IconeFonction;
      DeclClavier : icone:=IconeBoutonClavier;
    end;
    ListBoxDeclench.Items.Add(Format('%d%s', [icone, declencheurs[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
    ListBoxDeclench.itemHeight:=16;
  end;

  for i:=1 to NbreOperations do
  begin
    s:=affecte_operation(i);
    formModifAction.ListBoxOper.Items.add(s);
    ListBoxOper.itemHeight:=16; // 16 mini taille des éléments pour l'icone
  end;

  for i:=1 to NbreConditions do
  begin
    icone:=0;
    case i of
      CondVrai : icone:=iconeVrai;
      CondFaux : icone:=iconeFaux;
      CondVitTrain : icone:=IconeVitTrain;
      CondPosAcc : icone:=IconeAccessoire;
      condHorl : icone:=IconeLanceHorl;
      condTrainSig : icone:=IconeDeclSignal;
      CondFonction : icone:=IconeFonction;
      CondBouton : icone:=IconeBouton;
      CondMemoireEgal : icone:=IconeCondMemoireEgal;
      CondMemoireInf : icone:=IconeCondMemoireInf;
      CondMemoireSup : icone:=IconeCondMemoireSup;

    end;
    ListBoxCondTot.Items.Add(Format('%d%s', [icone, Conditions[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones
    ListBoxCondTot.itemHeight:=16; // 16  taille des éléments pour l'icone
  end;

  with ComboBoxFamille do
  begin
    items.Add('Tous');
    items.Add('Système');
    items.Add('Pilotage');
    items.Add('Trains');
    itemIndex:=0;
  end;

  ListBoxOperations.Hint:='Liste chronologique des opérations à effectuer'+#13+
                          'Double clic pour valider/dévalider une opération';
  LabeledEditFonctionF.Hint:='Fonction F de 0 à 28';

  Efface_champs_operations;
  Efface_champs_declencheurs_conditions;
  PageControlAct.ActivePage:=TabSheetDecl;
end;

procedure TFormModifAction.ListBoxOperDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  i,erreur: Integer;
  ItemText: string;
begin
  with ListBoxOper do
  begin
    ItemText:=Items[index];
    val(ItemText,i,erreur);
    Delete(ItemText,1,erreur-1);
    Canvas.Fillrect(Rect);
    formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
    Canvas.Textout(Rect.Left + formConfCellTCO.ImageListIcones.Width + 2, Rect.Top, ItemText);
  end;
end;

procedure TFormModifAction.ListBoxDeclenchDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var larg,i,erreur : integer;
    itemText : string;
begin
  with FormModifAction.ListBoxDeclench do
  begin
    larg:=formConfCellTCO.ImageListIcones.Width;
    ItemText:=Items[index];
    val(ItemText,i,erreur);
    Delete(ItemText,1,erreur-1);
    // efface le rectangle de l'élément
    Canvas.Fillrect(Rect);
    if index+1=Tablo_Action[ligneclicAct+1].declencheur then
    formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, 24);

    // affiche l'icone de l'élément
    formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left+larg, Rect.Top, i);
    // affiche le texte de l'élément
    Canvas.Textout(Rect.Left + 2*larg+ 2, Rect.Top, ItemText);
  end;
end;


procedure TFormModifAction.ListBoxOperationsDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  i,erreur: Integer;
  ItemText: string;
begin
  if affevt then Affiche('Evt ListBoxOperationsDrawItem '+intToSTR(index),clyellow);
  with ListBoxOperations do
  begin
    ItemText:=Items[index];
    val(ItemText,i,erreur);
    Delete(ItemText,1,erreur-1);
    Canvas.Fillrect(Rect);
    formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
    Canvas.Textout(Rect.Left + formConfCellTCO.ImageListIcones.Width + 2, Rect.Top, ItemText);
  end;

end;

procedure TFormModifAction.ComboBoxFamilleChange(Sender: TObject);
var i,famille : integer;
    s : string;
begin
  ListBoxOper.Clear;
  famille:=ComboBoxFamille.ItemIndex;  // famille=0=afficher tous

  for i:=1 to NbreOperations do
  begin
    if (operations[i].famille=famille) or (famille=0) then
    begin
      //s:=operations[i].nom;
      s:=affecte_operation(i);
      formModifAction.ListBoxOper.items.Add(s);
    end;
  end;
end;

function Info_action(i : integer) : string;
var nop,op,top,decl : integer;
    r : single;
    s :string;
begin
  decl:=Tablo_Action[i].declencheur;
  s:='Le déclencheur ';
  case decl of
  DeclHorloge :
      s:=s+'horloge à '+format('%.2d',[Tablo_Action[i].heure])+'h'+format('%.2d',[Tablo_Action[i].minute]);
  DeclPeriph :
      s:=s+'périphérique : '+Tablo_Action[i].ordrePeriph;
  DeclAccessoire :
      s:=s+'accessoire '+intToSTR(Tablo_Action[i].adresse);
  DeclDetAct :
      begin
        s:=s+'détecteur/Actionneur '+intToSTR(Tablo_Action[i].adresse);
        s:=s+' par le train "'+Tablo_Action[i].trainDecl+'"';
      end;
  DeclZoneDet :
     s:=s+'Zone détection '+intToSTR(Tablo_Action[i].adresse)+' '+intToSTR(Tablo_Action[i].adresse2);
  DeclDemarTrain :
     s:=s+'démarrage du train '+Tablo_Action[i].trainDecl;
  DeclArretTrain :
     s:=s+'arrêt du train '+Tablo_Action[i].trainDecl;
  DeclSignal :
    begin
     s:=s+'changement du signal '+intToSTR(Tablo_Action[i].adresse);
     case Tablo_Action[i].etat of
       0 : s:=s+' sur ouverture';
       1 : s:=s+' sur voie libre';
       2 : s:=s+' sur ouverture restreinte';
       3 : s:=s+' sur fermeture';
     end;
     end;
  DeclFonction :
    begin
       s:=s+'Fonction logique '+intToSTR(tablo_action[i].adresse);
     end;
  DeclClavier : s:=s+'Touche '+intToSTR(tablo_action[i].adresse)+' du clavier/bloc USB ';
  end;

  // conditions
  s:=s+#13;
  nop:=Tablo_Action[i].NbCond;
  for op:=1 to nop do
  begin
    s:=s+'Condition :';
    top:=Tablo_Action[i].tabloCond[op].numcondition;
    case top of
      CondVrai : s:=s+'toujours vraie ';
      CondFaux : s:=s+'toujours fausse ';
      CondVitTrain : s:=s+'vitesse train '+Tablo_Action[i].tabloCond[op].train+' '+intToSTR(Tablo_Action[i].tabloCond[op].vitmini)+
                        ' '+intToSTR(Tablo_Action[i].tabloCond[op].vitMaxi);
      CondPosAcc : s:=s+' position d''accessoire '+intToSTR(Tablo_Action[i].tabloCond[op].accessoire)+' état '+intToSTR(Tablo_Action[i].tabloCond[op].etat);
      CondHorl : s:=s+' horloge '+intToSTR(Tablo_Action[i].tabloCond[op].HeureMin)+'h'+intToSTR(Tablo_Action[i].tabloCond[op].MinuteMin)+' à '+
                                 intToSTR(Tablo_Action[i].tabloCond[op].HeureMax)+'h'+intToSTR(Tablo_Action[i].tabloCond[op].MinuteMax)+' ';
      condTrainSig : s:=s+'train '+Tablo_Action[i].tabloCond[op].train+' arrêté au signal '+intToSTR(Tablo_Action[i].tabloCond[op].Adresse);
      condFonction : s:=s+'fonction logique '+intToSTR(tablo_action[i].tabloCond[op].adresse);
      condBouton : s:=s+'bouton '+intToSTR(tablo_action[i].tabloCond[op].adresse)+' TCO';
      condMemoireEgal : s:=s+'mémoire '+intToSTR(tablo_action[i].tabloCond[op].adresse)+' à '+intToSTR(tablo_action[i].tabloCond[op].etat);
      condMemoireInf : s:=s+'mémoire '+intToSTR(tablo_action[i].tabloCond[op].adresse)+' < '+intToSTR(tablo_action[i].tabloCond[op].etat);
      condMemoireSup : s:=s+'mémoire '+intToSTR(tablo_action[i].tabloCond[op].adresse)+' > '+intToSTR(tablo_action[i].tabloCond[op].etat);

    end;
    s:=s+#13;
  end;

  nop:=Tablo_Action[i].NbOperations;

  if nop=0 then s:=s+'ne déclenche aucune opération'+#13;
  if nop=1 then s:=s+'déclenche 1 opération :'+#13;
  if nop>1 then s:=s+'déclenche '+intToSTR(nop)+' opérations :'+#13;

  s:=s+'--------------------'+#13;

  for op:=1 to nop do
  begin
    top:=Tablo_Action[i].tabloop[op].numoperation;
    case top of
      ActionAffTCO : s:=s+'Affiche TCO '+intToSTR(Tablo_Action[i].tabloop[op].NumTCO)+#13;
      ActionAffSC : s:=s+'Affiche signaux_complexes'+#13;
      ActionAffCDM : s:=s+'Affiche CDM rail'+#13;
      ActionAccessoire :
      begin
        s:=s+'Pilote l''accessoire '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+
             ' à '+intToSTR(Tablo_Action[i].tabloop[op].etat);
        if Tablo_Action[i].tabloop[op].zero then s:=s+' impulsionnel'+#13 else s:=s+' maintenu'+#13;
      end;
      ActionArretTRains : s:=s+'Arrêt des trains'+#13;
      ActionLanceHorl : s:=s+'Lance l''horloge'+#13;
      ActionArretHorl : s:=s+'Arrête l''horloge'+#13;
      ActionInitHorl : s:=s+'Initialise l''horloge'+#13;
      ActionAffHorl : s:=s+'Affiche l''horloge'+#13;
      ActionVitesse : s:=s+'Modifie la vitesse du train '+Tablo_Action[i].tabloop[op].train+' à '+intToSTR(Tablo_Action[i].tabloop[op].vitesse)+#13;
      ActionCdePeriph : s:=s+'Pilote le périphérique '+intToSTR(Tablo_Action[i].tabloop[op].periph)+' chaîne : '+Tablo_Action[i].tabloop[op].chaine+#13;
      ActionFonctionF : s:=s+'Fonction F'+intToSTR(Tablo_Action[i].tabloop[op].fonctionF)+' à '+IntToSTR(Tablo_action[i].tabloOp[op].etat)+
                            ' train dest='+Tablo_Action[i].tabloop[op].train+#13;
      ActionSon : s:=s+'Son '+Tablo_Action[i].tabloop[op].train+#13;
      ActionTempo :
      begin
        nop:=Tablo_Action[i].tabloop[op].tempoF;
        r:=nop/10;
        s:=s+'Temporisation '+intToSTR(nop)+' ('+Format('%.1f', [r])+'s)'#13;
      end;
      ActionBoutonTCO : s:=s+'Change l''état du bouton '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+' à '+intToSTR(Tablo_Action[i].tabloop[op].etat)+#13;
      ActionAffecteMemoire : s:=s+'Affectation de la mémoire '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+' à '+intToSTR(Tablo_Action[i].tabloop[op].etat)+#13;
      ActionIncMemoire : s:=s+'Incrémentation de la mémoire '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+#13;
      ActionDecMemoire : s:=s+'Décrémentation de la mémoire '+intToSTR(Tablo_Action[i].tabloop[op].adresse)+#13;
    end;
  end;
  result:=s;
end;

procedure affiche_champs_operations(index,indexaction : integer);
var nb,act : integer;
begin
  Nb:=Tablo_Action[index].NbOperations;
  // si pas d'action sélectionnée et que la liste n'est pas nulle, sélectionner la première
  if (Nb>0) and (indexAction=0) then
  begin
    indexAction:=1;
    formModifAction.listBoxOperations.itemIndex:=indexaction;
    formModifAction.listBoxOperations.Selected[indexaction-1]:=true;
  end;

//  formModifAction.RichEditInf.clear;
  efface_champs_operations;

  if Nb>=indexAction then
  begin
    Act:=Tablo_Action[index].tabloop[indexAction].numoperation;

    with formModifAction do
    begin
      case Act of
      ActionAffTCO :
      begin
        LabeledEditAdresse.hint:='Numéro du TCO';
        LabeledEditAdresse.Visible:=true;
        LabeledEditAdresse.EditLabel.Caption:='TCO n°';
        LabeledEditAdresse.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].NumTCO);
      end;
      ActionAccessoire :
      begin
        LabeledEditAdresse.hint:='Adresse d''accessoire sur le bus DCC';
        LabeledEditAdresse.EditLabel.Caption:='Adresse';
        LabeledEditAdresse.visible:=true;
        SpinEditEtatop.Visible:=true;
        labelEtatOp.Visible:=true;
        SpinEditEtatop.MinValue:=0;
        SpinEditEtatop.MaxValue:=2;
        SpinEditEtatop.hint:='Etat de l''accessoire'+#13+
              '0=nul'+#13+
              '1=dévié'+#13+
              '2=droit';

        checkBoxRaz.Visible:=true;
        LabeledEditAdresse.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
        SpinEditEtatop.Value:=Tablo_Action[index].tabloop[indexAction].etat;
        checkBoxRAZ.Checked:=Tablo_Action[index].tabloop[indexAction].zero;
      end;
      ActionVitesse :
      begin
        LabeledEditAdresse.EditLabel.Caption:='Vitesse';
        LabeledEditAdresse.visible:=true;
        LabeledEditAdresse.hint:='Vitesse de pilotage du train en crans';
        LabeledEditTrain.Visible:=true;
        LabeledEditTrain.EditLabel.Caption:='Train destinataire';
        LabeledEditTrain.hint:='Nom unique du train';
        LabeledEditAdresse.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].vitesse);
        LabeledEditTrain.Text:=Tablo_Action[index].tabloop[indexAction].train;
      end;
      ActionCdePeriph :
      begin
        LabeledEditTrain.Visible:=true;
        ComboBoxAccComUSB.Visible:=true;
        LabelPeriph.Visible:=true;
        LabeledEditTrain.EditLabel.Caption:='Commande';
        LabeledEditTrain.Hint:='Commande Ascii';
        LabeledEditTrain.Text:=Tablo_Action[index].tabloop[indexAction].chaine;
        ComboBoxAccComUSB.itemIndex:=Tablo_Action[index].tabloop[indexAction].periph-1;
      end;
      ActionFonctionF :
      begin
        with SpinEditEtatop do
        begin
          Visible:=true;
          MinValue:=0;
          MaxValue:=1;
          hint:='Etat 0 ou 1 de la fonction F';
        end;
        labelEtatOp.Visible:=true;
        with LabeledEditTempoF do
        begin
          Visible:=true;
          hint:='Valeur de la temporisation en 1/10ème de s'+#13+
                'pour désactiver la fonction F'+#13+
                'Si 0, la fonction F reste activée';
          EditLabel.Caption:='Tempo (x100ms)';
          Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].TempoF);
        end;
        LabeledEditTrain.Visible:=true;
        LabeledEditTrain.EditLabel.Caption:='Train destinataire';
        LabeledEditTrain.hint:='Nom unique du train';
        SpinEditEtatOp.Text:=IntToSTR(Tablo_Action[index].tabloop[indexAction].etat);
        LabeledEditFonctionF.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].fonctionF);
        LabeledEditFonctionF.Visible:=true;
        LabeledEditTrain.Text:=Tablo_Action[index].tabloop[indexAction].train;
      end;
      ActionSon :
      begin
        LabeledEditTrain.Visible:=true;
        SpeedButtonJoue.Visible:=true;
        SpeedButtonCharger.Visible:=true;
        LabeledEditTrain.EditLabel.Caption:='Son';
        LabeledEditTrain.Hint:='fichier son';
        LabeledEditTrain.Text:=Tablo_Action[index].tabloop[indexAction].train;
      end;
      ActionTempo :
      begin
        LabeledEditTempoF.Visible:=true;
        LabeledEditTempoF.EditLabel.Caption:='Temporisation (x100 ms)';
        LabeledEditTempoF.hint:='Valeur en dixièmes de secondes';
        LabeledEditTempoF.Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].TempoF);
      end;
      ActionBoutonTCO :
      begin
        with LabeledEditAdresse do
        begin
          hint:='Numéro de bouton de TCO';
          Visible:=true;
          EditLabel.Caption:='Bouton';
          text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
        end;
        With SpinEditEtatOp do
        begin
          Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].etat);
          Visible:=true;
          MinValue:=0;
          MaxValue:=1;
          hint:='Etat 0 ou 1 du bouton';
        end;
      end;
      ActionAffecteMemoire :
      begin
        with LabeledEditAdresse do
        begin
          EditLabel.Caption:='Mémoire';
          Visible:=true;
          hint:='Numéro de mémoire de 0 à '+intToSTR(MaxMemoires);
          text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
        end;
        with SpinEditEtatOp do
        begin
          Text:=intToSTR(Tablo_Action[index].tabloop[indexAction].etat);
          Visible:=true;
          MinValue:=-999;
          MaxValue:=999;
          hint:='Valeur d''affectation de -999 à 999';
        end;
      end;
      ActionIncMemoire :
      begin
        with LabeledEditAdresse do
        begin
          EditLabel.Caption:='Mémoire';
          hint:='Numéro de mémoire';
          Visible:=true;
          text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
        end;
      end;
      ActionDecMemoire :
      begin
        with LabeledEditAdresse do
        begin
          EditLabel.Caption:='Mémoire';
          hint:='Numéro de mémoire';
          Visible:=true;
          text:=intToSTR(Tablo_Action[index].tabloop[indexAction].adresse);
        end;
      end;
    end;
    end;
  end;
end;

// affiche les champs en fonction de l'index du tablo actionneur et de l'index de l'action
procedure Aff_champs(index,IndexCond,IndexAction : integer);
var i,decl,act,cond,icone : integer;
    s : string;
begin
  if (index<1) then exit;
  if clicListe then exit;
  clicliste:=true;
  if affevt then Affiche('Aff_champs('+intToSTR(index)+', indexOperation='+intToSTR(indexAction)+')',clYellow);
  decl:=Tablo_Action[index].declencheur;
  formModifAction.ListBoxDeclench.ItemIndex:=decl-1;
  // comboboxActions
  s:=encode_actions(index);
  with formModifAction.ComboBoxActions do
  begin
    Items[index-1]:=s;
    ItemIndex:=index-1;
  end;

  with formconfig.ListBoxActions do
  begin
    items[index-1]:=s;
  end;

  s:=Info_action(ligneclicAct+1);
  with formConfig.RichEditInfo do
  begin
    clear;
    Lines.Add(s);
  end;

  FormModifAction.LabeledEditNomAct.Text:=Tablo_Action[index].NomAction;
  FormModifAction.RichEditInf.Clear;

  // ListBox opérations

  with FormModifAction.ListBoxOperations do
  begin
    clear;
    formConfig.ListBoxOperations.Clear;
    for i:=1 to Tablo_Action[index].NbOperations do
    begin
      act:=Tablo_Action[index].tabloOp[i].numoperation;
      if act<=NbreOperations then
      begin
        s:=operations[act].nom;
        if not(Tablo_Action[index].tabloOp[i].valide) then s:=s+' [dévalidé]';
        if act<1 then icone:=0  else icone:=act-1;

        // listboxOperations de la formmodifAction
        if act<=ActionTempo then items.Add(Format('%d%s', [icone, s])); // valeur d'index de l'icone dans la ImagelistIcones
        if act=ActionBoutonTCO then items.Add(Format('%d%s', [iconeBouton, s]));
        if act=ActionAffecteMemoire then items.Add(Format('%d%s', [iconeActionAffecteMemoire, s]));
        if act=ActionIncMemoire then items.Add(Format('%d%s', [iconeActionIncMemoire, s]));
        if act=ActionDecMemoire then items.Add(Format('%d%s', [iconeActionDecMemoire, s]));

        // listboxOperations de la formConfig
        if act<=ActionTempo then formConfig.ListBoxOperations.Items.add(Format('%d%s', [act-1, s]));
        if act=ActionBoutonTCO then formConfig.ListBoxOperations.items.Add(Format('%d%s', [IconeBouton, s]));
        if act=ActionAffecteMemoire then formConfig.ListBoxOperations.items.Add(Format('%d%s', [iconeActionAffecteMemoire, s]));
        if act=ActionIncMemoire then formConfig.ListBoxOperations.items.Add(Format('%d%s', [iconeActionIncMemoire, s]));
        if act=ActionDecMemoire then formConfig.ListBoxOperations.items.Add(Format('%d%s', [iconeActionDecMemoire, s]));

        itemHeight:=16;
      end;
    end;
    if indexaction<>0 then itemIndex:=indexaction-1;
  end;

  // listbox conditions
  with FormModifAction.ListBoxConditions do
  begin
    clear;
    for i:=1 to Tablo_Action[index].NbCond do
    begin
      cond:=Tablo_Action[index].tabloCond[i].numcondition;
      s:=conditions[cond].nom;
      case cond of
        CondVrai : icone:=iconeVrai;
        CondFaux : icone:=iconeFaux;
        CondVitTrain : icone:=IconeVitTrain;
        CondPosAcc : icone:=IconeAccessoire;
        condHorl : icone:=IconeLanceHorl;
        condTrainSig : icone:=IconeDeclSignal;
        condFonction : icone:=IconeFonction;
        condBouton : icone:=IconeBouton;
        condMemoireEgal: icone:=IconeCondMemoireEgal;
        condMemoireSup: icone:=IconeCondMemoireSup;
        condMemoireInf: icone:=IconeCondMemoireinf;
      end;

      items.Add(Format('%d%s', [icone, s])); // valeur d'index de l'icone dans la ImagelistIcones

      itemHeight:=16;
    end;
    if indexCond<>0 then itemIndex:=indexCond-1;
  end;


  // listBoxActions de la formConfig
  FormConfig.ListBoxActions.Clear;
  for i:=1 to maxTablo_act do
  begin
    s:=encode_actions(i);
    formConfig.ListBoxActions.Items.add(s);
  end;

  efface_champs_declencheurs_conditions;

  // déclencheurs
  with FormModifAction do
  case decl of
  DeclHorloge :
    begin
      EditAdr.text:=intToSTR(Tablo_Action[index].heure);
      EditAdr2.text:=intToSTR(Tablo_Action[index].minute);
      LabelHeure.visible:=true;
      LabelAdresse.visible:=true;
      EditAdr.Visible:=true;
      LabelAdresse.Caption:='Heure';
      EditAdr.Hint:='Heure du déclencheur';
      EditAdr2.Hint:='Minute du déclencheur';
      EditAdr2.Visible:=true;
      RichEditInf.Lines.Add('Déclenchement par l''horloge');
      ImageIcone.Picture:=nil;
      formConfCellTCO.ImageListIcones.GetBitmap(IconeHorloge,ImageIcone.Picture.Bitmap);
      ImageIcone.repaint;
    end;
  DeclPeriph :
    begin
      EditTrainDecl.Text:=Tablo_Action[index].ordrePeriph;
      EditTrainDecl.Visible:=true;
      EditTrainDecl.Hint:='Chaîne ASCII';

      LabelTrain.visible:=true;
      labelTrain.Width:=105;
      LabelTrain.Caption:='Commande du périphérique';
      RichEditInf.Lines.Add('Déclenchement par chaîne ASCII depuis un périphérique COM/USB - Socket');

      ImageIcone.Picture:=nil;
      formConfCellTCO.ImageListIcones.GetBitmap(IconePeriph,ImageIcone.Picture.Bitmap);
      ImageIcone.repaint;
    end;
  DeclAccessoire :
    begin
      EditAdr.text:=intToSTR(Tablo_Action[index].adresse);

      with SpinEditEtat do
      begin
        text:=intToSTR(Tablo_Action[index].etat);
        MaxValue:=0;
        MaxValue:=2;
        Hint:='Etat de l''accessoire'+#13+
              '0=nul'+#13+
              '1=dévié'+#13+
              '2=droit';
        ShowHint:=true;
        visible:=true;
      end;

      LabelAdresse.caption:='Adresse';
      LabelAdresse.visible:=true;
      EditAdr.Hint:='Adresse de l''accessoire sur le bus';
      EditAdr.Visible:=true;
      LabelEtat.Visible:=true;
      RichEditInf.Lines.Add('Accessoire sur le bus DCC (aiguillage)');
      ImageIcone.Picture:=nil;
      formConfCellTCO.ImageListIcones.GetBitmap(IconeAccessoire,ImageIcone.Picture.Bitmap);
      ImageIcone.repaint;
    end;

  DeclDetAct :
    begin
      EditAdr.text:=intToSTR(Tablo_Action[index].adresse);
      EditTrainDecl.Visible:=true;
      EditTrainDecl.Text:=Tablo_Action[index].trainDecl;
      EdittrainDecl.Hint:='Train(s) déclencheur(s) séparés par des virgules pour lesquels la condition s''applique.'
               +#13+'Mettre X pour tous les trains.'+#13+'Déclenchement par actionneur uniquement';
      EditAdr.Visible:=true;
      EditAdr.Hint:='Adresse du détecteur sur le bus de rétrosignalisation '+#13+'ou de l''actionneur CDM';
      LabelAdresse.Caption:='Adresse';
      LabelEtat.Visible:=true;
      LabelAdresse.Visible:=true;
      with SpinEditEtat do
      begin
        text:=intToSTR(Tablo_Action[index].etat);
        MaxValue:=0;
        MaxValue:=1;
        Hint:='Etat du détecteur/actionneur'+#13+
              '0=désactivé'+#13+
              '1=activé';
        ShowHint:=true;
        visible:=true;
      end;
      LabelTrain.Visible:=true;
      LabelTrain.Caption:='Train déclencheur';
      s:='Déclenchement par détecteur/actionneur suivant son état et un train, un groupe de trains ou tous les trains.'+#13;
      s:=s+'Le déclenchement par détecteur conditionné par un train n''est pas garanti, contrairement aux actionneurs.';
      RichEditInf.Lines.Add(s);

      ImageIcone.Picture:=nil;
      formConfCellTCO.ImageListIcones.GetBitmap(IconeDet,ImageIcone.Picture.Bitmap);
      ImageIcone.repaint;
    end;

   DeclZoneDet :
   begin
      EditAdr.text:=intToSTR(Tablo_Action[index].adresse);
      EditAdr2.text:=intToSTR(Tablo_Action[index].adresse2);

      EditTrainDecl.Text:=Tablo_Action[index].trainDecl;
      EditAdr.Hint:='Adresse1 de la zone de détection du déclencheur';
      EditAdr2.Hint:='Adresse2 de la zone de détection du déclencheur';
      LabelAdresse.visible:=true;
      EditAdr.Visible:=true;
      EditAdr2.Visible:=true;
      LabelAdresse.Caption:='Adresse';
      LabelEtat.Visible:=true;

      EditTrainDecl.Visible:=true;
      EdittrainDecl.Hint:='Train(s) déclencheur(s) séparés par des virgules pour lesquels la condition s''applique.'
               +#13+'Mettre X pour tous les trains.'+#13+'Mode autonome uniquement';

      with SpinEditEtat do
      begin
        text:=intToSTR(Tablo_Action[index].etat);
        MaxValue:=0;
        MaxValue:=1;
        Hint:='Etat de la zone de détection'+#13+
              '0=désactivé'+#13+
              '1=activé';
        ShowHint:=true;
        visible:=true;
      end;
      LabelTrain.Visible:=true;
      LabelTrain.Caption:='Train déclencheur';
      RichEditInf.Lines.Add('Déclenchement par zones de détections contigües suivant son état et un train, un groupe de trains ou tous les trains.');
      ImageIcone.Picture:=nil;
      formConfCellTCO.ImageListIcones.GetBitmap(IconeZoneDet,ImageIcone.Picture.Bitmap);
      ImageIcone.repaint;
   end;

   DeclDemarTrain :
   begin
     LabelTrain.visible:=true;
     EditTrainDecl.Visible:=true;
     EdittrainDecl.Hint:='Train déclencheur unique';
     EditTrainDecl.Text:=Tablo_Action[index].trainDecl;
     labelTrain.Width:=105;
     labelTrain.caption:='Train déclencheur';
     EditAdr.Text:=IntToSTR(Tablo_Action[index].adresse);
     RichEditInf.Lines.Add('Déclenchement par démarrage d''un train');
     ImageIcone.Picture:=nil;
     formConfCellTCO.ImageListIcones.GetBitmap(IconeDemarTrain,ImageIcone.Picture.Bitmap);
     ImageIcone.repaint;
   end;

   DeclArretTrain :
   begin
     LabelTrain.visible:=true;
     EditTrainDecl.Visible:=true;
     labelTrain.caption:='Train déclencheur';
     EdittrainDecl.Hint:='Train déclencheur unique';
     EditTrainDecl.Text:=Tablo_Action[index].trainDecl;
     labelTrain.Width:=105;
     EditAdr.Text:=IntToSTR(Tablo_Action[index].adresse);
     RichEditInf.Lines.Add('Déclenchement par arrêt d''un train');
     ImageIcone.Picture:=nil;
     formConfCellTCO.ImageListIcones.GetBitmap(IconeArretTrain,ImageIcone.Picture.Bitmap);
     ImageIcone.repaint;
   end;

   DeclSignal :
   begin
     LabelAdresse.Visible:=true;
     EditAdr.text:=intToSTR(Tablo_Action[index].adresse);
     RadioEtatSignal.ItemIndex:=Tablo_Action[index].Etat;
     LabelAdresse.Caption:='Adresse';
     EditAdr.Hint:='Adresse de base du signal';
     EditAdr.Visible:=true;
     RadioEtatSignal.Visible:=true;
     RadioEtatSignal.Left:=16;
     RadioEtatSignal.top:=64;
     RichEditInf.Lines.Add('Déclenchement par changement d''état d''un signal');
     ImageIcone.Picture:=nil;
     formConfCellTCO.ImageListIcones.GetBitmap(IconeSignal,ImageIcone.Picture.Bitmap);
     ImageIcone.repaint;
   end;

   DeclFonction :
   begin
     LabelAdresse.Visible:=true; // numéro de fonction
     LabelAdresse.caption:='Numéro de fonction';
     ButtonFonction.Visible:=true;
     EditAdr2.Visible:=true;    // entrée le la fonction
     EditAdr2.Text:=IntToSTR(tablo_action[index].adresse);
     ImageIcone.Picture:=nil;
     formConfCellTCO.ImageListIcones.GetBitmap(IconeFonction,ImageIcone.Picture.Bitmap);
     ImageIcone.repaint;
     LabelInfoFonc.Visible:=true;
     RichEditInf.Lines.Add('Déclenchement par fonction logique');
     if (tablo_action[index].adresse>0) and (tablo_action[index].adresse<NbreFL) then  LabelInfoFonc.Caption:=NomFonction[tablo_action[index].adresse]
       else LabelInfoFonc.Caption:='';
   end;

   DeclClavier :
   begin
     LabelAdresse.Visible:=true; // numéro de fonction
     LabelAdresse.caption:='Code ASCII de la touche';
     EditAdr.Hint:='Code ASCII de la touche';
     ButtonFonction.Visible:=false;
     EditAdr.Text:=IntToSTR(tablo_action[index].adresse);
     EditAdr.Visible:=true;
     ImageIcone.Picture:=nil;
     formConfCellTCO.ImageListIcones.GetBitmap(IconeBoutonClavier,ImageIcone.Picture.Bitmap);
     ImageIcone.repaint;
     RichEditInf.Lines.Add('Déclenchement touche de clavier ou bloc usb');
   end;

  end;

  // conditions
  if indexCond>0 then
  begin
    cond:=Tablo_Action[index].tablocond[indexCond].numcondition;
    with formModifAction do
    begin
      case cond of
        CondVitTrain :
        begin
          champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].vitmini);
          champ2.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].vitmaxi);
          ChampTrain.text:=Tablo_Action[index].tabloCond[indexCond].train;
          Champ1.EditLabel.Caption:='Vitesse'+#13+'mini';
          Champ2.EditLabel.Caption:='Vitesse'+#13+'maxi';
          Champ1.Hint:='Vitesse minimale du train pour la condition';
          Champ2.Hint:='Vitesse minimale du train pour la condition';
          ChampTrain.Hint:='Nom du train unique pour la condition';
          champ1.Visible:=true;
          champ2.Visible:=true;
          ChampTrain.Visible:=true;
        end;
        CondPosAcc :
        begin
          champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].accessoire);
          Champ1.Hint:='Adresse DCC de l''accessoire pour la condition';
          SpinEditEtat2.Value:=Tablo_Action[index].tabloCond[indexCond].etat;
          SpinEditEtat2.visible:=true;
          SpinEditEtat2.hint:='Etat de l''accessoire'+#13+
              '0=nul'+#13+
              '1=dévié'+#13+
              '2=droit';
          Champ1.EditLabel.Caption:='Adresse'+#13+'acc';
          champ1.Visible:=true;
          labelEtat2.Visible:=true;
          SpinEditEtat2.visible:=true;
          SpinEditEtat2.MinValue:=0;
          SpinEditEtat2.MaxValue:=2;
        end;
        condHorl :
        begin
          SpinEditHeure1.Value:=Tablo_Action[index].tabloCond[indexCond].HeureMin;
          SpinEditmn1.Value:=Tablo_Action[index].tabloCond[indexCond].MinuteMin;
          SpinEditHeure2.Value:=Tablo_Action[index].tabloCond[indexCond].HeureMax;
          SpinEditmn2.Value:=Tablo_Action[index].tabloCond[indexCond].MinuteMax;

          SpinEditHeure1.visible:=true;
          SpinEditHeure2.visible:=true;
          SpinEditMn1.visible:=true;
          SpinEditMn2.visible:=true;
          LabelHeureDebut.Visible:=true;
          LabelHeureFin.Visible:=true;
        end;
        condTrainSig :
        begin
          champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].adresse);
          champ1.editLabel.Caption:='Adresse du signal';
          champTrain.Text:=Tablo_Action[index].tabloCond[indexCond].train;
          champ1.Visible:=true;
          champTrain.Visible:=true;
        end;
        condFonction :
        begin
          champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].adresse);
          champ1.editLabel.Caption:='Numéro de fonction';
          champTrain.Text:=Tablo_Action[index].tabloCond[indexCond].train;
          champ1.Visible:=true;
          ButtonVoirFonc.Visible:=true;
          Label2InfoFonction.Visible:=true;
          Label2InfoFonction.Caption:=NomFonction[Tablo_Action[index].tabloCond[indexCond].adresse];
        end;
        condBouton :
        begin
          champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].adresse);
          champ1.editLabel.Caption:='Numéro de bouton TCO';
          champTrain.Text:=Tablo_Action[index].tabloCond[indexCond].train;
          champ1.Visible:=true;
        end;
        condMemoireEgal,CondMemoireInf,CondMemoireSup :
        begin
          champ1.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].adresse);
          champ1.editLabel.Caption:='Numéro de mémoire';
          champ1.Visible:=true;
          champ2.Text:=intToSTR(Tablo_Action[index].tabloCond[indexCond].etat);
          Champ2.EditLabel.Caption:='Valeur';
          Champ2.Visible:=true;
        end;

      end;
    end;
  end;

  Efface_champs_operations;
  Affiche_champs_operations(index,indexaction);

  clicliste:=false;
end;

procedure TFormModifAction.FormActivate(Sender: TObject);
var i : integer;
    s : string;
begin
  ComboBoxActions.Clear;
  for i:=1 to maxTablo_act do
  begin
    s:=encode_actions(i);
    if s<>'' then ComboBoxActions.Items.Add(s);
  end;

  //ligneclicACt:=0;
  ComboBoxActions.ItemIndex:=ligneclicAct;
  LabelDecl.Caption:='Déclencheur de l''action n°'+intToSTR(ComboBoxactions.ItemIndex+1);

  Aff_champs(ligneclicAct+1,ClicCond+1,ClicAction+1);

  if OperationAffiche<>0 then
  begin
    PageControlAct.ActivePage:=TabSheetOp;
  end;
end;

procedure TFormModifAction.ComboBoxActionsChange(Sender: TObject);
begin
  ligneclicAct:=ComboBoxActions.ItemIndex;
  Aff_champs(ligneclicAct+1,1,0);
  LabelDecl.Caption:='Liste de déclencheurs de l''action n°'+intToSTR(ComboBoxactions.ItemIndex+1);
end;

procedure TFormModifAction.ButtonAppActionClick(Sender: TObject);
var indexSrc,IndexDest,i : integer;
    s : string;
begin
  indexSrc:=listboxOper.ItemIndex;
  IndexDest:=ListBoxOperations.Itemindex;
  if (indexSrc<0) or (ligneclicAct<0) or (Tablo_Action[ligneClicAct+1].NbOperations<1) then exit;

  s:=ListBoxOper.Items[indexSrc];
  i:=Index_Operation(s);
  if i=0 then exit;

  if (IndexDest<0) then IndexDest:=0;
  Tablo_Action[ligneClicAct+1].TabloOp[IndexDest+1].numoperation:=i;

  listboxoperations.Items[indexDest]:=ListBoxOper.Items[indexSrc];

  clicAction:=ligneclicact;
  Aff_champs(ligneClicAct+1,1,indexDest+1);
end;

procedure TFormModifAction.ButtonAjouterClick(Sender: TObject);
var indexSrc,idBD,NbOp,NbCond,i : integer;
    s : string;
begin
  indexSrc:=listboxOper.ItemIndex;
  if indexSrc<0 then exit;

  s:=ListBoxOper.Items[IndexSrc];
  i:=index_operation(s);
  if i=0 then exit;

  idBD:=ligneClicAct+1;
  NbOp:=Tablo_Action[idBD].NbOperations;
  NbCond:=Tablo_Action[idBD].NbCond;
  inc(NbOp);
  Tablo_Action[idBD].NbOperations:=NbOp;
  Setlength(Tablo_Action[idBD].tabloOp,NbOp+1);
  // le nouveau numéro d'opération c'est l'index de la listboxOper
  Tablo_Action[idBD].tabloOp[NbOp].numoperation:=i;
  Tablo_Action[idBD].tabloOp[NbOp].valide:=true;

  Aff_champs(idbd,nbCond,Nbop);
  clicAction:=NbOp-1;
  ListBoxOperations.ItemIndex:=clicAction;
end;

procedure supprime_operation;
var i,indexSrc,idBD,NbOp,NumOp : integer;
    s : string;
begin
  indexSrc:=formModifaction.listboxOperations.ItemIndex;
  if indexSrc<0 then exit;

  idBD:=ligneClicAct+1;
  NbOp:=Tablo_Action[idBD].NbOperations;
  if NbOp<1 then exit;

  NumOp:=Tablo_Action[idBD].TabloOp[indexSrc+1].numoperation;
  s:='Voulez vous supprimer l''opération '+#13+operations[NumOp].Nom+' ?';

  if Application.MessageBox(pchar(s),pchar('confirm'), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION)=idNo then exit;

  // supprimer
  FormModifAction.listboxoperations.Items.Delete(indexSrc);
  for i:=IndexSrc+1 to NbOp-1 do
  begin
    Tablo_Action[idBD].TabloOp[i]:=Tablo_Action[idBD].TabloOp[i+1];
  end;

  dec(NbOp);
  Tablo_Action[idBD].NbOperations:=NbOp;
  Setlength(Tablo_Action[idBD].tabloOp,NbOp+1);

  Aff_champs(idBD,1,IndexSrc+1);
  exit;

  // réencoder la ligne
  s:=encode_actions(idBD);
  // maj combobox
  FormModifAction.ComboBoxActions.Items[idBD-1]:=s;
  FormModifAction.ComboBoxActions.ItemIndex:=idbd-1;
end;

procedure TFormModifAction.SpeedButtonSupprimeClick(Sender: TObject);
begin
  supprime_operation;
end;

procedure monte_operation;
var i,indexSrc,idBD,idOp,no : integer;
    top : Toperation;
    s : string;
begin
  indexSrc:=FormModifAction.listboxOperations.ItemIndex;
  if indexSrc<0 then exit;
  idBD:=ligneClicAct+1;
  idop:=indexSrc+1;


  if (indexSrc<1) then exit;
  top:=Tablo_Action[idBD].TabloOp[idOp-1];
  Tablo_Action[idBD].TabloOp[idOp-1]:=Tablo_Action[idBD].TabloOp[idOp];
  Tablo_Action[idBD].TabloOp[idOp]:=top;

  // réencoder la ligne
  s:=encode_actions(idBD);
  // maj combobox
  FormModifAction.ComboBoxActions.Items[idBD-1]:=s;
  FormModifAction.ComboBoxActions.ItemIndex:=idbd-1;

  // maj opérations
  with FormModifAction.ListBoxOperations do
  begin
    clear;
    for i:=1 to Tablo_Action[idBD].NbOperations do
    begin
      no:=Tablo_Action[idBD].tabloOp[i].numoperation;
      s:=affecte_operation(no);
      FormModifAction.ListBoxOperations.Items.add(s);
      itemHeight:=16;
    end;
    ItemIndex:=indexSrc-1;
  end;
end;

procedure TFormModifAction.SpinButton1UpClick(Sender: TObject);
begin
  monte_operation;
end;

Procedure Descend_operation;
 var no,i,indexSrc,idBD,idOp : integer;
    top : Toperation;
    s : string;
begin
  indexSrc:=FormModifAction.listboxOperations.ItemIndex;
  if indexSrc<0 then exit;
  idBD:=ligneClicAct+1;
  idop:=indexSrc+1;

  no:=Tablo_Action[idBD].NbOperations;

  if (indexSrc+1>=No) then exit;
  top:=Tablo_Action[idBD].TabloOp[idOp+1];
  Tablo_Action[idBD].TabloOp[idOp+1]:=Tablo_Action[idBD].TabloOp[idOp];
  Tablo_Action[idBD].TabloOp[idOp]:=top;

  // réencoder la ligne
  s:=encode_actions(idBD);
  // maj combobox
  FormModifAction.ComboBoxActions.Items[idBD-1]:=s;
  FormModifAction.ComboBoxActions.ItemIndex:=idbd-1;

  // maj opérations
  with FormModifAction.ListBoxOperations do
  begin
    clear;
    for i:=1 to Tablo_Action[idBD].NbOperations do
    begin
      no:=Tablo_Action[idBD].tabloOp[i].numoperation;
      s:=affecte_operation(no);
      FormModifAction.ListBoxOperations.Items.Add(s);
      itemHeight:=16;
    end;

    ItemIndex:=indexSrc+1;
  end;
  Config_Modifie:=true;
end;

procedure TFormModifAction.SpinButton1DownClick(Sender: TObject);
begin
  Descend_operation;
end;

procedure maj_combocactions(i : integer);
var s : string;
begin
  s:=encode_actions(i+1);
  with formModifAction do
  begin
    ComboBoxActions.Items[i]:=s;
    ComboBoxActions.ItemIndex:=ligneClicAct;
  end;
end;

procedure TFormModifAction.EditAdrChange(Sender: TObject);
var decl,index,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  index:=ligneclicAct+1;
  if affevt then Affiche('EditAdrChange',clyellow);

  decl:=Tablo_Action[ligneclicAct+1].declencheur;
  val(editAdr.Text,i,erreur);
  if (i<0) or (erreur<>0) then exit;

  if decl=DeclHorloge then
  begin
    if (i>23) then exit;
    Tablo_Action[index].heure:=i;
  end
  else
  if decl=DeclClavier then
  begin
    LabelHeure.Visible:=true;
    if (i<0) or (i>255) then exit;
    LabelHeure.Caption:=char(i);
    Tablo_Action[index].adresse:=i;
  end
  else Tablo_Action[index].adresse:=i;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.EditAdr2Change(Sender: TObject);
var decl,index,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  index:=ligneclicAct+1;

  decl:=Tablo_Action[ligneclicAct+1].declencheur;

  if (decl<>DeclZoneDet) and (decl<>DeclHorloge) and (decl<>DeclFonction) then exit;

  val(editAdr2.Text,i,erreur);
  if (i<0) or (erreur<>0) then exit;

  if decl=DeclHorloge then
  begin
    if (i>59) then exit;
    Tablo_Action[index].minute:=i;
  end;
  if decl=DeclZoneDet then Tablo_Action[index].adresse2:=i;
  if decl=DeclFonction then
  begin
    if (i<1) or (i>100) then exit;
    Tablo_Action[index].adresse:=i;
    LabelInfoFonc.caption:=NomFonction[i];
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.SpinEditEtatChange(Sender: TObject);
var decl,index,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  index:=ligneclicAct+1;

  decl:=Tablo_Action[ligneclicAct+1].declencheur;
  if (decl<>declAccessoire) and (decl<>DeclDetAct) and (decl<>DeclZoneDet) then exit;

  val(SpinEditEtat.Text,i,erreur);
  if (i<0) or (i>2) or (erreur<>0) then
  begin
    SpinEditEtat.value:=0;
    exit;
  end;
  SpinEditEtat.value:=i;
  Tablo_Action[index].etat:=i;

  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.EditTrainDeclChange(Sender: TObject);
var decl,index : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  if affevt then Affiche('EditTrainDeclChange',clyellow);
  index:=ligneclicAct+1;

  decl:=Tablo_Action[ligneclicAct+1].declencheur;
  if (decl<>declDetAct) and (decl<>DeclZoneDet) and (decl<>DeclPeriph) and
     (decl<>DeclDemarTrain) and (decl<>DeclArretTrain) then exit;

  if (decl=declDetAct) or (decl=DeclZoneDet) or (decl=DeclDemarTrain) or (decl=DeclArretTrain)
     then Tablo_Action[index].trainDecl:=EditTrainDecl.text;
  if decl=DeclPeriph then Tablo_Action[index].ordrePeriph:=EditTrainDecl.text;

  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.ListBoxOperationsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if affevt then Affiche('Clic ListBoxOperations',clyellow);
  ClicAction:=ListBoxOperations.itemindex;
  if ClicAction<0 then exit;
  Affiche_champs_operations(ligneclicAct+1,ClicAction+1);
end;

procedure TFormModifAction.LabeledEditAdresseChange(Sender: TObject);
var i,erreur,op : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(LabeledEditAdresse.Text,i,erreur);
  op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
  case op of
    ActionAffTCO    : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numTCO:=i;
    ActionAccessoire: Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
    ActionVitesse   : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].vitesse:=i;
    ActionBoutonTCO : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
    ActionAffecteMemoire  : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
    ActionIncMemoire  : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
    ActionDecMemoire  : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].adresse:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.LabeledEditFonctionFChange(Sender: TObject);
var i,erreur,op : integer;
begin
  if clicAction<0 then exit;
  if (ligneclicAct<0) or clicliste then exit;
  val(LabeledEditFonctionF.Text,i,erreur);
  op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
  case op of
    ActionFonctionF  : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].FonctionF:=i;
    ActionTempo : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].TempoF:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.LabeledEditTrainChange(Sender: TObject);
var op : integer;
    s : string;
begin
  if (clicAction<0) or clicListe then exit;
  op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
  if (op=ActionFonctionF) or (op=ActionVitesse) or (op=ActionSon) then
  begin
    s:=LabeledEditTrain.Text;
    if pos(',',s)<>0 then
    begin
      labelInfo.Caption:='Les noms de trains multiples ne sont pas autorisés ici';
      exit;
    end;
    labelInfo.Caption:='';
    Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].train:=s;
  end;
  if op=ActionCdePeriph then Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].chaine:=LabeledEditTrain.Text;
  maj_combocactions(ligneclicact);
end;

procedure TFormModifAction.SpeedButtonJoueClick(Sender: TObject);
begin
 if (ligneclicAct<0) then exit;
 if PlaySound(pchar(LabeledEditTrain.Text),0,SND_ASYNC)=false then labelInfo.Caption:='Erreur';
end;

procedure TFormModifAction.SpeedButtonChargerClick(Sender: TObject);
var s: string;
    op : integer;
begin
  if (ligneclicAct<0) or (clicAction<0) then exit;

  s:=GetCurrentDir;
  OpenDialogSon.InitialDir:=s;
  OpenDialogSon.DefaultExt:='wav';
  OpenDialogSon.Title:='Ouvrir un fichier son';
  OpenDialogSon.Filter:='Fichiers wav (*.wav)|*.wav|Tous fichiers (*.*)|*.*';
  if openDialogSon.Execute then
  begin
    s:=openDialogSon.FileName;
    LabeledEditTrain.Text:=s;
    op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
    if op=ActionSon then Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].train:=s;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.CheckBoxRAZClick(Sender: TObject);
var op : integer;
begin
  if clicAction<0 then exit;
  op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
  if (op=ActionAccessoire) then Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].zero:=CheckBoxRaz.Checked;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.ButtonApplDeclClick(Sender: TObject);
var i : integer;
begin
  i:=ListBoxdeclench.itemindex;
  if i<0 then exit;

  Tablo_Action[ligneclicAct+1].declencheur:=i+1;
  Aff_champs(ligneclicAct+1,0,0);
  //aff_champs_declencheur(
  ListBoxDeclench.Refresh;
end;

procedure TFormModifAction.LabeledEditNomActChange(Sender: TObject);
var index : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  index:=ligneclicAct+1;

  Tablo_Action[index].NomAction:=LabeledEditNomAct.text;

  Aff_champs(index,0,0);
end;

procedure TFormModifAction.ComboBoxAccComUSBChange(Sender: TObject);
var index : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  index:=ligneclicAct+1;
  if affevt then affiche('Evt ComboBox Change',clyellow);
  Tablo_Action[ligneClicAct+1].TabloOp[clicaction+1].periph:=formModifAction.ComboBoxAccComUSB.ItemIndex+1;
  Aff_champs(index,0,clicaction+1);
end;

procedure TFormModifAction.LabeledEditTempoFChange(Sender: TObject);
var i,erreur : integer;
begin
  if clicAction<0 then exit;
  if (ligneclicAct<0) or clicliste then exit;
  val(LabeledEditTempoF.Text,i,erreur);
  Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].TempoF:=i;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.ListBoxOperationsDblClick(Sender: TObject);
var s : string;
    i : integer;
begin
  if (clicAction<0) or (ligneclicAct<0) or clicliste then exit;
  Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide:=not(Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide);

//  op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;

  s:=ListBoxOperations.Items[clicaction];
  i:=pos(sd,s);
  if i<>0 then delete(s,i,length(sd));

  if not(Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].valide) then s:=s+sd;

  listBoxOperations.Items[clicaction]:=s;
  if formconfig.ListBoxOperations.Count>=clicaction then formconfig.ListBoxOperations.items[clicaction]:=s; //encode_actions(ligneclicAct+1);

  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.ListBoxCondTotDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  i,erreur: Integer;
  ItemText: string;
begin
  with ListBoxCondTot do
  begin
    ItemText:=Items[index];
    val(ItemText,i,erreur);
    Delete(ItemText,1,erreur-1);
    Canvas.Fillrect(Rect);
    formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
    Canvas.Textout(Rect.Left + formConfCellTCO.ImageListIcones.Width + 2, Rect.Top, ItemText);
  end;
end;

procedure TFormModifAction.ListBoxConditionsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //Affiche('Clic ListBoxOperations',clyellow);
  ClicCond:=ListBoxConditions.itemindex;
  if ClicCond<0 then exit;
  Aff_champs(ligneclicAct+1,ClicCond+1,ClicAction+1);
end;

procedure TFormModifAction.ListBoxConditionsDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  i,erreur: Integer;
  ItemText: string;
begin
  with ListBoxConditions do
  begin
    ItemText:=Items[index];
    val(ItemText,i,erreur);
    Delete(ItemText,1,erreur-1);
    Canvas.Fillrect(Rect);
    formConfCellTCO.ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
    Canvas.Textout(Rect.Left + formConfCellTCO.ImageListIcones.Width + 2, Rect.Top, ItemText);
  end;
end;

procedure TFormModifAction.ButtonAppCondClick(Sender: TObject);
var indexSrc,IndexDest,i : integer;
    s : string;
begin
  indexSrc:=listboxCondTot.ItemIndex;
  IndexDest:=ListBoxConditions.Itemindex;
  if (indexSrc<0) or (ligneclicAct<0) then exit;


  s:=ListBoxCondTot.Items[indexSrc];
  i:=Index_Condition(s);

  if (IndexDest<0) then IndexDest:=0;
  Tablo_Action[ligneClicAct+1].TabloCond[IndexDest+1].numCondition:=i;

  clicAction:=ligneclicact;
  Aff_champs(ligneClicAct+1,indexDest+1,0);

end;

procedure TFormModifAction.Champ1Change(Sender: TObject);
var cond,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(Champ1.Text,i,erreur);
  cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
  case cond of
    CondVitTrain    : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].vitmini:=i;
    CondPosAcc      : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].accessoire:=i;
    CondTrainSig    : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].adresse:=i;
    CondFonction    : begin
                        Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].adresse:=i;
                        Label2InfoFonction.caption:=NomFonction[i];
                      end;
    CondBouton      : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].adresse:=i;
    CondMemoireEgal,CondMemoireInf,CondMemoireSup
                    : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].adresse:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.Champ2Change(Sender: TObject);
var cond,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(Champ2.Text,i,erreur);
  cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
  case cond of
    CondVitTrain    : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].vitmaxi:=i;
    CondMemoireEgal,CondMemoireInf,CondMemoireSup
                    : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].etat:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.SpinEditHeure1Change(Sender: TObject);
var cond,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(SpinEditHeure1.Text,i,erreur);
  if erreur<>0 then
  begin
    SpinEditHeure1.Value:=0;
    exit;
  end;
  SpinEditHeure1.Value:=i;
  cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
  case cond of
    CondHorl        : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].HeureMin:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.SpinEditMn1Change(Sender: TObject);
var cond,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(SpinEditMn1.Text,i,erreur);
  if erreur<>0 then
  begin
    SpinEditMn1.Value:=0;
    exit;
  end;
  SpinEditMn1.Value:=i;
  cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
  case cond of
    CondHorl        : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].MinuteMin:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.SpinEditHeure2Change(Sender: TObject);
var cond,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(SpinEditHeure2.Text,i,erreur);
  if erreur<>0 then
  begin
    SpinEditHeure2.Value:=0;
    exit;
  end;
  SpinEditHeure2.Value:=i;
  cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
  case cond of
    CondHorl        : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].HeureMax:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.SpinEditMn2Change(Sender: TObject);
var cond,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(SpinEditMn2.Text,i,erreur);
  if erreur<>0 then
  begin
    SpinEditMn2.Value:=0;
    exit;
  end;
  SpinEditMn2.Value:=i;
  cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
  case cond of
    CondHorl        : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].MinuteMax:=i;
  end;
  maj_combocactions(ligneclicAct);

end;

procedure TFormModifAction.ChampTrainChange(Sender: TObject);
var cond : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
  case cond of
    CondVitTrain,CondTrainSig   : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].train:=ChampTrain.Text;
  end;
  maj_combocactions(ligneclicAct);

end;

procedure TFormModifAction.SpinEditEtat2Change(Sender: TObject);
var cond,i,erreur : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(SpinEditEtat2.Text,i,erreur);
  if erreur<>0 then
  begin
    SpinEditEtat2.Value:=0;
    exit;
  end;
  SpinEditEtat2.Value:=i;
  cond:=Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].numcondition;
  case cond of
    CondPosAcc       : Tablo_Action[ligneclicact+1].tabloCond[cliccond+1].etat:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.RadioEtatSignalClick(Sender: TObject);
var index : integer;
begin
 if (ligneclicAct<0) or clicliste then exit;
  index:=ligneclicAct+1;
  if affevt then Affiche('EditAdrChange',clyellow);

  Tablo_Action[index].etat:=RadioEtatSignal.ItemIndex;

  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.SpinEditEtatopChange(Sender: TObject);
var i,erreur,op : integer;
begin
  if (ligneclicAct<0) or clicliste then exit;
  val(SpinEditEtatop.text,i,erreur);
  if erreur<>0 then
  begin
    SpinEditEtatOp.Value:=0;
    exit;
  end;
  SpinEditEtatop.Value:=i;
  op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
  case op of
    ActionAccessoire  : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].etat:=i;
    ActionFonctionF   : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].etat:=i;
    ActionBoutonTCO   : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].etat:=i;
    ActionAffecteMemoire : Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].etat:=i;
  end;
  maj_combocactions(ligneclicAct);
end;

procedure TFormModifAction.ListBoxOperationsKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var nb : integer;
begin
  nb:=Tablo_Action[ligneclicAct+1].NbOperations;
  if (nb<1) or clicliste then exit;
  if key=VK_delete then supprime_operation;

  if ord(Key)=VK_UP then
  begin
    begin
      if clicAction>0 then
      begin
        dec(clicaction);
        Affiche_champs_operations(ligneclicAct+1,ClicAction+1);
      end;
    end;
  end;

  if ord(Key)=VK_DOWN then
  begin
    begin
      if clicaction<nb-1 then
      begin
        inc(clicaction);
        Affiche_champs_operations(ligneclicAct+1,ClicAction+1);
      end;
    end;
  end;

  if (Shift = [ssCtrl]) and (key = ord('A')) then
  begin
    ListBoxOperations.SelectAll;
  end;

  clicListe:=false;
end;

procedure TFormModifAction.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Aff_champs(ligneclicAct+1,1,1);
end;

procedure TFormModifAction.ButtonFonctionClick(Sender: TObject);
begin
  FoncCourante:=Tablo_Action[ligneClicAct+1].adresse;
  if (FoncCourante<=0) or (FoncCourante>NbreFL) then exit;

  formModifAction.Close;
  formconfig.PageControl.ActivePage:=formconfig.TabSheetFonctions;
  formConfig.comboBoxFL.ItemIndex:=FoncCourante-1;
  ComboBoxFL_mizajour;
  formconfig.show;
end;

procedure TFormModifAction.ButtonVoirFoncClick(Sender: TObject);
begin
  formModifAction.Close;
  formconfig.PageControl.ActivePage:=formconfig.TabSheetFonctions;

  FoncCourante:=Tablo_Action[ligneClicAct+1].tablocond[clicCond+1].adresse;

  FormConfig.ComboBoxFL.ItemIndex:=FoncCourante-1;
  fabrique_treeview(FoncCourante);
  formconfig.show;
end;

procedure TFormModifAction.SpeedButton1Click(Sender: TObject);
begin
  close;
end;

procedure TFormModifAction.Supprimeropration1Click(Sender: TObject);
begin
  supprime_operation;
end;

procedure TFormModifAction.Monteropration1Click(Sender: TObject);
begin
  monte_operation;
end;

procedure TFormModifAction.Descendreopration1Click(Sender: TObject);
begin
  descend_operation;
end;

end.