213 lines
4.0 KiB
Plaintext
213 lines
4.0 KiB
Plaintext
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
|