unit UnitConfigCellTCO;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,
  Buttons;

type
  TFormConfCellTCO = class(TForm)
    GroupBox1: TGroupBox;
    ComboRepr: TComboBox;
    Label1: TLabel;
    ButtonFonte: TButton;
    EditTexteCCTCO: TEdit;
    GroupBox2: TGroupBox;
    Label15: TLabel;
    EditTypeImage: TEdit;
    CheckPinv: TCheckBox;
    Label2: TLabel;
    GroupBoxOrientation: TGroupBox;
    RadioButtonHG: TRadioButton;
    RadioButtonV: TRadioButton;
    RadioButtonHD: TRadioButton;
    GroupBoxImplantation: TGroupBox;
    RadioButtonG: TRadioButton;
    RadioButtonD: TRadioButton;
    EditAdrElement: TEdit;
    ButtonFond: TButton;
    BitBtnOk: TBitBtn;
    ImagePaletteCC: TImage;
    RadioGroupSel: TRadioGroup;
    GroupBoxAction: TGroupBox;
    RadioButtonAffTCO: TRadioButton;
    EditNumTCO: TEdit;
    RadioButtonSC: TRadioButton;
    RadioButtonCDM: TRadioButton;
    procedure EditAdrElementChange(Sender: TObject);
    procedure EditTexteCCTCOChange(Sender: TObject);
    procedure ButtonFonteClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboReprChange(Sender: TObject);
    procedure CheckPinvClick(Sender: TObject);
    procedure RadioButtonVClick(Sender: TObject);
    procedure RadioButtonHGClick(Sender: TObject);
    procedure RadioButtonHDClick(Sender: TObject);
    procedure RadioButtonGClick(Sender: TObject);
    procedure RadioButtonDClick(Sender: TObject);
    procedure ButtonFondClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtnOkClick(Sender: TObject);
    procedure EditTypeImageChange(Sender: TObject);
    procedure ImagePaletteCCMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure RadioButtonAffTCOClick(Sender: TObject);
    procedure EditNumTCOChange(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure RadioButtonSCClick(Sender: TObject);
    procedure RadioButtonCDMClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  FormConfCellTCO: TFormConfCellTCO;
  actualize,ConfCellTCO : boolean;
  IconeX,IconeY : integer;
  
procedure actualise(indexTCO : integer);

implementation


uses UnitPrinc,UnitAnalyseSegCDM,UnitConfigTCO,UnitTCO;

{$R *.dfm}

// actualise le contenu de la fenetre et de la zone tco
procedure actualise(indexTCO : integer);
var Bimage,oriente,piedFeu,xclic,yclic : integer;
    s : string;
    ip : Timage;
    Bm : Tbitmap;
    r : trect;
begin
  if (indexTCO=0) or (formConfCellTCO=nil) then exit;
  if affevt then affiche('FormConfigCellTCO actualise',clyellow);

  xclic:=XclicCell[indexTCO];
  yclic:=YclicCell[indexTCO];

  Bm:=formConfCellTCO.imagepalettecc.Picture.Bitmap;
  //with FormConfCellTCO.ImagePaletteCC.Picture.Bitmap do
  with FormConfCellTCO.ImagePaletteCC do
  begin
      // efface l'icone
      Picture.Bitmap.width:=iconeX;
      Picture.bitmap.height:=iconeY;
      // effacer l'icone
      r:=Rect(0,0,iconeX,iconeY);
      //with FormConfCellTCO.ImagePaletteCC.canvas do
      with Picture.Bitmap.Canvas do
      // with Picture.Bitmap.Canvas do
      begin
        Pen.Mode:=pmCopy;
        Pen.Width:=1;
        Pen.color:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].CouleurFond;
        Brush.Color:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].couleurFond;
        Brush.style:=bsSolid;
        fillRect(r);
      end;
  end;
  FormConfCellTCO.ImagePaletteCC.Repaint;
  Bimage:=tco[indexTCO,XClicCell[indexTCO],YClicCell[indexTCO]].Bimage;

  if Bimage=Id_Action then
  begin
    with formConfCellTCO do
    begin
      GroupBoxOrientation.visible:=false;
      GroupBoxImplantation.visible:=false;
      with GroupBoxAction do
      begin
        visible:=true;
        top:=152;
        left:=8;
        width:=249;
        RadioButtonAffTCO.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=1;
        RadioButtonSC.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=2;
        RadioButtonCDM.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=3;
        editNumTCO.Text:=intToSTR(tco[indexTCO,Xclic,Yclic].FeuOriente);
      end;
    end;
  end
  else
  begin
    with formConfCellTCO do
    begin
      with GroupBoxOrientation do
      begin
        visible:=true;
        left:=8;
        top:=152;
      end;
      GroupBoxImplantation.visible:=true;
      GroupBoxAction.visible:=false;
    end;
  end;


  if (Bimage=1) or (Bimage=10) or (Bimage=11) or (Bimage=20) then
  begin
    if tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].buttoir<>0 then
    begin
      formConfCellTCO.EditAdrElement.enabled:=false;
      formTCO[indexTCO].EditAdrElement.enabled:=false;
      tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Adresse:=0;
    end
    else
    begin
      formConfCellTCO.EditAdrElement.enabled:=true;
      formTCO[indexTCO].EditAdrElement.enabled:=true;
    end;
  end
  else
  begin
    formConfCellTCO.EditAdrElement.enabled:=true;
    formTCO[indexTCO].EditAdrElement.enabled:=true;
  end;

  if ConfCellTCO then // si la form confcelltco est affichée
  begin
    // si aiguillage, mettre à jour l'option de pilotage inverse
    if (bimage=2) or (bimage=3) or (bimage=4) or (bimage=5) or (bimage=12) or (bimage=13) or
       (bimage=14) or (bimage=15) or (bimage=24) then
    begin
      // aiguillage inversé
      with FormConfCellTCO.CheckPinv do
      begin
        enabled:=true;
        checked:=TCO[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].inverse;
      end;
      FormTCO[indexTCO].CheckPinv.checked:=TCO[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].inverse;
      FormTCO[indexTCO].CheckPinv.enabled:=true ;
    end
    else
    begin
      FormTCO[indexTCO].CheckPinv.enabled:=false;
      FormConfCellTCO.checkPinv.enabled:=false;
    end;
  end;

    // si voie ou rien ou signal ou quai
    if (Bimage=1) or (Bimage=0) or (Bimage=Id_signal) or (Bimage=51) then
    begin
      s:=Tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Texte;
      with formTCO[indexTCO] do
      begin
        EditTexte.Text:=s;
        EditTexte.Visible:=true;
        ComboRepr.Enabled:=true;
      end;
    end
    else
    begin
      formTCO[indexTCO].EditTexte.Visible:=false;
      formTCO[indexTCO].comboRepr.Enabled:=false;
    end;

    s:=IntToSTR(Xclic)+','+intToSTR(yClic);
    FormTCO[indexTCO].GroupBox1.Caption:='Configuration cellule '+s;
    XclicCellInserer:=XclicCell[indexTCO];
    YclicCellInserer:=YclicCell[indexTCO];
    FormTCO[indexTCO].EditAdrElement.Text:=IntToSTR(tco[indexTCO,XclicCellInserer,YclicCellInserer].Adresse);
    FormTCO[indexTCO].EdittypeImage.Text:=IntToSTR(BImage);
    FormTCO[indexTCO].ComboRepr.ItemIndex:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].repr;
    FormTCO[indexTCO].ShapeCoulFond.Brush.Color:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].CouleurFond;

    s:='El='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].BImage);
    if tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse<>0 then s:=s+' Adr='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse);
    //hint:=s;


  if not(ConfCellTCO) then exit;
  actualize:=true;  // évite les évènements parasites
  FormConfCellTCO.caption:='Propriétés de la cellule '+IntToSTR(XclicCell[indexTCO])+','+intToSTR(YclicCell[indexTCO])+' TCO '+intToSTR(IndexTCO);
  Bimage:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Bimage;
  formConfCellTCO.EditTypeImage.Text:=intToSTR(Bimage);

  // si signal
  if Bimage=Id_signal then
  With formConfCellTCO.ImagePaletteCC do
  begin
    //Height:=FormTCO.ImagePalette1.Picture.Height;
    //Width:=FormTCO.ImagePalette1.Picture.Width;
    Transparent:=false;
  end;

  // si pas signal
  if Bimage<>Id_signal then
  with formConfCellTCO do
  begin
    RadioButtonV.Enabled:=false;
    RadioButtonHG.Enabled:=false;
    RadioButtonHD.Enabled:=false;
    RadioButtonG.Enabled:=false;
    RadioButtonD.Enabled:=false;
    ImagePaletteCC.transparent:=false;
  end;

  // mettre l'image de la cellule cliquée dans l'icone de la fenetre de config cellule
  if Bimage=0 then
  begin
    with formConfCellTCO do
    begin
      RadioButtonV.Enabled:=false;
      RadioButtonHG.Enabled:=false;
      RadioButtonHD.Enabled:=false;
      RadioButtonG.Enabled:=false;
      RadioButtonD.Enabled:=false;
    end;
  end

  else

  // Bimage non nulle
  begin
    ip:=formTCO[indexTCO].findComponent('ImagePalette'+intToSTR(Bimage)) as Timage;
    if ip=nil then exit;

    // affiche l'icone cliquée dans la fenetre -----------------------------------------------
    // pour que le stretchBlt soit visible, il faut mettre à jour la taille du bitmap
    with FormConfCellTCO.ImagePaletteCC.Picture.Bitmap do
    begin
      width:=iconeX;
      Height:=iconeY;
    end;

    StretchBlt(FormConfCellTCO.ImagePaletteCC.canvas.Handle,0,0,iconeX,iconeY,   // destination
               formTCO[indexTCO].ImageTCO.Canvas.Handle,(XclicCell[indexTCO]-1)*largeurCell[indexTCO] ,(YclicCell[indexTCO]-1)*Hauteurcell[indexTCO],largeurCell[indexTCO],Hauteurcell[indexTCO],srccopy);                 // source }

    FormConfCellTCO.ImagePaletteCC.repaint;  // obligatoire sinon il ne s'affiche pas
    //-----------------------------------------------------------------------------------------

    if Bimage=Id_signal then
    begin     // signal
      With formConfCellTCO.ImagePaletteCC do
      begin
       // Height:=FormTCO.ImagePalette50.Height;
       // Width:=FormTCO.ImagePalette50.Width;
        //Picture.Assign(FormTCO.ImagePalette50.Picture);
        Picture.Bitmap.TransparentMode:=tmAuto;
        Picture.Bitmap.TransparentColor:=clblue;
        Transparent:=true;
      end;
      with formconfCellTCO do
      begin
        RadioButtonV.Enabled:=true;
        RadioButtonHG.Enabled:=true;
        RadioButtonHD.Enabled:=true;
        RadioButtonG.Enabled:=true;
        RadioButtonD.Enabled:=true;
        oriente:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Feuoriente;
        if oriente=1 then
        begin
          RadioButtonV.checked:=true;
          RadioButtonHG.checked:=false;
          RadioButtonHD.checked:=false;
        end;
        if oriente=2 then
        begin
          RadioButtonV.checked:=false;
          RadioButtonHG.checked:=true;
          RadioButtonHD.checked:=false;
        end;
        if oriente=3 then
        begin
          RadioButtonV.checked:=false;
          RadioButtonHG.checked:=false;
          RadioButtonHD.checked:=true;
        end;

        PiedFeu:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].PiedFeu;
        if PiedFeu=1 then
        begin
          RadioButtonG.checked:=true;
          RadioButtonD.checked:=false;
        end;
        if PiedFeu=2 then
        begin
          RadioButtonG.checked:=false;
          RadioButtonD.checked:=true;
        end;
      end;
    end;
  end;

  // aiguillage ou TJD
  if IsAigTCO(Bimage) then
    formConfCellTCO.checkPinv.Enabled:=true
    else formConfCellTCO.checkPinv.Enabled:=false;

  with formConfCellTCO do
  begin
    EditTexteCCTCO.Text:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Texte;
    EditAdrElement.Text:=IntToSTR(tco[indexTCO,XclicCellInserer,YclicCellInserer].Adresse);
    ComboRepr.ItemIndex:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].repr;
  end;

  // Epaisseur ou pont
  FormConfCellTCO.RadioGroupSel.visible:=false;
  if (Bimage=21) or (Bimage=22) or (Bimage=23) or (Bimage=25) then
  begin
    FormConfCellTCO.RadioGroupSel.visible:=true;
    FormConfCellTCO.RadioGroupSel.Items[1]:='Pont';
  end ;

  // voie pouvant avoir un buttoir
  if (Bimage=1) or (Bimage=10) or (Bimage=11) or (Bimage=20) then
  begin
    FormConfCellTCO.RadioGroupSel.visible:=true;
    FormConfCellTCO.RadioGroupSel.Items[1]:='Buttoir';
  end;

  actualize:=false;
