V9.5

V9.5

UnitFicheHoraire.dfm

@@ -1,10 +1,9 @@
 object FormFicheHoraire: TFormFicheHoraire
   Left = 358
   Top = 169
-  BorderStyle = bsDialog
+  Width = 617
+  Height = 377
   Caption = 'Fiche horaire'
-  ClientHeight = 346
-  ClientWidth = 527
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -15,6 +14,9 @@ object FormFicheHoraire: TFormFicheHoraire
   Position = poScreenCenter
   OnActivate = FormActivate
   OnCreate = FormCreate
+  DesignSize = (
+    609
+    346)
   PixelsPerInch = 96
   TextHeight = 13
   object Label1: TLabel
@@ -22,21 +24,24 @@ object FormFicheHoraire: TFormFicheHoraire
     Top = 272
     Width = 310
     Height = 13
+    Anchors = [akLeft, akBottom]
     Caption = 
       'Le nom des trains doit respecter l'#39#233'criture d'#233'clar'#233'e dans CDM Ra' +
       'il'
   end
   object LabelErreur: TLabel
-    Left = 136
-    Top = 304
+    Left = 280
+    Top = 296
     Width = 3
     Height = 13
+    Anchors = [akLeft, akBottom]
   end
   object Label2: TLabel
-    Left = 208
-    Top = 328
+    Left = 288
+    Top = 320
     Width = 296
     Height = 13
+    Anchors = [akLeft, akBottom]
     Caption = 'Les horaires sont sauvegard'#233's dans le fichier '#39'FicheHoraire.txt"'
   end
   object ButtonOk: TButton
@@ -45,6 +50,7 @@ object FormFicheHoraire: TFormFicheHoraire
     Width = 75
     Height = 25
     Hint = 'Sauvegarde la fiche et ferme la fen'#234'tre'
+    Anchors = [akLeft, akBottom]
     Caption = 'Ok'
     ParentShowHint = False
     ShowHint = True
@@ -54,11 +60,12 @@ object FormFicheHoraire: TFormFicheHoraire
   object StringGridFO: TStringGrid
     Left = 8
     Top = 16
-    Width = 505
+    Width = 593
     Height = 233
     ColCount = 4
     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
     TabOrder = 1
     OnDrawCell = StringGridFODrawCell
+    OnSetEditText = StringGridFOSetEditText
   end
 end