V3.4

UnitConfigTCO.pas

@@ -37,6 +37,8 @@ type
     ImageTexte: TImage;
     Label11: TLabel;
     Label12: TLabel;
+    LabelMaxX: TLabel;
+    LabelMaxY: TLabel;
     procedure ButtonOKClick(Sender: TObject);
     procedure ButtonDessineClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
@@ -238,6 +240,8 @@ begin
   EditNbCellX.Text:=IntToSTR(NbreCellX);
   EditNbCellY.Text:=IntToSTR(NbreCellY);
   checkDessineGrille.Checked:=AvecGrille;
+  labelMaxX.caption:='Max='+intToSTR(MaxCellX);
+  labelMaxY.caption:='Max='+intToSTR(MaxCellY);
   dessine_icones;
 end;
 
@@ -314,4 +318,6 @@ begin
 end;
 
 
+
+
 end.