end;


procedure TFormConfCellTCO.EditAdrElementChange(Sender: TObject);
var Adr,erreur,index,Bimage : integer;
begin
  if clicTCO or not(ConfCellTCO) or actualize then exit;
  if affevt then Affiche('TFormConfCellTCO.EditAdrElementChange',clyellow);
  clicTCO:=true;
  Bimage:=tco[indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]].BImage;
  if (Bimage=1) or (Bimage=10) or (Bimage=11) or (Bimage=20) then
  begin
    if tco[indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]].buttoir<>0 then
    begin
      EditAdrElement.Text:='';
      clicTCO:=false;
      exit;
    end;
  end;

  Val(EditAdrElement.Text,Adr,erreur);
  if (erreur<>0) or (Adr<0) or (Adr>2048) then Adr:=0;

  if Adr=0 then tco[indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]].repr:=2;

  tco[indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]].Adresse:=Adr;
  formTCO[indexTCOcourant].EditAdrElement.Text:=intToSTR(adr);

  clicTCO:=false;

  if tco[indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]].BImage=Id_signal then
  begin
    index:=Index_Signal(adr);
    if index=0 then exit
    else
      begin
       //Affiche('Feu '+intToSTR(Adr),clyellow);
       affiche_tco(indexTCOcourant);
     end;
  end;
  if not(selectionaffichee[indexTCOcourant]) then efface_entoure(indexTCOcourant);
  Affiche_cellule(indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]);
  if not(selectionaffichee[indexTCOcourant]) then _entoure_cell_clic(indexTCOcourant);

