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

V8.35

Browse Source
This commit is contained in:
f1iwq2
2023-12-30 10:55:17 +01:00
parent b4dbebdb68
commit dd92decbac
8 changed files with 836 additions and 608 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Notice d'utilisation des signaux_complexes_GL_V8.33.pdf → Notice d'utilisation des signaux_complexes_GL_V8.35.pdf
BIN
View File
Binary file not shown.
Signaux_complexes_GL.map
+117 -117
View File
@@ -1,104 +1,104 @@
Start Length Name Class Start Length Name Class
0001:00000000 0016EE98H .text CODE 0001:00000000 0019EF04H .text CODE
0002:00000000 00002C50H .data DATA 0002:00000000 00002C2CH .data DATA
0002:00002C50 00C39ABDH .bss BSS 0002:00002C2C 045DDFF1H .bss BSS
Detailed map of segments Detailed map of segments
0001:00000000 00005E8F C=CODE S=.text G=(none) M=System ACBP=A9 0001:00000000 00005EC7 C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005E90 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9 0001:00005EC8 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00005FD0 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9 0001:00006008 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:000060D8 00000F08 C=CODE S=.text G=(none) M=Windows ACBP=A9 0001:00006110 00000F08 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00006FE0 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9 0001:00007018 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:00007018 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9 0001:00007050 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:00007350 00006E28 C=CODE S=.text G=(none) M=SysUtils ACBP=A9 0001:00007388 00006E28 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E178 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9 0001:0000E1B0 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000E994 0000809A C=CODE S=.text G=(none) M=Variants ACBP=A9 0001:0000E9CC 0000809A C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016A30 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9 0001:00016A68 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016BD0 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9 0001:00016C08 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:0001740C 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9 0001:00017444 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:00017764 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9 0001:0001779C 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:00021F50 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9 0001:00021F88 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:000222C0 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9 0001:000222F8 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002BEBC 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9 0001:0002BEF4 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002BFE0 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9 0001:0002C018 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C298 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9 0001:0002C2D0 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C430 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9 0001:0002C468 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CBB8 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9 0001:0002CBF0 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CBF0 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9 0001:0002CC28 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DBE8 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9 0001:0002DC20 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DC40 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9 0001:0002DC78 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002ED08 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9 0001:0002ED40 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F028 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9 0001:0002F060 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F418 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9 0001:0002F450 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:0002FDD4 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9 0001:0002FE0C 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:0002FE0C 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9 0001:0002FE44 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:0002FE44 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9 0001:0002FE7C 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:0002FE84 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9 0001:0002FEBC 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:0002FEBC 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9 0001:0002FEF4 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:0002FF14 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9 0001:0002FF4C 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:0002FF4C 0000006C C=CODE S=.text G=(none) M=ShlObj ACBP=A9 0001:0002FF84 0000006C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:0002FFB8 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9 0001:0002FFF0 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:00030018 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9 0001:00030050 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:00030050 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9 0001:00030088 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:00033724 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9 0001:0003375C 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038200 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9 0001:00038238 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:00038290 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9 0001:000382C8 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038A30 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9 0001:00038A68 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038B58 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9 0001:00038B90 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C37C 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9 0001:0003C3B4 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C3B4 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9 0001:0003C3EC 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C41C 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9 0001:0003C454 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C484 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9 0001:0003C4BC 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C4F0 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9 0001:0003C528 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C548 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9 0001:0003C580 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C580 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9 0001:0003C5B8 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:00045EC8 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9 0001:00045F00 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00046D68 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9 0001:00046DA0 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00053400 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9 0001:00053438 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:00053568 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9 0001:000535A0 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:00054288 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9 0001:000542C0 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:0006568C 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9 0001:000656C4 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066920 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9 0001:00066958 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:000684BC 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9 0001:000684F4 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006EBA0 0000CEFC C=CODE S=.text G=(none) M=Forms ACBP=A9 0001:0006EBD8 0000CEFC C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BA9C 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9 0001:0007BAD4 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0007BAFC 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9 0001:0007BB34 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:0007CD58 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9 0001:0007CD90 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0007CD90 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9 0001:0007CDC8 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:0007E524 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9 0001:0007E55C 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:0007E584 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9 0001:0007E5BC 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00081AA0 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9 0001:00081AD8 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:00081AF0 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9 0001:00081B28 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:00094EDC 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9 0001:00094F14 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:000951F0 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9 0001:00095228 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:00095318 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9 0001:00095350 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:00098D90 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9 0001:00098DC8 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:0009967C 000005A0 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9 0001:000996B4 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099C1C 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9 0001:00099C4C 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099C5C 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9 0001:00099C8C 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099C94 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9 0001:00099CC4 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A6AC 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9 0001:0009A6DC 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009C7B4 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9 0001:0009C7E4 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5A00 00001748 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9 0001:000A5A30 00001748 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A7148 000004D0 C=CODE S=.text G=(none) M=Importation ACBP=A9 0001:000A7178 000004D0 C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000A7618 000102AC C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9 0001:000A7648 00013ACC C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000B78C4 000026F4 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9 0001:000BB114 000026F4 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000B9FB8 00000C40 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9 0001:000BD808 00000D10 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000BABF8 00003A0C C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9 0001:000BE518 00003A0C C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000BE604 00030CCC C=CODE S=.text G=(none) M=UnitTCO ACBP=A9 0001:000C1F24 000452C0 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:000EF2D0 00002C18 C=CODE S=.text G=(none) M=UnitSR ACBP=A9 0001:001071E4 000030E4 C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:000F1EE8 00002404 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9 0001:0010A2C8 000027D4 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:000F42EC 00038270 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9 0001:0010CA9C 00001833 C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:0012C55C 00001613 C=CODE S=.text G=(none) M=verif_version ACBP=A9 0001:0010E2D0 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0012DB70 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9 0001:0010F4A0 00042A80 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:0012ED40 000029E0 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9 0001:00151F20 00002B44 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:00131720 00000C00 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9 0001:00154A64 00000D2C C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:00132320 000023CC C=CODE S=.text G=(none) M=Unitplace ACBP=A9 0001:00155790 00002584 C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:001346EC 0003A31C C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9 0001:00157D14 00046D60 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:0016EA08 0000048D C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9 0001:0019EA74 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
@@ -125,12 +125,12 @@ Detailed map of segments
0002:00001250 00000030 C=DATA S=.data G=DGROUP M=ComObj ACBP=A9 0002:00001250 00000030 C=DATA S=.data G=DGROUP M=ComObj ACBP=A9
0002:00001280 0000002C C=DATA S=.data G=DGROUP M=OleCtrls ACBP=A9 0002:00001280 0000002C C=DATA S=.data G=DGROUP M=OleCtrls ACBP=A9
0002:000012AC 00000908 C=DATA S=.data G=DGROUP M=jpeg ACBP=A9 0002:000012AC 00000908 C=DATA S=.data G=DGROUP M=jpeg ACBP=A9
0002:00001BB4 00000080 C=DATA S=.data G=DGROUP M=MSCommLib_TLB ACBP=A9 0002:00001BB4 00000058 C=DATA S=.data G=DGROUP M=MSCommLib_TLB ACBP=A9
0002:00001C34 00000009 C=DATA S=.data G=DGROUP M=MaskUtils ACBP=A9 0002:00001C0C 00000009 C=DATA S=.data G=DGROUP M=MaskUtils ACBP=A9
0002:00001C40 00000004 C=DATA S=.data G=DGROUP M=Mask ACBP=A9 0002:00001C18 00000004 C=DATA S=.data G=DGROUP M=Mask ACBP=A9
0002:00001C44 00000006 C=DATA S=.data G=DGROUP M=Grids ACBP=A9 0002:00001C1C 00000006 C=DATA S=.data G=DGROUP M=Grids ACBP=A9
0002:00001C4C 000000D4 C=DATA S=.data G=DGROUP M=UnitTCO ACBP=A9 0002:00001C24 000000D4 C=DATA S=.data G=DGROUP M=UnitTCO ACBP=A9
0002:00001D20 0000060D C=DATA S=.data G=DGROUP M=UnitPrinc ACBP=A9 0002:00001CF8 0000060D C=DATA S=.data G=DGROUP M=UnitPrinc ACBP=A9
0002:00003000 00000664 C=BSS S=.bss G=DGROUP M=System ACBP=A9 0002:00003000 00000664 C=BSS S=.bss G=DGROUP M=System ACBP=A9
0002:00003664 00000010 C=BSS S=.bss G=DGROUP M=SysInit ACBP=A9 0002:00003664 00000010 C=BSS S=.bss G=DGROUP M=SysInit ACBP=A9
0002:00003674 00000004 C=BSS S=.bss G=DGROUP M=Types ACBP=A9 0002:00003674 00000004 C=BSS S=.bss G=DGROUP M=Types 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 000228A0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9 0002:00003E84 000118A0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00026724 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9 0002:00015724 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00026738 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9 0002:00015738 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:0002674C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9 0002:0001574C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00026760 004186C8 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9 0002:00015760 004186C8 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:0043EE28 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9 0002:0042DE28 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:0043EE38 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9 0002:0042DE38 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:0043EE4C 000004FC C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9 0002:0042DE4C 00000018 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:0043F348 00000018 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9 0002:0042DE64 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:0043F360 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9 0002:0042DE68 000004FC C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:0043F364 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9 0002:0042E364 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:0043F390 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9 0002:0042E390 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:0043F39C 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9 0002:0042E39C 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:0043F3A4 007FD718 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9 0002:0042E3A4 041B2C4C 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:0016ED18 Program entry point at 0001:0019ED84
UnitConfig.dfm
+24 -9
View File
@@ -1,6 +1,6 @@
object FormConfig: TFormConfig object FormConfig: TFormConfig
Left = 503 Left = 251
Top = 109 Top = 157
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'
@@ -667,8 +667,8 @@ object FormConfig: TFormConfig
Left = 8 Left = 8
Top = 8 Top = 8
Width = 633 Width = 633
Height = 497 Height = 505
ActivePage = TabSheetCDM ActivePage = TabSheetAig
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
@@ -1541,7 +1541,7 @@ object FormConfig: TFormConfig
ParentFont = False ParentFont = False
end end
object LabelCrois: TLabel object LabelCrois: TLabel
Left = 56 Left = 88
Top = 280 Top = 280
Width = 187 Width = 187
Height = 26 Height = 26
@@ -1749,7 +1749,7 @@ object FormConfig: TFormConfig
Caption = 'LabelTJD1' Caption = 'LabelTJD1'
end end
object LabelTJD2: TLabel object LabelTJD2: TLabel
Left = 176 Left = 168
Top = 76 Top = 76
Width = 52 Width = 52
Height = 13 Height = 13
@@ -1794,8 +1794,12 @@ object FormConfig: TFormConfig
Top = 28 Top = 28
Width = 33 Width = 33
Height = 21 Height = 21
Hint = '1'#232're adresse de la TJD/S'
Color = clLime Color = clLime
ParentShowHint = False
ShowHint = True
TabOrder = 2 TabOrder = 2
OnExit = EditP1Exit
OnKeyPress = EditP1KeyPress OnKeyPress = EditP1KeyPress
end end
object EditP2: TEdit object EditP2: TEdit
@@ -1803,8 +1807,12 @@ object FormConfig: TFormConfig
Top = 48 Top = 48
Width = 33 Width = 33
Height = 21 Height = 21
Hint = '1'#232're adresse de la TJD/S'
Color = clLime Color = clLime
ParentShowHint = False
ShowHint = True
TabOrder = 3 TabOrder = 3
OnExit = EditP2Exit
OnKeyPress = EditP2KeyPress OnKeyPress = EditP2KeyPress
end end
object EditP3: TEdit object EditP3: TEdit
@@ -1812,8 +1820,12 @@ object FormConfig: TFormConfig
Top = 22 Top = 22
Width = 33 Width = 33
Height = 21 Height = 21
Hint = '2'#232'me adresse de la TJD/S'
Color = clLime Color = clLime
ParentShowHint = False
ShowHint = True
TabOrder = 4 TabOrder = 4
OnExit = EditP3Exit
OnKeyPress = EditP3KeyPress OnKeyPress = EditP3KeyPress
end end
object EditP4: TEdit object EditP4: TEdit
@@ -1821,8 +1833,12 @@ object FormConfig: TFormConfig
Top = 44 Top = 44
Width = 33 Width = 33
Height = 21 Height = 21
Hint = '2'#232'me adresse de la TJD/S'
Color = clLime Color = clLime
ParentShowHint = False
ShowHint = True
TabOrder = 5 TabOrder = 5
OnExit = EditP4Exit
OnKeyPress = EditP4KeyPress OnKeyPress = EditP4KeyPress
end end
object EditDevie_HD: TEdit object EditDevie_HD: TEdit
@@ -1850,9 +1866,8 @@ object FormConfig: TFormConfig
Top = 68 Top = 68
Width = 33 Width = 33
Height = 21 Height = 21
Color = clLime
TabOrder = 8 TabOrder = 8
OnKeyPress = EditDevieS2KeyPress OnChange = EditDevieS2Change
end end
object EditL: TEdit object EditL: TEdit
Left = 32 Left = 32
@@ -1941,7 +1956,7 @@ object FormConfig: TFormConfig
Top = 80 Top = 80
Width = 89 Width = 89
Height = 73 Height = 73
Caption = 'Type TJD' Caption = 'Type TJD-TJS'
TabOrder = 8 TabOrder = 8
object RadioButtonTJD2: TRadioButton object RadioButtonTJD2: TRadioButton
Left = 8 Left = 8
UnitConfig.pas
+370 -147
View File
File diff suppressed because it is too large Load Diff
UnitPrinc.dfm
+5 -14
View File
@@ -19,8 +19,8 @@ object FormPrinc: TFormPrinc
OnCreate = FormCreate OnCreate = FormCreate
OnResize = FormResize OnResize = FormResize
DesignSize = ( DesignSize = (
1125 1117
602) 595)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object LabelTitre: TLabel object LabelTitre: TLabel
@@ -1429,8 +1429,8 @@ object FormPrinc: TFormPrinc
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Top = 580 Top = 573
Width = 1125 Width = 1117
Height = 22 Height = 22
Panels = < Panels = <
item item
@@ -1521,7 +1521,7 @@ object FormPrinc: TFormPrinc
OnMouseDown = FenRichMouseDown OnMouseDown = FenRichMouseDown
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 424 Left = 512
Top = 192 Top = 192
Width = 465 Width = 465
Height = 249 Height = 249
@@ -2032,15 +2032,6 @@ object FormPrinc: TFormPrinc
end end
end end
end end
object ButtonIndex: TButton
Left = 840
Top = 176
Width = 75
Height = 25
Caption = 'Indexs'
TabOrder = 4
OnClick = ButtonIndexClick
end
object MSCommCde1: TMSComm object MSCommCde1: TMSComm
Left = 1064 Left = 1064
Top = 272 Top = 272
UnitPrinc.pas
+35 -38
View File
@@ -1,5 +1,5 @@
Unit UnitPrinc; Unit UnitPrinc;
// 23/12 12h // 29/12 10h
(******************************************** (********************************************
Programme signaux complexes Graphique Lenz Programme signaux complexes Graphique Lenz
Delphi 7 + activeX Tmscomm + clientSocket Delphi 7 + activeX Tmscomm + clientSocket
@@ -207,7 +207,6 @@ type
Affichagenormal1: TMenuItem; Affichagenormal1: TMenuItem;
N14: TMenuItem; N14: TMenuItem;
Sauvegarderla1: TMenuItem; Sauvegarderla1: TMenuItem;
ButtonIndex: TButton;
MSCommCde1: TMSComm; MSCommCde1: TMSComm;
MSCommCde2: TMSComm; MSCommCde2: TMSComm;
ClientSocketCde1: TClientSocket; ClientSocketCde1: TClientSocket;
@@ -332,7 +331,6 @@ type
procedure FormResize(Sender: TObject); procedure FormResize(Sender: TObject);
procedure Affichagenormal1Click(Sender: TObject); procedure Affichagenormal1Click(Sender: TObject);
procedure Sauvegarderla1Click(Sender: TObject); procedure Sauvegarderla1Click(Sender: TObject);
procedure ButtonIndexClick(Sender: TObject);
procedure StatusBar1DrawPanel(StatusBar: TStatusBar; procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect); Panel: TStatusPanel; const Rect: TRect);
procedure MSCommCde1Comm(Sender: TObject); procedure MSCommCde1Comm(Sender: TObject);
@@ -376,8 +374,8 @@ type
const const
titre='Signaux complexes GL '; titre='Signaux complexes GL ';
MaxAcc=2048; // adresse maxi d'accessoire XpressNet MaxAcc=1024; // adresse maxi d'accessoire XpressNet (testé à la LH100)
NbMaxDet=513+128; // indice maximal de détecteurs d'un réseau (nombre en XpressNet=128) NbMaxDet=2048; // indice maximal de détecteurs d'un réseau
Max_Trains=100; // nombre maximal de train de CDM ou déclarés ou en circulation Max_Trains=100; // nombre maximal de train de CDM ou déclarés ou en circulation
MaxZones=250; // nombre de zones de détecteurs activés par les trains MaxZones=250; // nombre de zones de détecteurs activés par les trains
MaxTrainZone=40; // nombre maximal de trains pour le tableau d'historique des zones MaxTrainZone=40; // nombre maximal de trains pour le tableau d'historique des zones
@@ -629,7 +627,8 @@ var
reaffecte : integer ; // =1 réaffecté au bon train dans le cas de 2 détecteurs contigus qui ne s'enchainent pas bien =2 réaffecté par changement aiguillage reaffecte : integer ; // =1 réaffecté au bon train dans le cas de 2 détecteurs contigus qui ne s'enchainent pas bien =2 réaffecté par changement aiguillage
end; end;
Index_Accessoire : array[0..MaxAcc] of integer; // tableau d'index des accessoires aiguillages et signaux sur le bus DCC tablo_Index_Signal : array[0..MaxAcc] of integer; // tableau d'index des accessoires signaux sur le bus DCC
tablo_Index_Aiguillage : array[0..MaxAcc] of integer; // tableau d'index des aiguillages sur le bus DCC
// tableau des périphériques // tableau des périphériques
Tablo_periph : array[1..NbMaxi_Periph] of TPeripherique; Tablo_periph : array[1..NbMaxi_Periph] of TPeripherique;
@@ -707,11 +706,14 @@ var
// modélisations des fichiers config // modélisations des fichiers config
branche : array [1..MaxBranches] of string; branche : array [1..MaxBranches] of string;
// l'indice du tableau aiguillage n'est pas son adresse
aiguillage : array[0..NbreMaxiAiguillages] of Taiguillage; // Pour les tableaux aiguillage et signaux : l'indice du tableau aiguillage n'est pas son adresse
// ils sont stockés dans les tableaux tablo_Index_Signal[adresse]=index et tablo_Index_Aiguillage[adresse]=index
Aiguillage : array[0..NbreMaxiAiguillages] of Taiguillage;
// signaux - L'index du tableau n'est pas son adresse // signaux - L'index du tableau n'est pas son adresse
CdeDccpp : array[1..MaxCdeDccpp] of string;
Signaux : array[0..NbreMaxiSignaux] of TSignal; Signaux : array[0..NbreMaxiSignaux] of TSignal;
CdeDccpp : array[1..MaxCdeDccpp] of string;
trains_cdm : array[1..Max_Trains] of record trains_cdm : array[1..Max_Trains] of record
nom_train : string; nom_train : string;
adresse,vitmax : integer; adresse,vitmax : integer;
@@ -976,8 +978,8 @@ function chaine_signal(adresse : word) : string;
var a,i,aspect,etat,combine,nation : integer; var a,i,aspect,etat,combine,nation : integer;
s : string; s : string;
begin begin
//i:=Index_Signal(adresse); i:=Index_Signal(adresse);
i:=index_accessoire[adresse]; //i:=index_accessoire[adresse];
etat:=Signaux[i].EtatSignal ; etat:=Signaux[i].EtatSignal ;
nation:=1; nation:=1;
a:=Signaux[i].aspect; a:=Signaux[i].aspect;
@@ -1659,8 +1661,7 @@ begin
XChiffre:=14;Ychiffre:=76; XChiffre:=14;Ychiffre:=76;
Xfin:=26;yFin:=99; Xfin:=26;yFin:=99;
//index:=index_signal(adresse); index:=index_signal(adresse);
index:=index_accessoire[adresse];
if Signaux[index].contrevoie then if Signaux[index].contrevoie then
begin begin
xvert:=largeur-xvert; xvert:=largeur-xvert;
@@ -2078,7 +2079,8 @@ end;
function index_signal(adresse : integer) : integer; function index_signal(adresse : integer) : integer;
begin begin
if adresse>MaxAcc then result:=0 else if adresse>MaxAcc then result:=0 else
result:=Index_Accessoire[adresse]; //result:=Index_Accessoire[adresse];
result:=Tablo_Index_Signal[adresse];
// vérifier si l'index correspond à un signal // vérifier si l'index correspond à un signal
if Signaux[result].adresse<>adresse then result:=0; if Signaux[result].adresse<>adresse then result:=0;
end; end;
@@ -2100,7 +2102,7 @@ end;
function Index_Aig(adresse : integer) : integer; function Index_Aig(adresse : integer) : integer;
begin begin
if adresse>MaxAcc then result:=0 else if adresse>MaxAcc then result:=0 else
result:=Index_Accessoire[adresse]; result:=tablo_index_aiguillage[adresse];
// vérifier si l'index correspond à un aiguillage // vérifier si l'index correspond à un aiguillage
if Aiguillage[result].adresse<>adresse then result:=0; if Aiguillage[result].adresse<>adresse then result:=0;
end; end;
@@ -2280,8 +2282,12 @@ begin
end; end;
dessine_signal_mx(Signaux[rang].Img.Canvas,0,0,1,1,Signaux[rang].adresse,1); dessine_signal_mx(Signaux[rang].Img.Canvas,0,0,1,1,Signaux[rang].adresse,1);
//if Signaux[rang].aspect=5 then cercle(Picture.Bitmap.Canvas,13,22,6,ClYellow); //if Signaux[rang].aspect=5 then cercle(Picture.Bitmap.Canvas,13,22,6,ClYellow);
refresh;
Picture.Bitmap.Modified:=True;
end; end;
// créée le label pour afficher son adresse // créée le label pour afficher son adresse
Signaux[rang].Lbl:=Tlabel.create(Formprinc.ScrollBox1); Signaux[rang].Lbl:=Tlabel.create(Formprinc.ScrollBox1);
with Signaux[rang].Lbl do with Signaux[rang].Lbl do
@@ -5271,12 +5277,12 @@ begin
begin begin
// changer l'adresse du précédent par l'autre adresse de la TJD/S // changer l'adresse du précédent par l'autre adresse de la TJD/S
// V1 index:=index_aig(prec); // V1 index:=index_aig(prec);
index:=index_accessoire[prec]; index:=tablo_index_aiguillage[prec];
md:=aiguillage[index].modele; md:=aiguillage[index].modele;
if (md=tjs) or (md=tjd) then if (md=tjs) or (md=tjd) then
begin begin
//V1 prec:=Aiguillage[index_aig(prec)].Ddroit; //V1 prec:=Aiguillage[index_aig(prec)].Ddroit;
prec:=Aiguillage[index_accessoire[prec]].Ddroit; prec:=Aiguillage[tablo_index_aiguillage[prec]].Ddroit;
if NivDebug=3 then AfficheDebug('Le précedent est une TJD/S - substitution du precédent par la pointe de la TJD qui est '+intToSTR(prec),clYellow); if NivDebug=3 then AfficheDebug('Le précedent est une TJD/S - substitution du precédent par la pointe de la TJD qui est '+intToSTR(prec),clYellow);
end; end;
end; end;
@@ -5297,7 +5303,7 @@ begin
if (Bt=aig) or (Bt=buttoir) then // aiguillage ou buttoir if (Bt=aig) or (Bt=buttoir) then // aiguillage ou buttoir
begin begin
//V1 index:=index_aig(adr); //V1 index:=index_aig(adr);
index:=index_accessoire[adr]; index:=tablo_index_aiguillage[adr];
if index=0 then if index=0 then
begin begin
if bt=aig then if bt=aig then
@@ -5399,7 +5405,7 @@ begin
begin begin
// si TJD (modele=2) sur le précédent, alors substituer avec la 2eme adresse de la TJD // si TJD (modele=2) sur le précédent, alors substituer avec la 2eme adresse de la TJD
// V1 md:=aiguillage[index_aig(prec)].modele; // V1 md:=aiguillage[index_aig(prec)].modele;
md:=aiguillage[index_accessoire[prec]].modele; md:=aiguillage[tablo_index_aiguillage[prec]].modele;
if (md=tjd) or (md=tjs) then prec:=aiguillage[index_aig(prec)].DDroit; if (md=tjd) or (md=tjs) then prec:=aiguillage[index_aig(prec)].DDroit;
if prec<>aiguillage[index_aig(Adr)].Adroit then //Adroit if prec<>aiguillage[index_aig(Adr)].Adroit then //Adroit
begin begin
@@ -5483,7 +5489,7 @@ begin
// récupérer les élements de la TJD/S // récupérer les élements de la TJD/S
AdrTjdP:=aiguillage[index].Ddroit; // 2eme adresse de la TJD/S AdrTjdP:=aiguillage[index].Ddroit; // 2eme adresse de la TJD/S
// V1 index2:=index_aig(AdrTjdP); // V1 index2:=index_aig(AdrTjdP);
index2:=index_accessoire[AdrTjdP]; index2:=tablo_index_aiguillage[AdrTjdP];
tjdC:=aiguillage[index].modele=tjd; tjdC:=aiguillage[index].modele=tjd;
tjsC:=aiguillage[index].modele=tjs; tjsC:=aiguillage[index].modele=tjs;
@@ -12717,7 +12723,6 @@ begin
serveurIPCDM_Touche:=false; serveurIPCDM_Touche:=false;
AvecInit:=true; // &&&& avec initialisation des aiguillages ou pas AvecInit:=true; // &&&& avec initialisation des aiguillages ou pas
Diffusion:=AvecInit; // mode diffusion publique + debug mise au point etc Diffusion:=AvecInit; // mode diffusion publique + debug mise au point etc
ButtonIndex.Visible:=not(avecInit);
roulage1.visible:=false; roulage1.visible:=false;
FenRich.MaxLength:=$7FFFFFF0; FenRich.MaxLength:=$7FFFFFF0;
@@ -12744,7 +12749,6 @@ begin
if OsBits=64 then s:='OS 64 Bits' else s:='OS 32 Bits'; if OsBits=64 then s:='OS 64 Bits' else s:='OS 32 Bits';
s:=DateToStr(date)+' '+TimeToStr(Time)+' '+s; s:=DateToStr(date)+' '+TimeToStr(Time)+' '+s;
Affiche(s,clLime); Affiche(s,clLime);
With ScrollBox1 do With ScrollBox1 do
begin begin
HorzScrollBar.Tracking:=true; HorzScrollBar.Tracking:=true;
@@ -12782,7 +12786,6 @@ begin
Application.HintPause:=400; Application.HintPause:=400;
//visible:=true; // rend la form visible plus tot //visible:=true; // rend la form visible plus tot
for i:=1 to MaxCdeDccpp do CdeDccpp[i]:=''; for i:=1 to MaxCdeDccpp do CdeDccpp[i]:='';
// lecture fichiers de configuration // lecture fichiers de configuration
procetape('Lecture de la configuration'); procetape('Lecture de la configuration');
lit_config; lit_config;
@@ -12813,6 +12816,7 @@ begin
EditEnvoi.Visible:=true; EditEnvoi.Visible:=true;
end; end;
Application.ProcessMessages; Application.ProcessMessages;
// Initialisation des images des signaux // Initialisation des images des signaux
procetape('Création des signaux'); procetape('Création des signaux');
@@ -12825,6 +12829,7 @@ begin
if debug=1 then affiche('Création du signal '+intToSTR(i)+' ----------',clLime); if debug=1 then affiche('Création du signal '+intToSTR(i)+' ----------',clLime);
cree_image(i); // et initialisation tableaux signaux cree_image(i); // et initialisation tableaux signaux
end; end;
Tempo_init:=5; // démarre les initialisation des signaux et des aiguillages dans 0,5 s Tempo_init:=5; // démarre les initialisation des signaux et des aiguillages dans 0,5 s
if debug=1 then Affiche('Création TCO',clLime); if debug=1 then Affiche('Création TCO',clLime);
@@ -12846,7 +12851,6 @@ begin
Affiche(intToSTR(ecran[i+1].x0)+' '+intToSTR(ecran[i+1].y0)+' '+ Affiche(intToSTR(ecran[i+1].x0)+' '+intToSTR(ecran[i+1].y0)+' '+
intToSTR(ecran[i+1].larg)+' '+intToSTR(ecran[i+1].haut),clyellow); } intToSTR(ecran[i+1].larg)+' '+intToSTR(ecran[i+1].haut),clyellow); }
end; end;
OrgMilieu:=formprinc.width div 2; OrgMilieu:=formprinc.width div 2;
with statusbar1 do with statusbar1 do
begin begin
@@ -12959,6 +12963,7 @@ begin
else else
Affiche_Fenetre_TCO(index,avecTCO); Affiche_Fenetre_TCO(index,avecTCO);
end; end;
show;
// ouvre les périphériques commandes actionneurs, car on a lu les com dans la config // ouvre les périphériques commandes actionneurs, car on a lu les com dans la config
@@ -12977,6 +12982,7 @@ begin
end; end;
end; end;
if debug=1 then Affiche('Initialisations',clLime); if debug=1 then Affiche('Initialisations',clLime);
raz_tout; raz_tout;
procetape('Début des init'); procetape('Début des init');
@@ -13022,6 +13028,7 @@ begin
end; end;
end; end;
if debug=1 then Affiche('Tentative ouverture liaison centrale',clLime); if debug=1 then Affiche('Tentative ouverture liaison centrale',clLime);
if portCommOuvert or parSocketLenz then if portCommOuvert or parSocketLenz then
With Formprinc do With Formprinc do
@@ -13133,11 +13140,11 @@ begin
else Affiche_fenetre_CDM.Enabled:=false; else Affiche_fenetre_CDM.Enabled:=false;
//Affiche(GetMACAddress,clred); //Affiche(GetMACAddress,clred);
formPrinc.left:=-1000; //formPrinc.left:=-1000;
ConfCellTCO:=false; ConfCellTCO:=false;
if debug=1 then Affiche('Fini',clLime); if debug=1 then Affiche('Fini',clLime);
//reserve_canton(521,527,1,1);
end; end;
@@ -13892,7 +13899,7 @@ begin
begin begin
adr:=aiguillage[i].adresse; adr:=aiguillage[i].adresse;
begin begin
s:=IntToSTR(i)+' Adr='+IntToSTR(adr); s:=IntToSTR(i)+' i='+intToSTR(tablo_index_aiguillage[adr])+' Adr='+IntToSTR(adr);
if aiguillage[i].modele=aig then s:=s+' Pointe='; if aiguillage[i].modele=aig then s:=s+' Pointe=';
if (aiguillage[i].modele=crois) then if (aiguillage[i].modele=crois) then
@@ -14731,7 +14738,7 @@ begin
for i:=1 to NbreSignaux do for i:=1 to NbreSignaux do
begin begin
// feu de signalisation // feu de signalisation
s:=IntToSTR(i)+' Adr='+IntToSTR(Signaux[i].Adresse); s:=IntToSTR(i)+' i='+intToSTR(tablo_index_signal[Signaux[i].Adresse])+' Adr='+IntToSTR(Signaux[i].Adresse);
s:=s+' décodeur='+IntToStr(Signaux[i].decodeur); s:=s+' décodeur='+IntToStr(Signaux[i].decodeur);
asp:=Signaux[i].aspect; asp:=Signaux[i].aspect;
if asp<>20 then nation:=1 else nation:=2; if asp<>20 then nation:=1 else nation:=2;
@@ -16823,16 +16830,6 @@ begin
end; end;
procedure TFormPrinc.ButtonIndexClick(Sender: TObject);
var i,v : integer;
begin
for i:=1 to MaxAcc do
begin
v:=index_accessoire[i];
if v<>0 then affiche('adresse='+intToSTR(i)+' index = '+intToSTR(v),clLime);
end;
end;
procedure TFormPrinc.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); procedure TFormPrinc.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
var RectForText: TRect; var RectForText: TRect;
begin begin
verif_version.pas
+1 -1
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.34'; // sert à la comparaison de la version publiée Const Version='8.35'; // 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;
versions.txt
+4 -2
View File
@@ -214,7 +214,9 @@ version 8.31 : Correction d'un bug sur les d
version 8.32 : Un actionneur seul peut être déclenché par plusieurs trains. version 8.32 : Un actionneur seul peut être déclenché par plusieurs trains.
Correction du lancement du serveur COM-IP pour CDMRail V20.12. Correction du lancement du serveur COM-IP pour CDMRail V20.12.
version 8.33 : Correction d'un bug sur le calcul d'index. version 8.33 : Correction d'un bug sur le calcul d'index.
version 8.34 : Correction signal Unisemaf version 8.34 : Correction signal Unisemaf.
Ajout de la Z21 dans le choix des interfaces au lancement de CDM rail. Ajout de la Z21 dans le choix des interfaces au lancement de CDM rail.
version 8.35 : Correction ajout de signaux et d'aiguillages.
Renforcement de la vérification de la cohérence.
Amélioration de l'édition des TJD.