V2.0
This commit is contained in:
f1iwq2
Binary file not shown.
Binary file not shown.
+454
-81
@@ -1,6 +1,6 @@
|
||||
object FormConfig: TFormConfig
|
||||
Left = 226
|
||||
Top = 188
|
||||
Left = 305
|
||||
Top = 330
|
||||
Hint =
|
||||
'Modifie les fichiers de configuration selon les s'#233'lections chois' +
|
||||
'ies'
|
||||
@@ -22,17 +22,16 @@ object FormConfig: TFormConfig
|
||||
TextHeight = 13
|
||||
object LabelInfo: TLabel
|
||||
Left = 601
|
||||
Top = 432
|
||||
Width = 13
|
||||
Top = 416
|
||||
Width = 29
|
||||
Height = 16
|
||||
Caption = '- '
|
||||
Caption = '- -'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
WordWrap = True
|
||||
end
|
||||
object Image1: TImage
|
||||
Left = 600
|
||||
@@ -1231,7 +1230,7 @@ object FormConfig: TFormConfig
|
||||
end
|
||||
object ImageTJD: TImage
|
||||
Left = 720
|
||||
Top = 336
|
||||
Top = 320
|
||||
Width = 137
|
||||
Height = 57
|
||||
Picture.Data = {
|
||||
@@ -1366,8 +1365,8 @@ object FormConfig: TFormConfig
|
||||
Visible = False
|
||||
end
|
||||
object ImageTri: TImage
|
||||
Left = 624
|
||||
Top = 344
|
||||
Left = 592
|
||||
Top = 360
|
||||
Width = 145
|
||||
Height = 65
|
||||
Picture.Data = {
|
||||
@@ -1543,6 +1542,208 @@ object FormConfig: TFormConfig
|
||||
Height = 13
|
||||
Caption = 'Verrouillable au carr'#233' :'
|
||||
end
|
||||
object Image2: TImage
|
||||
Left = 712
|
||||
Top = 424
|
||||
Width = 129
|
||||
Height = 41
|
||||
Picture.Data = {
|
||||
07544269746D617006180000424D06180000000000007600000028000000CA00
|
||||
00003A000000010004000000000090170000120B0000120B0000100000000000
|
||||
0000000000000000800000800000008080008000000080008000808000008080
|
||||
8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
|
||||
FF00CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCCC8888887
|
||||
7CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC00
|
||||
0000CCCCC88888888888888887CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCC88887CCCCC000000CCCC48888888888888888888888777CCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCC777888888888887CCCCC000000CCCCC88888888888888888888888
|
||||
8888888888C7777CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCC7C77788888888888888888888887CCCCC000000CCCCC8888888
|
||||
8888888888888888888888888888888888888887CCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCC7C7888888888888888888888888888888888888CCCCC00
|
||||
0000CCCC78888888888888888888888888888888888888888888888888888888
|
||||
88877877C77CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCC7C77777777888888888888888888888888888888888888888
|
||||
888888888CCCCC000000CCCC4000077888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888788888C77CC8CCCC8CC8C
|
||||
C7C8778C78788787888888888888888888888888888888888888888888888888
|
||||
88888888888888888888888884CCCC000000CCCC788877700000000777888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888888888888888887774CCCC000000CCCC88888888
|
||||
8878877000000008788888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888888888888888888888877770000000070CCCCC00
|
||||
0000CCCC88888888888888888888777000000007778878888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888887770000000077
|
||||
7888888887CCCC000000CCC48888888888888888888888888888888707000000
|
||||
0077077788888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888877777770000
|
||||
00000777888888888888888887CCCC000000CCC4888888888888888888888888
|
||||
8888888888888888770770000000077077777788888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888787707
|
||||
000000000007777788888888888888888888888888CCCC000000CCC788888888
|
||||
8888888888888888888888888888888888888888878887787700700000000000
|
||||
7007707777777787787788788888888887888878778888787787777777700000
|
||||
0000000000000777778888888888888888888888888888888888888887CCCC00
|
||||
0000CCC788888888888888888888888888888888888888888888888888888888
|
||||
8888888888877887777007007000000000000000000000000000000000000000
|
||||
0000000707777777878788888888888888888888888888888888888888888888
|
||||
8888888887CCCC000000CCC78888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888878
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888888888888888888888CCCC000000CC48888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888888888888888888888CCCC000000CC4888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888888888888888888888888888888888888888888888888888887CCC00
|
||||
0000CC7888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888887CCC000000CC788888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888887CCC000000CC40377788888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888887CCC000000CCCCCC440040
|
||||
7778888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888888888888888888888888888888888888888888888888888887CCC00
|
||||
0000CCCCCCCCCCCCCC4400737888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88877303000CCC000000CCCCCCCCCCCCCCCCCCC4440400777888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888887777000004444CCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCC4
|
||||
4400307778888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888887773300000444CCCCCCCCCCCCCCC000000CCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCC4404400777888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888877730004404C4CCCCCCCCCCCCCCCCCCCCCCC00
|
||||
0000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC44400003777888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888888888888887730300444CCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCC0000078888888888888888888888888888888888888888888888888888888
|
||||
88888888888888888888888888888888888888888887770044444CCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCC4C40400377788888888888888888888888888888888888888888888
|
||||
888888888888888888888888888888888888888888888888888888888000000C
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCC44440003777788888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888888887770C44CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC00
|
||||
0000CCCCCCCCCCCCCCCCCCCC4440040037778888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888888888888888877744444CCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCC000000CCCCCCCCCCCCC4440003078788888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888773
|
||||
0444CCCCCCCCCCCCCCCCCCCCCCCCCC000000CCCC444000300778788888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888888888888887730400444CCCCCCCCCCCCCCCCC000000CC0377778888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888888888888888888888877300444444CCCCCCCC00
|
||||
0000CC7888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88887707044CCC000000CC788888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888888CCC000000CC48888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888887CCC000000CCC888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888888888888888888888888888888888888888888888888888887CCC00
|
||||
0000CC4788888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888887CCC000000CCC88888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
888888888888888888888888887CCC000000CCC8888888888888888888888888
|
||||
8888888888888888888888888888888888888878787777777770770700707707
|
||||
0000000000700770770777777778778878888888888888888888888888888888
|
||||
888888888888888888888888888888888888888888CCCC000000CCC788888888
|
||||
8888888888888888888888888888888887777770700000000000000000777777
|
||||
7777777777787777777877878877777777770077077070000000000070077777
|
||||
8878888888888888888888888888888888888888888888888888888888CCCC00
|
||||
0000CCC488888888888888888888888888888877077700000000070777777778
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8887887777770700000000000707877888888888888888888888888888888888
|
||||
8888888888CCCC000000CCC78888888888888888887777000000000707778788
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888878777700000000700777888888
|
||||
88888888888888888888888887CCCC000000CCC4888888887777000000000077
|
||||
7888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
887707700000000007778888888888888888888887CCCC000000CCCC78777000
|
||||
0000777788888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888788777000007778888888888888887CCCC00
|
||||
0000CCCC00077778888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888888888888888887770000007
|
||||
778888888CCCCC000000CCCC7888888888888888888888888888888888888888
|
||||
8888888888888888888888888888888888888888878888788787887877887888
|
||||
8888888888888888888888888888888888888888888888888888888888888888
|
||||
88888888888887700000070784CCCC000000CCCC788888888888888888888888
|
||||
8888888888888888888888888888888878C7CCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC88888888888888888888888888
|
||||
888888888888888888888888888888888888777004CCCC000000CCCC78888888
|
||||
8888888888888888888888888888888777C7CCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCC7777C888888888888888888888888888888888888888888888888CCCCC00
|
||||
0000CCCC4888888888888888888888888777CCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC7788788888888888888888888888888
|
||||
888888888CCCCC000000CCCCC8888888888888887CCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC77CC8
|
||||
8888888888888888888888887CCCCC000000CCCCC88887C7CCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCC777888888888888888887CCCCC000000CCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC7888888888887CCCCC00
|
||||
0000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CC777888CCCCCC000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
||||
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC000000}
|
||||
Proportional = True
|
||||
Visible = False
|
||||
end
|
||||
object ButtonAppliquerEtFermer: TButton
|
||||
Left = 384
|
||||
Top = 440
|
||||
@@ -1568,7 +1769,7 @@ object FormConfig: TFormConfig
|
||||
Top = 8
|
||||
Width = 585
|
||||
Height = 417
|
||||
ActivePage = TabSheet3
|
||||
ActivePage = TabSheetAig
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBackground
|
||||
Font.Height = -11
|
||||
@@ -1576,6 +1777,7 @@ object FormConfig: TFormConfig
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
OnChange = PageControlChange
|
||||
object TabSheetCDM: TTabSheet
|
||||
Caption = 'CDM Rail'
|
||||
object GroupBox1: TGroupBox
|
||||
@@ -2105,7 +2307,7 @@ object FormConfig: TFormConfig
|
||||
end
|
||||
end
|
||||
end
|
||||
object TabSheet1: TTabSheet
|
||||
object TabSheetAig: TTabSheet
|
||||
Caption = 'Aiguillages'
|
||||
ImageIndex = 2
|
||||
object Label12: TLabel
|
||||
@@ -2117,32 +2319,20 @@ object FormConfig: TFormConfig
|
||||
'Liste de mod'#233'lisation des aiguillages du fichier config.cfg - cl' +
|
||||
'iquez sur une ligne pour afficher la description de l'#39'aiguillage'
|
||||
end
|
||||
object MemoAig: TMemo
|
||||
Left = 0
|
||||
Top = 24
|
||||
Width = 273
|
||||
Height = 361
|
||||
Color = clInfoText
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clAqua
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
HideSelection = False
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
OnClick = MemoAigClick
|
||||
OnDblClick = MemoAigDblClick
|
||||
object Label28: TLabel
|
||||
Left = 88
|
||||
Top = 208
|
||||
Width = 52
|
||||
Height = 13
|
||||
Caption = 'LabelTJD1'
|
||||
end
|
||||
object GroupBox11: TGroupBox
|
||||
Left = 280
|
||||
Top = 32
|
||||
Width = 289
|
||||
Height = 233
|
||||
Height = 265
|
||||
Caption = 'Description de l'#39'aiguillage'
|
||||
TabOrder = 1
|
||||
TabOrder = 0
|
||||
object LabelAdresse: TLabel
|
||||
Left = 37
|
||||
Top = 20
|
||||
@@ -2219,7 +2409,7 @@ object FormConfig: TFormConfig
|
||||
Top = 142
|
||||
Width = 9
|
||||
Height = 16
|
||||
Caption = 'P'
|
||||
Caption = 'D'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -13
|
||||
@@ -2240,6 +2430,20 @@ object FormConfig: TFormConfig
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object LabelTJD1: TLabel
|
||||
Left = 112
|
||||
Top = 208
|
||||
Width = 28
|
||||
Height = 13
|
||||
Caption = 'LabelTJD1'
|
||||
end
|
||||
object LabelTJD2: TLabel
|
||||
Left = 168
|
||||
Top = 208
|
||||
Width = 28
|
||||
Height = 13
|
||||
Caption = 'LabelTJD1'
|
||||
end
|
||||
object GroupBox10: TGroupBox
|
||||
Left = 40
|
||||
Top = 64
|
||||
@@ -2254,6 +2458,7 @@ object FormConfig: TFormConfig
|
||||
Height = 17
|
||||
Caption = 'sans'
|
||||
TabOrder = 0
|
||||
OnClick = RadioButtonsansClick
|
||||
end
|
||||
object RadioButton30kmh: TRadioButton
|
||||
Left = 24
|
||||
@@ -2262,6 +2467,7 @@ object FormConfig: TFormConfig
|
||||
Height = 17
|
||||
Caption = '30 km/h'
|
||||
TabOrder = 1
|
||||
OnClick = RadioButton30kmhClick
|
||||
end
|
||||
object RadioButton60kmh: TRadioButton
|
||||
Left = 24
|
||||
@@ -2270,6 +2476,7 @@ object FormConfig: TFormConfig
|
||||
Height = 17
|
||||
Caption = '60 km/h'
|
||||
TabOrder = 2
|
||||
OnClick = RadioButton60kmhClick
|
||||
end
|
||||
end
|
||||
object EditDroit_BD: TEdit
|
||||
@@ -2279,6 +2486,7 @@ object FormConfig: TFormConfig
|
||||
Height = 21
|
||||
TabOrder = 1
|
||||
Text = 'EditDroit_BD'
|
||||
OnChange = EditDroit_BDChange
|
||||
end
|
||||
object EditDevie_HD: TEdit
|
||||
Left = 240
|
||||
@@ -2287,6 +2495,7 @@ object FormConfig: TFormConfig
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
Text = 'EditDevie_HD'
|
||||
OnChange = EditDevie_HDChange
|
||||
end
|
||||
object EditPointe_BG: TEdit
|
||||
Left = 32
|
||||
@@ -2295,22 +2504,23 @@ object FormConfig: TFormConfig
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
Text = 'EditPointe_BG'
|
||||
OnChange = EditPointe_BGChange
|
||||
end
|
||||
object EditP1: TEdit
|
||||
Left = 88
|
||||
Top = 204
|
||||
Width = 41
|
||||
Left = 112
|
||||
Top = 148
|
||||
Width = 33
|
||||
Height = 21
|
||||
TabOrder = 4
|
||||
Text = 'EditPointe'
|
||||
Text = 'EditDDroit'
|
||||
end
|
||||
object EditP2: TEdit
|
||||
Left = 144
|
||||
Top = 204
|
||||
Width = 41
|
||||
Left = 112
|
||||
Top = 172
|
||||
Width = 33
|
||||
Height = 21
|
||||
TabOrder = 5
|
||||
Text = 'EditPointe'
|
||||
Text = 'EditDdevie'
|
||||
end
|
||||
object EditDevieS2: TEdit
|
||||
Left = 240
|
||||
@@ -2319,18 +2529,56 @@ object FormConfig: TFormConfig
|
||||
Height = 21
|
||||
TabOrder = 6
|
||||
Text = 'EditDevie_HD'
|
||||
OnChange = EditDevieS2Change
|
||||
end
|
||||
object CheckInverse: TCheckBox
|
||||
Left = 40
|
||||
Top = 232
|
||||
Width = 185
|
||||
Height = 17
|
||||
Caption = 'Inversion de l'#39#233'tat CDM'
|
||||
TabOrder = 7
|
||||
end
|
||||
end
|
||||
object Edit_HG: TEdit
|
||||
Left = 296
|
||||
Left = 312
|
||||
Top = 172
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
TabOrder = 1
|
||||
Text = 'EditPointe'
|
||||
end
|
||||
object RichAig: TRichEdit
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 265
|
||||
Height = 337
|
||||
Color = clBlack
|
||||
Lines.Strings = (
|
||||
'RichAig')
|
||||
ReadOnly = True
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 2
|
||||
OnMouseDown = RichAigMouseDown
|
||||
end
|
||||
object EditP3: TEdit
|
||||
Left = 432
|
||||
Top = 180
|
||||
Width = 33
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
Text = 'EditDDroit'
|
||||
end
|
||||
object EditP4: TEdit
|
||||
Left = 432
|
||||
Top = 204
|
||||
Width = 33
|
||||
Height = 21
|
||||
TabOrder = 4
|
||||
Text = 'EditDDroit'
|
||||
end
|
||||
end
|
||||
object TabSheet2: TTabSheet
|
||||
object TabSheetBranches: TTabSheet
|
||||
Caption = 'Branches'
|
||||
ImageIndex = 3
|
||||
object Label14: TLabel
|
||||
@@ -2358,7 +2606,7 @@ object FormConfig: TFormConfig
|
||||
WordWrap = False
|
||||
end
|
||||
end
|
||||
object TabSheet3: TTabSheet
|
||||
object TabSheetSig: TTabSheet
|
||||
Caption = 'Signaux'
|
||||
ImageIndex = 4
|
||||
object Label15: TLabel
|
||||
@@ -2370,31 +2618,13 @@ object FormConfig: TFormConfig
|
||||
'Liste de mod'#233'lisation des signaux du fichier config.cfg - clique' +
|
||||
'z sur une ligne pour afficher la description du signal'
|
||||
end
|
||||
object MemoSignaux: TMemo
|
||||
Left = 0
|
||||
Top = 24
|
||||
Width = 289
|
||||
Height = 361
|
||||
Color = clInfoText
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clAqua
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 0
|
||||
WordWrap = False
|
||||
OnClick = MemoSignauxClick
|
||||
end
|
||||
object GroupBox12: TGroupBox
|
||||
Left = 304
|
||||
Left = 288
|
||||
Top = 40
|
||||
Width = 257
|
||||
Width = 281
|
||||
Height = 313
|
||||
Caption = 'Description du signal'
|
||||
TabOrder = 1
|
||||
TabOrder = 0
|
||||
object ImageSignal: TImage
|
||||
Left = 8
|
||||
Top = 72
|
||||
@@ -2416,51 +2646,194 @@ object FormConfig: TFormConfig
|
||||
end
|
||||
object LabelDec: TLabel
|
||||
Left = 80
|
||||
Top = 72
|
||||
Top = 52
|
||||
Width = 53
|
||||
Height = 13
|
||||
Caption = 'D'#233'codeur: '
|
||||
end
|
||||
object LabelDetAss: TLabel
|
||||
Left = 80
|
||||
Top = 88
|
||||
Top = 72
|
||||
Width = 86
|
||||
Height = 13
|
||||
Caption = 'D'#233'tecteur associ'#233
|
||||
end
|
||||
object LabelElSuiv: TLabel
|
||||
Left = 80
|
||||
Top = 104
|
||||
Left = 176
|
||||
Top = 72
|
||||
Width = 75
|
||||
Height = 13
|
||||
Caption = 'Element suivant'
|
||||
end
|
||||
object LabelVerrou: TLabel
|
||||
Left = 80
|
||||
Top = 120
|
||||
Width = 105
|
||||
Height = 13
|
||||
Caption = 'Verrouillable au carr'#233' :'
|
||||
end
|
||||
object Label17: TLabel
|
||||
Left = 80
|
||||
Top = 144
|
||||
Left = 8
|
||||
Top = 216
|
||||
Width = 131
|
||||
Height = 26
|
||||
Caption = 'Conditions suppl'#233'mentaires d'#39'affichage du carr'#233' :'
|
||||
WordWrap = True
|
||||
end
|
||||
object Label24: TLabel
|
||||
Left = 104
|
||||
Top = 88
|
||||
Width = 8
|
||||
Height = 13
|
||||
Caption = '1'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBackground
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label25: TLabel
|
||||
Left = 104
|
||||
Top = 112
|
||||
Width = 8
|
||||
Height = 13
|
||||
Caption = '2'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBackground
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label26: TLabel
|
||||
Left = 104
|
||||
Top = 136
|
||||
Width = 8
|
||||
Height = 13
|
||||
Caption = '3'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBackground
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label27: TLabel
|
||||
Left = 104
|
||||
Top = 160
|
||||
Width = 8
|
||||
Height = 13
|
||||
Caption = '4'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBackground
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object MemoCarre: TMemo
|
||||
Left = 8
|
||||
Top = 184
|
||||
Top = 248
|
||||
Width = 241
|
||||
Height = 97
|
||||
Height = 49
|
||||
ReadOnly = True
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
end
|
||||
object ComboBoxDec: TComboBox
|
||||
Left = 136
|
||||
Top = 48
|
||||
Width = 129
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 1
|
||||
OnChange = ComboBoxDecChange
|
||||
end
|
||||
object EditDet1: TEdit
|
||||
Left = 120
|
||||
Top = 88
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
Text = 'EditDet1'
|
||||
OnChange = EditDet1Change
|
||||
end
|
||||
object EditSuiv1: TEdit
|
||||
Left = 184
|
||||
Top = 88
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
Text = 'EditSuiv1'
|
||||
OnChange = EditSuiv1Change
|
||||
end
|
||||
object EditDet2: TEdit
|
||||
Left = 120
|
||||
Top = 112
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 4
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object EditSuiv2: TEdit
|
||||
Left = 184
|
||||
Top = 112
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 5
|
||||
Text = 'Edit2'
|
||||
end
|
||||
object EditDet3: TEdit
|
||||
Left = 120
|
||||
Top = 136
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 6
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object EditSuiv3: TEdit
|
||||
Left = 184
|
||||
Top = 136
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 7
|
||||
Text = 'Edit2'
|
||||
end
|
||||
object EditDet4: TEdit
|
||||
Left = 120
|
||||
Top = 160
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 8
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object EditSuiv4: TEdit
|
||||
Left = 184
|
||||
Top = 160
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 9
|
||||
Text = 'Edit2'
|
||||
end
|
||||
object CheckVerrouCarre: TCheckBox
|
||||
Left = 112
|
||||
Top = 192
|
||||
Width = 145
|
||||
Height = 17
|
||||
Caption = 'Verrouillable au carr'#233
|
||||
TabOrder = 10
|
||||
OnClick = CheckVerrouCarreClick
|
||||
end
|
||||
end
|
||||
object RichSig: TRichEdit
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 273
|
||||
Height = 345
|
||||
Color = clBlack
|
||||
Lines.Strings = (
|
||||
'RichSig')
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 1
|
||||
WordWrap = False
|
||||
OnMouseDown = RichSigMouseDown
|
||||
end
|
||||
end
|
||||
object TabSheet4: TTabSheet
|
||||
object TabSheetAct: TTabSheet
|
||||
Caption = 'Actionneurs'
|
||||
ImageIndex = 5
|
||||
object Label16: TLabel
|
||||
|
||||
+797
-106
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
+250
-131
@@ -1,10 +1,9 @@
|
||||
object FormDebug: TFormDebug
|
||||
Left = 241
|
||||
Top = 150
|
||||
BorderStyle = bsSingle
|
||||
Left = 186
|
||||
Top = 143
|
||||
Width = 809
|
||||
Height = 773
|
||||
Caption = 'Fen'#234'tre de d'#233'bug'
|
||||
ClientHeight = 639
|
||||
ClientWidth = 789
|
||||
Color = clWindow
|
||||
TransparentColorValue = clTeal
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -16,13 +15,17 @@ object FormDebug: TFormDebug
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
DesignSize = (
|
||||
793
|
||||
735)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 616
|
||||
Top = 15
|
||||
Left = 609
|
||||
Top = 7
|
||||
Width = 108
|
||||
Height = 13
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Niveau du Debug (0-3)'
|
||||
Color = clWhite
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -34,10 +37,11 @@ object FormDebug: TFormDebug
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 448
|
||||
Top = 12
|
||||
Left = 441
|
||||
Top = 4
|
||||
Width = 131
|
||||
Height = 18
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Fen'#234'tre de d'#233'bug'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@@ -47,10 +51,11 @@ object FormDebug: TFormDebug
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 168
|
||||
Width = 97
|
||||
Height = 193
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Label3'
|
||||
Color = clGray
|
||||
@@ -64,10 +69,11 @@ object FormDebug: TFormDebug
|
||||
WordWrap = True
|
||||
end
|
||||
object EditNivDebug: TEdit
|
||||
Left = 728
|
||||
Top = 12
|
||||
Left = 721
|
||||
Top = 4
|
||||
Width = 49
|
||||
Height = 21
|
||||
Anchors = [akTop, akRight]
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -11
|
||||
@@ -79,10 +85,11 @@ object FormDebug: TFormDebug
|
||||
OnKeyPress = EditNivDebugKeyPress
|
||||
end
|
||||
object MemoEvtDet: TMemo
|
||||
Left = 552
|
||||
Left = 545
|
||||
Top = 408
|
||||
Width = 233
|
||||
Height = 221
|
||||
Anchors = [akTop, akRight]
|
||||
Color = clBlack
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clYellow
|
||||
@@ -97,197 +104,309 @@ object FormDebug: TFormDebug
|
||||
TabOrder = 1
|
||||
end
|
||||
object ButtonEcrLog: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 504
|
||||
Width = 97
|
||||
Height = 29
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Sauvegarder le log'
|
||||
TabOrder = 2
|
||||
OnClick = ButtonEcrLogClick
|
||||
end
|
||||
object MemoDebug: TMemo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 433
|
||||
Height = 625
|
||||
Top = 8
|
||||
Width = 426
|
||||
Height = 722
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Lines.Strings = (
|
||||
'MemoDebug')
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 3
|
||||
WordWrap = False
|
||||
end
|
||||
object CheckAffSig: TCheckBox
|
||||
Left = 448
|
||||
Top = 32
|
||||
Width = 297
|
||||
Height = 17
|
||||
Caption = 'Affichage du fonctionnement des signaux'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnClick = CheckAffSigClick
|
||||
end
|
||||
object ButtonRazTampon: TButton
|
||||
Left = 448
|
||||
Top = 576
|
||||
Left = 441
|
||||
Top = 584
|
||||
Width = 97
|
||||
Height = 33
|
||||
Caption = 'Raz Tampon Ev'#232'nements'
|
||||
TabOrder = 5
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Raz Tampon Ev'#232'nements ---->'
|
||||
TabOrder = 4
|
||||
WordWrap = True
|
||||
OnClick = ButtonRazTamponClick
|
||||
end
|
||||
object ButtonCherche: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 464
|
||||
Width = 97
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Chercher erreurs'
|
||||
TabOrder = 6
|
||||
TabOrder = 5
|
||||
OnClick = ButtonChercheClick
|
||||
end
|
||||
object ButtonAffEvtChrono: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 424
|
||||
Width = 97
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Affiche Evts d'#233'tecteurs et aig'
|
||||
TabOrder = 7
|
||||
TabOrder = 6
|
||||
WordWrap = True
|
||||
OnClick = ButtonAffEvtChronoClick
|
||||
end
|
||||
object CheckBoxTraceLIste: TCheckBox
|
||||
Left = 448
|
||||
Top = 80
|
||||
Width = 289
|
||||
Height = 17
|
||||
Caption = 'Affichage des '#233'valuations des routes'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 8
|
||||
OnClick = CheckBoxTraceLIsteClick
|
||||
end
|
||||
object CheckTrame: TCheckBox
|
||||
Left = 448
|
||||
Top = 96
|
||||
Width = 321
|
||||
Height = 17
|
||||
Caption = 'Affichage des trames '#233'chang'#233'es avec l'#39'interface ou CDM'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
OnClick = CheckTrameClick
|
||||
end
|
||||
object ButtonCop: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 368
|
||||
Width = 97
|
||||
Height = 49
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Copie fen'#234'te principale dans debug'
|
||||
TabOrder = 10
|
||||
TabOrder = 7
|
||||
WordWrap = True
|
||||
OnClick = ButtonCopClick
|
||||
end
|
||||
object RichEdit: TRichEdit
|
||||
Left = 552
|
||||
Left = 545
|
||||
Top = 168
|
||||
Width = 233
|
||||
Height = 233
|
||||
Anchors = [akTop, akRight]
|
||||
HideScrollBars = False
|
||||
PopupMenu = PopupMenuRE
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 11
|
||||
TabOrder = 8
|
||||
end
|
||||
object ButtonRazLog: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 544
|
||||
Width = 97
|
||||
Height = 25
|
||||
Caption = 'Raz Tampon Log'
|
||||
TabOrder = 12
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Raz Tampon Log <-----'
|
||||
TabOrder = 9
|
||||
WordWrap = True
|
||||
OnClick = ButtonRazLogClick
|
||||
end
|
||||
object CheckBoxAct: TCheckBox
|
||||
Left = 448
|
||||
Top = 64
|
||||
Width = 257
|
||||
Height = 17
|
||||
Caption = 'Affichage des '#233'v'#232'vements actionneurs'
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 441
|
||||
Top = 633
|
||||
Width = 353
|
||||
Height = 97
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = 'Fonctions primitives'
|
||||
Color = cl3DLight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 13
|
||||
OnClick = CheckBoxActClick
|
||||
end
|
||||
object CheckBoxEvtDetAig: TCheckBox
|
||||
Left = 448
|
||||
Top = 48
|
||||
Width = 281
|
||||
Height = 17
|
||||
Caption = 'Affichage des '#233'v'#232'nements d'#233'tecteurs et aiguillages'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 14
|
||||
OnClick = CheckBoxEvtDetAigClick
|
||||
end
|
||||
object CheckBoxAffFD: TCheckBox
|
||||
Left = 448
|
||||
Top = 112
|
||||
Width = 297
|
||||
Height = 17
|
||||
Caption = 'Affichage des fronts descendants des d'#233'tecteurs'
|
||||
Color = clWindow
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Color = clBlue
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 15
|
||||
OnClick = CheckBoxAffFDClick
|
||||
TabOrder = 10
|
||||
object ButtonSigSuiv: TButton
|
||||
Left = 16
|
||||
Top = 24
|
||||
Width = 97
|
||||
Height = 25
|
||||
Hint = 'Etat du signal suivant'
|
||||
Caption = 'Etat signal suivant'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
OnClick = ButtonSigSuivClick
|
||||
end
|
||||
object EditSigSuiv: TEdit
|
||||
Left = 280
|
||||
Top = 24
|
||||
Width = 49
|
||||
Height = 21
|
||||
Hint = 'Indiquer l'#39'adresse du signal '
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object EditPrec: TEdit
|
||||
Left = 224
|
||||
Top = 58
|
||||
Width = 49
|
||||
Height = 21
|
||||
Hint = 'Element pr'#233'c'#233'dent'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object EditActuel: TEdit
|
||||
Left = 288
|
||||
Top = 58
|
||||
Width = 49
|
||||
Height = 21
|
||||
Hint = 'Element actuel'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 3
|
||||
end
|
||||
object ButtonDetSuiv: TButton
|
||||
Left = 16
|
||||
Top = 56
|
||||
Width = 201
|
||||
Height = 25
|
||||
Hint =
|
||||
'Renvoie l'#39#233'l'#233'ment suivant aux deux '#233'l'#233'ments (d'#233'tecteurs ou aigui' +
|
||||
'llages) '
|
||||
Caption = 'D'#233'tecteur suivant aux '#233'l'#233'ments'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 4
|
||||
OnClick = ButtonDetSuivClick
|
||||
end
|
||||
object ButtonCanSuivSig: TButton
|
||||
Left = 128
|
||||
Top = 16
|
||||
Width = 105
|
||||
Height = 33
|
||||
Hint = 'Renvoie l'#39'occupation du canton suivant le signal'
|
||||
Caption = 'Etat canton suivant signal occup'#233
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 5
|
||||
WordWrap = True
|
||||
OnClick = ButtonCanSuivSigClick
|
||||
end
|
||||
end
|
||||
object CheckBoxAffDebDecSig: TCheckBox
|
||||
Left = 448
|
||||
Top = 128
|
||||
Width = 321
|
||||
Height = 17
|
||||
Caption = 'Affichage du pilotage des d'#233'codeurs de signaux'
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 433
|
||||
Top = 24
|
||||
Width = 345
|
||||
Height = 137
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'S'#233'lections d'#39'affichage'
|
||||
Color = cl3DLight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Color = clBlue
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 16
|
||||
OnClick = CheckBoxAffDebDecSigClick
|
||||
TabOrder = 11
|
||||
object CheckAffSig: TCheckBox
|
||||
Left = 24
|
||||
Top = 16
|
||||
Width = 297
|
||||
Height = 17
|
||||
Caption = 'Fonctionnement des signaux'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnClick = CheckAffSigClick
|
||||
end
|
||||
object CheckBoxEvtDetAig: TCheckBox
|
||||
Left = 24
|
||||
Top = 32
|
||||
Width = 281
|
||||
Height = 17
|
||||
Caption = 'Ev'#232'nements d'#233'tecteurs et aiguillages'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnClick = CheckBoxEvtDetAigClick
|
||||
end
|
||||
object CheckBoxTraceLIste: TCheckBox
|
||||
Left = 24
|
||||
Top = 112
|
||||
Width = 289
|
||||
Height = 17
|
||||
Caption = 'Evaluations des routes des trains'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
OnClick = CheckBoxTraceLIsteClick
|
||||
end
|
||||
object CheckTrame: TCheckBox
|
||||
Left = 24
|
||||
Top = 80
|
||||
Width = 305
|
||||
Height = 17
|
||||
Caption = 'Trames '#233'chang'#233'es avec l'#39'interface ou CDM'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
OnClick = CheckTrameClick
|
||||
end
|
||||
object CheckBoxAct: TCheckBox
|
||||
Left = 24
|
||||
Top = 48
|
||||
Width = 257
|
||||
Height = 17
|
||||
Caption = 'Ev'#232'vements actionneurs'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnClick = CheckBoxActClick
|
||||
end
|
||||
object CheckBoxAffFD: TCheckBox
|
||||
Left = 24
|
||||
Top = 96
|
||||
Width = 297
|
||||
Height = 17
|
||||
Caption = 'Fronts descendants des d'#233'tecteurs'
|
||||
Color = cl3DLight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
OnClick = CheckBoxAffFDClick
|
||||
end
|
||||
object CheckBoxAffDebDecSig: TCheckBox
|
||||
Left = 24
|
||||
Top = 64
|
||||
Width = 265
|
||||
Height = 17
|
||||
Caption = 'Pilotage des d'#233'codeurs de signaux'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 6
|
||||
OnClick = CheckBoxAffDebDecSigClick
|
||||
end
|
||||
end
|
||||
object SaveDialog: TSaveDialog
|
||||
Left = 760
|
||||
Top = 56
|
||||
Left = 768
|
||||
Top = 488
|
||||
end
|
||||
object PopupMenuRE: TPopupMenu
|
||||
Left = 760
|
||||
Top = 80
|
||||
Left = 768
|
||||
Top = 432
|
||||
object copier1: TMenuItem
|
||||
Caption = 'copier'
|
||||
OnClick = copier1Click
|
||||
|
||||
+60
-7
@@ -16,21 +16,29 @@ type
|
||||
ButtonEcrLog: TButton;
|
||||
Label3: TLabel;
|
||||
MemoDebug: TMemo;
|
||||
CheckAffSig: TCheckBox;
|
||||
ButtonRazTampon: TButton;
|
||||
ButtonCherche: TButton;
|
||||
ButtonAffEvtChrono: TButton;
|
||||
CheckBoxTraceLIste: TCheckBox;
|
||||
CheckTrame: TCheckBox;
|
||||
ButtonCop: TButton;
|
||||
RichEdit: TRichEdit;
|
||||
PopupMenuRE: TPopupMenu;
|
||||
copier1: TMenuItem;
|
||||
ButtonRazLog: TButton;
|
||||
CheckBoxAct: TCheckBox;
|
||||
GroupBox1: TGroupBox;
|
||||
ButtonSigSuiv: TButton;
|
||||
EditSigSuiv: TEdit;
|
||||
EditPrec: TEdit;
|
||||
EditActuel: TEdit;
|
||||
ButtonDetSuiv: TButton;
|
||||
GroupBox2: TGroupBox;
|
||||
CheckAffSig: TCheckBox;
|
||||
CheckBoxEvtDetAig: TCheckBox;
|
||||
CheckBoxTraceLIste: TCheckBox;
|
||||
CheckTrame: TCheckBox;
|
||||
CheckBoxAct: TCheckBox;
|
||||
CheckBoxAffFD: TCheckBox;
|
||||
CheckBoxAffDebDecSig: TCheckBox;
|
||||
ButtonCanSuivSig: TButton;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure ButtonEcrLogClick(Sender: TObject);
|
||||
@@ -48,6 +56,9 @@ type
|
||||
procedure CheckBoxEvtDetAigClick(Sender: TObject);
|
||||
procedure CheckBoxAffFDClick(Sender: TObject);
|
||||
procedure CheckBoxAffDebDecSigClick(Sender: TObject);
|
||||
procedure ButtonSigSuivClick(Sender: TObject);
|
||||
procedure ButtonDetSuivClick(Sender: TObject);
|
||||
procedure ButtonCanSuivSigClick(Sender: TObject);
|
||||
private
|
||||
{ Déclarations privées }
|
||||
public
|
||||
@@ -55,7 +66,7 @@ type
|
||||
end;
|
||||
|
||||
Const
|
||||
Max_Event_det_tick=10000;
|
||||
Max_Event_det_tick=30000;
|
||||
Max_event_det=400;
|
||||
Max_Trains=50;
|
||||
|
||||
@@ -112,8 +123,8 @@ procedure RE_ColorLine(ARichEdit : TRichEdit;ARow : Integer;AColor : TColor);
|
||||
begin
|
||||
with ARichEdit do
|
||||
begin
|
||||
SelStart:=SendMessage(Handle,EM_LINEINDEX,ARow-1,0);
|
||||
SelLength:=Length(Lines[ARow-1]);
|
||||
SelStart:=SendMessage(Handle,EM_LINEINDEX,ARow,0);
|
||||
SelLength:=Length(Lines[ARow]);
|
||||
SelAttributes.Color:=AColor;
|
||||
SelLength:=0;
|
||||
end;
|
||||
@@ -303,4 +314,46 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
procedure TFormDebug.ButtonSigSuivClick(Sender: TObject);
|
||||
var adr,erreur,ancdebug : integer ;
|
||||
begin
|
||||
ancdebug:=NivDebug;
|
||||
NivDebug:=3;
|
||||
Val(EditSigSuiv.Text,adr,erreur);
|
||||
if erreur<>0 then exit;
|
||||
etat_signal_suivant(Adr,1) ;
|
||||
NivDebug:=AncDebug;
|
||||
end;
|
||||
|
||||
procedure TFormDebug.ButtonDetSuivClick(Sender: TObject);
|
||||
var Adr,type1,type2,Prec,Actuel,erreur,ancdebug : integer ;
|
||||
s1,s2 : string;
|
||||
begin
|
||||
ancdebug:=NivDebug;
|
||||
NivDebug:=3;
|
||||
s1:=EditPrec.Text;
|
||||
s2:=EditActuel.Text;
|
||||
if (s1='') or (s2='') then exit;
|
||||
if s1[1]='A' then begin type1:=2;delete(s1,1,1);end else type1:=1;
|
||||
if s2[1]='A' then begin type2:=2;delete(s2,1,1);end else type2:=1;
|
||||
Val(s1,prec,erreur); if erreur<>0 then exit;
|
||||
Val(s2,Actuel,erreur); if erreur<>0 then exit;
|
||||
Adr:=detecteur_suivant_El(prec,type1,actuel,type2);
|
||||
if Adr<9996 then AfficheDebug('Le détecteur suivant aux éléments '+IntToSTR(prec)+'/'+IntToSTR(actuel)+' est '+IntToSTR(Adr),clyellow)
|
||||
else AfficheDebug('Pas trouvé de détecteur suvant aux éléments '+IntToSTR(prec)+'/'+IntToSTR(actuel),clyellow);
|
||||
NivDebug:=AncDebug;
|
||||
end;
|
||||
|
||||
procedure TFormDebug.ButtonCanSuivSigClick(Sender: TObject);
|
||||
var Adr,erreur,ancdebug : integer ;
|
||||
begin
|
||||
ancdebug:=NivDebug;
|
||||
NivDebug:=3;
|
||||
Val(EditSigSuiv.Text,Adr,erreur); if erreur<>0 then exit;
|
||||
test_memoire_zones(Adr);
|
||||
NivDebug:=AncDebug;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
Binary file not shown.
+30
-19
@@ -1,6 +1,6 @@
|
||||
object FormPrinc: TFormPrinc
|
||||
Left = 30
|
||||
Top = 270
|
||||
Left = 12
|
||||
Top = 210
|
||||
Width = 1212
|
||||
Height = 664
|
||||
Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ'
|
||||
@@ -18,7 +18,7 @@ object FormPrinc: TFormPrinc
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
DesignSize = (
|
||||
1196
|
||||
1179
|
||||
606)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
@@ -1188,7 +1188,7 @@ object FormPrinc: TFormPrinc
|
||||
Visible = False
|
||||
end
|
||||
object LabelEtat: TLabel
|
||||
Left = 456
|
||||
Left = 439
|
||||
Top = 16
|
||||
Width = 152
|
||||
Height = 18
|
||||
@@ -1204,14 +1204,14 @@ object FormPrinc: TFormPrinc
|
||||
object ListBox1: TListBox
|
||||
Left = 8
|
||||
Top = 48
|
||||
Width = 633
|
||||
Height = 520
|
||||
Width = 616
|
||||
Height = 505
|
||||
Style = lbOwnerDrawFixed
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Color = clBlack
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -16
|
||||
Font.Height = 16
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = []
|
||||
ItemHeight = 16
|
||||
@@ -1220,10 +1220,10 @@ object FormPrinc: TFormPrinc
|
||||
OnDrawItem = ListBox1DrawItem
|
||||
end
|
||||
object ScrollBox1: TScrollBox
|
||||
Left = 648
|
||||
Left = 631
|
||||
Top = 176
|
||||
Width = 537
|
||||
Height = 393
|
||||
Height = 377
|
||||
HorzScrollBar.Smooth = True
|
||||
HorzScrollBar.Tracking = True
|
||||
VertScrollBar.Smooth = True
|
||||
@@ -1234,7 +1234,7 @@ object FormPrinc: TFormPrinc
|
||||
TabOrder = 1
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 648
|
||||
Left = 631
|
||||
Top = 0
|
||||
Width = 249
|
||||
Height = 129
|
||||
@@ -1317,8 +1317,8 @@ object FormPrinc: TFormPrinc
|
||||
end
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Top = 576
|
||||
Width = 1196
|
||||
Top = 577
|
||||
Width = 1179
|
||||
Height = 30
|
||||
Panels = <>
|
||||
SimplePanel = True
|
||||
@@ -1334,7 +1334,7 @@ object FormPrinc: TFormPrinc
|
||||
00020000802500000000080000000000000000003F00000011000000}
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 904
|
||||
Left = 887
|
||||
Top = 5
|
||||
Width = 281
|
||||
Height = 129
|
||||
@@ -1428,7 +1428,7 @@ object FormPrinc: TFormPrinc
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 648
|
||||
Left = 631
|
||||
Top = 136
|
||||
Width = 153
|
||||
Height = 25
|
||||
@@ -1456,6 +1456,22 @@ object FormPrinc: TFormPrinc
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object StaticText: TStaticText
|
||||
Left = 16
|
||||
Top = 560
|
||||
Width = 1145
|
||||
Height = 17
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
Caption = 'xx'
|
||||
TabOrder = 7
|
||||
end
|
||||
object StaticText1: TStaticText
|
||||
Left = 8
|
||||
Top = 560
|
||||
Width = 4
|
||||
Height = 4
|
||||
TabOrder = 8
|
||||
end
|
||||
object Timer1: TTimer
|
||||
Interval = 100
|
||||
OnTimer = Timer1Timer
|
||||
@@ -1481,11 +1497,6 @@ object FormPrinc: TFormPrinc
|
||||
Hint = 'Affiche l'#39#233'tat des d'#233'tecteurs'
|
||||
OnClick = AffEtatDetecteurs
|
||||
end
|
||||
object ChronoDetect: TMenuItem
|
||||
Caption = 'Chronologie des d'#233'tecteurs et aiguillages'
|
||||
Hint = 'Affiche la chronologie des d'#233'tecteurs'
|
||||
OnClick = ChronoDetectClick
|
||||
end
|
||||
object Etatdesaiguillages1: TMenuItem
|
||||
Caption = 'Etat des aiguillages'
|
||||
OnClick = Etatdesaiguillages1Click
|
||||
|
||||
+1062
-857
File diff suppressed because it is too large
Load Diff
Binary file not shown.
+17
-12
@@ -53,6 +53,7 @@ begin
|
||||
index_simule:=1;
|
||||
repeat
|
||||
readln(fte,s);
|
||||
Affiche(s,clLime);
|
||||
i:=pos('Tick=',s);
|
||||
if i<>0 then
|
||||
begin
|
||||
@@ -61,12 +62,14 @@ begin
|
||||
if intervalle<>0 then k:=Index_Simule*Intervalle*10+tick+80 else // démarre dans 8s
|
||||
k:=Index_Simule+tick+80 ;
|
||||
Tablo_simule[index_simule].tick:=k;
|
||||
|
||||
|
||||
// détecteur?
|
||||
i:=pos('Det=',s);
|
||||
i:=pos('Det',s);
|
||||
if i<>0 then
|
||||
begin
|
||||
Delete(s,1,i+3);
|
||||
Delete(s,1,i+2);
|
||||
if s[1]='=' then delete(s,1,1);
|
||||
if s[1]=' ' then delete(s,1,1);
|
||||
val(s,k,erreur);
|
||||
Tablo_simule[index_simule].detecteur:=k;
|
||||
i:=pos('=',s);
|
||||
@@ -76,20 +79,22 @@ begin
|
||||
val(s,k,erreur);
|
||||
Tablo_simule[index_simule].etat:=k;
|
||||
|
||||
{s:=IntToSTR(Index_simule)+' Tick='+intToSTR(Tablo_simule[index_simule].tick)+
|
||||
' Detecteur='+intToSTR(Tablo_simule[index_simule].detecteur)+
|
||||
'='+intToSTR(Tablo_simule[index_simule].etat);
|
||||
Affiche(s,ClLime); }
|
||||
//s:=IntToSTR(Index_simule)+' Tick='+intToSTR(Tablo_simule[index_simule].tick)+
|
||||
// ' Detecteur='+intToSTR(Tablo_simule[index_simule].detecteur)+
|
||||
// '='+intToSTR(Tablo_simule[index_simule].etat);
|
||||
//Affiche(s,ClLime);
|
||||
|
||||
inc(index_simule);
|
||||
end;
|
||||
end;
|
||||
|
||||
// aiguillage?
|
||||
i:=pos('Aig=',s);
|
||||
i:=pos('Aig',s);
|
||||
if i<>0 then
|
||||
begin
|
||||
Delete(s,1,i+3);
|
||||
Delete(s,1,i+2);
|
||||
if s[1]='=' then delete(s,1,1);
|
||||
if s[1]=' ' then delete(s,1,1);
|
||||
val(s,k,erreur);
|
||||
Tablo_simule[index_simule].aiguillage:=k;
|
||||
i:=pos('=',s);
|
||||
@@ -116,10 +121,10 @@ begin
|
||||
closeFile(fte);
|
||||
formprinc.ButtonArretSimu.Visible:=true;
|
||||
formprinc.ButtonArretSimu.top:=88;
|
||||
|
||||
|
||||
FormSimulation.Close;
|
||||
end;
|
||||
Affiche('Fichier simulation : '+nF ,clyellow);
|
||||
end;
|
||||
Affiche('Fichier simulation : '+nF ,clyellow);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
BIN
Binary file not shown.
+6
-6
@@ -2366,7 +2366,7 @@ begin
|
||||
if aiguillage[adresse].Adevie=AdrSuiv then
|
||||
Bimage:=4; // ou 4
|
||||
// connecté sur pointe : la pointe est à droite
|
||||
if aiguillage[adresse].Apointe=AdrSuiv then
|
||||
if aiguillage[adresse].Apointe=AdrSuiv then
|
||||
Bimage:=5; // ou 2
|
||||
TCO[i,ligne].BImage:=Bimage;
|
||||
end;
|
||||
@@ -2890,9 +2890,9 @@ begin
|
||||
// tjd ou tjs
|
||||
if adresse<>0 then
|
||||
begin
|
||||
pos:=aiguillage[adresse].position;
|
||||
pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
|
||||
if (pos=const_droit) and (pos2=const_droit) then
|
||||
//pos:=aiguillage[adresse].position;
|
||||
//pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
|
||||
if (pos=const_droit) and (pos2=const_droit) then
|
||||
begin
|
||||
inc(x);
|
||||
end;
|
||||
@@ -2921,8 +2921,8 @@ begin
|
||||
if adresse<>0 then
|
||||
begin
|
||||
pos:=aiguillage[adresse].position;
|
||||
pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
|
||||
if (pos=const_droit) and (pos2=const_droit) then
|
||||
//pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
|
||||
if (pos=const_droit) and (pos2=const_droit) then
|
||||
begin
|
||||
inc(x);inc(y);
|
||||
end;
|
||||
|
||||
+108
-44
@@ -1,6 +1,6 @@
|
||||
/******************************************
|
||||
/ fichier de configuration de client-GL.log
|
||||
/ gily - f1iwq - 2018
|
||||
/ JFP - 2020
|
||||
/******************************************
|
||||
/ ce programme permet de commander les signaux complexes avec ou sans
|
||||
/ CDM rail. Il a trois modes de fonctionnement:
|
||||
@@ -18,17 +18,17 @@
|
||||
/
|
||||
/
|
||||
/ Taille de la fonte de la fenêtre
|
||||
16
|
||||
Fonte=16
|
||||
/
|
||||
/ Adresse IP V4 du PC sur lequel s'execute CDM : port
|
||||
127.0.0.1:9999
|
||||
IpV4_PC=127.0.0.1:9999
|
||||
/
|
||||
/ ==========================================================================
|
||||
/ D é f i n i t i o n de l'interface XpressNet pour utilisation en mode autonome
|
||||
/ Adresse IP V4 de l'interface LI-USB Ethernet : port
|
||||
/ par défaut le port est 5550
|
||||
/ ne pas connecter le port ou mettre 0 si on travaille avec l'interface USB
|
||||
192.168.1.23:5550
|
||||
IPV4_Interface=192.168.1.55:5550
|
||||
/
|
||||
/ port COM de l'adresse USB de l'interface LU-USB - LI100 - LI100F - LI101F - GENLI
|
||||
/ attention de COM1 à 9 - Si le port de l'interface USB >9, il faut le changer
|
||||
@@ -38,62 +38,126 @@
|
||||
/ Com:vitesse,parité,nombre de bits,bits de stop,protocole: 0=aucun 1=Xon-Xoff 2=RTS-CTS 3=RTS-Xon-Xoff 4=CTS
|
||||
/ voir notice page 29
|
||||
/
|
||||
COM3:57600,N,8,1,2
|
||||
/COM8:9600,N,8,1,0
|
||||
Protocole_serie=COM5:9600,N,8,1,0
|
||||
/
|
||||
/ Temporisation en ms d'envoi entre deux octets de la trame
|
||||
50
|
||||
Inter_Car=30
|
||||
/ Temporisation maximale de contrôle après non réponse de l'interface, en tranches de 100ms
|
||||
/ à adapter en fonction de l'interface. Ex 7=700ms d'attente maxi
|
||||
7
|
||||
Tempo_maxi=7
|
||||
/
|
||||
/ Entete: préfixe ajouté aux trames :
|
||||
/ Entete=0 - n'ajoute rien aux trames - pour une interface RS232 ou GENLI
|
||||
/ Entete=1 - Ajoute FF FE au début de chaque trame envoyée à l'interface : pour une interface USB, entete=1
|
||||
/ Entete=2 - Ajoute E4 au début de chaque trame et 0D 0D 0A en fin de chaque trame : pour compatibilité arduino
|
||||
1
|
||||
Entete=0
|
||||
/ ===============================================================================
|
||||
/
|
||||
/ Avec (1) ou sans (0) initialisation des aiguillages au démarrage selon le tableau ci après
|
||||
0
|
||||
Init_Aig=0
|
||||
/
|
||||
/ Fenêtre d'exécution en plein écran (1) ou réduite (0)
|
||||
Fenetre=0
|
||||
/
|
||||
/ Vérification des versions au démarrage
|
||||
verif_version=1
|
||||
/ Notification de nouvelle version
|
||||
notif_version=0
|
||||
/ Avec TCO
|
||||
TCO=0
|
||||
/ Lancement de CDM Rail au démarrage
|
||||
CDM=0
|
||||
/ Nom du fichier LAY à ouvrir depuis CDM sans caractères spéciaux ( : / )
|
||||
/reseau_gily_signal_ajoute.lay
|
||||
lay=DJEFF252RETROSIGNALISATION23.LAY
|
||||
/
|
||||
/ Démarrage du serveur d'interface automatique
|
||||
/ 0=ne pas démarrer automatiquement le serveur d'interfaces
|
||||
/ 1=XpressNet (lenz.roco)
|
||||
/ 2=P50X intellibox
|
||||
/ 3=Sprog
|
||||
/ 4=HSI88/HSI88-USB
|
||||
/ 5=ECOS ESU
|
||||
/ 6=FIS88 FeedBack (S88/S88N)
|
||||
/ 7=RS2PC (Rs FeedBack interface)
|
||||
/ 8=DCC++
|
||||
Serveur_interface=1
|
||||
/
|
||||
/ Interface de rétrosignalisation pour LENZ/DCC++
|
||||
/ 1=auto
|
||||
/ 2=LI-USB
|
||||
/ 3=LI-101F
|
||||
/ 4=LI-100F
|
||||
/ 5=LI-100
|
||||
/ 6=GENLI
|
||||
retro=6
|
||||
/
|
||||
/
|
||||
/
|
||||
/ Valeurs des initialisations des aiguillages au démarrage -----------------------------------------------
|
||||
/ @ aiguillage, position 1=dévié 2=droit, temporisation de manoeuvre en 1/10eme de seconde ,
|
||||
/ 0=pilotage normal 1=pilotage inversé
|
||||
/ une position différente de 1 ou 2 sera à 1. Une temporisation de 0 sera à 5.
|
||||
/ la liste doit être terminée par 0,0,0
|
||||
1,2,3,0
|
||||
2,2,3,0
|
||||
3,2,3,0
|
||||
4,2,3,0
|
||||
5,1,3,0
|
||||
6,2,3,0
|
||||
7,1,3,0
|
||||
8,2,3,0
|
||||
9,2,3,0
|
||||
10,2,3,0
|
||||
11,2,3,0
|
||||
12,1,3,0
|
||||
13,1,3,0
|
||||
14,1,3,0
|
||||
15,1,3,0
|
||||
16,1,4,0
|
||||
17,1,3,0
|
||||
18,2,4,0
|
||||
19,1,4,0
|
||||
20,2,4,0
|
||||
21,2,3,0
|
||||
22,1,3,0
|
||||
23,1,3,0
|
||||
24,1,3,0
|
||||
25,1,3,0
|
||||
26,2,3,0
|
||||
27,2,3,0
|
||||
28,2,3,0
|
||||
29,2,3,0
|
||||
30,2,3,0
|
||||
31,1,3,0
|
||||
32,1,3,0
|
||||
[section_init]
|
||||
77,2,3,0
|
||||
78,2,3,0
|
||||
79,2,3,0
|
||||
81,2,3,0
|
||||
82,2,3,0
|
||||
83,2,3,0
|
||||
84,2,3,0
|
||||
85,2,3,0
|
||||
86,2,3,0
|
||||
87,2,3,0
|
||||
88,2,3,0
|
||||
89,2,3,0
|
||||
90,2,3,0
|
||||
91,2,3,0
|
||||
92,2,3,0
|
||||
93,2,3,0
|
||||
94,2,3,0
|
||||
95,2,3,0
|
||||
96,2,3,0
|
||||
97,2,3,0
|
||||
98,2,3,0
|
||||
99,2,3,0
|
||||
100,2,3,0
|
||||
101,2,3,0
|
||||
102,2,3,0
|
||||
103,2,3,0
|
||||
104,2,3,0
|
||||
105,2,3,0
|
||||
106,2,3,0
|
||||
107,2,3,0
|
||||
108,2,3,0
|
||||
109,2,3,0
|
||||
110,2,3,0
|
||||
111,2,3,0
|
||||
112,2,3,0
|
||||
113,2,3,0
|
||||
114,2,3,0
|
||||
115,2,3,0
|
||||
116,2,3,0
|
||||
117,2,3,0
|
||||
118,2,3,0
|
||||
119,2,3,0
|
||||
120,2,3,0
|
||||
121,2,3,0
|
||||
122,2,3,0
|
||||
123,2,3,0
|
||||
124,2,3,0
|
||||
125,2,3,0
|
||||
126,2,3,0
|
||||
127,2,3,0
|
||||
128,2,3,0
|
||||
128,2,3,0
|
||||
130,2,3,0
|
||||
131,2,3,0
|
||||
132,2,3,0
|
||||
133,2,3,0
|
||||
134,2,3,0
|
||||
135,2,3,0
|
||||
136,2,3,0
|
||||
0,0,0,0
|
||||
/
|
||||
|
||||
/
|
||||
+127
-97
@@ -1,128 +1,158 @@
|
||||
/******************************************
|
||||
/ fichier de configuration de signaux complexes
|
||||
/ cap de bouheyre avec signaux - 2018
|
||||
/****************************************
|
||||
/ fichier de configuration de signaux_complexes
|
||||
/ JFP - 2020 - nouvelles tjd
|
||||
/******************************************
|
||||
/ Sans Log=0 / Avec Log=1 : génère un fichier log
|
||||
Log=0
|
||||
/ Affichage du débug du calcul des routes, et enregistrement dans le log si la variable précédente est à 1
|
||||
TraceDet=0
|
||||
/ si 1 envoie un 0 après le pilotage des décodeurs LEB
|
||||
/ Envoie un 0 après le pilotage des décodeurs LEB
|
||||
RazSignaux=0
|
||||
/
|
||||
/ modélisation des aiguillages : détermine les éléments connectés aux 3 branches des aiguilles (Pointe, Droit, Dévié (S)
|
||||
/ adresse d'aiguillage[B],P=élément vers pointe D=élément vers Droit, S=élément vers dévié
|
||||
/ B pour adresse d'aiguillage déja utilisée
|
||||
/ Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse [TRI,TJS,TJD]+branche de connexion (P S ou D)
|
||||
/ Exemples : 1,P518,D523,S3P signifie : définition de l'aiguillage @1 : sur pointe relié au détecteur 518
|
||||
/ adresse d'aiguillage [TJS,TJD,TRI],P=élément vers pointe D=élément vers Droit, S=élément vers dévié, INV si aiguillage inversé
|
||||
/ Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse+branche de connexion (P S ou D)
|
||||
/ Exemple : 1,P518,D523,S3P signifie : définition de l'aiguillage @1 : sur pointe relié au détecteur 518
|
||||
/ sur Droit relié au détecteur 518
|
||||
/ sur Dévié, relié à l'aiguillage 3 en pointe
|
||||
/ Voir la documentation des signaux complexes pour une description complete
|
||||
/ Pour une TJD : 26TJD,D(connectD,DirectionD),S(connectS,DirectionS)
|
||||
/
|
||||
/ S'il n'y a pas de détecteur connecté à une branche d'aiguillage, mettre 0.
|
||||
1,S1BS,P2P,D3P,0
|
||||
1B,P553,D16P,S1S
|
||||
2,P1P,D4P,S2BS
|
||||
2B,P521,D16D,S2S
|
||||
3,P1D,D522,S5BP
|
||||
4,P2D,D554,S6BP
|
||||
5,P9P,S15P,D5BS
|
||||
5B,P3S,S5D,D545,0,1
|
||||
6,P10P,S546,D6BS
|
||||
6B,P4S,D545,S6D
|
||||
7,P15S,D566,S565
|
||||
8,P20P,D566,S565
|
||||
9,P5P,D530,S17P
|
||||
10,P6P,D530,S18P
|
||||
13,P17S,D563,S564
|
||||
14,P18S,D563,S564
|
||||
15,P5S,D546,S7P
|
||||
16,P1BD,S16BS,D2BD
|
||||
16B,P0,S16S,D557
|
||||
17,P9S,D531,S13P
|
||||
18,P10S,D562,S14P
|
||||
20,P8P,D547,S548
|
||||
21,P25P,S537,D23S
|
||||
22,P24P,S561,D25S
|
||||
23,P569,S21D,D538
|
||||
24,P22P,S26P,D513
|
||||
25,P21P,S22D,D570
|
||||
26,P24S,S515,D514
|
||||
28,P30P,S29P,D570
|
||||
29,P28S,D516,S31P
|
||||
30,P28P,D32S,S539
|
||||
31TRI,27,P29S,D518,S0,S2-517
|
||||
32,P571,D538,S30D
|
||||
/77TJD,P78,D599,S600
|
||||
/78TJD,P77,D598,S79D
|
||||
77TJD,D(599,78D),S(600,78S),I1
|
||||
78TJD,D(598,S77D),S(79D,77S),I1
|
||||
79,P601,D78S,S597
|
||||
81,P515,D513,S82S
|
||||
82,P83P,D516,S81S
|
||||
83,P82P,D514,S517
|
||||
85,P524,D89D,S86D
|
||||
86,P87P,D85S,S525
|
||||
87,P86P,D88P,S89S
|
||||
88,P87D,D548,S94D
|
||||
89TJD,D(85D,90D),S(87S,90S),I1
|
||||
90TJD,D(547,89D),S(91S,89S),I1
|
||||
/89TJD,P90,D85D,S87S
|
||||
/90TJD,P89,D547,S91S
|
||||
/91TJD,P92,D540,S90S
|
||||
/92TJD,P91,D546,S96S
|
||||
91TJD,D(540,92D),S(90S,92S),I1
|
||||
92TJD,D(546,91D),S(96S,91S),I1
|
||||
/93TJD,P94,D95S,S549
|
||||
/94TJD,P93,D88S,S542
|
||||
93TJD,D(88S,94D),S(542,94S)
|
||||
94TJD,D(549,93D),S(95S,93S)
|
||||
95,P97S,D543,S93D
|
||||
96,P545,D538,S92S
|
||||
97,P102S,D544,S95P
|
||||
98,P550,D555,S101S
|
||||
99,P101D,D551,S100D
|
||||
100,P552,D99S,S553
|
||||
101,P556,D99P,S98S
|
||||
102,P103D,D557,S97P
|
||||
/103TJD,P104,D102P,S563
|
||||
/104TJD,P103,D564,S109D
|
||||
103TJD,D(102P,104D),S(563,104S),I1
|
||||
104TJD,D(564,103D),S(109D,103S),I1
|
||||
105,P558,D106P,S107D
|
||||
106,P105D,D566,S568
|
||||
/107TJD,P108,D105S,S559
|
||||
/108TJD,P107,D110S,S581
|
||||
107TJD,D(105S,108D),S(559,108S),I1
|
||||
108TJD,D(110S,107D),S(581,107S),I1
|
||||
109,P112S,D104S,S562
|
||||
110,P111P,S108D,D560
|
||||
111,P110P,D589,S113S
|
||||
112,P113D,D561,S109P
|
||||
113,P590,D112P,S111S
|
||||
114,P603,D115P,S604
|
||||
115,P114D,D116S,S606
|
||||
116,P607,D605,S115D
|
||||
117,P602,D591,S118P
|
||||
118,P117S,D119P,S592
|
||||
119,P118D,D120P,S593
|
||||
120,P119D,D595,S594
|
||||
121,P122D,D588,S587
|
||||
122,P123D,D121P,S586
|
||||
123,P124S,D122P,S585
|
||||
124,P583,D584,S123P
|
||||
125,P579,D577,S578
|
||||
126,P580,D569,S127P
|
||||
127,P126S,D128P,S570
|
||||
128,P127D,D129P,S571
|
||||
129,P128D,D130P,S572
|
||||
130,P129D,D574,S573
|
||||
131,P132D,D529,S530
|
||||
132,P133D,D131P,S531
|
||||
133,P134D,D132P,S532
|
||||
134,P135D,D133P,S533
|
||||
135,P523,D134p,S534
|
||||
136,P522,D535,S536
|
||||
0
|
||||
//
|
||||
/
|
||||
/ modélisation du réseau par branche
|
||||
/ 1 ligne par branche - le sens de parcours de la description n'a pas d'importance.
|
||||
/ Chaque ligne (branche) doit comporter au moins un détecteur et au moins aiguillage
|
||||
/ 1 ligne par branche - le sens de parcours de la branche est arbitraire.
|
||||
/ Chaque ligne (branche) doit commmencer et finir par un aiguilage ou un buttoir (0)
|
||||
/ @ détecteur A=@aiguillage
|
||||
/ chaque ligne doit commencer par un aiguillage et se terminer par un aiguillage
|
||||
/ Terminer par les brances par 0
|
||||
/ Exemple : 519 est un détecteur - A2 est l'aiguillage 2 - A1B est l'aiguillage 1bis
|
||||
/ Terminer par 0
|
||||
/ Exemple : 519 est un détecteur - A2 est l'aiguillage 2
|
||||
/
|
||||
/ rouge - jaune
|
||||
A20,547,561,A22,A24,A26,515,518,A31,A29,A28,A30,539,522,A3,A1,A2,A4,A6B,545,A5B,A3
|
||||
A26,514,517,A31
|
||||
A26,515,518,A31
|
||||
A24,513,516,A29
|
||||
/grande boucle extérieure départ de couche rouge: de 569 à 569
|
||||
A23,538,A32,571,553,A1B,A16,A2B,521,569,A23
|
||||
/ grande boucle intérieure
|
||||
A21,A25,570,A28
|
||||
A4,554,537,A21
|
||||
/ couche jaune
|
||||
A10,530,A9,A5,A15,546,A6
|
||||
A18,562,531,A17
|
||||
A14,563,A13
|
||||
A14,564,A13
|
||||
/
|
||||
A7,565,A8
|
||||
A7,566,A8
|
||||
A16B,557,0
|
||||
A20S,548,0
|
||||
A83,514,518,520,524,A85,A89,A90,547,560,A110,A111,589,597,A79
|
||||
A77,599,590,A113,A112,561,548,A88,A87,A86,525,521,519,513,A81
|
||||
A106,A105,558,545,A96,538,537,0
|
||||
A108,581,582,0
|
||||
A107,559,546,A92,A91,537,540,0
|
||||
A112,A109,562,549,A93,A94,542,541,0
|
||||
A104,564,565,0
|
||||
A103,A102,A97,A95,543,528,0
|
||||
A97,544,0
|
||||
A102,557,555,A98,550,0
|
||||
A103,563,556,A101,A99,551,0
|
||||
A99,A100,552,0
|
||||
A100,553,554,0
|
||||
A106,566,567,0
|
||||
A106,568,603,A114,604,0
|
||||
A114,A115,606,608,0
|
||||
A115,A116,607,0
|
||||
A116,605,0
|
||||
A135,534,574,A130
|
||||
A134,533,573,A130
|
||||
A133,532,572,A129
|
||||
A132,531,571,A128
|
||||
A131,530,570,A127
|
||||
A82,516,527,576,580,A126,569,529,A131,A132,A133,A134,A135,523,515,A81
|
||||
A136,536,578,A125
|
||||
A77,600,579,A125,577,535,A136,522,517,A83
|
||||
A79,601,596,583,A124,584,595,A120,A119,A118,A117,602,598,A78
|
||||
A117,591,588,A121
|
||||
A118,592,587,A121
|
||||
A119,593,586,A122
|
||||
A120,594,585,A123
|
||||
0
|
||||
/
|
||||
/ liste des signaux
|
||||
/ liste signaux
|
||||
/ la liste doit être terminée par une adresse à 0
|
||||
/ forme : 2=2 feux(carré violet/blanc) / 3=3 feux / 4=4 feux (carré) / 5=5 feux (carré + blanc)
|
||||
/ 7=7 feux (carré+blanc + ralentissement / 9=9 feux (blanc ou violet + rappel ralentissement)
|
||||
/ type de décodeur : 0=feu virtuel 1=digital Bahn 2=CDF 3=LDT 4=LEB
|
||||
/ type de décodeur : 0=virtuel 1=digital Bahn 2=CDF 3=LDT 4=LEB 5=NMRA 6=Unisemaf Paco
|
||||
/ l'énumération des détecteurs ne nécessite pas de parenthèses si il est seul, mais il faut des parenthèses si
|
||||
/ le signal concerne plusieurs voies (donc détecteurs)
|
||||
/ Notation de chaque ligne:
|
||||
/ adresse de base du signal, forme, réserve, type de décodeur [, (détecteur,..detecteur , élément suivant ..) ,
|
||||
/ avec ou sans demande de verrouillage du feu au carré (0 ou 1)]
|
||||
161,4,0,4,(538,A32),0
|
||||
169,9,0,4,(539,A30),0,
|
||||
177,9,0,4,(569,A23),0
|
||||
185,4,0,4,(570,A25),0
|
||||
193,4,0,4,(516,A29),0
|
||||
201,2,0,4,(517,31TRI,518,31TRI),0
|
||||
209,9,0,4,(513,A24),0
|
||||
217,2,0,4,(514,A26,515,A26),0
|
||||
225,9,0,4,(561,A22),0
|
||||
233,4,0,4,(547,A20),0
|
||||
241,4,0,4,(548,A20),1
|
||||
1001,3,0,0,(537,554),0
|
||||
1003,3,0,0,(553,A1B),0
|
||||
1005,3,0,0,(571,553),0
|
||||
1007,3,0,0,(554,A4),0
|
||||
1009,3,0,0,(522,539),0
|
||||
1011,3,0,0,(521,569),0
|
||||
1013,3,0,0,(565,A7),0
|
||||
1015,3,0,0,(562,A18),0
|
||||
1017,3,0,0,(563,A14),0
|
||||
1019,3,0,0,(564,A14),0
|
||||
197,3,0,6,(598,A78),1,3
|
||||
201,4,0,6,(597,A79),1,4
|
||||
205,9,0,6,(590,A113),1,93
|
||||
209,9,0,6,(560,A110),1,92
|
||||
213,9,0,6,(548,A88),1,92
|
||||
217,9,0,6,(524,A85),1,93
|
||||
221,7,0,6,(518,520),1,73
|
||||
225,3,0,6,(521,519),1,3
|
||||
229,9,0,6,(516,A82),1,92
|
||||
233,4,0,6,(513,A81),1,92
|
||||
0
|
||||
/
|
||||
/ Fonctions Fx à envoyer aux locomotives sur passage d'un actionneur
|
||||
/ Uniquement en mode connecté à CDM
|
||||
/ actionneur,état,Nom de la loco,fonction,temporisation en ms avant remise à 0
|
||||
/815,1,CC406526,F2,400
|
||||
/(815,830),(820,840),PN(121+,121-)
|
||||
/(815,809),PN(121+,121-)
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
+1
-1
@@ -23,7 +23,7 @@ var
|
||||
Lance_verif : integer;
|
||||
verifVersion,notificationVersion : boolean;
|
||||
|
||||
Const Version='1.75'; // sert à la comparaison de la version publiée
|
||||
Const Version='2.0'; // sert à la comparaison de la version publiée
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
+5
-1
@@ -28,7 +28,11 @@ version 1.73 : Am
|
||||
Affichage d'aide sur les éléments décrits dans le panneau de configuration
|
||||
version 1.74 : Amélioration des affichages du TCO - Pilotage des aiguillages depuis le TCO - Amélioration du séquençage d'ouverture de CDM Rail
|
||||
Version 1.75 : conditions supplémentaires permettant l'affichage d'un carré sur un signal en fonction des aiguillages dans le fichier config.cfg
|
||||
|
||||
version 1.76 : Modification des aiguillages modélisés depuis le menu de configuration générale
|
||||
Les aiguillages BIS ne sont plus supportés car ils induisent des erreurs.
|
||||
Correction d'un bug sur les feux dont l'élément suivant est un détecteur
|
||||
version 2.0 : Changement de description des TJD
|
||||
Amélioration de l'algorithme des routes
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user