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

V2.0

Browse Source
This commit is contained in:
f1iwq2
2020-10-11 11:40:24 +02:00
parent 933f55330f
commit 1e91ee0126
21 changed files with 2917 additions and 1362 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Notice d'utilisation des signaux_complexes_GL_V1.75.pdf
BIN
View File
Binary file not shown.
Notice d'utilisation des signaux_complexes_GL_V2.00.pdf
BIN
View File
Binary file not shown.
UnitConfig.dfm
+454 -81
View File
@@ -1,6 +1,6 @@
object FormConfig: TFormConfig object FormConfig: TFormConfig
Left = 226 Left = 305
Top = 188 Top = 330
Hint = Hint =
'Modifie les fichiers de configuration selon les s'#233'lections chois' + 'Modifie les fichiers de configuration selon les s'#233'lections chois' +
'ies' 'ies'
@@ -22,17 +22,16 @@ object FormConfig: TFormConfig
TextHeight = 13 TextHeight = 13
object LabelInfo: TLabel object LabelInfo: TLabel
Left = 601 Left = 601
Top = 432 Top = 416
Width = 13 Width = 29
Height = 16 Height = 16
Caption = '- ' Caption = '- -'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
Font.Name = 'Arial Narrow' Font.Name = 'Arial Narrow'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
WordWrap = True
end end
object Image1: TImage object Image1: TImage
Left = 600 Left = 600
@@ -1231,7 +1230,7 @@ object FormConfig: TFormConfig
end end
object ImageTJD: TImage object ImageTJD: TImage
Left = 720 Left = 720
Top = 336 Top = 320
Width = 137 Width = 137
Height = 57 Height = 57
Picture.Data = { Picture.Data = {
@@ -1366,8 +1365,8 @@ object FormConfig: TFormConfig
Visible = False Visible = False
end end
object ImageTri: TImage object ImageTri: TImage
Left = 624 Left = 592
Top = 344 Top = 360
Width = 145 Width = 145
Height = 65 Height = 65
Picture.Data = { Picture.Data = {
@@ -1543,6 +1542,208 @@ object FormConfig: TFormConfig
Height = 13 Height = 13
Caption = 'Verrouillable au carr'#233' :' Caption = 'Verrouillable au carr'#233' :'
end 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 object ButtonAppliquerEtFermer: TButton
Left = 384 Left = 384
Top = 440 Top = 440
@@ -1568,7 +1769,7 @@ object FormConfig: TFormConfig
Top = 8 Top = 8
Width = 585 Width = 585
Height = 417 Height = 417
ActivePage = TabSheet3 ActivePage = TabSheetAig
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBackground Font.Color = clBackground
Font.Height = -11 Font.Height = -11
@@ -1576,6 +1777,7 @@ object FormConfig: TFormConfig
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
OnChange = PageControlChange
object TabSheetCDM: TTabSheet object TabSheetCDM: TTabSheet
Caption = 'CDM Rail' Caption = 'CDM Rail'
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
@@ -2105,7 +2307,7 @@ object FormConfig: TFormConfig
end end
end end
end end
object TabSheet1: TTabSheet object TabSheetAig: TTabSheet
Caption = 'Aiguillages' Caption = 'Aiguillages'
ImageIndex = 2 ImageIndex = 2
object Label12: TLabel object Label12: TLabel
@@ -2117,32 +2319,20 @@ object FormConfig: TFormConfig
'Liste de mod'#233'lisation des aiguillages du fichier config.cfg - cl' + 'Liste de mod'#233'lisation des aiguillages du fichier config.cfg - cl' +
'iquez sur une ligne pour afficher la description de l'#39'aiguillage' 'iquez sur une ligne pour afficher la description de l'#39'aiguillage'
end end
object MemoAig: TMemo object Label28: TLabel
Left = 0 Left = 88
Top = 24 Top = 208
Width = 273 Width = 52
Height = 361 Height = 13
Color = clInfoText Caption = 'LabelTJD1'
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
end end
object GroupBox11: TGroupBox object GroupBox11: TGroupBox
Left = 280 Left = 280
Top = 32 Top = 32
Width = 289 Width = 289
Height = 233 Height = 265
Caption = 'Description de l'#39'aiguillage' Caption = 'Description de l'#39'aiguillage'
TabOrder = 1 TabOrder = 0
object LabelAdresse: TLabel object LabelAdresse: TLabel
Left = 37 Left = 37
Top = 20 Top = 20
@@ -2219,7 +2409,7 @@ object FormConfig: TFormConfig
Top = 142 Top = 142
Width = 9 Width = 9
Height = 16 Height = 16
Caption = 'P' Caption = 'D'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -13 Font.Height = -13
@@ -2240,6 +2430,20 @@ object FormConfig: TFormConfig
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object GroupBox10: TGroupBox
Left = 40 Left = 40
Top = 64 Top = 64
@@ -2254,6 +2458,7 @@ object FormConfig: TFormConfig
Height = 17 Height = 17
Caption = 'sans' Caption = 'sans'
TabOrder = 0 TabOrder = 0
OnClick = RadioButtonsansClick
end end
object RadioButton30kmh: TRadioButton object RadioButton30kmh: TRadioButton
Left = 24 Left = 24
@@ -2262,6 +2467,7 @@ object FormConfig: TFormConfig
Height = 17 Height = 17
Caption = '30 km/h' Caption = '30 km/h'
TabOrder = 1 TabOrder = 1
OnClick = RadioButton30kmhClick
end end
object RadioButton60kmh: TRadioButton object RadioButton60kmh: TRadioButton
Left = 24 Left = 24
@@ -2270,6 +2476,7 @@ object FormConfig: TFormConfig
Height = 17 Height = 17
Caption = '60 km/h' Caption = '60 km/h'
TabOrder = 2 TabOrder = 2
OnClick = RadioButton60kmhClick
end end
end end
object EditDroit_BD: TEdit object EditDroit_BD: TEdit
@@ -2279,6 +2486,7 @@ object FormConfig: TFormConfig
Height = 21 Height = 21
TabOrder = 1 TabOrder = 1
Text = 'EditDroit_BD' Text = 'EditDroit_BD'
OnChange = EditDroit_BDChange
end end
object EditDevie_HD: TEdit object EditDevie_HD: TEdit
Left = 240 Left = 240
@@ -2287,6 +2495,7 @@ object FormConfig: TFormConfig
Height = 21 Height = 21
TabOrder = 2 TabOrder = 2
Text = 'EditDevie_HD' Text = 'EditDevie_HD'
OnChange = EditDevie_HDChange
end end
object EditPointe_BG: TEdit object EditPointe_BG: TEdit
Left = 32 Left = 32
@@ -2295,22 +2504,23 @@ object FormConfig: TFormConfig
Height = 21 Height = 21
TabOrder = 3 TabOrder = 3
Text = 'EditPointe_BG' Text = 'EditPointe_BG'
OnChange = EditPointe_BGChange
end end
object EditP1: TEdit object EditP1: TEdit
Left = 88 Left = 112
Top = 204 Top = 148
Width = 41 Width = 33
Height = 21 Height = 21
TabOrder = 4 TabOrder = 4
Text = 'EditPointe' Text = 'EditDDroit'
end end
object EditP2: TEdit object EditP2: TEdit
Left = 144 Left = 112
Top = 204 Top = 172
Width = 41 Width = 33
Height = 21 Height = 21
TabOrder = 5 TabOrder = 5
Text = 'EditPointe' Text = 'EditDdevie'
end end
object EditDevieS2: TEdit object EditDevieS2: TEdit
Left = 240 Left = 240
@@ -2319,18 +2529,56 @@ object FormConfig: TFormConfig
Height = 21 Height = 21
TabOrder = 6 TabOrder = 6
Text = 'EditDevie_HD' 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
end end
object Edit_HG: TEdit object Edit_HG: TEdit
Left = 296 Left = 312
Top = 172 Top = 172
Width = 41 Width = 41
Height = 21 Height = 21
TabOrder = 2 TabOrder = 1
Text = 'EditPointe' Text = 'EditPointe'
end 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 end
object TabSheet2: TTabSheet object TabSheetBranches: TTabSheet
Caption = 'Branches' Caption = 'Branches'
ImageIndex = 3 ImageIndex = 3
object Label14: TLabel object Label14: TLabel
@@ -2358,7 +2606,7 @@ object FormConfig: TFormConfig
WordWrap = False WordWrap = False
end end
end end
object TabSheet3: TTabSheet object TabSheetSig: TTabSheet
Caption = 'Signaux' Caption = 'Signaux'
ImageIndex = 4 ImageIndex = 4
object Label15: TLabel object Label15: TLabel
@@ -2370,31 +2618,13 @@ object FormConfig: TFormConfig
'Liste de mod'#233'lisation des signaux du fichier config.cfg - clique' + 'Liste de mod'#233'lisation des signaux du fichier config.cfg - clique' +
'z sur une ligne pour afficher la description du signal' 'z sur une ligne pour afficher la description du signal'
end 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 object GroupBox12: TGroupBox
Left = 304 Left = 288
Top = 40 Top = 40
Width = 257 Width = 281
Height = 313 Height = 313
Caption = 'Description du signal' Caption = 'Description du signal'
TabOrder = 1 TabOrder = 0
object ImageSignal: TImage object ImageSignal: TImage
Left = 8 Left = 8
Top = 72 Top = 72
@@ -2416,51 +2646,194 @@ object FormConfig: TFormConfig
end end
object LabelDec: TLabel object LabelDec: TLabel
Left = 80 Left = 80
Top = 72 Top = 52
Width = 53 Width = 53
Height = 13 Height = 13
Caption = 'D'#233'codeur: ' Caption = 'D'#233'codeur: '
end end
object LabelDetAss: TLabel object LabelDetAss: TLabel
Left = 80 Left = 80
Top = 88 Top = 72
Width = 86 Width = 86
Height = 13 Height = 13
Caption = 'D'#233'tecteur associ'#233 Caption = 'D'#233'tecteur associ'#233
end end
object LabelElSuiv: TLabel object LabelElSuiv: TLabel
Left = 80 Left = 176
Top = 104 Top = 72
Width = 75 Width = 75
Height = 13 Height = 13
Caption = 'Element suivant' Caption = 'Element suivant'
end end
object LabelVerrou: TLabel
Left = 80
Top = 120
Width = 105
Height = 13
Caption = 'Verrouillable au carr'#233' :'
end
object Label17: TLabel object Label17: TLabel
Left = 80 Left = 8
Top = 144 Top = 216
Width = 131 Width = 131
Height = 26 Height = 26
Caption = 'Conditions suppl'#233'mentaires d'#39'affichage du carr'#233' :' Caption = 'Conditions suppl'#233'mentaires d'#39'affichage du carr'#233' :'
WordWrap = True WordWrap = True
end 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 object MemoCarre: TMemo
Left = 8 Left = 8
Top = 184 Top = 248
Width = 241 Width = 241
Height = 97 Height = 49
ReadOnly = True ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
end 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
end end
object TabSheet4: TTabSheet object TabSheetAct: TTabSheet
Caption = 'Actionneurs' Caption = 'Actionneurs'
ImageIndex = 5 ImageIndex = 5
object Label16: TLabel object Label16: TLabel
UnitConfig.pas
+797 -106
View File
File diff suppressed because it is too large Load Diff
UnitConfigTCO.dcu
BIN
View File
Binary file not shown.
UnitDebug.dcu
BIN
View File
Binary file not shown.
UnitDebug.dfm
+250 -131
View File
@@ -1,10 +1,9 @@
object FormDebug: TFormDebug object FormDebug: TFormDebug
Left = 241 Left = 186
Top = 150 Top = 143
BorderStyle = bsSingle Width = 809
Height = 773
Caption = 'Fen'#234'tre de d'#233'bug' Caption = 'Fen'#234'tre de d'#233'bug'
ClientHeight = 639
ClientWidth = 789
Color = clWindow Color = clWindow
TransparentColorValue = clTeal TransparentColorValue = clTeal
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@@ -16,13 +15,17 @@ object FormDebug: TFormDebug
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
DesignSize = (
793
735)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Label1: TLabel object Label1: TLabel
Left = 616 Left = 609
Top = 15 Top = 7
Width = 108 Width = 108
Height = 13 Height = 13
Anchors = [akTop, akRight]
Caption = 'Niveau du Debug (0-3)' Caption = 'Niveau du Debug (0-3)'
Color = clWhite Color = clWhite
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@@ -34,10 +37,11 @@ object FormDebug: TFormDebug
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 448 Left = 441
Top = 12 Top = 4
Width = 131 Width = 131
Height = 18 Height = 18
Anchors = [akTop, akRight]
Caption = 'Fen'#234'tre de d'#233'bug' Caption = 'Fen'#234'tre de d'#233'bug'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@@ -47,10 +51,11 @@ object FormDebug: TFormDebug
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 448 Left = 441
Top = 168 Top = 168
Width = 97 Width = 97
Height = 193 Height = 193
Anchors = [akTop, akRight]
AutoSize = False AutoSize = False
Caption = 'Label3' Caption = 'Label3'
Color = clGray Color = clGray
@@ -64,10 +69,11 @@ object FormDebug: TFormDebug
WordWrap = True WordWrap = True
end end
object EditNivDebug: TEdit object EditNivDebug: TEdit
Left = 728 Left = 721
Top = 12 Top = 4
Width = 49 Width = 49
Height = 21 Height = 21
Anchors = [akTop, akRight]
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -11 Font.Height = -11
@@ -79,10 +85,11 @@ object FormDebug: TFormDebug
OnKeyPress = EditNivDebugKeyPress OnKeyPress = EditNivDebugKeyPress
end end
object MemoEvtDet: TMemo object MemoEvtDet: TMemo
Left = 552 Left = 545
Top = 408 Top = 408
Width = 233 Width = 233
Height = 221 Height = 221
Anchors = [akTop, akRight]
Color = clBlack Color = clBlack
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clYellow Font.Color = clYellow
@@ -97,197 +104,309 @@ object FormDebug: TFormDebug
TabOrder = 1 TabOrder = 1
end end
object ButtonEcrLog: TButton object ButtonEcrLog: TButton
Left = 448 Left = 441
Top = 504 Top = 504
Width = 97 Width = 97
Height = 29 Height = 29
Anchors = [akTop, akRight]
Caption = 'Sauvegarder le log' Caption = 'Sauvegarder le log'
TabOrder = 2 TabOrder = 2
OnClick = ButtonEcrLogClick OnClick = ButtonEcrLogClick
end end
object MemoDebug: TMemo object MemoDebug: TMemo
Left = 0 Left = 0
Top = 0 Top = 8
Width = 433 Width = 426
Height = 625 Height = 722
Anchors = [akLeft, akTop, akRight, akBottom]
Lines.Strings = ( Lines.Strings = (
'MemoDebug') 'MemoDebug')
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 3 TabOrder = 3
WordWrap = False WordWrap = False
end 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 object ButtonRazTampon: TButton
Left = 448 Left = 441
Top = 576 Top = 584
Width = 97 Width = 97
Height = 33 Height = 33
Caption = 'Raz Tampon Ev'#232'nements' Anchors = [akTop, akRight]
TabOrder = 5 Caption = 'Raz Tampon Ev'#232'nements ---->'
TabOrder = 4
WordWrap = True WordWrap = True
OnClick = ButtonRazTamponClick OnClick = ButtonRazTamponClick
end end
object ButtonCherche: TButton object ButtonCherche: TButton
Left = 448 Left = 441
Top = 464 Top = 464
Width = 97 Width = 97
Height = 33 Height = 33
Anchors = [akTop, akRight]
Caption = 'Chercher erreurs' Caption = 'Chercher erreurs'
TabOrder = 6 TabOrder = 5
OnClick = ButtonChercheClick OnClick = ButtonChercheClick
end end
object ButtonAffEvtChrono: TButton object ButtonAffEvtChrono: TButton
Left = 448 Left = 441
Top = 424 Top = 424
Width = 97 Width = 97
Height = 33 Height = 33
Anchors = [akTop, akRight]
Caption = 'Affiche Evts d'#233'tecteurs et aig' Caption = 'Affiche Evts d'#233'tecteurs et aig'
TabOrder = 7 TabOrder = 6
WordWrap = True WordWrap = True
OnClick = ButtonAffEvtChronoClick OnClick = ButtonAffEvtChronoClick
end 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 object ButtonCop: TButton
Left = 448 Left = 441
Top = 368 Top = 368
Width = 97 Width = 97
Height = 49 Height = 49
Anchors = [akTop, akRight]
Caption = 'Copie fen'#234'te principale dans debug' Caption = 'Copie fen'#234'te principale dans debug'
TabOrder = 10 TabOrder = 7
WordWrap = True WordWrap = True
OnClick = ButtonCopClick OnClick = ButtonCopClick
end end
object RichEdit: TRichEdit object RichEdit: TRichEdit
Left = 552 Left = 545
Top = 168 Top = 168
Width = 233 Width = 233
Height = 233 Height = 233
Anchors = [akTop, akRight]
HideScrollBars = False HideScrollBars = False
PopupMenu = PopupMenuRE PopupMenu = PopupMenuRE
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 11 TabOrder = 8
end end
object ButtonRazLog: TButton object ButtonRazLog: TButton
Left = 448 Left = 441
Top = 544 Top = 544
Width = 97 Width = 97
Height = 25 Height = 33
Caption = 'Raz Tampon Log' Anchors = [akTop, akRight]
TabOrder = 12 Caption = 'Raz Tampon Log <-----'
TabOrder = 9
WordWrap = True
OnClick = ButtonRazLogClick OnClick = ButtonRazLogClick
end end
object CheckBoxAct: TCheckBox object GroupBox1: TGroupBox
Left = 448 Left = 441
Top = 64 Top = 633
Width = 257 Width = 353
Height = 17 Height = 97
Caption = 'Affichage des '#233'v'#232'vements actionneurs' Anchors = [akRight, akBottom]
Caption = 'Fonctions primitives'
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlue
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.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [] Font.Style = []
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 10
OnClick = CheckBoxAffFDClick 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 end
object CheckBoxAffDebDecSig: TCheckBox object GroupBox2: TGroupBox
Left = 448 Left = 433
Top = 128 Top = 24
Width = 321 Width = 345
Height = 17 Height = 137
Caption = 'Affichage du pilotage des d'#233'codeurs de signaux' Anchors = [akTop, akRight]
Caption = 'S'#233'lections d'#39'affichage'
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlue
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [] Font.Style = []
ParentColor = False
ParentFont = False ParentFont = False
TabOrder = 16 TabOrder = 11
OnClick = CheckBoxAffDebDecSigClick 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 end
object SaveDialog: TSaveDialog object SaveDialog: TSaveDialog
Left = 760 Left = 768
Top = 56 Top = 488
end end
object PopupMenuRE: TPopupMenu object PopupMenuRE: TPopupMenu
Left = 760 Left = 768
Top = 80 Top = 432
object copier1: TMenuItem object copier1: TMenuItem
Caption = 'copier' Caption = 'copier'
OnClick = copier1Click OnClick = copier1Click
UnitDebug.pas
+60 -7
View File
@@ -16,21 +16,29 @@ type
ButtonEcrLog: TButton; ButtonEcrLog: TButton;
Label3: TLabel; Label3: TLabel;
MemoDebug: TMemo; MemoDebug: TMemo;
CheckAffSig: TCheckBox;
ButtonRazTampon: TButton; ButtonRazTampon: TButton;
ButtonCherche: TButton; ButtonCherche: TButton;
ButtonAffEvtChrono: TButton; ButtonAffEvtChrono: TButton;
CheckBoxTraceLIste: TCheckBox;
CheckTrame: TCheckBox;
ButtonCop: TButton; ButtonCop: TButton;
RichEdit: TRichEdit; RichEdit: TRichEdit;
PopupMenuRE: TPopupMenu; PopupMenuRE: TPopupMenu;
copier1: TMenuItem; copier1: TMenuItem;
ButtonRazLog: TButton; ButtonRazLog: TButton;
CheckBoxAct: TCheckBox; GroupBox1: TGroupBox;
ButtonSigSuiv: TButton;
EditSigSuiv: TEdit;
EditPrec: TEdit;
EditActuel: TEdit;
ButtonDetSuiv: TButton;
GroupBox2: TGroupBox;
CheckAffSig: TCheckBox;
CheckBoxEvtDetAig: TCheckBox; CheckBoxEvtDetAig: TCheckBox;
CheckBoxTraceLIste: TCheckBox;
CheckTrame: TCheckBox;
CheckBoxAct: TCheckBox;
CheckBoxAffFD: TCheckBox; CheckBoxAffFD: TCheckBox;
CheckBoxAffDebDecSig: TCheckBox; CheckBoxAffDebDecSig: TCheckBox;
ButtonCanSuivSig: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ButtonEcrLogClick(Sender: TObject); procedure ButtonEcrLogClick(Sender: TObject);
@@ -48,6 +56,9 @@ type
procedure CheckBoxEvtDetAigClick(Sender: TObject); procedure CheckBoxEvtDetAigClick(Sender: TObject);
procedure CheckBoxAffFDClick(Sender: TObject); procedure CheckBoxAffFDClick(Sender: TObject);
procedure CheckBoxAffDebDecSigClick(Sender: TObject); procedure CheckBoxAffDebDecSigClick(Sender: TObject);
procedure ButtonSigSuivClick(Sender: TObject);
procedure ButtonDetSuivClick(Sender: TObject);
procedure ButtonCanSuivSigClick(Sender: TObject);
private private
{ Déclarations privées } { Déclarations privées }
public public
@@ -55,7 +66,7 @@ type
end; end;
Const Const
Max_Event_det_tick=10000; Max_Event_det_tick=30000;
Max_event_det=400; Max_event_det=400;
Max_Trains=50; Max_Trains=50;
@@ -112,8 +123,8 @@ procedure RE_ColorLine(ARichEdit : TRichEdit;ARow : Integer;AColor : TColor);
begin begin
with ARichEdit do with ARichEdit do
begin begin
SelStart:=SendMessage(Handle,EM_LINEINDEX,ARow-1,0); SelStart:=SendMessage(Handle,EM_LINEINDEX,ARow,0);
SelLength:=Length(Lines[ARow-1]); SelLength:=Length(Lines[ARow]);
SelAttributes.Color:=AColor; SelAttributes.Color:=AColor;
SelLength:=0; SelLength:=0;
end; end;
@@ -303,4 +314,46 @@ begin
end; 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. end.
UnitPilote.dcu
BIN
View File
Binary file not shown.
UnitPrinc.dcu
BIN
View File
Binary file not shown.
UnitPrinc.dfm
+30 -19
View File
@@ -1,6 +1,6 @@
object FormPrinc: TFormPrinc object FormPrinc: TFormPrinc
Left = 30 Left = 12
Top = 270 Top = 210
Width = 1212 Width = 1212
Height = 664 Height = 664
Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ' Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ'
@@ -18,7 +18,7 @@ object FormPrinc: TFormPrinc
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
DesignSize = ( DesignSize = (
1196 1179
606) 606)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
@@ -1188,7 +1188,7 @@ object FormPrinc: TFormPrinc
Visible = False Visible = False
end end
object LabelEtat: TLabel object LabelEtat: TLabel
Left = 456 Left = 439
Top = 16 Top = 16
Width = 152 Width = 152
Height = 18 Height = 18
@@ -1204,14 +1204,14 @@ object FormPrinc: TFormPrinc
object ListBox1: TListBox object ListBox1: TListBox
Left = 8 Left = 8
Top = 48 Top = 48
Width = 633 Width = 616
Height = 520 Height = 505
Style = lbOwnerDrawFixed Style = lbOwnerDrawFixed
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Color = clBlack Color = clBlack
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -16 Font.Height = 16
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ItemHeight = 16 ItemHeight = 16
@@ -1220,10 +1220,10 @@ object FormPrinc: TFormPrinc
OnDrawItem = ListBox1DrawItem OnDrawItem = ListBox1DrawItem
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 648 Left = 631
Top = 176 Top = 176
Width = 537 Width = 537
Height = 393 Height = 377
HorzScrollBar.Smooth = True HorzScrollBar.Smooth = True
HorzScrollBar.Tracking = True HorzScrollBar.Tracking = True
VertScrollBar.Smooth = True VertScrollBar.Smooth = True
@@ -1234,7 +1234,7 @@ object FormPrinc: TFormPrinc
TabOrder = 1 TabOrder = 1
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 648 Left = 631
Top = 0 Top = 0
Width = 249 Width = 249
Height = 129 Height = 129
@@ -1317,8 +1317,8 @@ object FormPrinc: TFormPrinc
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Top = 576 Top = 577
Width = 1196 Width = 1179
Height = 30 Height = 30
Panels = <> Panels = <>
SimplePanel = True SimplePanel = True
@@ -1334,7 +1334,7 @@ object FormPrinc: TFormPrinc
00020000802500000000080000000000000000003F00000011000000} 00020000802500000000080000000000000000003F00000011000000}
end end
object Panel1: TPanel object Panel1: TPanel
Left = 904 Left = 887
Top = 5 Top = 5
Width = 281 Width = 281
Height = 129 Height = 129
@@ -1428,7 +1428,7 @@ object FormPrinc: TFormPrinc
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 648 Left = 631
Top = 136 Top = 136
Width = 153 Width = 153
Height = 25 Height = 25
@@ -1456,6 +1456,22 @@ object FormPrinc: TFormPrinc
ParentFont = False ParentFont = False
end end
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 object Timer1: TTimer
Interval = 100 Interval = 100
OnTimer = Timer1Timer OnTimer = Timer1Timer
@@ -1481,11 +1497,6 @@ object FormPrinc: TFormPrinc
Hint = 'Affiche l'#39#233'tat des d'#233'tecteurs' Hint = 'Affiche l'#39#233'tat des d'#233'tecteurs'
OnClick = AffEtatDetecteurs OnClick = AffEtatDetecteurs
end 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 object Etatdesaiguillages1: TMenuItem
Caption = 'Etat des aiguillages' Caption = 'Etat des aiguillages'
OnClick = Etatdesaiguillages1Click OnClick = Etatdesaiguillages1Click
UnitPrinc.pas
+1062 -857
View File
File diff suppressed because it is too large Load Diff
UnitSimule.dcu
BIN
View File
Binary file not shown.
UnitSimule.pas
+17 -12
View File
@@ -53,6 +53,7 @@ begin
index_simule:=1; index_simule:=1;
repeat repeat
readln(fte,s); readln(fte,s);
Affiche(s,clLime);
i:=pos('Tick=',s); i:=pos('Tick=',s);
if i<>0 then if i<>0 then
begin begin
@@ -61,12 +62,14 @@ begin
if intervalle<>0 then k:=Index_Simule*Intervalle*10+tick+80 else // démarre dans 8s if intervalle<>0 then k:=Index_Simule*Intervalle*10+tick+80 else // démarre dans 8s
k:=Index_Simule+tick+80 ; k:=Index_Simule+tick+80 ;
Tablo_simule[index_simule].tick:=k; Tablo_simule[index_simule].tick:=k;
// détecteur? // détecteur?
i:=pos('Det=',s); i:=pos('Det',s);
if i<>0 then if i<>0 then
begin 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); val(s,k,erreur);
Tablo_simule[index_simule].detecteur:=k; Tablo_simule[index_simule].detecteur:=k;
i:=pos('=',s); i:=pos('=',s);
@@ -76,20 +79,22 @@ begin
val(s,k,erreur); val(s,k,erreur);
Tablo_simule[index_simule].etat:=k; Tablo_simule[index_simule].etat:=k;
{s:=IntToSTR(Index_simule)+' Tick='+intToSTR(Tablo_simule[index_simule].tick)+ //s:=IntToSTR(Index_simule)+' Tick='+intToSTR(Tablo_simule[index_simule].tick)+
' Detecteur='+intToSTR(Tablo_simule[index_simule].detecteur)+ // ' Detecteur='+intToSTR(Tablo_simule[index_simule].detecteur)+
'='+intToSTR(Tablo_simule[index_simule].etat); // '='+intToSTR(Tablo_simule[index_simule].etat);
Affiche(s,ClLime); } //Affiche(s,ClLime);
inc(index_simule); inc(index_simule);
end; end;
end; end;
// aiguillage? // aiguillage?
i:=pos('Aig=',s); i:=pos('Aig',s);
if i<>0 then if i<>0 then
begin 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); val(s,k,erreur);
Tablo_simule[index_simule].aiguillage:=k; Tablo_simule[index_simule].aiguillage:=k;
i:=pos('=',s); i:=pos('=',s);
@@ -116,10 +121,10 @@ begin
closeFile(fte); closeFile(fte);
formprinc.ButtonArretSimu.Visible:=true; formprinc.ButtonArretSimu.Visible:=true;
formprinc.ButtonArretSimu.top:=88; formprinc.ButtonArretSimu.top:=88;
FormSimulation.Close; FormSimulation.Close;
end; end;
Affiche('Fichier simulation : '+nF ,clyellow); Affiche('Fichier simulation : '+nF ,clyellow);
end; end;
UnitTCO.dcu
BIN
View File
Binary file not shown.
UnitTCO.pas
+6 -6
View File
@@ -2366,7 +2366,7 @@ begin
if aiguillage[adresse].Adevie=AdrSuiv then if aiguillage[adresse].Adevie=AdrSuiv then
Bimage:=4; // ou 4 Bimage:=4; // ou 4
// connecté sur pointe : la pointe est à droite // connecté sur pointe : la pointe est à droite
if aiguillage[adresse].Apointe=AdrSuiv then if aiguillage[adresse].Apointe=AdrSuiv then
Bimage:=5; // ou 2 Bimage:=5; // ou 2
TCO[i,ligne].BImage:=Bimage; TCO[i,ligne].BImage:=Bimage;
end; end;
@@ -2890,9 +2890,9 @@ begin
// tjd ou tjs // tjd ou tjs
if adresse<>0 then if adresse<>0 then
begin begin
pos:=aiguillage[adresse].position; //pos:=aiguillage[adresse].position;
pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD //pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
if (pos=const_droit) and (pos2=const_droit) then if (pos=const_droit) and (pos2=const_droit) then
begin begin
inc(x); inc(x);
end; end;
@@ -2921,8 +2921,8 @@ begin
if adresse<>0 then if adresse<>0 then
begin begin
pos:=aiguillage[adresse].position; pos:=aiguillage[adresse].position;
pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD //pos2:=aiguillage[aiguillage[adresse].Apointe].position; // 2eme adresse de la TJD
if (pos=const_droit) and (pos2=const_droit) then if (pos=const_droit) and (pos2=const_droit) then
begin begin
inc(x);inc(y); inc(x);inc(y);
end; end;
client-GL.cfg
+108 -44
View File
@@ -1,6 +1,6 @@
/****************************************** /******************************************
/ fichier de configuration de client-GL.log / fichier de configuration de client-GL.log
/ gily - f1iwq - 2018 / JFP - 2020
/****************************************** /******************************************
/ ce programme permet de commander les signaux complexes avec ou sans / ce programme permet de commander les signaux complexes avec ou sans
/ CDM rail. Il a trois modes de fonctionnement: / CDM rail. Il a trois modes de fonctionnement:
@@ -18,17 +18,17 @@
/ /
/ /
/ Taille de la fonte de la fenêtre / Taille de la fonte de la fenêtre
16 Fonte=16
/ /
/ Adresse IP V4 du PC sur lequel s'execute CDM : port / 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 / 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 / Adresse IP V4 de l'interface LI-USB Ethernet : port
/ par défaut le port est 5550 / par défaut le port est 5550
/ ne pas connecter le port ou mettre 0 si on travaille avec l'interface USB / 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 / 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 / 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 / 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 / voir notice page 29
/ /
COM3:57600,N,8,1,2 Protocole_serie=COM5:9600,N,8,1,0
/COM8:9600,N,8,1,0
/ /
/ Temporisation en ms d'envoi entre deux octets de la trame / 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 / 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 / à adapter en fonction de l'interface. Ex 7=700ms d'attente maxi
7 Tempo_maxi=7
/ /
/ Entete: préfixe ajouté aux trames : / Entete: préfixe ajouté aux trames :
/ Entete=0 - n'ajoute rien aux trames - pour une interface RS232 ou GENLI / 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=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 / 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 / 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 ----------------------------------------------- / Valeurs des initialisations des aiguillages au démarrage -----------------------------------------------
/ @ aiguillage, position 1=dévié 2=droit, temporisation de manoeuvre en 1/10eme de seconde , / @ aiguillage, position 1=dévié 2=droit, temporisation de manoeuvre en 1/10eme de seconde ,
/ 0=pilotage normal 1=pilotage inversé / 0=pilotage normal 1=pilotage inversé
/ une position différente de 1 ou 2 sera à 1. Une temporisation de 0 sera à 5. / 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 / la liste doit être terminée par 0,0,0
1,2,3,0 [section_init]
2,2,3,0 77,2,3,0
3,2,3,0 78,2,3,0
4,2,3,0 79,2,3,0
5,1,3,0 81,2,3,0
6,2,3,0 82,2,3,0
7,1,3,0 83,2,3,0
8,2,3,0 84,2,3,0
9,2,3,0 85,2,3,0
10,2,3,0 86,2,3,0
11,2,3,0 87,2,3,0
12,1,3,0 88,2,3,0
13,1,3,0 89,2,3,0
14,1,3,0 90,2,3,0
15,1,3,0 91,2,3,0
16,1,4,0 92,2,3,0
17,1,3,0 93,2,3,0
18,2,4,0 94,2,3,0
19,1,4,0 95,2,3,0
20,2,4,0 96,2,3,0
21,2,3,0 97,2,3,0
22,1,3,0 98,2,3,0
23,1,3,0 99,2,3,0
24,1,3,0 100,2,3,0
25,1,3,0 101,2,3,0
26,2,3,0 102,2,3,0
27,2,3,0 103,2,3,0
28,2,3,0 104,2,3,0
29,2,3,0 105,2,3,0
30,2,3,0 106,2,3,0
31,1,3,0 107,2,3,0
32,1,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 0,0,0,0
/ /
config.cfg
+127 -97
View File
@@ -1,128 +1,158 @@
/****************************************** /******************************************
/ fichier de configuration de signaux complexes / fichier de configuration de signaux_complexes
/ cap de bouheyre avec signaux - 2018 / JFP - 2020 - nouvelles tjd
/**************************************** /******************************************
/ Sans Log=0 / Avec Log=1 : génère un fichier log / Sans Log=0 / Avec Log=1 : génère un fichier log
Log=0 Log=0
/ Affichage du débug du calcul des routes, et enregistrement dans le log si la variable précédente est à 1 / Affichage du débug du calcul des routes, et enregistrement dans le log si la variable précédente est à 1
TraceDet=0 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 RazSignaux=0
/ /
/ modélisation des aiguillages : détermine les éléments connectés aux 3 branches des aiguilles (Pointe, Droit, Dévié (S) / 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é / 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é
/ B pour adresse d'aiguillage déja utilisée / Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse+branche de connexion (P S ou D)
/ Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse [TRI,TJS,TJD]+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
/ Exemples : 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 Droit relié au détecteur 518
/ sur Dévié, relié à l'aiguillage 3 en pointe / 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. / S'il n'y a pas de détecteur connecté à une branche d'aiguillage, mettre 0.
1,S1BS,P2P,D3P,0 /77TJD,P78,D599,S600
1B,P553,D16P,S1S /78TJD,P77,D598,S79D
2,P1P,D4P,S2BS 77TJD,D(599,78D),S(600,78S),I1
2B,P521,D16D,S2S 78TJD,D(598,S77D),S(79D,77S),I1
3,P1D,D522,S5BP 79,P601,D78S,S597
4,P2D,D554,S6BP 81,P515,D513,S82S
5,P9P,S15P,D5BS 82,P83P,D516,S81S
5B,P3S,S5D,D545,0,1 83,P82P,D514,S517
6,P10P,S546,D6BS 85,P524,D89D,S86D
6B,P4S,D545,S6D 86,P87P,D85S,S525
7,P15S,D566,S565 87,P86P,D88P,S89S
8,P20P,D566,S565 88,P87D,D548,S94D
9,P5P,D530,S17P 89TJD,D(85D,90D),S(87S,90S),I1
10,P6P,D530,S18P 90TJD,D(547,89D),S(91S,89S),I1
13,P17S,D563,S564 /89TJD,P90,D85D,S87S
14,P18S,D563,S564 /90TJD,P89,D547,S91S
15,P5S,D546,S7P /91TJD,P92,D540,S90S
16,P1BD,S16BS,D2BD /92TJD,P91,D546,S96S
16B,P0,S16S,D557 91TJD,D(540,92D),S(90S,92S),I1
17,P9S,D531,S13P 92TJD,D(546,91D),S(96S,91S),I1
18,P10S,D562,S14P /93TJD,P94,D95S,S549
20,P8P,D547,S548 /94TJD,P93,D88S,S542
21,P25P,S537,D23S 93TJD,D(88S,94D),S(542,94S)
22,P24P,S561,D25S 94TJD,D(549,93D),S(95S,93S)
23,P569,S21D,D538 95,P97S,D543,S93D
24,P22P,S26P,D513 96,P545,D538,S92S
25,P21P,S22D,D570 97,P102S,D544,S95P
26,P24S,S515,D514 98,P550,D555,S101S
28,P30P,S29P,D570 99,P101D,D551,S100D
29,P28S,D516,S31P 100,P552,D99S,S553
30,P28P,D32S,S539 101,P556,D99P,S98S
31TRI,27,P29S,D518,S0,S2-517 102,P103D,D557,S97P
32,P571,D538,S30D /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 0
// /
/ modélisation du réseau par branche / modélisation du réseau par branche
/ 1 ligne par branche - le sens de parcours de la description n'a pas d'importance. / 1 ligne par branche - le sens de parcours de la branche est arbitraire.
/ Chaque ligne (branche) doit comporter au moins un détecteur et au moins aiguillage / Chaque ligne (branche) doit commmencer et finir par un aiguilage ou un buttoir (0)
/ @ détecteur A=@aiguillage / @ détecteur A=@aiguillage
/ chaque ligne doit commencer par un aiguillage et se terminer par un aiguillage / Terminer par 0
/ Terminer par les brances par 0 / Exemple : 519 est un détecteur - A2 est l'aiguillage 2
/ Exemple : 519 est un détecteur - A2 est l'aiguillage 2 - A1B est l'aiguillage 1bis
/ /
/ rouge - jaune A83,514,518,520,524,A85,A89,A90,547,560,A110,A111,589,597,A79
A20,547,561,A22,A24,A26,515,518,A31,A29,A28,A30,539,522,A3,A1,A2,A4,A6B,545,A5B,A3 A77,599,590,A113,A112,561,548,A88,A87,A86,525,521,519,513,A81
A26,514,517,A31 A106,A105,558,545,A96,538,537,0
A26,515,518,A31 A108,581,582,0
A24,513,516,A29 A107,559,546,A92,A91,537,540,0
/grande boucle extérieure départ de couche rouge: de 569 à 569 A112,A109,562,549,A93,A94,542,541,0
A23,538,A32,571,553,A1B,A16,A2B,521,569,A23 A104,564,565,0
/ grande boucle intérieure A103,A102,A97,A95,543,528,0
A21,A25,570,A28 A97,544,0
A4,554,537,A21 A102,557,555,A98,550,0
/ couche jaune A103,563,556,A101,A99,551,0
A10,530,A9,A5,A15,546,A6 A99,A100,552,0
A18,562,531,A17 A100,553,554,0
A14,563,A13 A106,566,567,0
A14,564,A13 A106,568,603,A114,604,0
/ A114,A115,606,608,0
A7,565,A8 A115,A116,607,0
A7,566,A8 A116,605,0
A16B,557,0 A135,534,574,A130
A20S,548,0 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 0
/ /
/ liste des signaux / liste signaux
/ la liste doit être terminée par une adresse à 0 / 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) / 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) / 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 / 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) / le signal concerne plusieurs voies (donc détecteurs)
/ Notation de chaque ligne: / Notation de chaque ligne:
/ adresse de base du signal, forme, réserve, type de décodeur [, (détecteur,..detecteur , élément suivant ..) , / 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)] / avec ou sans demande de verrouillage du feu au carré (0 ou 1)]
161,4,0,4,(538,A32),0 197,3,0,6,(598,A78),1,3
169,9,0,4,(539,A30),0, 201,4,0,6,(597,A79),1,4
177,9,0,4,(569,A23),0 205,9,0,6,(590,A113),1,93
185,4,0,4,(570,A25),0 209,9,0,6,(560,A110),1,92
193,4,0,4,(516,A29),0 213,9,0,6,(548,A88),1,92
201,2,0,4,(517,31TRI,518,31TRI),0 217,9,0,6,(524,A85),1,93
209,9,0,4,(513,A24),0 221,7,0,6,(518,520),1,73
217,2,0,4,(514,A26,515,A26),0 225,3,0,6,(521,519),1,3
225,9,0,4,(561,A22),0 229,9,0,6,(516,A82),1,92
233,4,0,4,(547,A20),0 233,4,0,6,(513,A81),1,92
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
0 0
/ /
/ Fonctions Fx à envoyer aux locomotives sur passage d'un actionneur / Fonctions Fx à envoyer aux locomotives sur passage d'un actionneur
/ Uniquement en mode connecté à CDM / Uniquement en mode connecté à CDM
/ actionneur,état,Nom de la loco,fonction,temporisation en ms avant remise à 0 / 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 0
verif_version.dcu
BIN
View File
Binary file not shown.
verif_version.pas
+1 -1
View File
@@ -23,7 +23,7 @@ var
Lance_verif : integer; Lance_verif : integer;
verifVersion,notificationVersion : boolean; 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 implementation
versions.txt
+5 -1
View File
@@ -28,7 +28,11 @@ version 1.73 : Am
Affichage d'aide sur les éléments décrits dans le panneau de configuration 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.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.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