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

V8.32

Browse Source
This commit is contained in:
f1iwq2
2023-12-21 12:38:21 +01:00
parent 8423b55ed3
commit 2356e18f43
15 changed files with 1523 additions and 1431 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Notice d'utilisation des signaux_complexes_GL_V8.3.pdf → Notice d'utilisation des signaux_complexes_GL_V8.32.pdf
BIN
View File
Binary file not shown.
README.adoc
+1 -1
View File
@@ -7,7 +7,7 @@ Fichiers sources.
Signaux_complexes_GL est client de CDM rail mais fonctionne aussi de façon autonome si vous disposez d'une centrale compatible Xpressnet. Il pilote les signaux complexes belges et français de façon automatique de votre réseau après modélisation (il existe une importation automatique du réseau CDM rail). Signaux_complexes_GL est client de CDM rail mais fonctionne aussi de façon autonome si vous disposez d'une centrale compatible Xpressnet. Il pilote les signaux complexes belges et français de façon automatique de votre réseau après modélisation (il existe une importation automatique du réseau CDM rail).
Il permet également de piloter des fonctions F de locomotives, jouer des sons et actionner des passages à niveaux à plusieurs voies d'après des actionneurs, piloter des périphériques via port COM/USB (ex=Arduinos) et Socket réseau. Il permet également de piloter des fonctions F de locomotives, jouer des sons et actionner des passages à niveaux à plusieurs voies d'après des actionneurs, piloter des périphériques via port COM/USB (ex=Arduinos) et Socket réseau.
Il gère des TCOs et peut lancer CDM rail automatiquement avec votre LAY et l'interface choisie. :mrgreen: Il gère des TCOs et peut lancer CDM rail automatiquement avec votre LAY et l'interface choisie.
Ce logiciel nécessite une installation : faire clic droit en sélectionnant "exécuter en tant qu'administrateur" sur installeur.exe. Ce logiciel nécessite une installation : faire clic droit en sélectionnant "exécuter en tant qu'administrateur" sur installeur.exe.
Vous pouvez voir les nouveautés de chaque version dans le fichier versions.txt. Vous pouvez voir les nouveautés de chaque version dans le fichier versions.txt.
Signaux_complexes_GL.cfg
+2 -2
View File
@@ -14,8 +14,8 @@
-$N+ -$N+
-$O- -$O-
-$P+ -$P+
-$Q+ -$Q-
-$R+ -$R-
-$S- -$S-
-$T- -$T-
-$U- -$U-
Signaux_complexes_GL.dof
+2 -2
View File
@@ -17,8 +17,8 @@ M=0
N=1 N=1
O=0 O=0
P=1 P=1
Q=1 Q=0
R=1 R=0
S=0 S=0
T=0 T=0
U=0 U=0
Signaux_complexes_GL.map
+111 -111
View File
@@ -1,104 +1,104 @@
Start Length Name Class Start Length Name Class
0001:00000000 0019E6D8H .text CODE 0001:00000000 0016EC04H .text CODE
0002:00000000 00002C20H .data DATA 0002:00000000 00002C24H .data DATA
0002:00002C20 045A150DH .bss BSS 0002:00002C24 00C39AC5H .bss BSS
Detailed map of segments Detailed map of segments
0001:00000000 00005EC7 C=CODE S=.text G=(none) M=System ACBP=A9 0001:00000000 00005E87 C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005EC8 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9 0001:00005E88 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00006008 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9 0001:00005FC8 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:00006110 00000F08 C=CODE S=.text G=(none) M=Windows ACBP=A9 0001:000060D0 00000F08 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00007018 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9 0001:00006FD8 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:00007050 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9 0001:00007010 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:00007388 00006E28 C=CODE S=.text G=(none) M=SysUtils ACBP=A9 0001:00007348 00006E28 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E1B0 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9 0001:0000E170 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000E9CC 0000809A C=CODE S=.text G=(none) M=Variants ACBP=A9 0001:0000E98C 0000809A C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016A68 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9 0001:00016A28 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016C08 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9 0001:00016BC8 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:00017444 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9 0001:00017404 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:0001779C 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9 0001:0001775C 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:00021F88 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9 0001:00021F48 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:000222F8 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9 0001:000222B8 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002BEF4 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9 0001:0002BEB4 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002C018 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9 0001:0002BFD8 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C2D0 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9 0001:0002C290 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C468 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9 0001:0002C428 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CBF0 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9 0001:0002CBB0 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CC28 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9 0001:0002CBE8 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DC20 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9 0001:0002DBE0 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DC78 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9 0001:0002DC38 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002ED40 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9 0001:0002ED00 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F060 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9 0001:0002F020 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F450 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9 0001:0002F410 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:0002FE0C 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9 0001:0002FDCC 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:0002FE44 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9 0001:0002FE04 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:0002FE7C 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9 0001:0002FE3C 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:0002FEBC 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9 0001:0002FE7C 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:0002FEF4 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9 0001:0002FEB4 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:0002FF4C 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9 0001:0002FF0C 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:0002FF84 0000006C C=CODE S=.text G=(none) M=ShlObj ACBP=A9 0001:0002FF44 0000006C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:0002FFF0 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9 0001:0002FFB0 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:00030050 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9 0001:00030010 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:00030088 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9 0001:00030048 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:0003375C 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9 0001:0003371C 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038238 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9 0001:000381F8 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:000382C8 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9 0001:00038288 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038A68 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9 0001:00038A28 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038B90 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9 0001:00038B50 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C3B4 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9 0001:0003C374 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C3EC 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9 0001:0003C3AC 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C454 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9 0001:0003C414 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C4BC 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9 0001:0003C47C 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C528 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9 0001:0003C4E8 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C580 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9 0001:0003C540 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C5B8 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9 0001:0003C578 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:00045F00 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9 0001:00045EC0 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00046DA0 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9 0001:00046D60 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00053438 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9 0001:000533F8 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:000535A0 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9 0001:00053560 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:000542C0 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9 0001:00054280 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:000656C4 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9 0001:00065684 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066958 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9 0001:00066918 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:000684F4 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9 0001:000684B4 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006EBD8 0000CEFC C=CODE S=.text G=(none) M=Forms ACBP=A9 0001:0006EB98 0000CEFC C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BAD4 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9 0001:0007BA94 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0007BB34 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9 0001:0007BAF4 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:0007CD90 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9 0001:0007CD50 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0007CDC8 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9 0001:0007CD88 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:0007E55C 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9 0001:0007E51C 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:0007E5BC 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9 0001:0007E57C 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00081AD8 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9 0001:00081A98 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:00081B28 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9 0001:00081AE8 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:00094F14 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9 0001:00094ED4 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:00095228 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9 0001:000951E8 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:00095350 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9 0001:00095310 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:00098DC8 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9 0001:00098D88 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:000996B4 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9 0001:00099674 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099C4C 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9 0001:00099C0C 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099C8C 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9 0001:00099C4C 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099CC4 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9 0001:00099C84 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A6DC 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9 0001:0009A69C 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009C7E4 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9 0001:0009C7A4 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5A30 00001900 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9 0001:000A59F0 00001748 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A7330 000004D0 C=CODE S=.text G=(none) M=Importation ACBP=A9 0001:000A7138 000004D0 C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000A7800 00013B20 C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9 0001:000A7608 000102E0 C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000BB320 00002C44 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9 0001:000B78E8 000026F4 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000BDF64 00000D10 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9 0001:000B9FDC 00000C40 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000BEC74 00004D74 C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9 0001:000BAC1C 00003A0C C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000C39E8 000452B4 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9 0001:000BE628 00030CB0 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:00108C9C 000030E4 C=CODE S=.text G=(none) M=UnitSR ACBP=A9 0001:000EF2D8 00002C18 C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:0010BD80 000027D4 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9 0001:000F1EF0 00002404 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:0010E554 00040BD0 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9 0001:000F42F4 00001613 C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:0014F124 000017E7 C=CODE S=.text G=(none) M=verif_version ACBP=A9 0001:000F5908 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0015090C 000011D8 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9 0001:000F6AD8 00038000 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:00151AE4 00002B44 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9 0001:0012EAD8 000029E0 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:00154628 00000D2C C=CODE S=.text G=(none) M=UnitSimule ACBP=A9 0001:001314B8 00000C00 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:00155354 00002580 C=CODE S=.text G=(none) M=Unitplace ACBP=A9 0001:001320B8 000023CC C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:001578D4 00046974 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9 0001:00134484 0003A2F0 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:0019E248 0000048D C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9 0001:0016E774 0000048D C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9
0002:00000000 000000CC C=DATA S=.data G=DGROUP M=System ACBP=A9 0002:00000000 000000CC C=DATA S=.data G=DGROUP M=System ACBP=A9
0002:000000CC 00000020 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9 0002:000000CC 00000020 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9
0002:000000EC 00000254 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9 0002:000000EC 00000254 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9
@@ -208,20 +208,20 @@ Detailed map of segments
0002:00003E60 00000004 C=BSS S=.bss G=DGROUP M=Grids ACBP=A9 0002:00003E60 00000004 C=BSS S=.bss G=DGROUP M=Grids ACBP=A9
0002:00003E64 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9 0002:00003E64 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9
0002:00003E74 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9 0002:00003E74 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9
0002:00003E84 00003DC0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9 0002:00003E84 000228A0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00007C44 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9 0002:00026724 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00007C58 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9 0002:00026738 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:00007C6C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9 0002:0002674C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00007C80 004186C8 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9 0002:00026760 004186C8 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:00420348 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9 0002:0043EE28 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:00420358 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9 0002:0043EE38 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:0042036C 000004FC C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9 0002:0043EE4C 00000018 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:00420868 00000018 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9 0002:0043EE64 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:00420880 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9 0002:0043EE68 000004FC C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:00420884 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9 0002:0043F364 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:004208B0 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9 0002:0043F390 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:004208BC 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9 0002:0043F39C 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:004208C4 04183C48 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9 0002:0043F3A4 007FD720 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9
Bound resource files Bound resource files
@@ -237,8 +237,8 @@ UnitConfigCellTCO.dfm
UnitTCO.dfm UnitTCO.dfm
UnitSR.dfm UnitSR.dfm
UnitCDF.dfm UnitCDF.dfm
UnitConfig.dfm
verif_version.dfm verif_version.dfm
UnitConfig.dfm
UnitDebug.dfm UnitDebug.dfm
UnitSimule.dfm UnitSimule.dfm
Unitplace.dfm Unitplace.dfm
@@ -247,4 +247,4 @@ Signaux_complexes_GL.res
Signaux_complexes_GL.drf Signaux_complexes_GL.drf
Program entry point at 0001:0019E558 Program entry point at 0001:0016EA84
UnitConfig.dfm
+29 -30
View File
@@ -1,6 +1,6 @@
object FormConfig: TFormConfig object FormConfig: TFormConfig
Left = 247 Left = 117
Top = 117 Top = 189
Hint = 'Modifie la configuration selon les s'#233'lections choisies' Hint = 'Modifie la configuration selon les s'#233'lections choisies'
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Configuration g'#233'n'#233'rale' Caption = 'Configuration g'#233'n'#233'rale'
@@ -668,7 +668,7 @@ object FormConfig: TFormConfig
Top = 8 Top = 8
Width = 633 Width = 633
Height = 497 Height = 497
ActivePage = TabSheetCDM ActivePage = TabSheetAct
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
@@ -1240,9 +1240,9 @@ object FormConfig: TFormConfig
object RadioButton2: TRadioButton object RadioButton2: TRadioButton
Left = 8 Left = 8
Top = 40 Top = 40
Width = 225 Width = 241
Height = 17 Height = 17
Caption = '1 : Ent'#234'te FF FE (interfaces natives USB)' Caption = '1 : Ent'#234'te FF FE/FD (interfaces natives USB)'
TabOrder = 1 TabOrder = 1
end end
end end
@@ -2332,7 +2332,7 @@ object FormConfig: TFormConfig
end end
object Label69: TLabel object Label69: TLabel
Left = 152 Left = 152
Top = 328 Top = 326
Width = 122 Width = 122
Height = 39 Height = 39
Hint = Hint =
@@ -2766,7 +2766,6 @@ object FormConfig: TFormConfig
Top = 56 Top = 56
Width = 193 Width = 193
Height = 21 Height = 21
AutoComplete = False
ItemHeight = 0 ItemHeight = 0
TabOrder = 0 TabOrder = 0
OnChange = ComboBoxDecodeurPersoChange OnChange = ComboBoxDecodeurPersoChange
@@ -2865,7 +2864,7 @@ object FormConfig: TFormConfig
TabOrder = 0 TabOrder = 0
object GroupBoxRadio: TGroupBox object GroupBoxRadio: TGroupBox
Left = 8 Left = 8
Top = 120 Top = 24
Width = 249 Width = 249
Height = 89 Height = 89
Caption = 'Type d'#39'action' Caption = 'Type d'#39'action'
@@ -2909,14 +2908,14 @@ object FormConfig: TFormConfig
end end
object GroupBoxAct: TGroupBox object GroupBoxAct: TGroupBox
Left = 8 Left = 8
Top = 24 Top = 120
Width = 249 Width = 249
Height = 321 Height = 321
Caption = 'Action fonction de locomotive ' Caption = 'Action fonction de locomotive '
TabOrder = 1 TabOrder = 1
object GroupBox18: TGroupBox object GroupBox18: TGroupBox
Left = 8 Left = 8
Top = 24 Top = 16
Width = 233 Width = 233
Height = 161 Height = 161
Caption = 'D'#233'clencheur ' Caption = 'D'#233'clencheur '
@@ -2970,9 +2969,9 @@ object FormConfig: TFormConfig
Width = 129 Width = 129
Height = 21 Height = 21
Hint = Hint =
'Train d'#233'clencheur pour lequel la condition s'#39'applique (mettre X ' + 'Train(s) d'#233'clencheur(s) s'#233'par'#233's par des virgules pour lequel la ' +
'pour tous les trains) #13 d'#233'clenchement par actionneur uniquemen' + 'condition s'#39'applique (mettre X pour tous les trains) #13 d'#233'clenc' +
't' 'hement par actionneur uniquement'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 2 TabOrder = 2
@@ -3023,8 +3022,8 @@ object FormConfig: TFormConfig
end end
end end
object GroupBox19: TGroupBox object GroupBox19: TGroupBox
Left = 56 Left = 8
Top = 32 Top = 168
Width = 233 Width = 233
Height = 137 Height = 137
Caption = 'Destinataire de l'#39'action ' Caption = 'Destinataire de l'#39'action '
@@ -3217,7 +3216,7 @@ object FormConfig: TFormConfig
Height = 21 Height = 21
Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"' Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
Style = csDropDownList Style = csDropDownList
ItemHeight = 0 ItemHeight = 13
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 6 TabOrder = 6
@@ -3238,24 +3237,24 @@ object FormConfig: TFormConfig
end end
end end
object GroupBoxPNA: TGroupBox object GroupBoxPNA: TGroupBox
Left = 104 Left = 168
Top = 160 Top = 152
Width = 169 Width = 169
Height = 121 Height = 121
Caption = 'Actionneurs PN simples' Caption = 'Actionneurs PN simples'
TabOrder = 2 TabOrder = 2
end end
object GroupBoxPNZ: TGroupBox object GroupBoxPNZ: TGroupBox
Left = 64 Left = 88
Top = 48 Top = 320
Width = 169 Width = 169
Height = 65 Height = 65
Caption = 'Zones de d'#233'tection' Caption = 'Zones de d'#233'tection'
TabOrder = 3 TabOrder = 3
end end
object GroupBoxPN: TGroupBox object GroupBoxPN: TGroupBox
Left = 40 Left = 184
Top = 48 Top = 24
Width = 249 Width = 249
Height = 193 Height = 193
Caption = 'Action gestion passage '#224' niveau' Caption = 'Action gestion passage '#224' niveau'
@@ -3378,7 +3377,7 @@ object FormConfig: TFormConfig
end end
object RadioGroupActPN: TRadioGroup object RadioGroupActPN: TRadioGroup
Left = 8 Left = 8
Top = 16 Top = 24
Width = 217 Width = 217
Height = 57 Height = 57
Hint = 'action par accessoire DCC ou commande COM/USB' Hint = 'action par accessoire DCC ou commande COM/USB'
@@ -3398,7 +3397,7 @@ object FormConfig: TFormConfig
Height = 21 Height = 21
Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"' Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
Style = csDropDownList Style = csDropDownList
ItemHeight = 0 ItemHeight = 13
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 10 TabOrder = 10
@@ -4087,13 +4086,13 @@ object FormConfig: TFormConfig
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 28 Top = 28
Width = 570 Width = 606
Height = 26 Height = 26
Caption = Caption =
'Ils sont utilis'#233's pour '#234'tre activ'#233's par un actionneur et leur en' + 'Les p'#233'riph'#233'riques sont utilis'#233's pour '#234'tre activ'#233's par un actionn' +
'voyer des ordres ASCII. On peut '#233'galement leur envoyer des infor' + 'eur et pour leur envoyer des ordres ASCII. On peut '#233'galement leu' +
'mations sur les '#233'v'#232'nements aiguillage, d'#233'tecteurs et actionneurs' + 'r envoyer des informations sur les '#233'v'#232'nements aiguillage, d'#233'tect' +
' via les services.' 'eurs et actionneurs via les services.'
WordWrap = True WordWrap = True
end end
object ListBoxPeriph: TListBox object ListBoxPeriph: TListBox
@@ -4163,7 +4162,7 @@ object FormConfig: TFormConfig
end end
object ButtonOuvreCom: TButton object ButtonOuvreCom: TButton
Left = 14 Left = 14
Top = 365 Top = 421
Width = 75 Width = 75
Height = 20 Height = 20
Hint = 'R'#233'ouvre les ports COMs et Sockets demand'#233's' Hint = 'R'#233'ouvre les ports COMs et Sockets demand'#233's'
UnitConfig.pas
+800 -719
View File
File diff suppressed because it is too large Load Diff
UnitDebug.pas
+1 -4
View File
@@ -607,7 +607,7 @@ begin
end; end;
if protocole=2 then AfficheDebug('D11: Commande DCC++ pas encore implantée',clred) if protocole=2 then AfficheDebug('D11: Commande DCC++ pas encore implantée',clred)
end; end;
Self.ActiveControl:=nil; Self.ActiveControl:=nil;
end; end;
@@ -633,9 +633,6 @@ begin
end; end;
procedure TFormDebug.CheckBoxPrincClick(Sender: TObject); procedure TFormDebug.CheckBoxPrincClick(Sender: TObject);
begin begin
ProcPrinc:=checkBoxPrinc.checked; ProcPrinc:=checkBoxPrinc.checked;
UnitPareFeu.pas
+5 -3
View File
@@ -25,6 +25,8 @@ Const
// Ajoute une règle au pare feu pour un programme en utilisant Microsoft Windows Firewall APIs. // Ajoute une règle au pare feu pour un programme en utilisant Microsoft Windows Firewall APIs.
// sp=Nom indicatif du programme (nom de la règle qui sera insérée dans le par-feu
// chemin : chemin partiel et executable
function AddApplicationRule(sp,chemin : string) : boolean; function AddApplicationRule(sp,chemin : string) : boolean;
var var
CurrentProfiles,fwPolicy2,RulesObject,NewRule : OleVariant; CurrentProfiles,fwPolicy2,RulesObject,NewRule : OleVariant;
@@ -42,8 +44,8 @@ begin
//Crée l'objet de la règle. //Crée l'objet de la règle.
NewRule:=CreateOleObject('HNetCfg.FWRule'); NewRule:=CreateOleObject('HNetCfg.FWRule');
NewRule.Name:=sp; // CDM rail NewRule.Name:=sp;
NewRule.Description:='Autorise le socket de/vers CDM rail'+sp; NewRule.Description:='Autorise le socket de/vers '+sp;
NewRule.Applicationname:=fichier; NewRule.Applicationname:=fichier;
NewRule.Protocol:=NET_FW_IP_PROTOCOL_TCP; NewRule.Protocol:=NET_FW_IP_PROTOCOL_TCP;
@@ -60,7 +62,7 @@ begin
r:=true; r:=true;
except except
begin begin
s:='Erreur: impossible d''accéder au pare feu windows. Le pare feu est géré par un programme tiers.'; s:='Erreur: impossible d''accéder au pare feu Windows. Le pare feu est géré par un programme tiers.';
Affiche(s,clred); Affiche(s,clred);
formconfig.Labelinfo.caption:=s; formconfig.Labelinfo.caption:=s;
r:=false; r:=false;
UnitPrinc.dfm
+18 -32
View File
@@ -1,6 +1,6 @@
object FormPrinc: TFormPrinc object FormPrinc: TFormPrinc
Left = 84 Left = 79
Top = 223 Top = 256
Width = 1133 Width = 1133
Height = 653 Height = 653
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
@@ -20,7 +20,7 @@ object FormPrinc: TFormPrinc
OnResize = FormResize OnResize = FormResize
DesignSize = ( DesignSize = (
1117 1117
595) 594)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object LabelTitre: TLabel object LabelTitre: TLabel
@@ -227,7 +227,7 @@ object FormPrinc: TFormPrinc
Visible = False Visible = False
end end
object Image7feux: TImage object Image7feux: TImage
Left = 504 Left = 440
Top = 0 Top = 0
Width = 57 Width = 57
Height = 105 Height = 105
@@ -395,8 +395,8 @@ object FormPrinc: TFormPrinc
Visible = False Visible = False
end end
object Image5feux: TImage object Image5feux: TImage
Left = 280 Left = 728
Top = 0 Top = -8
Width = 41 Width = 41
Height = 89 Height = 89
Picture.Data = { Picture.Data = {
@@ -495,8 +495,8 @@ object FormPrinc: TFormPrinc
Visible = False Visible = False
end end
object Image4feux: TImage object Image4feux: TImage
Left = 240 Left = 704
Top = 8 Top = 0
Width = 41 Width = 41
Height = 97 Height = 97
Picture.Data = { Picture.Data = {
@@ -1188,23 +1188,9 @@ object FormPrinc: TFormPrinc
0000} 0000}
Visible = False Visible = False
end end
object LabelEtat: TLabel
Left = 360
Top = 8
Width = 152
Height = 18
Anchors = [akTop, akRight]
Caption = 'Initialisations en cours'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object ImageSignal20: TImage object ImageSignal20: TImage
Left = 1072 Left = 1048
Top = 96 Top = 416
Width = 57 Width = 57
Height = 105 Height = 105
Picture.Data = { Picture.Data = {
@@ -1443,7 +1429,7 @@ object FormPrinc: TFormPrinc
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Top = 573 Top = 572
Width = 1117 Width = 1117
Height = 22 Height = 22
Panels = < Panels = <
@@ -1481,8 +1467,8 @@ object FormPrinc: TFormPrinc
00020000802500000000080000000000000000003F00000011000000} 00020000802500000000080000000000000000003F00000011000000}
end end
object Button1: TButton object Button1: TButton
Left = 408 Left = 728
Top = 0 Top = 8
Width = 75 Width = 75
Height = 25 Height = 25
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -1550,7 +1536,7 @@ object FormPrinc: TFormPrinc
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 505 Left = 505
Top = 13 Top = 21
Width = 265 Width = 265
Height = 52 Height = 52
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -1985,7 +1971,7 @@ object FormPrinc: TFormPrinc
end end
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 505 Left = 505
Top = 24 Top = 16
Width = 265 Width = 265
Height = 105 Height = 105
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -2089,7 +2075,7 @@ object FormPrinc: TFormPrinc
OnDisconnect = ClientSocketInterfaceDisconnect OnDisconnect = ClientSocketInterfaceDisconnect
OnRead = ClientSocketInterfaceRead OnRead = ClientSocketInterfaceRead
OnError = ClientSocketInterfaceError OnError = ClientSocketInterfaceError
Left = 320 Left = 264
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Left = 560 Left = 560
@@ -2432,7 +2418,7 @@ object FormPrinc: TFormPrinc
OnDisconnect = ClientSocketCDMDisconnect OnDisconnect = ClientSocketCDMDisconnect
OnRead = ClientSocketCDMRead OnRead = ClientSocketCDMRead
OnError = ClientSocketCDMError OnError = ClientSocketCDMError
Left = 344 Left = 296
end end
object OpenDialog: TOpenDialog object OpenDialog: TOpenDialog
Left = 944 Left = 944
@@ -2500,6 +2486,6 @@ object FormPrinc: TFormPrinc
OnAccept = ServerSocketAccept OnAccept = ServerSocketAccept
OnClientDisconnect = ServerSocketClientDisconnect OnClientDisconnect = ServerSocketClientDisconnect
OnClientRead = ServerSocketClientRead OnClientRead = ServerSocketClientRead
Left = 368 Left = 320
end end
end end
UnitPrinc.pas
+530 -498
View File
File diff suppressed because it is too large Load Diff
UnitTCO.pas
+6 -17
View File
@@ -8417,12 +8417,12 @@ begin
i:=index_aig(adresse); i:=index_aig(adresse);
AdrTr:=aiguillage[i].AdrTrain; AdrTr:=aiguillage[i].AdrTrain;
typ:=aiguillage[i].modele; typ:=aiguillage[i].modele;
if AdrTr=0 then if AdrTr=0 then
begin begin
Brush.Color:=tco[indextco,x,y].CouleurFond; Brush.Color:=tco[indextco,x,y].CouleurFond;
//SetBkMode(PCanvasTCO[indexTCO].Handle,TRANSPARENT); //SetBkMode(PCanvasTCO[indexTCO].Handle,TRANSPARENT);
s:=s+' '; // efface l'adresse de réservation if avecRESA or roulage then s:=s+' '; // efface l'adresse de réservation
end end
else else
begin begin
@@ -8573,7 +8573,7 @@ begin
else begin xt:=round(2*frxGlob[indexTCO]);yt:=round(1*fryGlob[indexTCO]);end; else begin xt:=round(2*frxGlob[indexTCO]);yt:=round(1*fryGlob[indexTCO]);end;
end; end;
end; end;
if (aspect=9) and (Oriente=1) then begin xt:=LargeurCell[indexTCO]-round(25*frxGlob[indexTCO]);yt:=2*hauteurCell[indexTCO]-round(25*fryGlob[indexTCO]);end; if (aspect=9) and (Oriente=1) then begin xt:=LargeurCell[indexTCO]-round(25*frxGlob[indexTCO]);yt:=round(60*fryGlob[indexTCO]);end;
if (aspect=9) and (Oriente=2) then begin xt:=round(10*frxGlob[indexTCO]);yt:=hauteurCell[indexTCO]-round(17*fryGlob[indexTCO]);end; // orientation G if (aspect=9) and (Oriente=2) then begin xt:=round(10*frxGlob[indexTCO]);yt:=hauteurCell[indexTCO]-round(17*fryGlob[indexTCO]);end; // orientation G
if (aspect=9) and (Oriente=3) then begin xt:=LargeurCell[indexTCO]+round(25*frxGlob[indexTCO]);yt:=1;end; if (aspect=9) and (Oriente=3) then begin xt:=LargeurCell[indexTCO]+round(25*frxGlob[indexTCO]);yt:=1;end;
if (aspect=9) and (Oriente=4) and (pied=1) then begin xt:=round(2*frxGlob[indexTCO]);yt:=round(10*frYGlob[indexTCO]);end; if (aspect=9) and (Oriente=4) and (pied=1) then begin xt:=round(2*frxGlob[indexTCO]);yt:=round(10*frYGlob[indexTCO]);end;
@@ -8627,8 +8627,6 @@ begin
TextOut(xOrg+xt,yOrg+yt,s); TextOut(xOrg+xt,yOrg+yt,s);
end; end;
end; end;
//if AvecGrille entoure_cell_grille(x,y); // grille devant
end; end;
@@ -8684,8 +8682,6 @@ begin
end; end;
end; end;
// affiche le tco suivant le tableau TCO // affiche le tco suivant le tableau TCO
procedure Affiche_TCO(indexTCO : integer) ; procedure Affiche_TCO(indexTCO : integer) ;
var x,y,x1,y1,DimX,DimY : integer; var x,y,x1,y1,DimX,DimY : integer;
@@ -8790,7 +8786,6 @@ begin
if entoure[indexTCO] then Entoure_cell(indexTCO,Xentoure[indexTCO],Yentoure[indexTCO]); if entoure[indexTCO] then Entoure_cell(indexTCO,Xentoure[indexTCO],Yentoure[indexTCO]);
if rect_select.NumTCO<>0 then Affiche_Rectangle(IndexTCO,Rect_select); if rect_select.NumTCO<>0 then Affiche_Rectangle(IndexTCO,Rect_select);
if selectionaffichee[indexTCO] then Affiche_selection(indexTCO); if selectionaffichee[indexTCO] then Affiche_selection(indexTCO);
end; end;
@@ -8822,7 +8817,7 @@ begin
xMiniSel:=99999;yMiniSel:=99999; xMiniSel:=99999;yMiniSel:=99999;
xMaxiSel:=0;yMaxiSel:=0; xMaxiSel:=0;yMaxiSel:=0;
SelectionAffichee[indexTCOCreate]:=false; SelectionAffichee[indexTCOCreate]:=false;
// ImageTCO.Canvas.font.Name:='Arial'; <--- peut générer exception out of ressource!! //ImageTCO.Canvas.font.Name:='Arial'; //<--- peut générer exception out of ressource!!
clTexte:=ClLime; clTexte:=ClLime;
// évite le clignotement pendant les affichages mais ne marche pas // évite le clignotement pendant les affichages mais ne marche pas
//DoubleBuffered:=true; //DoubleBuffered:=true;
@@ -10721,7 +10716,6 @@ begin
{initalisation des dimensions du tco - à ne faire qu'une fois} {initalisation des dimensions du tco - à ne faire qu'une fois}
if not(Forminit[indexTCO]) then if not(Forminit[indexTCO]) then
begin begin
Button1.Visible:=not(Diffusion); Button1.Visible:=not(Diffusion);
Button2.Visible:=not(Diffusion); Button2.Visible:=not(Diffusion);
ButtonCalibrage.Visible:=not(diffusion); ButtonCalibrage.Visible:=not(diffusion);
@@ -11799,10 +11793,9 @@ begin
Annule(indexTCO); Annule(indexTCO);
end; end;
// renvoie un élément du TCO par l'icone en fonction des 4 tracés désirés // renvoie une icone en fonction des 4 tracés désirés
// exemple : deux lignes qui se croisent renvoie un croisement // exemple : deux lignes qui se croisent renvoie un croisement
// el = élement à remplacer // el = élement à remplacer
// Bim = élément d'origine
// quadrant des 4 tracés (2=NE 3=Est 4=SE 5=S ) // quadrant des 4 tracés (2=NE 3=Est 4=SE 5=S )
// premier : si c'est le premier élément du tracé // premier : si c'est le premier élément du tracé
// dernier : si c'est le dernier élément du tracé // dernier : si c'est le dernier élément du tracé
@@ -12769,7 +12762,7 @@ end;
// affiche les cellules des tco dont l'adresse d'aiguillage est adresse // affiche les cellules des tco dont l'adresse d'aiguillage est adresse
Procedure Texte_aig_fond(adresse : integer); Procedure Texte_aig_fond(adresse : integer);
var ntco,i,x,y,Bim : integer; var ntco,x,y,Bim : integer;
begin begin
for ntco:=1 to NbreTCO do for ntco:=1 to NbreTCO do
begin begin
@@ -12789,9 +12782,6 @@ begin
end; end;
end; end;
procedure TFormTCO.Button1Click(Sender: TObject); procedure TFormTCO.Button1Click(Sender: TObject);
begin begin
Detecteur[569].etat:=true; Detecteur[569].etat:=true;
@@ -12804,7 +12794,6 @@ begin
Maj_tco(index_TCO(sender),569); Maj_tco(index_TCO(sender),569);
end; end;
procedure TFormTCO.ImagePalette10EndDrag(Sender, Target: TObject; X, Y: Integer); procedure TFormTCO.ImagePalette10EndDrag(Sender, Target: TObject; X, Y: Integer);
begin begin
end_drag(10,x,y,Sender,Target); end_drag(10,x,y,Sender,Target);
Unitplace.pas
+2 -2
View File
@@ -142,7 +142,7 @@ begin
end; end;
raz_tout; raz_tout;
for detect:=1 to NbMemZone do for detect:=1 to NbMaxDet do
begin begin
detecteur[detect].train:=''; detecteur[detect].train:='';
detecteur[detect].AdrTrain:=0; detecteur[detect].AdrTrain:=0;
@@ -167,7 +167,7 @@ begin
val(s,detect,erreur); val(s,detect,erreur);
val(Ssuiv,Suiv,erreur); val(Ssuiv,Suiv,erreur);
NomTrain:=trains[i].nom_train; NomTrain:=trains[i].nom_train;
if (detect>NbMemZone )then LabelTexte.caption:='Erreur détecteur train '+intToSTR(i); if (detect>NbMaxDet )then LabelTexte.caption:='Erreur détecteur train '+intToSTR(i);
if detect<>0 then if detect<>0 then
begin begin
prec:=det_suiv_cont(Suiv,detect,1); // détecteur précédent (d'ou vient la loco) arret sur suivant prec:=det_suiv_cont(Suiv,detect,1); // détecteur précédent (d'ou vient la loco) arret sur suivant
verif_version.pas
+13 -9
View File
@@ -25,7 +25,7 @@ var
verifVersion,notificationVersion : boolean; verifVersion,notificationVersion : boolean;
date_creation,nombre_tel : string; date_creation,nombre_tel : string;
Const Version='8.3'; // sert à la comparaison de la version publiée Const Version='8.32'; // sert à la comparaison de la version publiée
SousVersion=' '; // A B C ... en cas d'absence de sous version mettre un espace SousVersion=' '; // A B C ... en cas d'absence de sous version mettre un espace
function GetCurrentProcessEnvVar(const VariableName: string): string; function GetCurrentProcessEnvVar(const VariableName: string): string;
@@ -84,6 +84,7 @@ begin
i:=getLastError; i:=getLastError;
if i<>0 then if i<>0 then
case i of case i of
12007 : Affiche('Erreur de résolution DNS',clred);
12037 : Affiche('Erreur validité de certificat',clred); 12037 : Affiche('Erreur validité de certificat',clred);
12157 : Affiche('Erreur canal sécurisé SSL 2.0',clred); 12157 : Affiche('Erreur canal sécurisé SSL 2.0',clred);
else affiche('Erreur '+intToSTR(i),clred); else affiche('Erreur '+intToSTR(i),clred);
@@ -114,6 +115,7 @@ begin
end; end;
// renvoie le numéro de version depuis le site github // renvoie le numéro de version depuis le site github
// si 0
function verifie_version : real; function verifie_version : real;
var description,s,s2,s3,Version_p,Url,LocalFile,nomfichier,date_creation_ang var description,s,s2,s3,Version_p,Url,LocalFile,nomfichier,date_creation_ang
: string; : string;
@@ -228,7 +230,7 @@ begin
//description:=utf8Decode(description); //description:=utf8Decode(description);
i:=1 ; j:=1; i:=1 ; j:=1;
// couper en chaînes // couper en chaînes
repeat repeat
j:=pos('\r',description); j:=pos('\r',description);
if j<>0 then if j<>0 then
begin begin
@@ -248,7 +250,7 @@ begin
// //
ncomm:=i; ncomm:=i;
comm[i]:=supprime_anti(description); comm[i]:=supprime_anti(description);
end; end;
end; end;
@@ -322,14 +324,16 @@ begin
result:=V_publie; result:=V_publie;
end end
else else
affiche('Le dépôt github ne comprend aucune version diffusée.',clOrange); begin
result:=-1;
affiche('Le dépôt github ne comprend aucune version diffusée.',clOrange);
end;
end end
else else
begin begin
result:=0; result:=0;
if notificationVersion then Affiche('Pas d''accès au site github.com ou échec téléchargement',clorange); Affiche('Pas d''accès au site github.com ou échec téléchargement',clorange);
end; end;
end; end;
versions.txt
+3 -1
View File
@@ -210,4 +210,6 @@ version 8.3 : Possibilit
Création d'un mode sélectionnable de réservation des aiguillages par les trains. Création d'un mode sélectionnable de réservation des aiguillages par les trains.
Création d'un serveur de données socket pour la transmission des évènements. Création d'un serveur de données socket pour la transmission des évènements.
Possibilité de télécommander Signaux_Complexes depuis les périphériques ou le serveur socket. Possibilité de télécommander Signaux_Complexes depuis les périphériques ou le serveur socket.
version 8.31 : Correction d'un bug sur les détecteurs amonts des signaux.
version 8.32 : Un actionneur seul peut être déclenché par plusieurs trains.
Correction du lancement du serveur COM-IP pour CDMRail V20.12