easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V5.3

Browse Source
This commit is contained in:
f1iwq2
2022-12-31 15:03:54 +01:00
parent 6da9edba2e
commit 49b1926678
47 changed files with 3193 additions and 16099 deletions
Download Patch File Download Diff File Expand all files Collapse all files

286
Unitplace.dfm
View File

@@ -1,9 +1,9 @@
object FormPlace: TFormPlace
Left = 313
Top = 116
Left = 368
Top = 142
BorderStyle = bsDialog
Caption = 'Placement des trains'
ClientHeight = 442
ClientHeight = 449
ClientWidth = 307
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
@@ -31,59 +31,68 @@ object FormPlace: TFormPlace
ParentFont = False
end
object LabelTrain1: TLabel
Left = 152
Top = 56
Left = 8
Top = 64
Width = 30
Height = 13
Caption = 'Train1'
end
object LabelTrain2: TLabel
Left = 152
Top = 80
Left = 8
Top = 88
Width = 30
Height = 13
Caption = 'Train2'
end
object LabelTrain3: TLabel
Left = 152
Top = 104
Left = 8
Top = 112
Width = 30
Height = 13
Caption = 'Train3'
end
object LabelTrain4: TLabel
Left = 152
Top = 128
Left = 8
Top = 136
Width = 30
Height = 13
Caption = 'Train4'
end
object LabelTrain5: TLabel
Left = 152
Top = 152
Left = 8
Top = 160
Width = 30
Height = 13
Caption = 'Train5'
end
object LabelTrain6: TLabel
Left = 152
Top = 176
Left = 8
Top = 184
Width = 30
Height = 13
Caption = 'Train7'
Caption = 'Train6'
end
object Label2: TLabel
Left = 96
Top = 40
Width = 52
Height = 13
Caption = 'D'#233'tecteurs'
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 = 19
Top = 224
Width = 3
Left = 9
Top = 232
Width = 120
Height = 13
Caption = '. '
end
object Label3: TLabel
Left = 8
@@ -92,9 +101,30 @@ object FormPlace: TFormPlace
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 = 400
Top = 416
Width = 75
Height = 25
Caption = 'Fermer'
@@ -103,7 +133,7 @@ object FormPlace: TFormPlace
end
object ButtonInitAig: TButton
Left = 16
Top = 272
Top = 248
Width = 273
Height = 25
Caption = 'Positionner les aiguillages en position initiale'
@@ -112,64 +142,82 @@ object FormPlace: TFormPlace
end
object ButtonSauve: TButton
Left = 16
Top = 368
Top = 376
Width = 273
Height = 25
Caption = 'Enregistrer la configuration de roulage'
Caption = 'Enregistrer la configuration de placement'
TabOrder = 2
OnClick = ButtonSauveClick
end
object Edit1: TEdit
Left = 96
Top = 56
Width = 49
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 = 96
Top = 80
Width = 49
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 = 96
Top = 104
Width = 49
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 = 96
Top = 128
Width = 49
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 = 96
Top = 152
Width = 49
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 = 96
Top = 176
Width = 49
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 = 240
Top = 280
Width = 273
Height = 25
Caption = 'Placer les trains sur les d'#233'tecteurs ci-dessus'
@@ -178,7 +226,7 @@ object FormPlace: TFormPlace
end
object ButtonLanceRoutage: TButton
Left = 16
Top = 304
Top = 312
Width = 273
Height = 25
Caption = 'Lancer le roulage'
@@ -193,7 +241,7 @@ object FormPlace: TFormPlace
end
object Button1: TButton
Left = 208
Top = 400
Top = 416
Width = 81
Height = 25
Caption = 'Config trains'
@@ -202,11 +250,149 @@ object FormPlace: TFormPlace
end
object ButtonArretroutage: TButton
Left = 16
Top = 336
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