end;

procedure TFormConfCellTCO.EditTexteCCTCOChange(Sender: TObject);
begin
  if clicTCO or not(ConfCellTCO) or actualize then exit;
  PCanvasTCO[indexTCOCourant].Brush.Color:=clfond;

  if tco[indexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].texte='' then
  begin
    tco[indexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].CoulFonte:=clTexte;
    tco[indexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].TailleFonte:=8;
  end;
  tco[indexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].Texte:=EditTexteCCTCO.Text;
  if not(clicTCO) then TCO_modifie:=true;
  if not(selectionaffichee[indexTCOcourant]) then efface_entoure(indexTCOCourant);
  affiche_texte(indexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]);
  formTCO[indexTCOCourant].EditTexte.Text:=EditTexteCCTCO.text;
  if not(selectionaffichee[indexTCOcourant]) then _entoure_cell_clic(indexTCOCourant);
end;

procedure TFormConfCellTCO.ButtonFonteClick(Sender: TObject);
begin
  change_fonte(indexTCOcourant);
end;

procedure TFormConfCellTCO.FormCreate(Sender: TObject);
begin
  // fenetre toujours dessus
  if affevt then Affiche('FormConfCellTCO create',clyellow);
  actualize:=false;
  SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NoMove or SWP_NoSize);
  iconeX:=50;  // taille de l'icone
  iconeY:=50;
  ImagePaletteCC.Width:=iconeX;
  ImagePaletteCC.Height:=iconeY;
  RadioGroupSel.itemIndex:=0;
  // dessine les composants - non utilisé
  {
  i:=1;
  //Affiche('formconfcellTCO create',clYellow);
  begin
    for y:=1 to 5 do
    for x:=1 to 5 do
    begin
      if i<25 then
      begin
        image:=Timage.create(FormConfCellTCO);
        with image do
        begin
          Parent:=FormConfCellTCO;
          Name:='i'+IntToSTR(i);   // nom de l'image - sert à identifier le composant si on fait clic droit.

          ImageSRC:=findComponent('ImagePalette'+intToSTR(i)) as Timage;

          picture.Bitmap:=ImageSRC.picture.BitMap;
          width:=ImageSRC.Width;
          height:=ImageSRC.Height;
          Stretch:=true;
          Transparent:=false;
          picture.Bitmap.Transparentmode:=tmfixed;
          Top:=(y-1)*(height+3)+5;
          Left:=GroupBox2.Width+(x-1)*(41+3)+15;
        end;
        inc(i);
      end;
    end;
  end; }
