V1.6

UnitConfigTCO.pas

@@ -15,13 +15,14 @@ type
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
-    LabelNbCellX: TLabel;
-    LabelNbCellY: TLabel;
     ButtonDessine: TButton;
     CheckDessineGrille: TCheckBox;
+    EditNbCellX: TEdit;
+    EditNbCellY: TEdit;
+    LabelErreur: TLabel;
     procedure ButtonOKClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
     procedure ButtonDessineClick(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
   private
     { Déclarations privées }
   public
@@ -38,50 +39,85 @@ uses UnitPrinc;
 
 {$R *.dfm}
 
-procedure TFormConfigTCO.ButtonOKClick(Sender: TObject);
-var i,erreur : integer;
+function verif_config_TCO : boolean;  // renvoie true si ok
+var erreur : integer;
+    nokNbX,nokNbY,nokHt,nokLg : boolean;
 begin
-  Val(EditTailleCellX.Text,i,erreur);
-  LargeurCell:=i;
-  Val(EditTailleCellY.Text,i,erreur);
-  HauteurCell:=i;
-  with formTCO do
+  with formConfigTCO do
   begin
-    ImageTCO.Width:=LargeurCell*NbreCellX;
-    ImageTCO.Height:=HauteurCell*NbreCellY;
-  end;  
-  AvecGrille:=checkDessineGrille.Checked;
-  formTCO.affiche_TCO;
-  close;
-end;
+    Val(EditNbCellX.Text,NbreCellX,erreur);
+    nokNbX:=erreur<>0;
+    if nokNbX then LabelErreur.caption:='Erreur nombre de cellules X';
+    nokNbX:=(NbreCellX<20) or (NbreCellX>MaxCellX);
+    if nokNbX then LabelErreur.caption:='Erreur: nombre de cellules X: mini=20 maxi='+IntToSTR(MaxCellX);
 
-procedure TFormConfigTCO.FormCreate(Sender: TObject);
-begin
-  EditTailleCellX.Text:=IntToSTR(LargeurCell);
-  EditTailleCellY.Text:=IntToSTR(HauteurCell);
-  LabelNbCellX.Caption:=IntToSTR(NbreCellX);
-  LabelNbCellY.Caption:=IntToSTR(NbreCellY);
+    Val(EditNbCellY.Text,NbreCellY,erreur);
+    nokNbY:=erreur<>0;
+    if nokNbY then LabelErreur.caption:='Erreur: nombre de cellules Y';
+    nokNbY:=nokNbY or (NbreCellY<10) or (NbreCellY>MaxCellY);
+    if nokNbY then LabelErreur.caption:='Erreur: nombre de cellules Y: mini=10 maxi='+IntToSTR(MaxCellY);
+
+    Val(EditTailleCellX.Text,LargeurCell,erreur);
+    nokLg:=erreur<>0;
+    if nokLg then LabelErreur.caption:='Erreur largeur de cellules';
+    nokLg:=nokLg or (LargeurCell<20) or (LargeurCell>50)  ;
+    if nokLg then LabelErreur.caption:='Erreur: Tailles des cellules - largeur cellules mini=20 maxi=50';
   
+    Val(EditTailleCellY.Text,HauteurCell,erreur);
+    nokHt:=erreur<>0;
+    if nokHt then LabelErreur.caption:='Erreur hauteur de cellules';
+    nokHt:=nokHt or (HauteurCell<20) or (HauteurCell>50)  ;
+    if nokHt then LabelErreur.caption:='Erreur: Tailles des cellules - hauteur cellules mini=20 maxi=50';
+
+    AvecGrille:=checkDessineGrille.Checked;
+  end;
+  verif_config_TCO:=not(nokNbX or nokNbY or nokHt or nokLg);
 end;
 
-
+procedure TFormConfigTCO.ButtonOKClick(Sender: TObject);
+var i : integer;   
+    
+begin
+  if verif_config_TCO then
+  begin
+    with formTCO do
+    begin
+      ImageTCO.Width:=LargeurCell*NbreCellX;
+      ImageTCO.Height:=HauteurCell*NbreCellY;
+    end;  
+    AvecGrille:=checkDessineGrille.Checked;
+    formTCO.affiche_TCO;
+    LabelErreur.caption:='';
+    close;
+  end; 
+end;
 
 procedure TFormConfigTCO.ButtonDessineClick(Sender: TObject);
 var i,erreur : integer;
     r : Trect;
     c : tCanvas;
 begin
-   
-  Val(EditTailleCellX.Text,i,erreur);
-  LargeurCell:=i;
-  Val(EditTailleCellY.Text,i,erreur);
-  HauteurCell:=i;
-  with formTCO do
+  if verif_config_TCO then
   begin
-    ImageTCO.Width:=LargeurCell*NbreCellX;
-    ImageTCO.Height:=HauteurCell*NbreCellY;
+    with formTCO do
+    begin
+      ImageTCO.Width:=LargeurCell*NbreCellX;
+      ImageTCO.Height:=HauteurCell*NbreCellY;
+    end;  
+    formTCO.affiche_TCO;
   end;  
-  formTCO.affiche_TCO;
+end;
+
+
+
+
+procedure TFormConfigTCO.FormActivate(Sender: TObject);
+begin
+  EditTailleCellX.Text:=IntToSTR(LargeurCell);
+  EditTailleCellY.Text:=IntToSTR(HauteurCell);
+  EditNbCellX.Text:=IntToSTR(NbreCellX);
+  EditNbCellY.Text:=IntToSTR(NbreCellY);
+  checkDessineGrille.Checked:=AvecGrille;
 end;
 
 end.