V1.6

UnitConfigTCO.dfm

@@ -1,7 +1,7 @@
 object FormConfigTCO: TFormConfigTCO
   Left = 542
   Top = 389
-  Width = 405
+  Width = 360
   Height = 251
   Caption = 'Configuration du TCO'
   Color = clBtnFace
@@ -11,7 +11,7 @@ object FormConfigTCO: TFormConfigTCO
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   OldCreateOrder = False
-  OnCreate = FormCreate
+  OnActivate = FormActivate
   PixelsPerInch = 96
   TextHeight = 13
   object Label1: TLabel
@@ -42,34 +42,14 @@ object FormConfigTCO: TFormConfigTCO
     Height = 13
     Caption = 'Nombre de cellules en vertical:'
   end
-  object LabelNbCellX: TLabel
-    Left = 192
-    Top = 52
-    Width = 96
-    Height = 20
-    Caption = 'LabelNbCellX'
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -16
-    Font.Name = 'MS Sans Serif'
-    Font.Style = []
-    ParentFont = False
-  end
-  object LabelNbCellY: TLabel
-    Left = 192
-    Top = 76
-    Width = 96
-    Height = 20
-    Caption = 'LabelNbCellX'
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -16
-    Font.Name = 'MS Sans Serif'
-    Font.Style = []
-    ParentFont = False
+  object LabelErreur: TLabel
+    Left = 35
+    Top = 144
+    Width = 3
+    Height = 13
   end
   object ButtonOK: TButton
-    Left = 168
+    Left = 240
     Top = 176
     Width = 75
     Height = 25
@@ -110,4 +90,20 @@ object FormConfigTCO: TFormConfigTCO
     Caption = 'dessine grille'
     TabOrder = 4
   end
+  object EditNbCellX: TEdit
+    Left = 184
+    Top = 56
+    Width = 49
+    Height = 21
+    TabOrder = 5
+    Text = 'EditNbCellX'
+  end
+  object EditNbCellY: TEdit
+    Left = 184
+    Top = 80
+    Width = 49
+    Height = 21
+    TabOrder = 6
+    Text = 'EditNbCellY'
+  end
 end