//  FormConfCellTCO.ImagePaletteCC.OnMouseDown:=ImagePaletteCCMouseDown;
end;

procedure TFormConfCellTCO.ComboReprChange(Sender: TObject);
begin
  if clicTCO or not(ConfCellTCO) or actualize then exit;
  tco[indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]].Repr:=comborepr.ItemIndex;
  efface_entoure(indexTCOcourant);
  SelectionAffichee[indexTCOcourant]:=false;
  FormTCO[indexTCOcourant].ComboRepr.ItemIndex:=ComboRepr.ItemIndex;
  //affiche_cellule(XclicCell[indexTCO],YclicCell[indexTCO]);
  affiche_tco(indexTCOcourant);
end;

procedure TFormConfCellTCO.CheckPinvClick(Sender: TObject);
var Bimage : integer;
begin
  if (XclicCell[indexTCOcourant]=0) or (XclicCell[indexTCOcourant]>NbreCellX[indexTCOcourant]) or (YclicCell[indexTCOcourant]=0) or (YclicCell[indexTCOcourant]>NbreCelly[indexTCOcourant]) then exit;
  Bimage:=tco[indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]].Bimage;
  if (bimage=2) or (bimage=3) or (bimage=4) or (bimage=5) or (bimage=12) or (bimage=13) or
     (bimage=14) or (bimage=15) or (bimage=24)
  then
  begin
    tco[indexTCOcourant,XclicCell[indexTCOcourant],YclicCell[indexTCOcourant]].inverse:=CheckPinv.checked;
    formTCO[indexTCOcourant].CheckPinv.checked:=CheckPinv.checked;
    TCO_modifie:=true;
  end;
