unit UnitConfigCellTCO;

interface

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

type
  TFormConfCellTCO = class(TForm)
    ButtonOk: TButton;
    GroupBox1: TGroupBox;
    ComboRepr: TComboBox;
    Label1: TLabel;
    ButtonFonte: TButton;
    EditTexteCCTCO: TEdit;
    GroupBox2: TGroupBox;
    Label15: TLabel;
    EditTypeImage: TEdit;
    ImagePalette: TImage;
    CheckPinv: TCheckBox;
    Label2: TLabel;
    GroupBox3: TGroupBox;
    RadioButtonHG: TRadioButton;
    RadioButtonV: TRadioButton;
    RadioButtonHD: TRadioButton;
    GroupBox4: TGroupBox;
    RadioButtonG: TRadioButton;
    RadioButtonD: TRadioButton;
    EditAdrElement: TEdit;
    procedure ButtonOkClick(Sender: TObject);
    procedure EditTypeImageKeyPress(Sender: TObject; var Key: Char);
    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 EditAdrElementKeyPress(Sender: TObject; var Key: Char);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  FormConfCellTCO: TFormConfCellTCO;
  actualize : boolean;

procedure actualise;

implementation


uses UnitPrinc;

{$R *.dfm}

procedure actualise;
var Bimage : integer;
    oriente,piedFeu : integer;
