V9.3

2024-09-25 14:13:46 +02:00
parent 7d2c4bd591
commit 20b1990c2e
29 changed files with 4529 additions and 1448 deletions
--- a/UnitConfigCellTCO.pas
+++ b/UnitConfigCellTCO.pas
@@ -1355,6 +1355,7 @@ var idc,x,y: integer;
    h : boolean;
 begin
  Idc:=index_canton(indexTCOcourant,xclicC,yclicC);
+  if Idc<1 then exit;
  x:=canton[Idc].x;
  y:=canton[Idc].y;
  H:=IsCantonH(IndexTCOCourant,x,y);