end;

procedure TFormConfCellTCO.RadioButtonVClick(Sender: TObject);
begin
  Vertical(indexTCOcourant);
end;

procedure TFormConfCellTCO.RadioButtonHGClick(Sender: TObject);
begin
  tourne90G(indexTCOcourant);
end;

procedure TFormConfCellTCO.RadioButtonHDClick(Sender: TObject);
begin
  tourne90D(indexTCOcourant);
end;

procedure TFormConfCellTCO.RadioButtonGClick(Sender: TObject);
begin
  signalG(indexTCOcourant);
end;

procedure TFormConfCellTCO.RadioButtonDClick(Sender: TObject);
begin
  signalD(indexTCOcourant);
end;

procedure TFormConfCellTCO.ButtonFondClick(Sender: TObject);
begin
  change_couleur_fond(indexTCOcourant);
end;

procedure TFormConfCellTCO.FormActivate(Sender: TObject);
begin
  if indexTCOcourant=0 then exit;
  if affevt then Affiche('FormConfCellTCO activate',clyellow);
  if selectionaffichee[indexTCOcourant] then ButtonFond.caption:='Couleur de fond de la sélection'
  else ButtonFond.caption:='Couleur de fond de la cellule';
  ConfCellTCO:=true;
end;

procedure TFormConfCellTCO.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(27) then close;
end;