begin
  actualize:=true;  // évite les évènements parasites
  FormConfCellTCO.caption:='Propriétés de la cellule '+IntToSTR(XClicCell)+','+intToSTR(YClicCell);
  Bimage:=TCO[XClicCell,YClicCell].Bimage;
  formConfCellTCO.EditTypeImage.Text:=intToSTR(Bimage);

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

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

  //mettre l'image de la cellule cliquée dans l'icone de la fenetre de config cellule
  with formConfCellTCO.ImagePalette.Picture do
  case Bimage of
  1: Assign(FormTCO.ImagePalette1.Picture);
  2: Assign(FormTCO.ImagePalette2.Picture);
  3: Assign(FormTCO.ImagePalette3.Picture);
  4: Assign(FormTCO.ImagePalette4.Picture);
  5: Assign(FormTCO.ImagePalette5.Picture);
  6: Assign(FormTCO.ImagePalette6.Picture);
  7: Assign(FormTCO.ImagePalette7.Picture);
  8: Assign(FormTCO.ImagePalette8.Picture);
  9: Assign(FormTCO.ImagePalette9.Picture);
 10: Assign(FormTCO.ImagePalette10.Picture);
 11: Assign(FormTCO.ImagePalette11.Picture);
 12: Assign(FormTCO.ImagePalette12.Picture);
 13: Assign(FormTCO.ImagePalette13.Picture);
 14: Assign(FormTCO.ImagePalette14.Picture);
 15: Assign(FormTCO.ImagePalette15.Picture);
 16: Assign(FormTCO.ImagePalette16.Picture);
 17: Assign(FormTCO.ImagePalette17.Picture);
 18: Assign(FormTCO.ImagePalette18.Picture);
 19: Assign(FormTCO.ImagePalette19.Picture);
 20: Assign(FormTCO.ImagePalette20.Picture);
 21: Assign(FormTCO.ImagePalette21.Picture);
 22: Assign(FormTCO.ImagePalette22.Picture);
 23: Assign(FormTCO.ImagePalette23.Picture);
 30: begin
       With formConfCellTCO.ImagePalette do
       begin
         Height:=FormTCO.ImagePalette30.Height;
         Width:=FormTCO.ImagePalette30.Width;

         Picture.Assign(FormTCO.ImagePalette30.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[XClicCell,YClicCell].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[XClicCell,YClicCell].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
   else
   begin
     with formConfCellTCO do
     begin
       ImagePalette.Picture:=nil;
       RadioButtonV.Enabled:=false;
       RadioButtonHG.Enabled:=false;
       RadioButtonHD.Enabled:=false;
       RadioButtonG.Enabled:=false;
       RadioButtonD.Enabled:=false;
     end;
   end;

  end;

  with formConfCellTCO do
  begin
    EditTexteCCTCO.Text:=Tco[XClicCell,YClicCell].Texte;
    EditAdrElement.Text:=IntToSTR(tco[XClicCellInserer,YClicCellInserer].Adresse);
    ComboRepr.ItemIndex:=tco[XClicCell,yClicCell].repr;
  end;
  actualize:=false;
end;

procedure TFormConfCellTCO.ButtonOkClick(Sender: TObject);
begin
  close;
end;

procedure TFormConfCellTCO.EditTypeImageKeyPress(Sender: TObject; var Key: Char);
var Bimage,erreur : integer;
begin
  if ord(Key)=VK_RETURN then
  begin
    Key:=#0; // évite beeping
    Val(EditTypeImage.Text,Bimage,erreur);
    //Affiche('Keypressed / Bimage='+IntToSTR(bimage),clyellow);
    if (erreur<>0) or not(Bimage in[0..23,30]) then
    begin
      EditTypeImage.text:=intToSTR(tco[XClicCell,YClicCell].BImage);
      exit;
    end;
    TCO_modifie:=true;
    tco[XClicCell,YClicCell].Bimage:=Bimage;
    
    if not(selectionaffichee) then efface_entoure;
    affiche_cellule(XClicCell,YClicCell);
    formTCO.editTypeImage.Text:=editTypeImage.Text;
    actualise;
    if not(selectionaffichee) then _entoure_cell_clic;
  end;
end;

procedure TFormConfCellTCO.EditAdrElementChange(Sender: TObject);
var Adr,erreur,index : integer;
begin
 //Affiche('Chgt adresse',clyellow);

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

  if Adr=0 then tco[XClicCell,YClicCell].repr:=2;

  tco[XClicCell,YClicCell].Adresse:=Adr;

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

end;

procedure TFormConfCellTCO.EditTexteCCTCOChange(Sender: TObject);
begin
  PCanvasTCO.Brush.Color:=fond;

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

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

procedure TFormConfCellTCO.FormCreate(Sender: TObject);
var i,x,y : integer;
    image,imagesrc : Timage;
begin
  // fenetre toujours dessus
  actualize:=false;
  SetWindowPos(Handle, HWND_TOPMOST,0,0,0,0,SWP_NoMove or SWP_NoSize);
  exit;

  // 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.
          case i of
          1 : ImageSRC:=FormTCO.ImagePalette1;
          2 : ImageSRC:=FormTCO.ImagePalette2;
          3 : ImageSRC:=FormTCO.ImagePalette3;
          4 : ImageSRC:=FormTCO.ImagePalette4;
          5 : ImageSRC:=FormTCO.ImagePalette5;
          6 : ImageSRC:=FormTCO.ImagePalette6;
          7 : ImageSRC:=FormTCO.ImagePalette7;
          8 : ImageSRC:=FormTCO.ImagePalette8;
          9 : ImageSRC:=FormTCO.ImagePalette9;
          10 : ImageSRC:=FormTCO.ImagePalette10;
          11 : ImageSRC:=FormTCO.ImagePalette11;
          12 : ImageSRC:=FormTCO.ImagePalette12;
          13 : ImageSRC:=FormTCO.ImagePalette13;
          14 : ImageSRC:=FormTCO.ImagePalette14;
          15 : ImageSRC:=FormTCO.ImagePalette15;
          16 : ImageSRC:=FormTCO.ImagePalette16;
          17 : ImageSRC:=FormTCO.ImagePalette17;
          18 : ImageSRC:=FormTCO.ImagePalette18;
          19 : ImageSRC:=FormTCO.ImagePalette19;
          20 : ImageSRC:=FormTCO.ImagePalette20;
          21 : ImageSRC:=FormTCO.ImagePalette21;
          22 : ImageSRC:=FormTCO.ImagePalette22;
          23 : ImageSRC:=FormTCO.ImagePalette23;
          24 : ImageSRC:=FormTCO.ImagePalette30;
          end;
          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;
end;



procedure TFormConfCellTCO.ComboReprChange(Sender: TObject);
begin
  tco[XClicCell,YClicCell].Repr:=comborepr.ItemIndex;
  efface_entoure;SelectionAffichee:=false;
  sourisclic:=false;
  FormTCO.ComboRepr.ItemIndex:=ComboRepr.ItemIndex;
  //affiche_cellule(XClicCell,yClicCell);
  affiche_tco;
end;

procedure TFormConfCellTCO.CheckPinvClick(Sender: TObject);
var Bimage : integer;
begin
  if (xClicCell=0) or (xClicCell>NbreCellX) or (yClicCell=0) or (yClicCell>NbreCelly) then exit;
  Bimage:=Tco[xClicCell,yClicCell].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) then
     begin
       TCO[xClicCell,yClicCell].inverse:=CheckPinv.checked;
       TCO_modifie:=true;
     end;
end;

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

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

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

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

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


procedure TFormConfCellTCO.EditAdrElementKeyPress(Sender: TObject; var Key: Char);
var Adr,erreur :  integer;
begin
  if ord(Key)=VK_RETURN then
  begin
    Key:=#0; // évite beeping
    Val(EditAdrElement.Text,Adr,erreur);
    //Affiche('Keypressed / Bimage='+IntToSTR(bimage),clyellow);
    if (erreur<>0) then
    begin
      EditAdrElement.text:=intToSTR(tco[XClicCell,YClicCell].Adresse);
      exit;
    end;
    TCO_modifie:=true;
    tco[XClicCell,YClicCell].Adresse:=Adr;
    
    if not(selectionaffichee) then efface_entoure;
    affiche_cellule(XClicCell,YClicCell);
    formTCO.EditAdrElement.Text:=EditAdrElement.Text;
    actualise;
    if not(selectionaffichee) then _entoure_cell_clic;
  end;
end;

end.