V10.82

2026-01-17 11:19:04 +01:00
parent 4b997f5de1
commit 7daf7e28aa
24 changed files with 1157 additions and 2334 deletions
--- a/UnitConfigCellTCO.pas
+++ b/UnitConfigCellTCO.pas
@@ -271,7 +271,7 @@ begin
      //YclicCell[indexTCO]:=YclicC;

      xc:=xClicC;yc:=yClicC;
-      origine_canton(xc,yc);
+      origine_canton(indexTCO,xc,yc);

      idCanton:=index_canton(indexTCO,xC,yC);

@@ -671,7 +671,7 @@ begin
    begin
      FormConfCellTCO.LabelNumC.caption:='Elément de canton';
      x:=xClicC;y:=yClicC;
-      origine_canton(x,y);
+      origine_canton(indexTCO,x,y);
      i:=tco[indexTCO,x,y].NumCanton;
      if i>0 then FormConfCellTCO.EditCanton.text:=intToSTR(i);
    end;