procedure TFormConfCellTCO.BitBtnOkClick(Sender: TObject);
begin
  if affevt then Affiche('BitBtnOk',clyellow);
  ConfCellTCO:=false;
  close;
end;

// extraire les 4 points de connexion de l'icone (de 0 à 7)
// il y a au maximum 4 points de connexion de la voie sur une TJD/S ou un croisement.
// Un aiguillage a 3 points de connexion
// un élément de voie a 2 points de connexion.
// Si un élément de connexion n'existe pas, il a la valeur -1.
procedure extrait_connect(numero : integer;var connect1,connect2,connect3,connect4 : integer);
var i,j : integer;
begin
  connect1:=-1;connect2:=-1;connect3:=-1;connect4:=-1;
  j:=0;
  for i:=0 to 7 do
  begin
    if testBit(liaisons[numero],i) then
    begin
      case j of
      0 : connect1:=i;
      1 : connect2:=i;
      2 : connect3:=i;
      3 : connect4:=i;
      end;
      inc(j);
    end;
  end;
end;

procedure TFormConfCellTCO.EditTypeImageChange(Sender: TObject);
var Bimage,erreur : integer;
begin
  if clicTCO or not(ConfCellTCO) or actualize or (IndexTCOCourant=0) then exit;
  if affevt then Affiche('TCO evt editTypeImageKeyPress',clorange);
  Val(EditTypeImage.Text,Bimage,erreur);
  if (erreur<>0) or not(Bimage in[0..29,32..34,50,51]) then exit;
  TCO_modifie:=true;
  tco[IndexTCOCourant,XclicCell[IndexTCOCourant],YclicCell[IndexTCOCourant]].Bimage:=Bimage;
  FormTCO[IndexTCOCourant].EditTypeImage.text:=intToSTR(BImage);
  actualise(IndexTCOCourant); // pour mise à jour de l'image de la fenetre FormConfCellTCO
  efface_entoure(IndexTCOCourant);
  Efface_Cellule(IndexTCOCourant,FormTCO[IndexTCOCourant].ImageTCO.Canvas,XclicCell[IndexTCOCourant],YclicCell[IndexTCOCourant],pmCopy);
  affiche_cellule(IndexTCOCourant,XclicCell[IndexTCOCourant],YclicCell[IndexTCOCourant]);

end;

// copie la cellule cliquée du TCO pour la mettre dans la imagePaletteCC
procedure copie_cellule(index : integer);
begin
  // affiche l'icone cliquée dans la fenetre -----------------------------------------------
  // pour que le stretchBlt soit visible, il faut mettre à jour la taille du bitmap
  with FormConfCellTCO.ImagePaletteCC.Picture.Bitmap do
  begin
    width:=iconeX;
    Height:=iconeY;
  end;

  // destination masque avec mise à l'échelle
  StretchBlt(FormConfCellTCO.ImagePaletteCC.canvas.Handle,0,0,iconeX,iconeY,
             PcanvasTCO[index].Handle,(XclicCell[index]-1)*largeurCell[index],(YclicCell[index]-1)*hauteurCell[index],largeurCell[index],hauteurCell[index],srccopy);
  FormConfCellTCO.ImagePaletteCC.repaint;  // obligatoire sinon il ne s'affiche pas
end;

procedure TFormConfCellTCO.ImagePaletteCCMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var c,x0,y0,xc,yc,xf,yf,element,i,j,erreur,x1,y1,c1,c2,c3,c4,
    Xclic,Yclic : integer;
    crois,IconeBut : boolean;
