400 lines
8.4 KiB
Plaintext
400 lines
8.4 KiB
Plaintext
object FormPlace: TFormPlace
|
|
Left = 368
|
|
Top = 142
|
|
BorderStyle = bsDialog
|
|
Caption = 'Placement des trains'
|
|
ClientHeight = 449
|
|
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
|
|
OnCreate = FormCreate
|
|
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 = 8
|
|
Top = 64
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Train1'
|
|
end
|
|
object LabelTrain2: TLabel
|
|
Left = 8
|
|
Top = 88
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Train2'
|
|
end
|
|
object LabelTrain3: TLabel
|
|
Left = 8
|
|
Top = 112
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Train3'
|
|
end
|
|
object LabelTrain4: TLabel
|
|
Left = 8
|
|
Top = 136
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Train4'
|
|
end
|
|
object LabelTrain5: TLabel
|
|
Left = 8
|
|
Top = 160
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Train5'
|
|
end
|
|
object LabelTrain6: TLabel
|
|
Left = 8
|
|
Top = 184
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Train6'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 91
|
|
Top = 32
|
|
Width = 70
|
|
Height = 26
|
|
Alignment = taRightJustify
|
|
Caption = 'D'#233'tecteurs de placement'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object LabelTexte: TLabel
|
|
Left = 9
|
|
Top = 232
|
|
Width = 120
|
|
Height = 13
|
|
Caption = '. '
|
|
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 Label4: TLabel
|
|
Left = 168
|
|
Top = 32
|
|
Width = 54
|
|
Height = 26
|
|
Caption = 'D'#233'tecteurs destinataire'
|
|
WordWrap = True
|
|
end
|
|
object Label5: TLabel
|
|
Left = 8
|
|
Top = 40
|
|
Width = 73
|
|
Height = 13
|
|
Caption = 'Nom du train'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Buttonferme: TButton
|
|
Left = 16
|
|
Top = 416
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Fermer'
|
|
TabOrder = 0
|
|
OnClick = ButtonfermeClick
|
|
end
|
|
object ButtonInitAig: TButton
|
|
Left = 16
|
|
Top = 248
|
|
Width = 273
|
|
Height = 25
|
|
Caption = 'Positionner les aiguillages en position initiale'
|
|
TabOrder = 1
|
|
OnClick = ButtonInitAigClick
|
|
end
|
|
object ButtonSauve: TButton
|
|
Left = 16
|
|
Top = 376
|
|
Width = 273
|
|
Height = 25
|
|
Caption = 'Enregistrer la configuration de placement'
|
|
TabOrder = 2
|
|
OnClick = ButtonSauveClick
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 128
|
|
Top = 64
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur recevant le train 1'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
OnChange = Edit1Change
|
|
end
|
|
object Edit2: TEdit
|
|
Left = 128
|
|
Top = 88
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur recevant le train 2'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 4
|
|
OnChange = Edit2Change
|
|
end
|
|
object Edit3: TEdit
|
|
Left = 128
|
|
Top = 112
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur recevant le train 3'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 5
|
|
OnChange = Edit3Change
|
|
end
|
|
object Edit4: TEdit
|
|
Left = 128
|
|
Top = 136
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur recevant le train 4'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 6
|
|
OnChange = Edit4Change
|
|
end
|
|
object Edit5: TEdit
|
|
Left = 128
|
|
Top = 160
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur recevant le train 5'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 7
|
|
OnChange = Edit5Change
|
|
end
|
|
object Edit6: TEdit
|
|
Left = 128
|
|
Top = 184
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur recevant le train 6'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 8
|
|
OnChange = Edit6Change
|
|
end
|
|
object ButtonPlace: TButton
|
|
Left = 16
|
|
Top = 280
|
|
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 = 312
|
|
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 = 416
|
|
Width = 81
|
|
Height = 25
|
|
Caption = 'Config trains'
|
|
TabOrder = 11
|
|
OnClick = Button1Click
|
|
end
|
|
object ButtonArretroutage: TButton
|
|
Left = 16
|
|
Top = 344
|
|
Width = 273
|
|
Height = 25
|
|
Caption = 'Arr'#234't du roulage'
|
|
TabOrder = 12
|
|
OnClick = ButtonArretroutageClick
|
|
end
|
|
object CheckInverse1: TCheckBox
|
|
Left = 208
|
|
Top = 64
|
|
Width = 89
|
|
Height = 17
|
|
Hint = 'Pilotage en sens inverse'
|
|
Caption = 'sens inverse'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 13
|
|
OnClick = CheckInverse1Click
|
|
end
|
|
object CheckInverse2: TCheckBox
|
|
Left = 208
|
|
Top = 88
|
|
Width = 89
|
|
Height = 17
|
|
Hint = 'Pilotage en sens inverse'
|
|
Caption = 'sens inverse'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 14
|
|
OnClick = CheckInverse2Click
|
|
end
|
|
object CheckInverse3: TCheckBox
|
|
Left = 208
|
|
Top = 112
|
|
Width = 89
|
|
Height = 17
|
|
Hint = 'Pilotage en sens inverse'
|
|
Caption = 'sens inverse'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 15
|
|
OnClick = CheckInverse3Click
|
|
end
|
|
object CheckInverse4: TCheckBox
|
|
Left = 208
|
|
Top = 136
|
|
Width = 89
|
|
Height = 17
|
|
Hint = 'Pilotage en sens inverse'
|
|
Caption = 'sens inverse'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 16
|
|
OnClick = CheckInverse4Click
|
|
end
|
|
object CheckInverse5: TCheckBox
|
|
Left = 208
|
|
Top = 160
|
|
Width = 89
|
|
Height = 17
|
|
Hint = 'Pilotage en sens inverse'
|
|
Caption = 'sens inverse'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 17
|
|
OnClick = CheckInverse5Click
|
|
end
|
|
object CheckInverse6: TCheckBox
|
|
Left = 208
|
|
Top = 184
|
|
Width = 89
|
|
Height = 17
|
|
Hint = 'Pilotage en sens inverse'
|
|
Caption = 'sens inverse'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 18
|
|
OnClick = CheckInverse6Click
|
|
end
|
|
object EditDir1: TEdit
|
|
Left = 168
|
|
Top = 64
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur suivant vers lequel doit se diriger le train 1'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 19
|
|
OnChange = EditDir1Change
|
|
end
|
|
object EditDir2: TEdit
|
|
Left = 168
|
|
Top = 88
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur suivant vers lequel doit se diriger le train 2'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 20
|
|
OnChange = EditDir2Change
|
|
end
|
|
object EditDir3: TEdit
|
|
Left = 168
|
|
Top = 112
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur suivant vers lequel doit se diriger le train 3'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 21
|
|
OnChange = EditDir3Change
|
|
end
|
|
object EditDir4: TEdit
|
|
Left = 168
|
|
Top = 136
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur suivant vers lequel doit se diriger le train 4'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 22
|
|
OnChange = EditDir4Change
|
|
end
|
|
object EditDir5: TEdit
|
|
Left = 168
|
|
Top = 160
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur suivant vers lequel doit se diriger le train 5'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 23
|
|
OnChange = EditDir5Change
|
|
end
|
|
object EditDir6: TEdit
|
|
Left = 168
|
|
Top = 184
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'D'#233'tecteur suivant vers lequel doit se diriger le train 6'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 24
|
|
OnChange = EditDir6Change
|
|
end
|
|
end
|