V3.4
This commit is contained in:
f1iwq2
@@ -1,3 +1,4 @@
|
||||
/******************************************
|
||||
/ fichier de configuration de client-GL.log
|
||||
/ gily - f1iwq - 2018
|
||||
/******************************************
|
||||
@@ -97,46 +98,82 @@ Serveur_interface=1
|
||||
/ 5=LI-100
|
||||
/ 6=GENLI
|
||||
retro=1
|
||||
/
|
||||
/
|
||||
/ 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
|
||||
[section_init]
|
||||
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
|
||||
0,0,0,0
|
||||
/
|
||||
|
||||
RazSignaux=0
|
||||
[section_aig]
|
||||
1,P518,D523,S3P,V30,I0,INIT(2,3)
|
||||
2,P12S,D519,S5S,V0,I0,INIT(2,3)
|
||||
3,P1S,D4P,S5D,V0,I0,INIT(2,3)
|
||||
4,P3D,D6S,S514,V0,I0,INIT(2,3)
|
||||
5,P515,D3S,S2S,V0,I0,INIT(1,3)
|
||||
6,P516,D0,S4D,V0,I0,INIT(2,3)
|
||||
7,P527,D519,S520,V0,I0,INIT(1,3)
|
||||
8,P527,D521,S522,V0,I0,INIT(2,3)
|
||||
9,P526,D513,S515,V60,I0,INIT(2,3)
|
||||
10,P19P,D29P,S528,V30,I0,INIT(2,3)
|
||||
11,P18P,D30D,S525,V0,I0,INIT(2,3)
|
||||
12,P517,D20S,S2P,V0,I0,INIT(1,3)
|
||||
17,P525,D535,S528,V0,I0,INIT(1,3)
|
||||
18,P11P,D23P,S517,V0,I0,INIT(2,4)
|
||||
19,P10P,D22P,S531,V0,I0,INIT(1,4)
|
||||
20,P520,D21P,S12D,V0,I0,INIT(2,4)
|
||||
21,P20D,D28D,S28D,V0,I0,INIT(2,3)
|
||||
22,P19D,D537,S538,V0,I0,INIT(1,3)
|
||||
23,P18D,D538,S534,V0,I0,INIT(1,3)
|
||||
24,P538,D32S,S533,V0,I0,INIT(1,3)
|
||||
25,P31S,D529,S27P,V0,I0,INIT(1,3)
|
||||
26TJD,D(530,28D),S(529,28S),V0,I0,INIT(2,3),E4
|
||||
27,P25S,D530,S537,V0,I0,INIT(2,3)
|
||||
28TJD,D(21D,26D),S(21S,26S),V0,I0,INIT(2,3),E4
|
||||
29,P10D,D513,S30S,V60,I0,INIT(2,3)
|
||||
30,P524,D11D,S29D,V0,I0,INIT(2,3)
|
||||
31,P534,D0,S25P,V0,I0,INIT(1,3)
|
||||
32,P22S,D0,S24D,V0,I0,INIT(1,3)
|
||||
0
|
||||
[section_branches]
|
||||
A2,A12,517,A18,A11,A30,524,521,A8,527,A7,519,A2
|
||||
A7,520,A20,A12
|
||||
A1,A3,A4,514,522,A8
|
||||
A1,523,526,A9,513,A29,A10,A19,531,518,A1
|
||||
A9,515,A5
|
||||
A11,525,A17,528,A10
|
||||
A17,535,533,A24,538,A23
|
||||
A7,520,A20,A21,A28,A26,530,A27,A25,A31,534,A23,A18
|
||||
A26,529,A25
|
||||
A22,537,A27
|
||||
A22,A32,A24
|
||||
A6,516,0
|
||||
A31,0
|
||||
0
|
||||
[section_sig]
|
||||
176,7,0,1,(520,A20),1
|
||||
190,7,0,1,(523,526),0
|
||||
204,9,0,1,(527,A7),1
|
||||
218,7,0,1,(525,A17),0
|
||||
232,2,1,1,(516,A6),0
|
||||
260,9,1,1,(518,A1),1
|
||||
274,3,0,1,(524,521),0
|
||||
288,7,0,1,(522,A8),1
|
||||
302,9,0,1,(526,A9),1
|
||||
316,7,1,1,(515,A5),1
|
||||
330,7,0,1,(519,A2),1
|
||||
320,9,0,1,(528,A10),1
|
||||
344,9,0,1,(517,A18),1
|
||||
372,D3,1,(A10D)(A19S)(A19D,A22D)(A19D,A22S)
|
||||
382,D3,1,(A29S,A10S)(A19S)(A19D,A22D)(A19D,A22S)
|
||||
392,3,0,1,(535,533),1
|
||||
420,7,0,1,(529,A25,530,A27,537,A27),1
|
||||
448,7,0,1,(533,A24),1
|
||||
462,9,0,1,(513,A29),1
|
||||
476,9,0,1,(538,A23),1
|
||||
497,9,0,4,(531,A19),1
|
||||
600,7,0,0,(521,A8),1
|
||||
1000,9,0,0,(530,A26),1
|
||||
1001,9,0,0,(529,A26),1,(A21S,A6D)
|
||||
0
|
||||
[section_act]
|
||||
815,1,CC406526,F2,400
|
||||
813,1,CC406526,A613,2,Z
|
||||
830,1,ZZ406526,A613,2,Z
|
||||
(815,830),(820,840),PN(121+,121-)
|
||||
(850,851),PN(12+,12-)
|
||||
0
|
||||
BIN
Binary file not shown.
Binary file not shown.
+41
-226
@@ -1230,8 +1230,8 @@ object FormConfig: TFormConfig
|
||||
Visible = False
|
||||
end
|
||||
object ImageTJD: TImage
|
||||
Left = 744
|
||||
Top = 416
|
||||
Left = 736
|
||||
Top = 400
|
||||
Width = 137
|
||||
Height = 57
|
||||
Picture.Data = {
|
||||
@@ -1366,9 +1366,9 @@ object FormConfig: TFormConfig
|
||||
Visible = False
|
||||
end
|
||||
object ImageTri: TImage
|
||||
Left = 744
|
||||
Top = 432
|
||||
Width = 145
|
||||
Left = 736
|
||||
Top = 360
|
||||
Width = 137
|
||||
Height = 65
|
||||
Picture.Data = {
|
||||
07544269746D617076120000424D761200000000000076000000280000008900
|
||||
@@ -1536,208 +1536,6 @@ object FormConfig: TFormConfig
|
||||
Height = 13
|
||||
Caption = 'Verrouillable au carr'#233' :'
|
||||
end
|
||||
object Image2: TImage
|
||||
Left = 768
|
||||
Top = 440
|
||||
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 Label29: TLabel
|
||||
Left = 144
|
||||
Top = 68
|
||||
@@ -1748,8 +1546,8 @@ object FormConfig: TFormConfig
|
||||
object Label20: TLabel
|
||||
Left = 648
|
||||
Top = 312
|
||||
Width = 170
|
||||
Height = 52
|
||||
Width = 221
|
||||
Height = 39
|
||||
Caption =
|
||||
'Les param'#232'tres en vert doivent '#234'tre valid'#233's en appuyant sur la t' +
|
||||
'ouche ENTREE apr'#232's leur introduction/modification'
|
||||
@@ -1788,6 +1586,7 @@ object FormConfig: TFormConfig
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
OnChange = PageControlChange
|
||||
object TabSheetCDM: TTabSheet
|
||||
Caption = 'CDM Rail'
|
||||
object GroupBox1: TGroupBox
|
||||
@@ -2436,7 +2235,7 @@ object FormConfig: TFormConfig
|
||||
object GroupBox10: TGroupBox
|
||||
Left = 8
|
||||
Top = 80
|
||||
Width = 273
|
||||
Width = 177
|
||||
Height = 73
|
||||
Caption = 'Vitesse de franchissement d'#233'vi'#233' :'
|
||||
TabOrder = 0
|
||||
@@ -2770,6 +2569,32 @@ object FormConfig: TFormConfig
|
||||
'Non positionn'#233)
|
||||
end
|
||||
end
|
||||
object GroupBoxEtatTJD: TGroupBox
|
||||
Left = 192
|
||||
Top = 80
|
||||
Width = 89
|
||||
Height = 73
|
||||
Caption = 'Type TJD'
|
||||
TabOrder = 8
|
||||
object RadioButtonTJD2: TRadioButton
|
||||
Left = 8
|
||||
Top = 24
|
||||
Width = 65
|
||||
Height = 17
|
||||
Caption = '2 '#233'tats'
|
||||
TabOrder = 0
|
||||
OnClick = RadioButtonTJD2Click
|
||||
end
|
||||
object RadioButtonTJD4: TRadioButton
|
||||
Left = 8
|
||||
Top = 40
|
||||
Width = 65
|
||||
Height = 17
|
||||
Caption = '4 '#233'tats'
|
||||
TabOrder = 1
|
||||
OnClick = RadioButtonTJD4Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object RichAig: TRichEdit
|
||||
Left = 0
|
||||
@@ -3051,7 +2876,7 @@ object FormConfig: TFormConfig
|
||||
Top = 48
|
||||
Width = 129
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
TabOrder = 1
|
||||
OnChange = ComboBoxDecChange
|
||||
end
|
||||
@@ -3062,7 +2887,6 @@ object FormConfig: TFormConfig
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
OnChange = EditDet1Change
|
||||
OnKeyPress = EditDet1KeyPress
|
||||
end
|
||||
object EditSuiv1: TEdit
|
||||
Left = 184
|
||||
@@ -3073,7 +2897,6 @@ object FormConfig: TFormConfig
|
||||
ShowHint = True
|
||||
TabOrder = 4
|
||||
OnChange = EditSuiv1Change
|
||||
OnKeyPress = EditSuiv1KeyPress
|
||||
end
|
||||
object EditDet2: TEdit
|
||||
Left = 120
|
||||
@@ -3082,7 +2905,6 @@ object FormConfig: TFormConfig
|
||||
Height = 21
|
||||
TabOrder = 5
|
||||
OnChange = EditDet2Change
|
||||
OnKeyPress = EditDet2KeyPress
|
||||
end
|
||||
object EditSuiv2: TEdit
|
||||
Left = 184
|
||||
@@ -3093,7 +2915,6 @@ object FormConfig: TFormConfig
|
||||
ShowHint = True
|
||||
TabOrder = 6
|
||||
OnChange = EditSuiv2Change
|
||||
OnKeyPress = EditSuiv2KeyPress
|
||||
end
|
||||
object EditDet3: TEdit
|
||||
Left = 120
|
||||
@@ -3102,7 +2923,6 @@ object FormConfig: TFormConfig
|
||||
Height = 21
|
||||
TabOrder = 7
|
||||
OnChange = EditDet3Change
|
||||
OnKeyPress = EditDet3KeyPress
|
||||
end
|
||||
object EditSuiv3: TEdit
|
||||
Left = 184
|
||||
@@ -3113,7 +2933,6 @@ object FormConfig: TFormConfig
|
||||
ShowHint = True
|
||||
TabOrder = 8
|
||||
OnChange = EditSuiv3Change
|
||||
OnKeyPress = EditSuiv3KeyPress
|
||||
end
|
||||
object EditDet4: TEdit
|
||||
Left = 120
|
||||
@@ -3122,7 +2941,6 @@ object FormConfig: TFormConfig
|
||||
Height = 21
|
||||
TabOrder = 9
|
||||
OnChange = EditDet4Change
|
||||
OnKeyPress = EditDet4KeyPress
|
||||
end
|
||||
object EditSuiv4: TEdit
|
||||
Left = 184
|
||||
@@ -3133,7 +2951,6 @@ object FormConfig: TFormConfig
|
||||
ShowHint = True
|
||||
TabOrder = 10
|
||||
OnChange = EditSuiv4Change
|
||||
OnKeyPress = EditSuiv4KeyPress
|
||||
end
|
||||
object CheckVerrouCarre: TCheckBox
|
||||
Left = 120
|
||||
@@ -3157,7 +2974,6 @@ object FormConfig: TFormConfig
|
||||
TabOrder = 0
|
||||
Text = ' '
|
||||
OnChange = EditAdrSigChange
|
||||
OnKeyPress = EditAdrSigKeyPress
|
||||
end
|
||||
object ComboBoxAsp: TComboBox
|
||||
Left = 144
|
||||
@@ -3188,7 +3004,6 @@ object FormConfig: TFormConfig
|
||||
TabOrder = 14
|
||||
Visible = False
|
||||
OnChange = EditSpecUniChange
|
||||
OnKeyPress = EditSpecUniKeyPress
|
||||
end
|
||||
object Buttonrestaure: TButton
|
||||
Left = 8
|
||||
@@ -3290,11 +3105,11 @@ object FormConfig: TFormConfig
|
||||
TabOrder = 0
|
||||
object Label40: TLabel
|
||||
Left = 16
|
||||
Top = 328
|
||||
Width = 191
|
||||
Top = 344
|
||||
Width = 222
|
||||
Height = 26
|
||||
Caption =
|
||||
'Les accessoires ne sont utilisables qu'#39'en mode connect'#233' avec CDM' +
|
||||
'Les actionneurs ne sont utilisables qu'#39'en mode connect'#233' avec CDM' +
|
||||
' Rail'
|
||||
WordWrap = True
|
||||
end
|
||||
@@ -3493,8 +3308,8 @@ object FormConfig: TFormConfig
|
||||
end
|
||||
end
|
||||
object GroupBoxAct: TGroupBox
|
||||
Left = 40
|
||||
Top = 248
|
||||
Left = 64
|
||||
Top = 112
|
||||
Width = 225
|
||||
Height = 225
|
||||
Caption = 'Actionneur fonction de locomotive '
|
||||
|
||||
+1183
-237
File diff suppressed because it is too large
Load Diff
Binary file not shown.
+20
-6
@@ -4,7 +4,7 @@ object FormConfigTCO: TFormConfigTCO
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Configuration du TCO'
|
||||
ClientHeight = 264
|
||||
ClientWidth = 618
|
||||
ClientWidth = 665
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@@ -31,14 +31,14 @@ object FormConfigTCO: TFormConfigTCO
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 16
|
||||
Top = 56
|
||||
Top = 60
|
||||
Width = 156
|
||||
Height = 13
|
||||
Caption = 'Nombre de cellules en horizontal:'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 16
|
||||
Top = 80
|
||||
Top = 84
|
||||
Width = 145
|
||||
Height = 13
|
||||
Caption = 'Nombre de cellules en vertical:'
|
||||
@@ -49,8 +49,22 @@ object FormConfigTCO: TFormConfigTCO
|
||||
Width = 3
|
||||
Height = 13
|
||||
end
|
||||
object LabelMaxX: TLabel
|
||||
Left = 235
|
||||
Top = 60
|
||||
Width = 53
|
||||
Height = 13
|
||||
Caption = 'LabelMaxX'
|
||||
end
|
||||
object LabelMaxY: TLabel
|
||||
Left = 235
|
||||
Top = 84
|
||||
Width = 53
|
||||
Height = 13
|
||||
Caption = 'LabelMaxY'
|
||||
end
|
||||
object ButtonOK: TButton
|
||||
Left = 168
|
||||
Left = 216
|
||||
Top = 224
|
||||
Width = 75
|
||||
Height = 25
|
||||
@@ -108,7 +122,7 @@ object FormConfigTCO: TFormConfigTCO
|
||||
Text = 'EditNbCellY'
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 256
|
||||
Left = 304
|
||||
Top = 8
|
||||
Width = 353
|
||||
Height = 233
|
||||
@@ -216,7 +230,7 @@ object FormConfigTCO: TFormConfigTCO
|
||||
object Memo1: TMemo
|
||||
Left = 8
|
||||
Top = 128
|
||||
Width = 241
|
||||
Width = 281
|
||||
Height = 81
|
||||
BevelInner = bvLowered
|
||||
BevelKind = bkFlat
|
||||
|
||||
@@ -37,6 +37,8 @@ type
|
||||
ImageTexte: TImage;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
LabelMaxX: TLabel;
|
||||
LabelMaxY: TLabel;
|
||||
procedure ButtonOKClick(Sender: TObject);
|
||||
procedure ButtonDessineClick(Sender: TObject);
|
||||
procedure FormActivate(Sender: TObject);
|
||||
@@ -238,6 +240,8 @@ begin
|
||||
EditNbCellX.Text:=IntToSTR(NbreCellX);
|
||||
EditNbCellY.Text:=IntToSTR(NbreCellY);
|
||||
checkDessineGrille.Checked:=AvecGrille;
|
||||
labelMaxX.caption:='Max='+intToSTR(MaxCellX);
|
||||
labelMaxY.caption:='Max='+intToSTR(MaxCellY);
|
||||
dessine_icones;
|
||||
end;
|
||||
|
||||
@@ -314,4 +318,6 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
+2
-9
@@ -1,6 +1,6 @@
|
||||
object FormPrinc: TFormPrinc
|
||||
Left = 15
|
||||
Top = 175
|
||||
Left = 60
|
||||
Top = 181
|
||||
Width = 1212
|
||||
Height = 664
|
||||
Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ'
|
||||
@@ -1675,12 +1675,5 @@ object FormPrinc: TFormPrinc
|
||||
Caption = 'Propri'#233't'#233's'
|
||||
OnClick = Proprits1Click
|
||||
end
|
||||
object N7: TMenuItem
|
||||
Caption = '-'
|
||||
end
|
||||
object Nouveaufeu1: TMenuItem
|
||||
Caption = 'Nouveau feu'
|
||||
OnClick = Nouveaufeu1Click
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
+355
-1252
File diff suppressed because it is too large
Load Diff
BIN
Binary file not shown.
+664
@@ -0,0 +1,664 @@
|
||||
object FormSR: TFormSR
|
||||
Left = 413
|
||||
Top = 214
|
||||
Width = 491
|
||||
Height = 600
|
||||
Caption = 'Configuration du d'#233'codeur du signal St'#233'phane Ravaut'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object LabelAdrSR1: TLabel
|
||||
Left = 24
|
||||
Top = 64
|
||||
Width = 63
|
||||
Height = 13
|
||||
Caption = 'LabelAdrSR1'
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 120
|
||||
Top = 48
|
||||
Width = 15
|
||||
Height = 13
|
||||
Caption = '+ 2'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 120
|
||||
Top = 72
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '- 1'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 24
|
||||
Top = 24
|
||||
Width = 59
|
||||
Height = 16
|
||||
Caption = 'Adresse'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 112
|
||||
Top = 24
|
||||
Width = 28
|
||||
Height = 16
|
||||
Caption = 'Etat'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 200
|
||||
Top = 24
|
||||
Width = 49
|
||||
Height = 16
|
||||
Caption = 'Aspect'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Shape1: TShape
|
||||
Left = 16
|
||||
Top = 96
|
||||
Width = 409
|
||||
Height = 1
|
||||
end
|
||||
object LabelAdrSR2: TLabel
|
||||
Left = 24
|
||||
Top = 120
|
||||
Width = 63
|
||||
Height = 13
|
||||
Caption = 'LabelAdrSR2'
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 120
|
||||
Top = 104
|
||||
Width = 15
|
||||
Height = 13
|
||||
Caption = '+ 2'
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 120
|
||||
Top = 128
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '- 1'
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 336
|
||||
Top = 24
|
||||
Width = 21
|
||||
Height = 16
|
||||
Caption = 'CV'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object LabelCV1: TLabel
|
||||
Left = 320
|
||||
Top = 48
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV2: TLabel
|
||||
Left = 384
|
||||
Top = 48
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV3: TLabel
|
||||
Left = 320
|
||||
Top = 72
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV4: TLabel
|
||||
Left = 384
|
||||
Top = 72
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV5: TLabel
|
||||
Left = 320
|
||||
Top = 110
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV6: TLabel
|
||||
Left = 384
|
||||
Top = 110
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV7: TLabel
|
||||
Left = 320
|
||||
Top = 134
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV8: TLabel
|
||||
Left = 384
|
||||
Top = 134
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object Shape2: TShape
|
||||
Left = 16
|
||||
Top = 160
|
||||
Width = 409
|
||||
Height = 1
|
||||
end
|
||||
object LabelAdrSR3: TLabel
|
||||
Left = 24
|
||||
Top = 184
|
||||
Width = 63
|
||||
Height = 13
|
||||
Caption = 'LabelAdrSR2'
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 120
|
||||
Top = 168
|
||||
Width = 15
|
||||
Height = 13
|
||||
Caption = '+ 2'
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 120
|
||||
Top = 192
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '- 1'
|
||||
end
|
||||
object LabelCV9: TLabel
|
||||
Left = 320
|
||||
Top = 172
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV10: TLabel
|
||||
Left = 384
|
||||
Top = 172
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV11: TLabel
|
||||
Left = 320
|
||||
Top = 196
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV12: TLabel
|
||||
Left = 384
|
||||
Top = 196
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object Shape3: TShape
|
||||
Left = 16
|
||||
Top = 216
|
||||
Width = 409
|
||||
Height = 1
|
||||
end
|
||||
object LabelAdrSR4: TLabel
|
||||
Left = 24
|
||||
Top = 240
|
||||
Width = 63
|
||||
Height = 13
|
||||
Caption = 'LabelAdrSR2'
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 120
|
||||
Top = 224
|
||||
Width = 15
|
||||
Height = 13
|
||||
Caption = '+ 2'
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 120
|
||||
Top = 248
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '- 1'
|
||||
end
|
||||
object LabelCV13: TLabel
|
||||
Left = 320
|
||||
Top = 228
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV14: TLabel
|
||||
Left = 384
|
||||
Top = 228
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV15: TLabel
|
||||
Left = 320
|
||||
Top = 252
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV16: TLabel
|
||||
Left = 384
|
||||
Top = 252
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object Shape4: TShape
|
||||
Left = 16
|
||||
Top = 272
|
||||
Width = 409
|
||||
Height = 1
|
||||
end
|
||||
object LabelAdrSR5: TLabel
|
||||
Left = 24
|
||||
Top = 296
|
||||
Width = 63
|
||||
Height = 13
|
||||
Caption = 'LabelAdrSR2'
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 120
|
||||
Top = 280
|
||||
Width = 15
|
||||
Height = 13
|
||||
Caption = '+ 2'
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 120
|
||||
Top = 304
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '- 1'
|
||||
end
|
||||
object LabelCV17: TLabel
|
||||
Left = 320
|
||||
Top = 284
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV18: TLabel
|
||||
Left = 384
|
||||
Top = 284
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV19: TLabel
|
||||
Left = 320
|
||||
Top = 308
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV20: TLabel
|
||||
Left = 384
|
||||
Top = 308
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object Shape5: TShape
|
||||
Left = 16
|
||||
Top = 328
|
||||
Width = 409
|
||||
Height = 1
|
||||
end
|
||||
object LabelAdrSR6: TLabel
|
||||
Left = 24
|
||||
Top = 352
|
||||
Width = 63
|
||||
Height = 13
|
||||
Caption = 'LabelAdrSR2'
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 120
|
||||
Top = 336
|
||||
Width = 15
|
||||
Height = 13
|
||||
Caption = '+ 2'
|
||||
end
|
||||
object Label17: TLabel
|
||||
Left = 120
|
||||
Top = 360
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '- 1'
|
||||
end
|
||||
object LabelCV21: TLabel
|
||||
Left = 320
|
||||
Top = 340
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV22: TLabel
|
||||
Left = 384
|
||||
Top = 340
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV23: TLabel
|
||||
Left = 320
|
||||
Top = 364
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV24: TLabel
|
||||
Left = 384
|
||||
Top = 364
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object Shape6: TShape
|
||||
Left = 16
|
||||
Top = 384
|
||||
Width = 409
|
||||
Height = 1
|
||||
end
|
||||
object LabelAdrSR7: TLabel
|
||||
Left = 24
|
||||
Top = 408
|
||||
Width = 63
|
||||
Height = 13
|
||||
Caption = 'LabelAdrSR2'
|
||||
end
|
||||
object Label18: TLabel
|
||||
Left = 120
|
||||
Top = 392
|
||||
Width = 15
|
||||
Height = 13
|
||||
Caption = '+ 2'
|
||||
end
|
||||
object Label19: TLabel
|
||||
Left = 120
|
||||
Top = 416
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '- 1'
|
||||
end
|
||||
object LabelCV25: TLabel
|
||||
Left = 320
|
||||
Top = 396
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV26: TLabel
|
||||
Left = 384
|
||||
Top = 396
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV27: TLabel
|
||||
Left = 320
|
||||
Top = 420
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV28: TLabel
|
||||
Left = 384
|
||||
Top = 420
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object Shape7: TShape
|
||||
Left = 16
|
||||
Top = 448
|
||||
Width = 409
|
||||
Height = 1
|
||||
end
|
||||
object LabelAdrSR8: TLabel
|
||||
Left = 24
|
||||
Top = 472
|
||||
Width = 63
|
||||
Height = 13
|
||||
Caption = 'LabelAdrSR2'
|
||||
end
|
||||
object Label20: TLabel
|
||||
Left = 120
|
||||
Top = 456
|
||||
Width = 15
|
||||
Height = 13
|
||||
Caption = '+ 2'
|
||||
end
|
||||
object Label21: TLabel
|
||||
Left = 120
|
||||
Top = 480
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '- 1'
|
||||
end
|
||||
object LabelCV29: TLabel
|
||||
Left = 320
|
||||
Top = 460
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV30: TLabel
|
||||
Left = 384
|
||||
Top = 460
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV31: TLabel
|
||||
Left = 320
|
||||
Top = 484
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelCV32: TLabel
|
||||
Left = 384
|
||||
Top = 484
|
||||
Width = 20
|
||||
Height = 13
|
||||
Caption = 'CV='
|
||||
end
|
||||
object LabelErreur: TLabel
|
||||
Left = 224
|
||||
Top = 528
|
||||
Width = 3
|
||||
Height = 13
|
||||
Caption = ':'
|
||||
end
|
||||
object ComboBoxAdr1: TComboBox
|
||||
Left = 160
|
||||
Top = 48
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 0
|
||||
OnChange = ComboBoxAdr1Change
|
||||
end
|
||||
object ComboBoxAdr2: TComboBox
|
||||
Left = 160
|
||||
Top = 72
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 1
|
||||
OnChange = ComboBoxAdr2Change
|
||||
end
|
||||
object ComboBoxAdr3: TComboBox
|
||||
Left = 160
|
||||
Top = 104
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 2
|
||||
OnChange = ComboBoxAdr3Change
|
||||
end
|
||||
object ComboBoxAdr4: TComboBox
|
||||
Left = 160
|
||||
Top = 128
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 3
|
||||
OnChange = ComboBoxAdr4Change
|
||||
end
|
||||
object ComboBoxAdr5: TComboBox
|
||||
Left = 160
|
||||
Top = 168
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 4
|
||||
OnChange = ComboBoxAdr5Change
|
||||
end
|
||||
object ComboBoxAdr6: TComboBox
|
||||
Left = 160
|
||||
Top = 192
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 5
|
||||
OnChange = ComboBoxAdr6Change
|
||||
end
|
||||
object ComboBoxAdr7: TComboBox
|
||||
Left = 160
|
||||
Top = 224
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 6
|
||||
OnChange = ComboBoxAdr7Change
|
||||
end
|
||||
object ComboBoxAdr8: TComboBox
|
||||
Left = 160
|
||||
Top = 248
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 7
|
||||
OnChange = ComboBoxAdr8Change
|
||||
end
|
||||
object ComboBoxAdr9: TComboBox
|
||||
Left = 160
|
||||
Top = 280
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 8
|
||||
OnChange = ComboBoxAdr9Change
|
||||
end
|
||||
object ComboBoxAdr10: TComboBox
|
||||
Left = 160
|
||||
Top = 304
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 9
|
||||
OnChange = ComboBoxAdr10Change
|
||||
end
|
||||
object ComboBoxAdr11: TComboBox
|
||||
Left = 160
|
||||
Top = 336
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 10
|
||||
OnChange = ComboBoxAdr11Change
|
||||
end
|
||||
object ComboBoxAdr12: TComboBox
|
||||
Left = 160
|
||||
Top = 360
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 11
|
||||
OnChange = ComboBoxAdr12Change
|
||||
end
|
||||
object ComboBoxAdr13: TComboBox
|
||||
Left = 160
|
||||
Top = 392
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 12
|
||||
OnChange = ComboBoxAdr13Change
|
||||
end
|
||||
object ComboBoxAdr14: TComboBox
|
||||
Left = 160
|
||||
Top = 416
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 13
|
||||
OnChange = ComboBoxAdr14Change
|
||||
end
|
||||
object ComboBoxAdr15: TComboBox
|
||||
Left = 160
|
||||
Top = 456
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 14
|
||||
OnChange = ComboBoxAdr15Change
|
||||
end
|
||||
object ComboBoxAdr16: TComboBox
|
||||
Left = 160
|
||||
Top = 480
|
||||
Width = 145
|
||||
Height = 21
|
||||
ItemHeight = 13
|
||||
TabOrder = 15
|
||||
OnChange = ComboBoxAdr16Change
|
||||
end
|
||||
object ButtonOK: TButton
|
||||
Left = 56
|
||||
Top = 520
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
TabOrder = 16
|
||||
OnClick = ButtonOKClick
|
||||
end
|
||||
end
|
||||
+500
@@ -0,0 +1,500 @@
|
||||
// Unité pour la configuration du décodeur Stéphane Ravaux
|
||||
|
||||
unit UnitSR;
|
||||
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls;
|
||||
|
||||
type
|
||||
TFormSR = class(TForm)
|
||||
LabelAdrSR1: TLabel;
|
||||
ComboBoxAdr1: TComboBox;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
ComboBoxAdr2: TComboBox;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Shape1: TShape;
|
||||
LabelAdrSR2: TLabel;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label6: TLabel;
|
||||
LabelCV1: TLabel;
|
||||
LabelCV2: TLabel;
|
||||
LabelCV3: TLabel;
|
||||
LabelCV4: TLabel;
|
||||
ComboBoxAdr3: TComboBox;
|
||||
ComboBoxAdr4: TComboBox;
|
||||
LabelCV5: TLabel;
|
||||
LabelCV6: TLabel;
|
||||
LabelCV7: TLabel;
|
||||
LabelCV8: TLabel;
|
||||
Shape2: TShape;
|
||||
LabelAdrSR3: TLabel;
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
ComboBoxAdr5: TComboBox;
|
||||
ComboBoxAdr6: TComboBox;
|
||||
LabelCV9: TLabel;
|
||||
LabelCV10: TLabel;
|
||||
LabelCV11: TLabel;
|
||||
LabelCV12: TLabel;
|
||||
Shape3: TShape;
|
||||
LabelAdrSR4: TLabel;
|
||||
Label12: TLabel;
|
||||
Label13: TLabel;
|
||||
ComboBoxAdr7: TComboBox;
|
||||
ComboBoxAdr8: TComboBox;
|
||||
LabelCV13: TLabel;
|
||||
LabelCV14: TLabel;
|
||||
LabelCV15: TLabel;
|
||||
LabelCV16: TLabel;
|
||||
Shape4: TShape;
|
||||
LabelAdrSR5: TLabel;
|
||||
Label14: TLabel;
|
||||
Label15: TLabel;
|
||||
ComboBoxAdr9: TComboBox;
|
||||
ComboBoxAdr10: TComboBox;
|
||||
LabelCV17: TLabel;
|
||||
LabelCV18: TLabel;
|
||||
LabelCV19: TLabel;
|
||||
LabelCV20: TLabel;
|
||||
Shape5: TShape;
|
||||
LabelAdrSR6: TLabel;
|
||||
Label16: TLabel;
|
||||
Label17: TLabel;
|
||||
ComboBoxAdr11: TComboBox;
|
||||
ComboBoxAdr12: TComboBox;
|
||||
LabelCV21: TLabel;
|
||||
LabelCV22: TLabel;
|
||||
LabelCV23: TLabel;
|
||||
LabelCV24: TLabel;
|
||||
Shape6: TShape;
|
||||
LabelAdrSR7: TLabel;
|
||||
Label18: TLabel;
|
||||
Label19: TLabel;
|
||||
LabelCV25: TLabel;
|
||||
LabelCV26: TLabel;
|
||||
LabelCV27: TLabel;
|
||||
LabelCV28: TLabel;
|
||||
ComboBoxAdr13: TComboBox;
|
||||
ComboBoxAdr14: TComboBox;
|
||||
Shape7: TShape;
|
||||
LabelAdrSR8: TLabel;
|
||||
Label20: TLabel;
|
||||
Label21: TLabel;
|
||||
LabelCV29: TLabel;
|
||||
LabelCV30: TLabel;
|
||||
LabelCV31: TLabel;
|
||||
LabelCV32: TLabel;
|
||||
ComboBoxAdr15: TComboBox;
|
||||
ComboBoxAdr16: TComboBox;
|
||||
ButtonOK: TButton;
|
||||
LabelErreur: TLabel;
|
||||
procedure FormActivate(Sender: TObject);
|
||||
procedure ComboBoxAdr1Change(Sender: TObject);
|
||||
procedure ComboBoxAdr2Change(Sender: TObject);
|
||||
procedure ComboBoxAdr3Change(Sender: TObject);
|
||||
procedure ComboBoxAdr4Change(Sender: TObject);
|
||||
procedure ComboBoxAdr5Change(Sender: TObject);
|
||||
procedure ComboBoxAdr6Change(Sender: TObject);
|
||||
procedure ComboBoxAdr7Change(Sender: TObject);
|
||||
procedure ComboBoxAdr8Change(Sender: TObject);
|
||||
procedure ComboBoxAdr9Change(Sender: TObject);
|
||||
procedure ComboBoxAdr10Change(Sender: TObject);
|
||||
procedure ComboBoxAdr11Change(Sender: TObject);
|
||||
procedure ComboBoxAdr12Change(Sender: TObject);
|
||||
procedure ComboBoxAdr13Change(Sender: TObject);
|
||||
procedure ComboBoxAdr14Change(Sender: TObject);
|
||||
procedure ComboBoxAdr15Change(Sender: TObject);
|
||||
procedure ComboBoxAdr16Change(Sender: TObject);
|
||||
procedure ButtonOKClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ Déclarations privées }
|
||||
public
|
||||
{ Déclarations publiques }
|
||||
end;
|
||||
|
||||
var
|
||||
FormSR: TFormSR;
|
||||
Adr,IndexSig : integer;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitPrinc, UnitConfig;
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure etat_SR(etat : integer;var etat1,etat2 : integer) ;
|
||||
var i : integer;
|
||||
begin
|
||||
// etat1 correspond à l'allumage des leds du 1er cycle clignotant
|
||||
// etat2 correspond à l'allumage des leds du 2eme cycle clignotant
|
||||
case etat of
|
||||
// carré
|
||||
1 : begin etat1:=$81;etat2:=$81;end;
|
||||
// sémaphore+oeilleton
|
||||
2 : begin etat1:=$88;etat2:=$88;end;
|
||||
// sémaphore cli+oeil
|
||||
3 : begin etat1:=$88;etat2:=$08;end;
|
||||
// vert+oeil
|
||||
4 : begin etat1:=$0C;etat2:=$0C;end;
|
||||
// vert cli+oeil
|
||||
5 : begin etat1:=$0C;etat2:=$08;end;
|
||||
// violet
|
||||
6 : begin etat1:=$01;etat2:=$01;end;
|
||||
// blanc
|
||||
7 : begin etat1:=$02;etat2:=$02;end;
|
||||
// blanc cli
|
||||
8 : begin etat1:=$02;etat2:=$00;end;
|
||||
// jaune+oeil
|
||||
9 : begin etat1:=$48;etat2:=$48;end;
|
||||
// jaune cli+oeil
|
||||
10 : begin etat1:=$48;etat2:=$08;end;
|
||||
// ralen 30 (non documenté)
|
||||
11 : begin etat1:=$20;etat2:=$20;end;
|
||||
// ralen 60 (non documenté)
|
||||
12 : begin etat1:=$20;etat2:=$00;end;
|
||||
// ral 60+jaune cli
|
||||
13 : begin etat1:=$60;etat2:=$00;end;
|
||||
// rappel 30 (non documenté)
|
||||
14 : begin etat1:=$10;etat2:=$10;end;
|
||||
// rappel 60 (non documenté)
|
||||
15 : begin etat1:=$10;etat2:=$00;end;
|
||||
// ral 30+jaune+oeil
|
||||
16 : begin etat1:=$68;etat2:=$68;end;
|
||||
// rappel 30+jaune cli+oeil
|
||||
17 : begin etat1:=$58;etat2:=$18;end;
|
||||
// rappel 60+jaune+oeil
|
||||
18 : begin etat1:=$58;etat2:=$48;end;
|
||||
// rappel 60+jaune cli+oeil
|
||||
19 : begin etat1:=$58;etat2:=$08;end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TFormSR.FormActivate(Sender: TObject);
|
||||
var erreur,i,etat1,etat2 : integer;
|
||||
begin
|
||||
Val(FormConfig.EditAdrSig.text,Adr,erreur);
|
||||
indexSig:=index_feu(Adr);
|
||||
if IndexSig=0 then LabelErreur.caption:='Erreur feu inexistant'
|
||||
else
|
||||
begin
|
||||
LabelAdrSR1.caption:=intToSTR(Adr);
|
||||
LabelAdrSR2.caption:=intToSTR(Adr+1);
|
||||
LabelAdrSR3.caption:=intToSTR(Adr+2);
|
||||
LabelAdrSR4.caption:=intToSTR(Adr+3);
|
||||
LabelAdrSR5.caption:=intToSTR(Adr+4);
|
||||
LabelAdrSR6.caption:=intToSTR(Adr+5);
|
||||
LabelAdrSR7.caption:=intToSTR(Adr+6);
|
||||
LabelAdrSR8.caption:=intToSTR(Adr+7);
|
||||
|
||||
ComboBoxAdr1.ItemIndex:=feux[indexSig].SR[1].sortie1;
|
||||
ComboBoxAdr2.ItemIndex:=feux[indexSig].SR[1].sortie0;
|
||||
ComboBoxAdr3.ItemIndex:=feux[indexSig].SR[2].sortie1;
|
||||
ComboBoxAdr4.ItemIndex:=feux[indexSig].SR[2].sortie0;
|
||||
ComboBoxAdr5.ItemIndex:=feux[indexSig].SR[3].sortie1;
|
||||
ComboBoxAdr6.ItemIndex:=feux[indexSig].SR[3].sortie0;
|
||||
ComboBoxAdr7.ItemIndex:=feux[indexSig].SR[4].sortie1;
|
||||
ComboBoxAdr8.ItemIndex:=feux[indexSig].SR[4].sortie0;
|
||||
ComboBoxAdr9.ItemIndex:=feux[indexSig].SR[5].sortie1;
|
||||
ComboBoxAdr10.ItemIndex:=feux[indexSig].SR[5].sortie0;
|
||||
ComboBoxAdr11.ItemIndex:=feux[indexSig].SR[6].sortie1;
|
||||
ComboBoxAdr12.ItemIndex:=feux[indexSig].SR[6].sortie0;
|
||||
ComboBoxAdr13.ItemIndex:=feux[indexSig].SR[7].sortie1;
|
||||
ComboBoxAdr14.ItemIndex:=feux[indexSig].SR[7].sortie0;
|
||||
ComboBoxAdr15.ItemIndex:=feux[indexSig].SR[8].sortie1;
|
||||
ComboBoxAdr16.ItemIndex:=feux[indexSig].SR[8].sortie0;
|
||||
|
||||
etat_SR(feux[indexSig].SR[1].sortie1,etat1,etat2);
|
||||
labelCV1.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV2.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[1].sortie0,etat1,etat2);
|
||||
labelCV3.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV4.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[2].sortie1,etat1,etat2);
|
||||
labelCV5.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV6.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[2].sortie0,etat1,etat2);
|
||||
labelCV7.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV8.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[3].sortie1,etat1,etat2);
|
||||
labelCV9.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV10.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[3].sortie0,etat1,etat2);
|
||||
labelCV11.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV12.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[4].sortie1,etat1,etat2);
|
||||
labelCV13.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV14.Caption:='CV='+IntToSTR(etat2);
|
||||
|
||||
etat_SR(feux[indexSig].SR[4].sortie0,etat1,etat2);
|
||||
labelCV15.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV16.Caption:='CV='+IntToSTR(etat2);
|
||||
|
||||
etat_SR(feux[indexSig].SR[5].sortie1,etat1,etat2);
|
||||
labelCV17.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV18.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[5].sortie0,etat1,etat2);
|
||||
labelCV19.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV20.Caption:='CV='+IntToSTR(etat2);
|
||||
|
||||
etat_SR(feux[indexSig].SR[6].sortie1,etat1,etat2);
|
||||
labelCV21.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV22.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[6].sortie0,etat1,etat2);
|
||||
labelCV23.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV24.Caption:='CV='+IntToSTR(etat2);
|
||||
|
||||
etat_SR(feux[indexSig].SR[7].sortie1,etat1,etat2);
|
||||
labelCV25.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV26.Caption:='CV='+IntToSTR(etat2);
|
||||
etat_SR(feux[indexSig].SR[7].sortie0,etat1,etat2);
|
||||
labelCV27.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV28.Caption:='CV='+IntToSTR(etat2);
|
||||
|
||||
etat_SR(feux[indexSig].SR[8].sortie1,etat1,etat2);
|
||||
labelCV29.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV30.Caption:='CV='+IntToSTR(etat2);
|
||||
|
||||
etat_SR(feux[indexSig].SR[8].sortie0,etat1,etat2);
|
||||
labelCV31.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV32.Caption:='CV='+IntToSTR(etat2);
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure Maj_DB;
|
||||
var s : string;
|
||||
begin
|
||||
s:=encode_sig_feux(indexSig);
|
||||
formconfig.RichSig.Lines[indexSig-1]:=s;
|
||||
aff_champs_sig_feux(indexSig);
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr1Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
if Affevt then affiche('ComboBoxAdr1',clyellow);
|
||||
i:=ComboBoxAdr1.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV1.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV2.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[1].sortie1:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr2Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
if Affevt then affiche('ComboBoxAdr2',clyellow);
|
||||
i:=ComboBoxAdr2.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV3.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV4.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[1].sortie0:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr3Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
if Affevt then affiche('ComboBoxAdr3',clyellow);
|
||||
i:=ComboBoxAdr3.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV5.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV6.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[2].sortie1:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr4Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
if Affevt then affiche('ComboBoxAdr4',clyellow);
|
||||
i:=ComboBoxAdr4.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV7.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV8.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[2].sortie0:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr5Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
if Affevt then affiche('ComboBoxAdr5',clyellow);
|
||||
i:=ComboBoxAdr5.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV9.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV10.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[3].sortie1:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr6Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
if Affevt then affiche('ComboBoxAdr6',clyellow);
|
||||
i:=ComboBoxAdr6.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV11.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV12.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[3].sortie0:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr7Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
if Affevt then affiche('ComboBoxAdr7',clyellow);
|
||||
i:=ComboBoxAdr7.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV13.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV14.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[4].sortie1:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr8Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr8.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV15.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV16.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[4].sortie0:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr9Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr9.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV17.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV18.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[5].sortie1:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr10Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr10.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV19.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV20.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[5].sortie0:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr11Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr11.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV21.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV22.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[6].sortie1:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr12Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr12.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV23.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV24.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[6].sortie0:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr13Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr13.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV25.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV26.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[7].sortie1:=i;
|
||||
maj_db;
|
||||
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr14Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr14.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV27.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV28.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[7].sortie0:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr15Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr15.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV29.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV30.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[8].sortie1:=i;
|
||||
maj_db;
|
||||
|
||||
end;
|
||||
|
||||
procedure TFormSR.ComboBoxAdr16Change(Sender: TObject);
|
||||
var etat1,etat2,i : integer;
|
||||
begin
|
||||
i:=ComboBoxAdr16.ItemIndex;
|
||||
etat_SR(i,etat1,etat2);
|
||||
labelCV31.Caption:='CV='+IntToSTR(etat1);
|
||||
labelCV32.Caption:='CV='+IntToSTR(etat2);
|
||||
feux[indexSig].SR[8].sortie0:=i;
|
||||
maj_db;
|
||||
end;
|
||||
|
||||
procedure TFormSR.ButtonOKClick(Sender: TObject);
|
||||
begin
|
||||
close;
|
||||
end;
|
||||
|
||||
procedure TFormSR.FormCreate(Sender: TObject);
|
||||
var i : integer;
|
||||
begin
|
||||
for i:=0 to 19 do
|
||||
begin
|
||||
ComboBoxAdr1.items.add(etats[i]);
|
||||
ComboBoxAdr2.items.add(etats[i]);
|
||||
ComboBoxAdr3.items.add(etats[i]);
|
||||
ComboBoxAdr4.items.add(etats[i]);
|
||||
ComboBoxAdr5.items.add(etats[i]);
|
||||
ComboBoxAdr6.items.add(etats[i]);
|
||||
ComboBoxAdr7.items.add(etats[i]);
|
||||
ComboBoxAdr8.items.add(etats[i]);
|
||||
ComboBoxAdr9.items.add(etats[i]);
|
||||
ComboBoxAdr10.items.add(etats[i]);
|
||||
ComboBoxAdr11.items.add(etats[i]);
|
||||
ComboBoxAdr12.items.add(etats[i]);
|
||||
ComboBoxAdr13.items.add(etats[i]);
|
||||
ComboBoxAdr14.items.add(etats[i]);
|
||||
ComboBoxAdr15.items.add(etats[i]);
|
||||
ComboBoxAdr16.items.add(etats[i]);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
BIN
Binary file not shown.
+1
-1
@@ -260,7 +260,7 @@ type
|
||||
const
|
||||
|
||||
ZoomMax=50;
|
||||
MaxCellX=100;MaxCellY=50;
|
||||
MaxCellX=150;MaxCellY=70;
|
||||
|
||||
|
||||
type
|
||||
|
||||
Binary file not shown.
@@ -1,130 +0,0 @@
|
||||
unit VerifVersion;
|
||||
|
||||
interface
|
||||
//procedure verifie_version;
|
||||
|
||||
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls , ComCtrls ,WinInet;
|
||||
|
||||
procedure verifie_version;
|
||||
|
||||
implementation
|
||||
|
||||
function GetCurrentProcessEnvVar(const VariableName: string): string;
|
||||
var
|
||||
nSize: DWord;
|
||||
begin
|
||||
nSize:= 0;
|
||||
nSize:= GetEnvironmentVariable(PChar(VariableName), nil, nSize);
|
||||
if nSize = 0 then
|
||||
begin
|
||||
result:= '';
|
||||
end
|
||||
else
|
||||
begin
|
||||
SetLength(result, nSize - 1);
|
||||
if GetEnvironmentVariable(PChar(VariableName), PChar(result), nSize) <> nSize - 1 then
|
||||
raise Exception.Create(SysErrorMessage(GetlastError))
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function DownloadURL_NOCache(aUrl: string;s : string): Boolean;
|
||||
var
|
||||
hSession: HINTERNET;
|
||||
hService: HINTERNET;
|
||||
Fs:TFileStream;
|
||||
lpBuffer: array[0..1024 + 1] of byte;
|
||||
dwBytesRead: DWORD;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
Try Fs := TFileStream.Create(s,fmCreate);
|
||||
hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
|
||||
try
|
||||
if Assigned(hSession) then
|
||||
begin
|
||||
hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, INTERNET_FLAG_RELOAD, 0);
|
||||
if Assigned(hService) then
|
||||
try
|
||||
while True do
|
||||
begin
|
||||
dwBytesRead := 1024;
|
||||
InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
|
||||
fs.WriteBuffer(lpBuffer, dwBytesRead);
|
||||
if dwBytesRead = 0 then break;
|
||||
end;
|
||||
Result := True;
|
||||
finally
|
||||
InternetCloseHandle(hService);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
InternetCloseHandle(hSession);
|
||||
end;
|
||||
finally
|
||||
fs.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure verifie_version;
|
||||
var s,s2,Url,LocalFile : string;
|
||||
trouve : boolean;
|
||||
fichier : text;
|
||||
i : integer;
|
||||
V_publie,V_utile : real;
|
||||
begin
|
||||
Url:='http://cdmrail.free.fr/ForumCDR/viewtopic.php?f=77&t=3906#p50499';
|
||||
LocalFile:='page.txt';
|
||||
trouve:=false;
|
||||
if DownloadURL_NOCache(Url,localFile) then
|
||||
begin
|
||||
AssignFile(fichier,LocalFile);
|
||||
reset(fichier);
|
||||
while not(eof(fichier) or trouve) do
|
||||
begin
|
||||
readln(fichier,s);
|
||||
s:=UpperCase(s);
|
||||
//Affiche(s,clyellow);
|
||||
i:=pos('VERSION ',s);
|
||||
trouve:=i<>0;
|
||||
end;
|
||||
closefile(fichier);
|
||||
if trouve then
|
||||
begin
|
||||
delete(s,1,i+7);
|
||||
i:=pos('VERSION ',s);
|
||||
i:=pos(' ',s);
|
||||
s:=copy(s,1,i-1);
|
||||
//Affiche('Version '+s,clgreen);
|
||||
// changer le . en ,
|
||||
i:=pos('.',s);s[i]:=',';
|
||||
s2:=version;
|
||||
i:=pos('.',s2);s2[i]:=',';
|
||||
|
||||
V_publie:=StrToFloat(s);
|
||||
V_utile:=StrToFloat(s2);
|
||||
if V_utile<V_publie then
|
||||
begin
|
||||
s:='Vous utilisez la version '+version+' mais il existe la version '+s;
|
||||
//Affiche(s,clOrange);
|
||||
if MessageDlg(s+' Voulez-vous la télécharger?',
|
||||
mtConfirmation,[mbYes,mbNo],0)=mrYes then
|
||||
begin
|
||||
s:=GetCurrentProcessEnvVar('USERPROFILE')+'\Downloads\Signaux_Complexes_GL.Zip';
|
||||
//Affiche('A télécharger dans '+s,ClLime);
|
||||
if DownloadURL_NOCache('http://cdmrail.free.fr/ForumCDR/download/file.php?id=12070',s) then
|
||||
//Affiche('Téléchargement réussi',clLime);
|
||||
end;
|
||||
end;
|
||||
|
||||
//if V_utile=V_publie then Affiche('Version Actuelle=Version publiée : votre version est à jour',clLime);
|
||||
|
||||
end;
|
||||
end
|
||||
else
|
||||
//Affiche('Pas d''accès au site CDM rail',ClLime);
|
||||
end;
|
||||
|
||||
end.
|
||||
-84
@@ -1,84 +0,0 @@
|
||||
/******************************************
|
||||
/ fichier de configuration de signaux_complexes
|
||||
/ gily - f1iwq - 2019
|
||||
/******************************************
|
||||
|
||||
RazSignaux=0
|
||||
[section_aig]
|
||||
1,P518,D523,S3P,V30,I0
|
||||
2,P12S,D519,S5S,V0,I0
|
||||
3,P1S,D4P,S5D,V0,I0
|
||||
4,P3D,D6S,S514,V0,I0
|
||||
5,P515,D3S,S2S,V0,I0
|
||||
6,P516,D0,S4D,V0,I0
|
||||
7,P527,D519,S520,V0,I0
|
||||
8,P527,D521,S522,V0,I0
|
||||
9,P526,D513,S515,V60,I0
|
||||
10,P19P,D29P,S528,V30,I0
|
||||
11,P18P,D30D,S525,V0,I0
|
||||
12,P517,D20S,S2P,V0,I0
|
||||
17,P525,D535,S528,V0,I0
|
||||
18,P11P,D23P,S517,V0,I0
|
||||
19,P10P,D22P,S531,V0,I0
|
||||
20,P520,D21P,S12D,V0,I0
|
||||
21,P20D,D28D,S28D,V0,I0
|
||||
22,P19D,D537,S538,V0,I0
|
||||
23,P18D,D538,S534,V0,I0
|
||||
24,P538,D32S,S533,V0,I0
|
||||
25,P31S,D529,S27P,V0,I0
|
||||
26TJD,D(530,28D),S(529,28S),V0,I0
|
||||
27,P25S,D530,S537,V0,I0
|
||||
28TJD,D(21D,26D),S(21S,26S),V0,I0
|
||||
29,P10D,D513,S30S,V60,I0
|
||||
30,P524,D11D,S29D,V0,I0
|
||||
31,P534,D0,S25P,V0,I0
|
||||
32,P22S,D0,S24D,V0,I0
|
||||
0
|
||||
[section_branches]
|
||||
A2,A12,517,A18,A11,A30,524,521,A8,527,A7,519,A2
|
||||
A7,520,A20,A12
|
||||
A1,A3,A4,514,522,A8
|
||||
A1,523,526,A9,513,A29,A10,A19,531,518,A1
|
||||
A9,515,A5
|
||||
A11,525,A17,528,A10
|
||||
A17,535,533,A24,538,A23
|
||||
A7,520,A20,A21,A28,A26,530,A27,A25,A31,534,A23,A18
|
||||
A26,529,A25
|
||||
A22,537,A27
|
||||
A22,A32,A24
|
||||
A6,516,0
|
||||
A31,0
|
||||
0
|
||||
[section_sig]
|
||||
176,7,0,1,(520,A20),1
|
||||
190,7,0,1,(523,526),0
|
||||
204,9,0,1,(527,A7),1
|
||||
218,7,0,1,(525,A17),0
|
||||
232,2,1,1,(516,A6),0
|
||||
260,9,1,1,(518,A1),1
|
||||
274,3,0,1,(524,521),0
|
||||
288,7,0,1,(522,A8),1
|
||||
302,9,0,1,(526,A9),1
|
||||
316,7,1,1,(515,A5),1
|
||||
330,7,0,1,(519,A2),1
|
||||
344,9,0,1,(528,A10),1
|
||||
358,9,0,1,(517,A18),1
|
||||
372,D3,1,(A10D)(A19S)(A19D,A22D)(A19D,A22S)
|
||||
382,D3,1,(A29S,A10S)(A19S)(A19D,A22D)(A19D,A22S)
|
||||
392,3,0,1,(535,533),1
|
||||
420,7,0,1,(529,A25,530,A27,537,A27),1
|
||||
448,7,0,1,(533,A24),1
|
||||
462,9,0,1,(513,A29),1
|
||||
476,9,0,1,(538,A23),1
|
||||
497,9,0,4,(531,A19),1
|
||||
600,7,0,0,(521,A8),1
|
||||
1000,9,0,0,(530,A26),1
|
||||
1001,9,0,0,(529,A26),1,(A21S,A6D),(A30S,A20D),(A1D,A2S,A3D)
|
||||
0
|
||||
[section_act]
|
||||
815,1,CC406526,F2,400
|
||||
813,1,CC406526,A613,2,Z
|
||||
830,1,ZZ406526,A613,2,Z
|
||||
(815,830),(820,840),PN(121+,121-)
|
||||
(850,851),PN(12+,12-)
|
||||
0
|
||||
Binary file not shown.
+10
-12
@@ -1,11 +1,11 @@
|
||||
object FormVersion: TFormVersion
|
||||
Left = 197
|
||||
Top = 230
|
||||
Left = 222
|
||||
Top = 260
|
||||
BorderIcons = []
|
||||
BorderStyle = bsDialog
|
||||
BorderStyle = bsNone
|
||||
Caption = 'V'#233'rification de version'
|
||||
ClientHeight = 213
|
||||
ClientWidth = 644
|
||||
ClientHeight = 215
|
||||
ClientWidth = 645
|
||||
Color = clNavy
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clBlack
|
||||
@@ -17,19 +17,17 @@ object FormVersion: TFormVersion
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 20
|
||||
object Memo1: TMemo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 641
|
||||
Height = 209
|
||||
BorderStyle = bsNone
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 625
|
||||
Height = 185
|
||||
Color = clNavy
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clYellow
|
||||
Font.Height = -19
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
end
|
||||
object TimerVerif: TTimer
|
||||
|
||||
+5
-4
@@ -23,7 +23,7 @@ var
|
||||
Lance_verif : integer;
|
||||
verifVersion,notificationVersion : boolean;
|
||||
|
||||
Const Version='3.3'; // sert à la comparaison de la version publiée
|
||||
Const Version='3.4'; // sert à la comparaison de la version publiée
|
||||
SousVersion=' '; // en cas d'absence de sous version mettre un espace
|
||||
|
||||
implementation
|
||||
@@ -150,11 +150,12 @@ begin
|
||||
// commentaire en gras
|
||||
if zone_comm then
|
||||
begin
|
||||
i:=pos('bold">',s)+6;i2:=posEx('<br />',s,i+1);
|
||||
i:=pos('bold">',s)+6;i2:=posEx('<br />',s,i+1); i3:=posEx('</span>',s,i+1) ;
|
||||
if i<>6 then
|
||||
begin
|
||||
//Affiche(s,clred);
|
||||
inc(ncomm);
|
||||
if i3<i2 then i2:=i3;
|
||||
comm[ncomm]:=UTF8Decode(copy(s,i,i2-i));
|
||||
Delete(s,1,i2-1);
|
||||
j:=0;
|
||||
@@ -211,8 +212,8 @@ begin
|
||||
if (V_utile<V_publie) or
|
||||
((V_utile=V_publie) and (SousVersion<SV_publie)) then
|
||||
begin
|
||||
FormVersion.Top:=1;
|
||||
FormVersion.Left:=1;
|
||||
FormVersion.Top:=10;
|
||||
FormVersion.Left:=10;
|
||||
FormVersion.show;
|
||||
//aff(s3); // url dans s3
|
||||
s:='Vous utilisez la version '+version+SousVersion+' mais il existe la version '+Version_p+SV_publie;
|
||||
|
||||
+6
-2
@@ -63,8 +63,12 @@ version 3.1 : Renforcement de la v
|
||||
Correction d'un bug sur certains évènements aiguillages.
|
||||
Correction d'un bug sur présence train avant signal sur aiguille en talon mal positionnée.
|
||||
version 3.2 : Correction bug cohérence signal unisemaf.
|
||||
: Simplification des aiguillages pilotés inversés
|
||||
version 3.3 : Gestion du décodeur de signaux Stéphane Ravaut
|
||||
: Simplification des aiguillages pilotés inversés.
|
||||
version 3.3 : Gestion du décodeur de signaux Stéphane Ravaut.
|
||||
Possibilité de clic droit sur feu pour accéder à ses propriétés directement.
|
||||
version 3.31 : correction d'un bug sur les suppressions de feux et rajout de feux
|
||||
version 3.4 : fusion des fichiers de configurations en un feul fichier : ConfigGenerale.cfg
|
||||
Intégration des TJD à 2 états.
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user