begin
  x0:=0;       // x origine
  y0:=0;       // y origine
  yc:=y0+(iconeY div 2);  // y centre
  xc:=x0+(iconeX div 2);  // x centre
  xf:=x0+iconeX;          // x fin
  yf:=y0+iconeY;          // y fin
  Xclic:=XclicCell[indexTCOCourant];
  Yclic:=YclicCell[indexTCOCourant];


  //Affiche(IntToSTR(x)+' '+IntToSTR(y),clyellow);
  val(editTypeImage.text,element,erreur);


  if erreur<>0 then exit;

  extrait_connect(element,c1,c2,c3,c4);

  // scanner les 4 ports de connexion c1 c2 c3 c4
  for i:=1 to 4 do
  begin
    case i of
    1 : c:=c1;
    2 : c:=c2;
    3 : c:=c3;
    4 : c:=c4;
    end;
    if c<>-1 then
    begin
      case c of
      0 : begin x1:=x0;y1:=y0;end;
      1 : begin x1:=xc;y1:=y0;end;
      2 : begin x1:=xf;y1:=y0;end;
      3 : begin x1:=xf;y1:=yc;end;
      4 : begin x1:=xf;y1:=yf;end;
      5 : begin x1:=xc;y1:=yf;end;
      6 : begin x1:=x0;y1:=yf;end;
      7 : begin x1:=x0;y1:=yc;end;
      end;
      // x1,y1 désigne le permier point du segment
      if point_Sur_Segment(x,y,x1,y1,xc,yc) then
      begin
        iconeBut:=(Element=1) or (Element=10) or (Element=11) or (Element=20); // icones pouvant afficher un buttoir
        crois:=(element=21) or (element=22) or (element=23) or (element=25) ;

        // traitement des épaisseurs :  mode épaisseur
        if (not(iconeBut) and not(crois) or (IconeBut and (FormConfCellTCO.RadioGroupSel.Itemindex=0)) ) or
           (crois and (FormConfCellTCO.RadioGroupSel.Itemindex=0))
        then
        begin
          efface_entoure(IndexTCOCourant);
          if not(testbit(tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs,c)) then
            // mise à 1 du bit si pas croisement et sélection sur épaisseurs
            begin
              // si élément à 2 connexions, allumer les deux bits
              case Element of
                1 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$88; 
                6 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$09;
                7 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$84;
                8 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$90;
                9 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$48;
               10 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$44;
               11 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$11;
               16 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$21;
               17 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$24;
               18 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$42;
               19 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$14;
               20 : tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=$22;
              else
                tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=setbit(tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs,c);
              end;
            end
          else
            begin
              // si élément à 2 connexions, razer les deux bits
              if (Element=1) or (Element=6) or (Element=7) or (Element=8) or (Element=9) or (Element=10) or
                 (Element=11) or (Element=16) or (Element=17) or (Element=18) or (Element=19) or (Element=20) then
                  tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=0
              else
                tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs:=Razbit(tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].epaisseurs,c);
            end;
        end;

        // traitement des buttoirs :  mode buttoir supporté par les éléments 1 10 11 20
        if  ((element=1) or (element=10) or (element=11) or (element=20)) and (FormConfCellTCO.RadioGroupSel.Itemindex=1) then
        begin
          efface_entoure(IndexTCOCourant);
          if not(testbit(tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].buttoir,c)) then
          begin
            // mise à 1 du bit si pas buttoir et sélection sur buttoir
            tco[IndexTCOCourant,Xclic,Yclic].buttoir:=0;
            tco[IndexTCOCourant,Xclic,Yclic].buttoir:=setbit(tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].buttoir,c)
          end
          else
          begin
            tco[IndexTCOCourant,Xclic,Yclic].buttoir:=0;
          end;
        end;

        // traitement des ponts : croisement et mode croisement
        if crois and (FormConfCellTCO.RadioGroupSel.Itemindex=1) then
        begin
          efface_entoure(IndexTCOCourant);
          // si pas croisement et sélection sur épaisseurs
          if not(testbit(tco[IndexTCOCourant,Xclic,Yclic].pont,c)) then
          begin
            tco[IndexTCOCourant,Xclic,Yclic].pont:=0;  // raz de tous les autres
            tco[IndexTCOCourant,Xclic,Yclic].pont:=setbit(tco[IndexTCOCourant,Xclic,Yclic].pont,c);
          end
          else
            begin
              // la raz du bit c doit mettre à 0 le bit opposé aussi
              tco[IndexTCOCourant,Xclic,Yclic].pont:=Razbit(tco[IndexTCOCourant,Xclic,Yclic].pont,c);
              case c of
                0 : j:=4;
                1 : j:=5;
                2 : j:=6;
                3 : j:=7;
                4 : j:=0;
                5 : j:=1;
                6 : j:=2;
                7 : j:=3;
              end;
              tco[IndexTCOCourant,Xclic,Yclic].pont:=Razbit(tco[IndexTCOCourant,Xclic,Yclic].pont,j);
            end;
        end;
        efface_cellule(IndexTCOCourant,PCanvasTCO[IndexTCOCourant],Xclic,Yclic,PmCopy);
        dessine_icone(IndexTCOCourant,PCanvasTCO[IndexTCOCourant],element,Xclic,Yclic,0);
        copie_cellule(IndexTCOCourant);
       end;
    end;
  end;
