V5.2

Unitplace.dfm

@@ -0,0 +1,212 @@
+object FormPlace: TFormPlace
+  Left = 313
+  Top = 116
+  BorderStyle = bsDialog
+  Caption = 'Placement des trains'
+  ClientHeight = 442
+  ClientWidth = 307
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  OnActivate = FormActivate
+  OnKeyPress = FormKeyPress
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 32
+    Top = 8
+    Width = 229
+    Height = 20
+    Caption = 'Placement des trains pour le roulage'
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Arial Narrow'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object LabelTrain1: TLabel
+    Left = 152
+    Top = 56
+    Width = 30
+    Height = 13
+    Caption = 'Train1'
+  end
+  object LabelTrain2: TLabel
+    Left = 152
+    Top = 80
+    Width = 30
+    Height = 13
+    Caption = 'Train2'
+  end
+  object LabelTrain3: TLabel
+    Left = 152
+    Top = 104
+    Width = 30
+    Height = 13
+    Caption = 'Train3'
+  end
+  object LabelTrain4: TLabel
+    Left = 152
+    Top = 128
+    Width = 30
+    Height = 13
+    Caption = 'Train4'
+  end
+  object LabelTrain5: TLabel
+    Left = 152
+    Top = 152
+    Width = 30
+    Height = 13
+    Caption = 'Train5'
+  end
+  object LabelTrain6: TLabel
+    Left = 152
+    Top = 176
+    Width = 30
+    Height = 13
+    Caption = 'Train7'
+  end
+  object Label2: TLabel
+    Left = 96
+    Top = 40
+    Width = 52
+    Height = 13
+    Caption = 'D'#233'tecteurs'
+  end
+  object LabelTexte: TLabel
+    Left = 19
+    Top = 224
+    Width = 3
+    Height = 13
+  end
+  object Label3: TLabel
+    Left = 8
+    Top = 208
+    Width = 293
+    Height = 13
+    Caption = 'Pour ne pas placer un train, mettre 0 en face de son d'#233'tecteur'
+  end
+  object Buttonferme: TButton
+    Left = 16
+    Top = 400
+    Width = 75
+    Height = 25
+    Caption = 'Fermer'
+    TabOrder = 0
+    OnClick = ButtonfermeClick
+  end
+  object ButtonInitAig: TButton
+    Left = 16
+    Top = 272
+    Width = 273
+    Height = 25
+    Caption = 'Positionner les aiguillages en position initiale'
+    TabOrder = 1
+    OnClick = ButtonInitAigClick
+  end
+  object ButtonSauve: TButton
+    Left = 16
+    Top = 368
+    Width = 273
+    Height = 25
+    Caption = 'Enregistrer la configuration de roulage'
+    TabOrder = 2
+    OnClick = ButtonSauveClick
+  end
+  object Edit1: TEdit
+    Left = 96
+    Top = 56
+    Width = 49
+    Height = 21
+    TabOrder = 3
+    OnChange = Edit1Change
+  end
+  object Edit2: TEdit
+    Left = 96
+    Top = 80
+    Width = 49
+    Height = 21
+    TabOrder = 4
+    OnChange = Edit2Change
+  end
+  object Edit3: TEdit
+    Left = 96
+    Top = 104
+    Width = 49
+    Height = 21
+    TabOrder = 5
+    OnChange = Edit3Change
+  end
+  object Edit4: TEdit
+    Left = 96
+    Top = 128
+    Width = 49
+    Height = 21
+    TabOrder = 6
+    OnChange = Edit4Change
+  end
+  object Edit5: TEdit
+    Left = 96
+    Top = 152
+    Width = 49
+    Height = 21
+    TabOrder = 7
+    OnChange = Edit5Change
+  end
+  object Edit6: TEdit
+    Left = 96
+    Top = 176
+    Width = 49
+    Height = 21
+    TabOrder = 8
+    OnChange = Edit6Change
+  end
+  object ButtonPlace: TButton
+    Left = 16
+    Top = 240
+    Width = 273
+    Height = 25
+    Caption = 'Placer les trains sur les d'#233'tecteurs ci-dessus'
+    TabOrder = 9
+    OnClick = ButtonPlaceClick
+  end
+  object ButtonLanceRoutage: TButton
+    Left = 16
+    Top = 304
+    Width = 273
+    Height = 25
+    Caption = 'Lancer le roulage'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clInfoText
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 10
+    OnClick = ButtonLanceRoutageClick
+  end
+  object Button1: TButton
+    Left = 208
+    Top = 400
+    Width = 81
+    Height = 25
+    Caption = 'Config trains'
+    TabOrder = 11
+    OnClick = Button1Click
+  end
+  object ButtonArretroutage: TButton
+    Left = 16
+    Top = 336
+    Width = 273
+    Height = 25
+    Caption = 'Arr'#234't du roulage'
+    TabOrder = 12
+    OnClick = ButtonArretroutageClick
+  end
+end