end;

procedure TFormConfCellTCO.RadioButtonAffTCOClick(Sender: TObject);
var x,y : integer;
begin
  if clicTCO or actualize then exit;
  if RadioButtonAffTCO.Checked then
  begin
    x:=XClicCell[IndexTCOCourant];
    y:=yClicCell[IndexTCOCourant];
    tco[IndexTCOCourant,X,Y].PiedFeu:=1;
    efface_cellule(indexTCOCourant,PCanvasTCO[indexTCOcourant],x,y,pmcopy);
    affiche_cellule(IndexTCOCourant,x,Y);
    actualise(indexTCOCourant);
  end;
end;

procedure TFormConfCellTCO.RadioButtonSCClick(Sender: TObject);
var x,y : integer;
begin
  if clicTCO or actualize then exit;
  if RadioButtonSC.Checked then
  begin
    x:=XClicCell[IndexTCOCourant];
    y:=yClicCell[IndexTCOCourant];
    tco[IndexTCOCourant,X,Y].PiedFeu:=2;
    efface_cellule(indexTCOCourant,PCanvasTCO[indexTCOcourant],x,y,pmcopy);
    affiche_cellule(IndexTCOCourant,x,Y);
    actualise(indexTCOCourant);
  end;
end;

procedure TFormConfCellTCO.EditNumTCOChange(Sender: TObject);
var i,erreur : integer;
begin
  if clicTCO then exit;

  val(EditNumTCO.Text,i,erreur);
  if erreur<>0 then exit;
  if i>NbreTCO then
  begin
    EditNumTCO.Text:=intToSTR(NbreTCO);
    i:=NbreTCO;
  end;
  tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].FeuOriente:=i;
end;


procedure TFormConfCellTCO.FormHide(Sender: TObject);
begin
  if affevt then Affiche('FormFoncCellTCO hide',clyellow);
  ConfCellTCO:=false;
end;

procedure TFormConfCellTCO.RadioButtonCDMClick(Sender: TObject);
var x,y : integer;
begin
  if clicTCO or actualize then exit;
  if RadioButtonCDM.Checked then
  begin
    x:=XClicCell[IndexTCOCourant];
    y:=yClicCell[IndexTCOCourant];
    tco[IndexTCOCourant,x,y].PiedFeu:=3;
    efface_cellule(indexTCOCourant,PCanvasTCO[indexTCOcourant],x,y,pmcopy);
    affiche_cellule(IndexTCOCourant,x,y);
    actualise(indexTCOCourant);
  end;
end;

begin
end.