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

V8.5

Browse Source
This commit is contained in:
f1iwq2
2024-02-24 10:32:19 +01:00
parent c116b8c933
commit 315b803e40
21 changed files with 1946 additions and 2000 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Notice d'utilisation des signaux_complexes_GL_V8.43.pdf → Notice d'utilisation des signaux_complexes_GL_V8.5.pdf
BIN
View File
Binary file not shown.
Signaux_complexes_GL.dpr
+1
View File
@@ -18,6 +18,7 @@ uses
UnitPareFeu in 'UnitPareFeu.pas',
UnitAnalyseSegCDM in 'UnitAnalyseSegCDM.pas' {FormAnalyseCDM},
Importation in 'Importation.pas' {FormImportation};
{$R *.res}
begin
Signaux_complexes_GL.map
+114 -114
View File
@@ -1,104 +1,104 @@
Start Length Name Class
0001:00000000 0017B6DCH .text CODE
0002:00000000 00002C84H .data DATA
0002:00002C84 045E33F9H .bss BSS
0001:00000000 0018322CH .text CODE
0002:00000000 00002C88H .data DATA
0002:00002C88 045E33F9H .bss BSS
Detailed map of segments
0001:00000000 00005EC7 C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005EC8 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:00006110 00000F38 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00007048 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:00007080 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:000073B8 00006FF8 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E3B0 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000EBCC 0000809E C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016C6C 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016E0C 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:00017648 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:000179A0 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:0002218C 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:000224FC 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002C0F8 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002C21C 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C4D4 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C66C 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CDF4 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CE2C 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DE24 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DE7C 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002EF44 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F264 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F654 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:00030010 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:00030048 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:00030080 00000048 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:000300C8 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:00030100 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:00030158 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:00030190 0000007C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:0003020C 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:0003026C 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:000302A4 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:00033978 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038454 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:000384E4 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038C84 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038DAC 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C5D0 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C608 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C670 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C6D8 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C744 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C79C 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C7D4 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:0004611C 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00046FBC 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00053654 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:000537BC 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:000544DC 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:000658E0 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066B74 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:00068710 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006EDF4 0000CF8C C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BD80 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0007BDE0 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:0007D03C 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0007D074 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:0007E808 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:0007E868 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00081D84 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:00081DD4 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:000951C0 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:000954D4 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:000955FC 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:00099074 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:00099960 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099EF8 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099F38 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099F70 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A988 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009CA90 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5CDC 00002A08 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:000A86E4 000017B8 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A9E9C 00000574 C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000AA410 000147BC C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000BEBCC 000027E0 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000C13AC 00000C64 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000C2010 00003BEC C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000C5BFC 000312F0 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:000F6EEC 00002D1C C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:000F9C08 00002594 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:000FC19C 0003C444 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:001385E0 0000284B C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:0013AE2C 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0013BFFC 00000C00 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:0013CBFC 00002670 C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:0013F26C 0003BFAF C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:0017B21C 000004C0 C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9
0001:00000000 00005F13 C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005F14 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00006054 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:0000615C 00000F38 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00007094 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:000070CC 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:00007404 00006FF8 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E3FC 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000EC18 0000809E C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016CB8 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016E58 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:00017694 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:000179EC 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:000221D8 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:00022548 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002C144 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002C268 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C520 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C6B8 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CE40 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CE78 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DE70 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DEC8 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002EF90 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F2B0 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F6A0 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:0003005C 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:00030094 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:000300CC 00000048 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:00030114 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:0003014C 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:000301A4 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:000301DC 0000007C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:00030258 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:000302B8 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:000302F0 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:000339C4 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:000384A0 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:00038530 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038CD0 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038DF8 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C61C 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C654 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C6BC 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C724 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C790 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C7E8 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C820 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:00046168 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00047008 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:000536A0 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:00053808 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:00054528 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:0006592C 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066BC0 00001B9C C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:0006875C 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006EE40 0000CF8C C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BDCC 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0007BE2C 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:0007D088 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0007D0C0 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:0007E854 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:0007E8B4 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00081DD0 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:00081E20 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:0009520C 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:00095520 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:00095648 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:000990C0 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:000999AC 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099F44 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099F84 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099FBC 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A9D4 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009CADC 0000924C C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5D28 0000191C C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A7644 0000057C C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000A7BC0 00019434 C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000C0FF4 0000289B C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000C3890 00000D78 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000C4608 00003D24 C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000C832C 00031BF8 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:000F9F24 000031F0 C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:000FD114 00002BF0 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:000FFD04 0000283F C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:00102544 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:00103714 0003C750 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:0013FE64 00002BCC C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:00142A30 00000D2C C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:0014375C 000027E8 C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:00145F44 0003CE27 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:00182D6C 000004C0 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: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
@@ -207,29 +207,28 @@ Detailed map of segments
0002:00003E58 00000004 C=BSS S=.bss G=DGROUP M=MaskUtils ACBP=A9
0002:00003E5C 00000004 C=BSS S=.bss G=DGROUP M=Mask ACBP=A9
0002:00003E60 00000004 C=BSS S=.bss G=DGROUP M=Grids ACBP=A9
0002:00003E64 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:00003E90 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9
0002:00003EA0 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9
0002:00003EB0 000148B0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00018760 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00018774 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:00018788 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:0001879C 00418700 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:00430E9C 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:00430EAC 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:00430EC0 00000560 C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:00431420 00000020 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:00431440 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:00431444 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:00431450 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:00431458 041B4FA0 C=BSS S=.bss G=DGROUP M=UnitPrinc 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:00003E84 000148B0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00018734 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00018748 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:0001875C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00018770 00418704 C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:00430E74 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:00430E84 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:00430E98 00000020 C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:00430EB8 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:00430EBC 00000560 C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:0043141C 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:00431448 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:00431454 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:0043145C 041B4F9C C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9
Bound resource files
c:\program files (x86)\borland\delphi7\Lib\Buttons.res
c:\program files (x86)\borland\delphi7\Lib\ExtDlgs.res
c:\program files (x86)\borland\delphi7\Lib\Controls.res
UnitDebug.dfm
UnitPilote.dfm
Importation.dfm
UnitAnalyseSegCDM.dfm
@@ -239,8 +238,9 @@ UnitConfigCellTCO.dfm
UnitTCO.dfm
UnitSR.dfm
UnitCDF.dfm
UnitConfig.dfm
verif_version.dfm
UnitConfig.dfm
UnitDebug.dfm
UnitSimule.dfm
Unitplace.dfm
UnitPrinc.dfm
@@ -248,4 +248,4 @@ Signaux_complexes_GL.res
Signaux_complexes_GL.drf
Program entry point at 0001:0017B52C
Program entry point at 0001:0018307C
UnitAnalyseSegCDM.pas
+3 -2
View File
@@ -4221,6 +4221,7 @@ procedure TFormAnalyseCDM.ButtonAffPortClick(Sender: TObject);
procedure TFormAnalyseCDM.ButtonAffPortClick(Sender: TObject);
var i,j,numport,erreur : integer;
begin
val(editPort.text,numport,erreur);
if numport<1 then exit;
trouve_IndexPort(numport,i,j);
@@ -4523,6 +4524,7 @@ begin
if i=0 then val(s,adresse,erreur) else
begin
val(s,adresse,erreur);
delete(s,1,erreur);
val(s,adresse2,erreur);
erreur:=0;
end;
@@ -4937,6 +4939,7 @@ procedure TFormAnalyseCDM.ButtonAffDetClick(Sender: TObject);
end;
end;
procedure TFormAnalyseCDM.ButtonAffDetClick(Sender: TObject);
var i,erreur : integer;
begin
val(EditDetecteur.text,i,erreur);
@@ -5021,8 +5024,6 @@ end;
//until x>500;
end;
end;
UnitCDF.pas
+88 -42
View File
@@ -128,13 +128,13 @@ begin
begin
caption:='Configuration du décodeur Digikeijs';
label20.caption:='Tables d''aspects du signal en fonction du motif envoyé au décodeur Digikeijs';
label24.Caption:='1 à 5';
label24.Caption:='1 à 5 - Aspects de 0 à 255';
end;
if erreur=2 then
begin
caption:='Configuration du décodeur CDF';
label20.Caption:='Tables d''aspects du signal en fonction du motif envoyé au décodeur CDF';
label24.Caption:='1 à 4';
label24.Caption:='1 à 4 - Aspects de 0 à 255';
end;
Label1.caption:=etats[1];
@@ -229,11 +229,13 @@ begin
end;
procedure TFormCDF.Edit1Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit1.Text,Signaux[index].SR[1].sortie1,erreur);
val(Edit1.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[1].sortie1:=i;
Maj_DB;
if label1.Caption=etats[1] then Maj_Etat_Signal(0,carre);
dessine_signal_CDF;
@@ -241,11 +243,13 @@ begin
end;
procedure TFormCDF.Edit2Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit2.Text,Signaux[index].SR[2].sortie1,erreur);
val(Edit2.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[2].sortie1:=i;
Maj_DB;
if label2.Caption=etats[2] then Maj_Etat_Signal(0,semaphore);
dessine_signal_CDF;
@@ -253,11 +257,13 @@ begin
end;
procedure TFormCDF.Edit3Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit3.Text,Signaux[index].SR[3].sortie1,erreur);
val(Edit3.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[2].sortie1:=i;
Maj_DB;
if label3.Caption=etats[3] then Maj_Etat_Signal(0,semaphore_cli);
dessine_signal_CDF;
@@ -265,11 +271,13 @@ begin
end;
procedure TFormCDF.Edit4Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit4.Text,Signaux[index].SR[4].sortie1,erreur);
val(Edit4.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[4].sortie1:=i;
Maj_DB;
if label4.Caption=etats[4] then Maj_Etat_Signal(0,vert);
dessine_signal_CDF;
@@ -277,11 +285,13 @@ begin
end;
procedure TFormCDF.Edit5Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit5.Text,Signaux[index].SR[5].sortie1,erreur);
val(Edit5.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[5].sortie1:=i;
Maj_DB;
if label5.Caption=etats[5] then Maj_Etat_Signal(0,vert_cli);
dessine_signal_CDF;
@@ -289,11 +299,13 @@ begin
end;
procedure TFormCDF.Edit6Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit6.Text,Signaux[index].SR[6].sortie1,erreur);
val(Edit6.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[6].sortie1:=i;
Maj_DB;
if label6.Caption=etats[6] then Maj_Etat_Signal(0,violet);
dessine_signal_CDF;
@@ -301,11 +313,13 @@ begin
end;
procedure TFormCDF.Edit7Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit7.Text,Signaux[index].SR[7].sortie1,erreur);
val(Edit7.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[7].sortie1:=i;
Maj_DB;
if label7.Caption=etats[7] then Maj_Etat_Signal(0,blanc);
dessine_signal_CDF;
@@ -313,11 +327,13 @@ begin
end;
procedure TFormCDF.Edit8Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit8.Text,Signaux[index].SR[8].sortie1,erreur);
val(Edit8.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[8].sortie1:=i;
Maj_DB;
if label8.Caption=etats[8] then Maj_Etat_Signal(0,blanc_cli);
dessine_signal_CDF;
@@ -325,23 +341,31 @@ begin
end;
procedure TFormCDF.Edit9Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit9.Text,Signaux[index].SR[9].sortie1,erreur);
val(Edit9.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[9].sortie1:=i;
Maj_DB;
if label9.Caption=etats[9] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,jaune);end;
if label9.Caption=etats[9] then
begin
Maj_Etat_Signal(0,semaphore);
Maj_Etat_Signal(0,jaune);
end;
dessine_signal_CDF;
end;
end;
procedure TFormCDF.Edit10Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit10.Text,Signaux[index].SR[10].sortie1,erreur);
val(Edit10.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[10].sortie1:=i;
Maj_DB;
if label10.Caption=etats[10] then
begin
@@ -353,11 +377,13 @@ begin
end;
procedure TFormCDF.Edit11Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit11.Text,Signaux[index].SR[11].sortie1,erreur);
val(Edit11.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[11].sortie1:=i;
Maj_DB;
if label11.Caption=etats[11] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,ral_30);end;
dessine_signal_CDF;
@@ -365,11 +391,13 @@ begin
end;
procedure TFormCDF.Edit12Change(Sender: TObject);
var erreur : integer;
var erreur,i: integer;
begin
if index<>0 then
begin
val(Edit12.Text,Signaux[index].SR[12].sortie1,erreur);
val(Edit12.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[12].sortie1:=i;
Maj_DB;
if label12.Caption=etats[12] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,ral_60);end;
dessine_signal_CDF;
@@ -377,11 +405,13 @@ begin
end;
procedure TFormCDF.Edit13Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit13.Text,Signaux[index].SR[13].sortie1,erreur);
val(Edit13.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[13].sortie1:=i;
Maj_DB;
if label13.Caption=etats[13] then begin Maj_Etat_Signal(0,ral_60);Maj_Etat_Signal(0,jaune_cli);end;
dessine_signal_CDF;
@@ -389,11 +419,13 @@ begin
end;
procedure TFormCDF.Edit14Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit14.Text,Signaux[index].SR[14].sortie1,erreur);
val(Edit14.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[14].sortie1:=i;
Maj_DB;
if label14.Caption=etats[14] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,rappel_30);end;
dessine_signal_CDF;
@@ -401,11 +433,13 @@ begin
end;
procedure TFormCDF.Edit15Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit15.Text,Signaux[index].SR[15].sortie1,erreur);
val(Edit15.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[15].sortie1:=i;
Maj_DB;
if label15.Caption=etats[15] then begin Maj_Etat_Signal(0,semaphore);Maj_Etat_Signal(0,rappel_60);end;
dessine_signal_CDF;
@@ -413,11 +447,13 @@ begin
end;
procedure TFormCDF.Edit16Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit16.Text,Signaux[index].SR[16].sortie1,erreur);
val(Edit16.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[16].sortie1:=i;
Maj_DB;
if label16.Caption=etats[16] then begin Maj_Etat_Signal(0,rappel_30); Maj_Etat_Signal(0,jaune);end;
dessine_signal_CDF;
@@ -425,11 +461,13 @@ begin
end;
procedure TFormCDF.Edit17Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit17.Text,Signaux[index].SR[17].sortie1,erreur);
val(Edit17.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[17].sortie1:=i;
Maj_DB;
if label17.Caption=etats[17] then begin Maj_Etat_Signal(0,rappel_30); Maj_Etat_Signal(0,jaune_cli);end;
dessine_signal_CDF;
@@ -437,11 +475,13 @@ begin
end;
procedure TFormCDF.Edit18Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit18.Text,Signaux[index].SR[18].sortie1,erreur);
val(Edit18.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[18].sortie1:=i;
Maj_DB;
if label18.Caption=etats[18] then begin Maj_Etat_Signal(0,rappel_60); Maj_Etat_Signal(0,jaune);end;
dessine_signal_CDF;
@@ -449,13 +489,19 @@ begin
end;
procedure TFormCDF.Edit19Change(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if index<>0 then
begin
val(Edit19.Text,Signaux[index].SR[19].sortie1,erreur);
val(Edit19.Text,i,erreur);
if (i<0) or (i>255) or (erreur<>0) then exit;
Signaux[index].SR[19].sortie1:=i;
Maj_DB;
if label19.Caption=etats[19] then begin Maj_Etat_Signal(0,rappel_60); Maj_Etat_Signal(0,jaune_cli);end;
if label19.Caption=etats[19] then
begin
Maj_Etat_Signal(0,rappel_60);
Maj_Etat_Signal(0,jaune_cli);
end;
dessine_signal_CDF;
end;
end;
UnitConfig.dfm
+24 -24
View File
@@ -1,6 +1,6 @@
object FormConfig: TFormConfig
Left = 347
Top = 101
Left = 246
Top = 114
Hint = 'Modifie la configuration selon les s'#233'lections choisies'
BorderStyle = bsDialog
Caption = 'Configuration g'#233'n'#233'rale'
@@ -681,7 +681,7 @@ object FormConfig: TFormConfig
Top = 8
Width = 633
Height = 505
ActivePage = TabSheetTrains
ActivePage = TabSheetCDM
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
@@ -1163,7 +1163,7 @@ object FormConfig: TFormConfig
ImageIndex = 1
object Label9: TLabel
Left = 16
Top = 448
Top = 456
Width = 294
Height = 13
Caption = 'Ces param'#232'tres sont utilis'#233's en fonctionnement sans CDM Rail'
@@ -1228,14 +1228,14 @@ object FormConfig: TFormConfig
end
object GroupBox4: TGroupBox
Left = 8
Top = 128
Top = 208
Width = 297
Height = 65
Caption = '4. Ent'#234'te des trames XpressNet vers l'#39'interface'
TabOrder = 1
object RadioButton1: TRadioButton
Left = 8
Top = 24
Top = 20
Width = 225
Height = 17
Caption = '0 : Sans ent'#234'te (interfaces s'#233'rie, Genli...)'
@@ -1252,7 +1252,7 @@ object FormConfig: TFormConfig
end
object GroupBox3: TGroupBox
Left = 8
Top = 200
Top = 128
Width = 297
Height = 73
Caption = 'Acc'#232's r'#233'seau '#224' l'#39'interface vers la centrale'
@@ -1337,7 +1337,7 @@ object FormConfig: TFormConfig
end
object GroupBox9: TGroupBox
Left = 8
Top = 280
Top = 282
Width = 297
Height = 161
Caption = 'Au d'#233'marrage de signaux complexes en mode autonome'
@@ -1429,7 +1429,7 @@ object FormConfig: TFormConfig
end
object GroupBox22: TGroupBox
Left = 312
Top = 256
Top = 248
Width = 297
Height = 65
Caption = 'Protocole de connexion '#224' la centrale ou '#224' l'#39'interface'
@@ -3009,8 +3009,8 @@ object FormConfig: TFormConfig
end
end
object GroupBox19: TGroupBox
Left = 48
Top = 144
Left = 24
Top = 152
Width = 233
Height = 137
Caption = 'Destinataire de l'#39'action '
@@ -3150,7 +3150,7 @@ object FormConfig: TFormConfig
OnChange = EditTempoChange
end
object CheckRAZ: TCheckBox
Left = 32
Left = 40
Top = 48
Width = 145
Height = 17
@@ -3197,13 +3197,13 @@ object FormConfig: TFormConfig
OnChange = EditTrainDestChange
end
object ComboBoxAccComUSB: TComboBox
Left = 8
Top = 32
Left = 24
Top = 64
Width = 201
Height = 21
Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
Style = csDropDownList
ItemHeight = 13
ItemHeight = 0
ParentShowHint = False
ShowHint = True
TabOrder = 6
@@ -3224,24 +3224,24 @@ object FormConfig: TFormConfig
end
end
object GroupBoxPNA: TGroupBox
Left = 152
Top = 240
Left = 32
Top = 40
Width = 169
Height = 121
Caption = 'Actionneurs PN simples'
TabOrder = 2
end
object GroupBoxPNZ: TGroupBox
Left = 88
Top = 320
Left = 72
Top = 368
Width = 169
Height = 65
Caption = 'Zones de d'#233'tection'
TabOrder = 3
end
object GroupBoxPN: TGroupBox
Left = 152
Top = 24
Left = 24
Top = 32
Width = 249
Height = 193
Caption = 'Action gestion passage '#224' niveau'
@@ -3378,13 +3378,13 @@ object FormConfig: TFormConfig
OnClick = RadioGroupActPNClick
end
object ComboBoxPNCom: TComboBox
Left = 8
Top = 104
Left = 72
Top = 128
Width = 145
Height = 21
Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
Style = csDropDownList
ItemHeight = 13
ItemHeight = 0
ParentShowHint = False
ShowHint = True
TabOrder = 10
UnitConfig.pas
+97 -76
View File
@@ -649,9 +649,9 @@ var
ligneDCC,decCourant,AffMemoFenetre,ligneClicAccPeriph,AncligneClicAccPeriph,ligneCherche,
compt_Ligne,Style_aff,Ancien_Style,Ecran_SC,Mode_reserve,Max_Signal_Sens,nCantonsRes : integer;
ack_cdm,clicliste,config_modifie,clicproprietes,confasauver,trouve_MaxPort,
ack_cdm,clicliste,config_modifie,clicproprietes,confasauver,trouve_MaxPort,fermeSC,
modif_branches,ConfigPrete,trouve_section_dccpp,trouve_section_trains,trouve_section_acccomusb,
trouveAvecVerifIconesTCO,Affiche_avert,activ,trouve_section_dec_pers : boolean;
trouveAvecVerifIconesTCO,Affiche_avert,activ,trouve_section_dec_pers,Z21 : boolean;
fichier : text;
@@ -693,7 +693,7 @@ var
function config_com(s : string) : boolean;
function envoi_CDM(s : string) : boolean;
procedure connecte_CDM;
function connecte_CDM : boolean;
function place_id(s : string) : string;
procedure decodeAig(s : string;var adr : integer;var B : char);
function sauve_config : boolean;
@@ -729,7 +729,7 @@ begin
repeat
inc(temps);Sleep(100);
Application.processMessages;
until ferme or ackCDM or nackCDM or (temps>30); // CDM répond < 1s
until fermeSC or ackCDM or nackCDM or (temps>30); // CDM répond < 1s
if not(ackCDM) or nack then
begin
@@ -803,16 +803,17 @@ begin
ack_cdm:=false;
end;
procedure connecte_CDM;
function connecte_CDM : boolean;
var s : string;
i : integer;
begin
result:=false;
// déconnexion de l'ancienne liaison éventuelle
Formprinc.ClientSocketCDM.Close;
if (AdresseIPCDM<>'0') then
if (AdresseIPCDM<>'0') and IpOk(AdresseIPCDM) then
begin
if(ProcessRunning('CDR')) then
if (ProcessRunning('CDR')) then
begin
// ouverture du socket CDM
with Formprinc do
@@ -854,13 +855,14 @@ begin
Application.ProcessMessages;
SauvefiltrageDet0:=filtrageDet0;
filtrageDet0:=0;
result:=true;
end;
end;
//else Affiche('CDM Rail non lancé',clOrange);
end
else
begin
if adresseIPCDM='0' then Affiche('La connexion à CDM n''est pas demandée car l''adresse IP est nulle dans '+NomConfig,clcyan);
if not(IpOk(AdresseIPCDM)) then Affiche('Adresse IP CDM incorrecte : '+AdresseIPCDM,clcyan);
end;
end;
@@ -1927,7 +1929,7 @@ begin
if k=1 then
for j:=1 to 19 do
begin
s:=etats[j]+','+decodeur_pers[i].desc[j].Chcommande;
s:=utf8encode(etats[j])+','+decodeur_pers[i].desc[j].Chcommande;
writeln(fichierN,s);
end;
if k=2 then
@@ -2869,8 +2871,9 @@ var s,sa,SOrigine: string;
end;
if c=1 then
begin
k:=pos(',',sOrigine);
decodeur_pers[NbreDecPers].desc[adr].Chcommande:=copy(sOrigine,k+1,length(sOrigine)-k+1);
k:=pos(',',sOrigine); // on ne tient compte que du 2ème champ
s:=copy(sOrigine,k+1,length(sOrigine)-k+1); // on ne copie que le 2eme champ
decodeur_pers[NbreDecPers].desc[adr].Chcommande:=s;
s:='';
inc(adr);
end;
@@ -3631,7 +3634,6 @@ var s,sa,SOrigine: string;
Ecran_SC:=i;
end;
sa:=uppercase(Z21_ch)+'=';
i:=pos(sa,s);
if i=1 then
@@ -4158,7 +4160,9 @@ begin
if (AdrBaseDetDccpp<0) or (AdrBaseDetDccpp>2048) then AdrBaseDetDccpp:=513;
mode_Reserve:=RadioReserve.ItemIndex; // 0 = par canton - 1=par détecteurs
val(EditAlgo.Text,i,erreur);
if (i<1) or (i>1) then i:=1;
Algo_localisation:=i;
val(EditMaxSignalSens.Text,i,erreur);
@@ -4454,8 +4458,8 @@ begin
with formconfig do
begin
ComboBoxDecCde.ItemIndex:=decodeur_pers[DecCourant].Peripherique-1;
formconfig.labelDecal.caption:='Commande'+#13+'Ascii';
LabelDecal.Left:=150;
formconfig.labelDecal.caption:='Commandes'+#13+'Ascii';
LabelDecal.Left:=160;
formconfig.LabelSorties.visible:=false;
end;
end;
@@ -4535,13 +4539,14 @@ begin
liste_portcom;
end;
// cliqué sur les checkbox de l'onglet des périphériques
procedure TformConfig.cb_onclick(sender : TObject);
var s : string;
cb : TCheckBox;
begin
if clicliste or (ligneClicAccPeriph<0) then exit;
cb:=(sender as Tcheckbox);
s := cb.Name;
s:=cb.Name;
if pos('Aig',s)<>0 then Tablo_periph[ligneClicAccPeriph+1].ScvAig:=cb.Checked;
if pos('Det',s)<>0 then Tablo_periph[ligneClicAccPeriph+1].ScvDet:=cb.Checked;
if pos('Act',s)<>0 then Tablo_periph[ligneClicAccPeriph+1].ScvAct:=cb.Checked;
@@ -4574,7 +4579,6 @@ procedure fabrique_combos_periph;
var i : integer;
s : string;
begin
with FormConfig.ListBoxPeriph,FormConfig do
begin
ComboBoxAccComUSB.Clear;
@@ -4608,7 +4612,6 @@ begin
// réaffiche le champ modifié dans le comboboxAccComUSB
if Tablo_Actionneur[ligneclicAct+1].periph then if tablo_actionneur[ligneclicAct+1].fonction=i then ComboBoxAccComUSB.ItemIndex:=i-1;
ComboBoxPNCom.items[i-1]:=s;
if tablo_PN[lignecliqueePN+1].TypeCde=1 then if tablo_PN[lignecliqueePN+1].AdresseFerme=i then ComboBoxPNCom.ItemIndex:=i-1;
@@ -4702,7 +4705,7 @@ var i : integer;
begin
if clicListe then exit;
i:=ComboStyle.ItemIndex;
// il faut changer le style dans la fenetre principale, sinon çà plante si on choisit windows.
// il faut changer le style dans la fenetre principale (formPrinc), sinon çà plante si on choisit windows.
Style_Aff:=i;
end;
{$IFEND}
@@ -4928,10 +4931,11 @@ begin
visible:=false;
end;
// décalage d'adresse
EditT[i]:=TEdit.create(FormConfig.TabSheetDecodeurs);
with EditT[i] do
begin
Name:='EditT'+intToSTR(i);
Name:='EditDecalT'+intToSTR(i);
left:=180;Top:=y+10;Width:=30;Height:=15;
text:='';
parent:=TabSheetDecodeurs;
@@ -5870,7 +5874,8 @@ begin
text:='';
parent:=GroupBoxAvance;
hint:='Nombre de détecteurs considérés comme trop distants'+#13+
'Cette valeur dépend de la taille du réseau';
'Cette valeur dépend de la taille du réseau:'+#13+
'3 pour les petits réseaux jusque 5 ou 6 pour les grands';
ShowHint:=true;
end;
@@ -6016,11 +6021,7 @@ begin
ShowHint:=true;
end;
// oui
{if FileExists('Image_Signaux.jpg') then ImageSignaux.Picture.LoadFromFile('Image_Signaux.jpg')
else
Affiche('Manque fichier "Image_Signaux.jpg"',clOrange);
}
ImageSignaux.picture.Assign(formpilote.ImageSignaux.Picture);
EditComUSB.Hint:='COMX:vitesse,parité,nombre de bits,bits de stop,protocole'+#13+
@@ -6067,14 +6068,19 @@ begin
i:=pos(',',s);
if i<>0 then delete(s,i,length(s)-i+1);
val(s,adr,erreur);
if adr<0 then begin B:='?';adr:=0;exit;end;
if erreur<>0 then
if (adr<0) then begin B:='?';adr:=0;exit;end;
if (erreur<>0) and (erreur<=length(s)) then
begin
if s[erreur]='S' then begin B:='S';exit;end;
if s[erreur]='P' then begin B:='P';exit;end;
if s[erreur]='D' then begin B:='D';exit;end;
end;
if erreur>length(s) then
begin
adr:=0;
B:='?';
exit;
end;
B:='Z';
end;
@@ -7975,7 +7981,7 @@ begin
begin
s:=EditDet1.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur détecteur1 ';exit;end;
if (s='') or (erreur<>0) or (i<1) then begin LabelInfo.caption:='Erreur détecteur1 ';exit;end;
LabelInfo.caption:=' ';
Signaux[ligneClicSig+1].Adr_det1:=i;
maj_hint_Signal(ligneClicSig+1);
@@ -7992,7 +7998,7 @@ var i,erreur : integer;
begin
s:=editTempoFeu.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur temporisation décodeurs ';exit;end;
if (s='') or (erreur<>0) or (i<0) then begin LabelInfo.caption:='Erreur temporisation décodeurs ';exit;end;
LabelInfo.caption:=' ';
Tempo_Signal:=i;
end;
@@ -8013,13 +8019,15 @@ begin
if s<>'' then
begin
Val(s,i,erreur);
if erreur<>0 then
if (i<0) then begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
if (erreur<>0) and (erreur<=length(s)) then
begin
if (s[erreur]='A') and (erreur=1) then
begin
bt:=aig;
delete(s,erreur,1);
Val(s,i,erreur);
if i<0 then begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
end
else begin LabelInfo.caption:='Erreur élément suivant 1';exit;end;
end
@@ -8057,7 +8065,7 @@ begin
begin
s:=EditDet2.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur détecteur2 ';exit;end;
if (s='') or (erreur<>0) or (i<1) then begin LabelInfo.caption:='Erreur détecteur2 ';exit;end;
LabelInfo.caption:=' ';
Signaux[ligneClicSig+1].Adr_det2:=i;
maj_hint_Signal(ligneClicSig+1);
@@ -8120,13 +8128,15 @@ begin
if s<>'' then
begin
Val(s,i,erreur);
if erreur<>0 then
if (i<0) then begin LabelInfo.caption:='Erreur élément suivant 2';exit;end;
if (erreur<>0) and (erreur<=length(s)) then
begin
if (s[erreur]='A') and (erreur=1) then
begin
bt:=aig;
delete(s,erreur,1);
Val(s,i,erreur);
if i<0 then begin LabelInfo.caption:='Erreur élément suivant 2';exit;end;
end
else begin LabelInfo.caption:='Erreur élément suivant 2';exit;end;
end
@@ -8155,16 +8165,16 @@ end;
procedure det3;
var s : string;
i,erreur : integer;
begin
begin
if clicliste or (ligneClicSig<0) then exit;
if affevt then Affiche('Evt detecteur 3',clOrange);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetSig then
with Formconfig do
begin
s:=EditDet3.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur détecteur3 ';exit;end;
if (s='') or (erreur<>0) or (i<1) then begin LabelInfo.caption:='Erreur détecteur3 ';exit;end;
LabelInfo.caption:=' ';
Signaux[ligneClicSig+1].Adr_det3:=i;
maj_hint_Signal(ligneClicSig+1);
@@ -8196,13 +8206,15 @@ begin
if s<>'' then
begin
Val(s,i,erreur);
if erreur<>0 then
if (i<0) then begin LabelInfo.caption:='Erreur élément suivant 3';exit;end;
if (erreur<>0) and (erreur<=length(s)) then
begin
if (s[erreur]='A') and (erreur=1) then
begin
bt:=aig;
delete(s,erreur,1);
Val(s,i,erreur);
if i<0 then begin LabelInfo.caption:='Erreur élément suivant 3';exit;end;
end
else begin LabelInfo.caption:='Erreur élément suivant 3';exit;end;
end
@@ -8240,7 +8252,7 @@ begin
begin
s:=EditDet4.Text;
Val(s,i,erreur);
if (s<>'') and (erreur<>0) then begin LabelInfo.caption:='Erreur détecteur4 ';exit;end;
if (s='') or (erreur<>0) or (i<1) then begin LabelInfo.caption:='Erreur détecteur4 ';exit;end;
LabelInfo.caption:=' ';
Signaux[ligneClicSig+1].Adr_det4:=i;
maj_hint_Signal(ligneClicSig+1);
@@ -8272,13 +8284,16 @@ begin
if s<>'' then
begin
Val(s,i,erreur);
if erreur<>0 then
if (i<0) then begin LabelInfo.caption:='Erreur élément suivant 4';exit;end;
if (erreur<>0) and (erreur<=length(s)) then
begin
if (s[erreur]='A') and (erreur=1) then
begin
bt:=aig;
delete(s,erreur,1);
Val(s,i,erreur);
if i<0 then begin LabelInfo.caption:='Erreur élément suivant 4';exit;end;
end
else begin LabelInfo.caption:='Erreur élément suivant 4';exit;end;
end
@@ -8320,7 +8335,7 @@ begin
if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonSon.Checked or radioButtonCde.checked then
begin
Val(s,act,erreur);
if s='' then exit;
if (s='') or (act<1) then exit;
// 0=actionneur/détecteur 2=evt aig 3=MemZone
if (Tablo_Actionneur[ligneClicAct+1].typdeclenche=3) or (Tablo_Actionneur[ligneClicAct+1].typdeclenche=0) then
@@ -8371,7 +8386,7 @@ begin
if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonSon.Checked then
begin
Val(s,det2,erreur);
if s='' then exit;
if (s='') or (det2<1) then exit;
if erreur<>0 then
begin
LabelInfo.caption:='Erreur adresse détecteur';exit
@@ -8383,7 +8398,7 @@ begin
// vérifier si les détecteurs sont contigus
Val(EditAct.Text,det1,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (det1<1) then exit;
det_contigu(det1,det2,suiv,elSuiv);
if (suiv=0) or (suiv>9995) then LabelInfo.Caption:='Les détecteurs '+intToSTR(det1)+' et '+intToSTR(det2)+' ne sont pas contigus'
else LabelInfo.Caption:='';
@@ -8548,7 +8563,7 @@ begin
if radioButtonLoc.Checked or RadioButtonAccess.Checked or RadioButtonCde.Checked then
begin
Val(s,fonction,erreur);
if erreur<>0 then
if (erreur<>0) or (fonction<1) then
begin
LabelInfo.caption:='Erreur fonction actionneur';exit
end else LabelInfo.caption:=' ';
@@ -8603,7 +8618,7 @@ begin
if radioButtonLoc.Checked then
begin
Val(s,tempo,erreur);
if erreur<>0 then
if (erreur<>0) or (tempo<0) then
begin
LabelInfo.caption:='Erreur Tempo actionneur';exit
end else LabelInfo.caption:=' ';
@@ -8929,7 +8944,7 @@ begin
begin
s:=EditAdrFerme.Text;
Val(s,act,erreur);
if erreur<>0 then
if (erreur<>0) or (act<1) then
begin
LabelInfo.caption:='Erreur adresse actionneur ferme';exit
end else LabelInfo.caption:=' ';
@@ -8978,7 +8993,7 @@ begin
begin
s:=EditAdrOuvre.Text;
Val(s,act,erreur);
if erreur<>0 then
if (erreur<>0) or (act<1) then
begin
LabelInfo.caption:='Erreur adresse actionneur ouvre';exit
end else LabelInfo.caption:=' ';
@@ -9393,10 +9408,10 @@ begin
else
with Signaux[j].Img do
begin
Parent:=Formprinc.ScrollBox1; // dire que l'image est dans la scrollBox1
Parent:=Formprinc.ScrollBoxSig; // dire que l'image est dans la scrollBox1
Top:=(HtImg+espY+20)*((j-1) div NbreImagePLigne); // détermine les points d'origine
Left:=10+ (LargImg+5)*((j-1) mod (NbreImagePLigne));
Name:='ImageFeu'+IntToSTR(Signaux[j].adresse);
Name:='ImageSignal'+IntToSTR(Signaux[j].adresse);
Maj_Hint_Signal(j);
end;
@@ -11679,7 +11694,7 @@ begin
s:=encode_aig(ligneclicAig+1);
ListBoxAig.items[ligneclicAig]:=s;
formconfig.ListBoxAig.selected[ligneclicAig]:=true;
end ;
end;
end;
end;
@@ -11749,13 +11764,13 @@ begin
// créer les nouveau checkBox de feux blancs si de nouveaux ont été cochés
if Signaux[index].FeuBlanc and (Signaux[index].checkFB=nil) then
begin
Signaux[index].CheckFB:=TCheckBox.create(Formprinc.ScrollBox1); // crée le handle
Signaux[index].CheckFB:=TCheckBox.create(Formprinc.ScrollBoxSig); // crée le handle
with Signaux[index].CheckFB do
begin
onClick:=formprinc.proc_checkBoxFB; // affecter l'adresse de la procédure de traitement quand on clique dessus
Hint:=intToSTR(index);
caption:='dem FB';
Parent:=Formprinc.ScrollBox1;
Parent:=Formprinc.ScrollBoxSig;
width:=100;height:=15;
Top:=HtImg+15+((HtImg+EspY+20)*((index-1) div NbreImagePLigne));
Left:=10+ (LargImg+5)*((index-1) mod (NbreImagePLigne));
@@ -12318,29 +12333,33 @@ begin
end;
procedure TFormConfig.EditAdresseTrainChange(Sender: TObject);
var erreur :integer;
var erreur,i :integer;
begin
if clicliste then exit;
if affevt then affiche('Evt change adresse train',clyellow);
if (ligneclicTrain<0) or (ligneclicTrain>=ntrains) or (ntrains<1) then exit;
val(EditAdresseTrain.text,trains[ligneclicTrain+1].adresse,erreur);
val(EditAdresseTrain.text,i,erreur);
if i<1 then exit;
trains[ligneclicTrain+1].adresse:=i;
formconfig.ListBoxTrains.items[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
ListBoxTrains.selected[ligneclicTrain]:=true;
end;
procedure TFormConfig.EditVitesseMaxiChange(Sender: TObject);
var erreur :integer;
var erreur,i :integer;
begin
if clicliste then exit;
if affevt then affiche('Evt change vitesse maxi train',clyellow);
if (ligneclicTrain<0) or (ligneclicTrain>=ntrains) or (ntrains<1) then exit;
val(EditVitesseMaxi.text,trains[ligneclicTrain+1].vitmax,erreur);
val(EditVitesseMaxi.text,i,erreur);
if i<1 then exit;
trains[ligneclicTrain+1].vitmax:=i;
formconfig.ListBoxTrains.items[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
formconfig.ListBoxTrains.selected[ligneclicTrain]:=true;
end;
procedure TFormConfig.EditVitNomChange(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt change vitesse nominale train',clyellow);
@@ -12348,14 +12367,16 @@ begin
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
with Formconfig do
begin
val(EditVitNom.text,trains[ligneclicTrain+1].vitNominale,erreur);
val(EditVitNom.text,i,erreur);
if i<1 then exit;
trains[ligneclicTrain+1].vitNominale:=i;
ListBoxTrains.items[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
ListBoxTrains.selected[ligneclicTrain]:=true;
end;
end;
procedure TFormConfig.EditVitRalentiChange(Sender: TObject);
var erreur : integer;
var erreur,i : integer;
begin
if clicliste then exit;
if affevt then affiche('Evt change vitesse ralenti train',clyellow);
@@ -12363,7 +12384,9 @@ end;
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetTrains then
with Formconfig do
begin
val(EditVitRalenti.text,trains[ligneclicTrain+1].vitRalenti,erreur);
val(EditVitRalenti.text,i,erreur);
if i<1 then exit;
trains[ligneclicTrain+1].vitRalenti:=i;
ListBoxTrains.items[ligneclicTrain]:=Train_tablo(ligneclicTrain+1);
ListBoxTrains.selected[ligneclicTrain]:=true;
end;
@@ -12771,16 +12794,16 @@ procedure Tformconfig.modif_editT(Sender : TObject);
var te : tEdit;
adr,i,NbVoies,erreur,act,voie,det,numDet :integer;
ouvre,ferme,v2Valide,v3valide,v4valide,v5valide : boolean;
s : string;
s,sb : string;
begin
if deccourant=0 then exit;
te:=Sender as Tedit;
s:=lowercase(te.Name);
sb:=te.Text;
if pos('EditOuvreEcran',s)<>0 then
if pos('editouvreecran',s)<>0 then
begin
adr:=extract_int(s);
val(s,i,erreur);
val(sb,i,erreur);
if (erreur<>0) or (i<1) then
begin
labelInfo.caption:='Erreur écran';
@@ -12791,11 +12814,11 @@ begin
exit;
end;
if pos('tditt',s)<>0 then
if pos('editdecalt',s)<>0 then
begin
adr:=extract_int(s);
val(s,i,erreur);
if erreur<>0 then
val(sb,i,erreur);
if (erreur<>0) or (i<0) then
begin
labelInfo.caption:='Erreur adresse';
exit;
@@ -12809,17 +12832,16 @@ begin
if pos('editv',s)<>0 then
begin
i:=lignecliqueePN+1;
voie:=extract_int(s);
ouvre:=pos('o',s)<>0;
ferme:=pos('f',s)<>0;
voie:=extract_int(s); // numéro de voie modifiée
ouvre:=pos('o',s)<>0; // champ ouvre
ferme:=pos('f',s)<>0; // champ ferme
if clicliste or (lignecliqueePN<0) then exit;
if affevt then affiche('Evt EditVXX Change',clyellow);
if FormConfig.PageControl.ActivePage=FormConfig.TabSheetAct then
with Formconfig do
begin
s:=te.Text;
Val(s,act,erreur);
if (erreur<>0) then
Val(sb,act,erreur);
if (erreur<>0) or (act<=0) then
begin
LabelInfo.caption:='Erreur adresse actionneur';
if ferme then tablo_PN[i].voie[voie].ActFerme:=0;
@@ -12882,7 +12904,7 @@ begin
s:=te.Text;
Val(s,det,erreur);
if (erreur<>0) then
if (erreur<>0) or (det<=0) then
begin
LabelInfo.caption:='Erreur adresse détecteur';exit
end else LabelInfo.caption:=' ';
@@ -13092,7 +13114,6 @@ begin
k:=comBoBoxDec.ItemIndex;
ComboBoxDec.Items[NbDecodeurdeBase+DecCourant-1]:=s; // combobox du décodeur, onglet signaux - change son itemindex
ComboBoxDec.ItemIndex:=k;
//vérifier si le décodeur est utilisé dans les signaux pour changer son hint
for i:=1 to NbreSignaux do
begin
@@ -13102,7 +13123,7 @@ begin
EditNbreAdr.Text:=intToSTR(decodeur_pers[decCourant].NbreAdr);
//Affiche('Décodeur courant = '+intToSTR(decCourant),clyellow);
if it=-1 then maj_decodeurs;
maj_decodeurs;
end;
@@ -14273,7 +14294,7 @@ begin
if (modele=aig) or (modele=triple) or (modele=crois) then
begin
EditAdrAig.Color:=clWindow;
if sombre then editAdrAig.Color:=couleurfond else EditAdrAig.Color:=clWindow;
LabelInfo.caption:=' ';
aiguillage[index].adresse:=i;
aiguillage[index].modifie:=true;
UnitConfigCellTCO.dfm
+19 -7
View File
@@ -301,7 +301,7 @@ object FormConfCellTCO: TFormConfCellTCO
end
object GroupBoxAction: TGroupBox
Left = 16
Top = 240
Top = 144
Width = 249
Height = 129
Caption = 'Action'
@@ -314,14 +314,14 @@ object FormConfCellTCO: TFormConfCellTCO
TabOrder = 6
object Label3: TLabel
Left = 104
Top = 74
Top = 73
Width = 38
Height = 13
Caption = 'Adresse'
end
object Labela: TLabel
Left = 184
Top = 74
Left = 192
Top = 73
Width = 6
Height = 13
Caption = #224
@@ -371,7 +371,7 @@ object FormConfCellTCO: TFormConfCellTCO
OnClick = RadioButtonActionClick
end
object EditAdrSortie: TEdit
Left = 144
Left = 152
Top = 70
Width = 33
Height = 21
@@ -379,9 +379,9 @@ object FormConfCellTCO: TFormConfCellTCO
OnChange = EditAdrSortieChange
end
object EditEtat: TEdit
Left = 200
Left = 208
Top = 70
Width = 25
Width = 17
Height = 21
Hint = '1 ou 2'
ParentShowHint = False
@@ -389,6 +389,18 @@ object FormConfCellTCO: TFormConfCellTCO
TabOrder = 6
OnChange = EditEtatChange
end
object RadioButtonStop: TRadioButton
Left = 8
Top = 88
Width = 177
Height = 17
Hint = 'Arr'#234'te tous les trains (mode autonome et CDM)'
Caption = 'Arr'#234'ter toutes les trains'
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = RadioButtonStopClick
end
end
end
object CheckPinv: TCheckBox
UnitConfigCellTCO.pas
+46 -29
View File
@@ -42,6 +42,7 @@ type
EditEtat: TEdit;
Labela: TLabel;
RadioButtonV180: TRadioButton;
RadioButtonStop: TRadioButton;
procedure EditAdrElementChange(Sender: TObject);
procedure EditTexteCCTCOChange(Sender: TObject);
procedure ButtonFonteClick(Sender: TObject);
@@ -69,6 +70,7 @@ type
procedure EditEtatChange(Sender: TObject);
procedure RadioButtonActionClick(Sender: TObject);
procedure RadioButtonV180Click(Sender: TObject);
procedure RadioButtonStopClick(Sender: TObject);
private
{ Déclarations privées }
public
@@ -140,6 +142,8 @@ begin
RadioButtonSC.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=2;
RadioButtonCDM.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=3;
RadioButtonAction.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=4;
RadioButtonStop.Checked:=tco[indexTCO,Xclic,Yclic].PiedFeu=5;
editNumTCO.Text:=intToSTR(tco[indexTCO,Xclic,Yclic].FeuOriente);
if RadioButtonAction.Checked then
begin
@@ -212,36 +216,36 @@ begin
end;
end;
// si voie ou rien ou signal ou quai
if (Bimage=1) or (Bimage=0) or (Bimage=Id_signal) or (Bimage=Id_Quai) then
// si voie ou rien ou signal ou quai
if (Bimage=1) or (Bimage=0) or (Bimage=Id_signal) or (Bimage=Id_Quai) then
begin
s:=Tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Texte;
with formTCO[indexTCO] do
begin
s:=Tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].Texte;
with formTCO[indexTCO] do
begin
EditTexte.Text:=s;
EditTexte.Visible:=true;
ComboRepr.Enabled:=true;
end;
end
else
begin
formTCO[indexTCO].EditTexte.Visible:=false;
formTCO[indexTCO].comboRepr.Enabled:=false;
EditTexte.Text:=s;
EditTexte.Visible:=true;
ComboRepr.Enabled:=true;
end;
end
else
begin
formTCO[indexTCO].EditTexte.Visible:=false;
formTCO[indexTCO].comboRepr.Enabled:=false;
end;
s:=IntToSTR(Xclic)+','+intToSTR(yClic);
FormTCO[indexTCO].GroupBox1.Caption:='Configuration cellule '+s;
XclicCellInserer:=XclicCell[indexTCO];
YclicCellInserer:=YclicCell[indexTCO];
FormTCO[indexTCO].EditAdrElement.Text:=IntToSTR(tco[indexTCO,XclicCellInserer,YclicCellInserer].Adresse);
FormTCO[indexTCO].EdittypeImage.Text:=IntToSTR(BImage);
FormTCO[indexTCO].ComboRepr.ItemIndex:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].repr;
FormTCO[indexTCO].ShapeCoulFond.Brush.Color:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].CouleurFond;
FormTCO[indexTCO].CheckPinv.Checked:=tco[indextco,XclicCell[indexTCO],YclicCell[indexTCO]].inverse;
s:=IntToSTR(Xclic)+','+intToSTR(yClic);
FormTCO[indexTCO].GroupBox1.Caption:='Configuration cellule '+s;
XclicCellInserer:=XclicCell[indexTCO];
YclicCellInserer:=YclicCell[indexTCO];
FormTCO[indexTCO].EditAdrElement.Text:=IntToSTR(tco[indexTCO,XclicCellInserer,YclicCellInserer].Adresse);
FormTCO[indexTCO].EdittypeImage.Text:=IntToSTR(BImage);
FormTCO[indexTCO].ComboRepr.ItemIndex:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].repr;
FormTCO[indexTCO].ShapeCoulFond.Brush.Color:=tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].CouleurFond;
FormTCO[indexTCO].CheckPinv.Checked:=tco[indextco,XclicCell[indexTCO],YclicCell[indexTCO]].inverse;
s:='El='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].BImage);
if tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse<>0 then s:=s+' Adr='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse);
//hint:=s;
s:='El='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].BImage);
if tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse<>0 then s:=s+' Adr='+intToSTR(tco[indexTCO,XclicCell[indexTCO],YclicCell[indexTCO]].adresse);
//hint:=s;
if not(ConfCellTCO) then exit;
@@ -682,11 +686,9 @@ begin
Xclic:=XclicCell[indexTCOCourant];
Yclic:=YclicCell[indexTCOCourant];
//Affiche(IntToSTR(x)+' '+IntToSTR(y),clyellow);
val(editTypeImage.text,element,erreur);
if erreur<>0 then exit;
extrait_connect(element,c1,c2,c3,c4);
@@ -875,6 +877,8 @@ begin
end;
end;
procedure TFormConfCellTCO.EditAdrSortieChange(Sender: TObject);
var i,erreur : integer;
begin
@@ -915,9 +919,22 @@ begin
end;
end;
procedure TFormConfCellTCO.RadioButtonStopClick(Sender: TObject);
var x,y : integer;
begin
if clicTCO or actualize then exit;
if RadioButtonStop.Checked then
begin
x:=XClicCell[IndexTCOCourant];
y:=yClicCell[IndexTCOCourant];
tco[IndexTCOCourant,x,y].PiedFeu:=5;
efface_cellule(indexTCOCourant,PCanvasTCO[indexTCOcourant],x,y,pmcopy);
affiche_cellule(IndexTCOCourant,x,y);
actualise(indexTCOCourant);
end;
end;
begin
end.
UnitConfigTCO.dfm
+23 -3
View File
@@ -13,12 +13,13 @@ object FormConfigTCO: TFormConfigTCO
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object LabelErreur: TLabel
Left = 16
Top = 216
Left = 104
Top = 384
Width = 3
Height = 13
end
@@ -202,9 +203,28 @@ object FormConfigTCO: TFormConfigTCO
Top = 384
Width = 75
Height = 25
Caption = 'OK'
Default = True
TabOrder = 3
OnClick = BitBtnOkClick
Kind = bkOK
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object RadioGroup1: TRadioGroup
Left = 304
UnitConfigTCO.pas
+68 -59
View File
@@ -80,6 +80,7 @@ type
procedure RadioButtonCourbesClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TrackBarEpaisseurChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Déclarations privées }
public
@@ -262,12 +263,18 @@ begin
end;
val(EditRatio.text,RatioC,erreur);
if (ratioC<5) or (ratioC>15) then
begin
LabelErreur.caption:='Erreur: ratio';
ok:=false;
end;
AvecGrille[IndexTCO]:=checkDessineGrille.Checked;
if checkCouleur.checked then ModeCouleurCanton:=1 else ModeCouleurCanton:=0;
end;
verif_config_TCO:=ok;
if ok then formConfigTCO.LabelErreur.caption:='';
NbCellulesTCO[indexTCO]:=NbreCellX[indexTCO]*NbreCellY[indexTCO];
end;
@@ -444,66 +451,8 @@ begin
end;
procedure TFormConfigTCO.BitBtnOkClick(Sender: TObject);
var ok : boolean;
i,x,y,erreur : integer;
s : string;
begin
ok:=true;
if verif_config_TCO(indexTCOCourant) then
begin
with FormTCO[indexTCOCourant].ImageTCO do
begin
Width:=LargeurCell[indexTCOCourant]*NbreCellX[indexTCOCourant];
Height:=HauteurCell[indexTCOCourant]*NbreCellY[indexTCOCourant];
end;
for y:=1 to NbreCellY[indexTCOCourant] do
for x:=1 to NbreCellX[indexTCOCourant] do
begin
if tco[indexTCOCourant,x,y].CouleurFond=0 then tco[indexTCOCourant,x,y].CouleurFond:=clfond[indexTCOCourant];
end;
if RadioButtonLignes.Checked then
begin
if graphisme=2 then TCO_modifie:=true;
graphisme:=1 ;
end;
if RadioButtonCourbes.Checked then
begin
if graphisme=1 then TCO_modifie:=true;
graphisme:=2;
end;
epaisseur_voies:=trackBarEpaisseur.Position;
val(editEcran.Text,i,erreur);
if i<1 then i:=1;
if i<>EcranTCO[indexTCOcourant] then tco_modifie:=true;
EcranTCO[indexTCOcourant]:=i;
AvecGrille[IndexTCOCourant]:=checkDessineGrille.Checked;
if ok then
begin
for i:=1 to 10 do
begin
if NomFichierTCO[i]<>stringGridTCO.Cells[1,i] then
begin
config_modifie:=true;
s:=stringGridTCO.Cells[1,i];
// on peut vérifier le .cfg mais bon
Affiche('Le nom du fichier '+NomFichierTCO[i]+' sera sauvegardé en '+s,clyellow);
NomFichierTCO[i]:=s;
end
else
NomFichierTCO[i]:=stringGridTCO.Cells[1,i];
end;
calcul_cellules(IndexTCOcourant);
affiche_TCO(indexTCOcourant);
dessine_icones(indexTCOCourant);
LabelErreur.caption:='';
close;
end;
end;
close;
end;
procedure TFormConfigTCO.CheckBoxCreerEvtClick(Sender: TObject);
@@ -593,8 +542,68 @@ begin
TrackBarEpaisseur.Hint:='Epaisseur = '+IntToSTR(i);
end;
procedure TFormConfigTCO.FormClose(Sender: TObject;var Action: TCloseAction);
var ok : boolean;
i,x,y,erreur : integer;
s : string;
begin
ok:=true;
if verif_config_TCO(indexTCOCourant) then
begin
with FormTCO[indexTCOCourant].ImageTCO do
begin
Width:=LargeurCell[indexTCOCourant]*NbreCellX[indexTCOCourant];
Height:=HauteurCell[indexTCOCourant]*NbreCellY[indexTCOCourant];
end;
for y:=1 to NbreCellY[indexTCOCourant] do
for x:=1 to NbreCellX[indexTCOCourant] do
begin
if tco[indexTCOCourant,x,y].CouleurFond=0 then tco[indexTCOCourant,x,y].CouleurFond:=clfond[indexTCOCourant];
end;
if RadioButtonLignes.Checked then
begin
if graphisme=2 then TCO_modifie:=true;
graphisme:=1 ;
end;
if RadioButtonCourbes.Checked then
begin
if graphisme=1 then TCO_modifie:=true;
graphisme:=2;
end;
epaisseur_voies:=trackBarEpaisseur.Position;
val(editEcran.Text,i,erreur);
if i<1 then i:=1;
if i<>EcranTCO[indexTCOcourant] then tco_modifie:=true;
EcranTCO[indexTCOcourant]:=i;
AvecGrille[IndexTCOCourant]:=checkDessineGrille.Checked;
if ok then
begin
for i:=1 to 10 do
begin
if NomFichierTCO[i]<>stringGridTCO.Cells[1,i] then
begin
config_modifie:=true;
s:=stringGridTCO.Cells[1,i];
// on peut vérifier le .cfg mais bon
Affiche('Le nom du fichier '+NomFichierTCO[i]+' sera sauvegardé en '+s,clyellow);
NomFichierTCO[i]:=s;
end
else
NomFichierTCO[i]:=stringGridTCO.Cells[1,i];
end;
menu_tco(nbreTCO);
calcul_cellules(IndexTCOcourant);
affiche_TCO(indexTCOcourant);
dessine_icones(indexTCOCourant);
LabelErreur.caption:='';
end;
end
else action:=tCloseAction(caNone); // si la config est nok, on ferme pas la fenetre
end;
begin
end.
UnitDebug.dfm
+19 -18
View File
@@ -4,6 +4,7 @@ object FormDebug: TFormDebug
Width = 884
Height = 732
VertScrollBar.Increment = 67
VertScrollBar.Position = 17
VertScrollBar.Tracking = True
Caption = 'Fen'#234'tre de d'#233'bug'
Color = clWindow
@@ -20,13 +21,13 @@ object FormDebug: TFormDebug
OnCreate = FormCreate
OnKeyPress = FormKeyPress
DesignSize = (
851
693)
859
701)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 615
Top = 4
Top = -13
Width = 108
Height = 13
Anchors = [akTop, akRight]
@@ -42,7 +43,7 @@ object FormDebug: TFormDebug
end
object LabelTitreDebug: TLabel
Left = 463
Top = 2
Top = -15
Width = 131
Height = 18
Anchors = [akTop, akRight]
@@ -56,7 +57,7 @@ object FormDebug: TFormDebug
end
object EditNivDebug: TEdit
Left = 774
Top = 2
Top = -15
Width = 49
Height = 21
Anchors = [akTop, akRight]
@@ -72,7 +73,7 @@ object FormDebug: TFormDebug
end
object ButtonEcrLog: TButton
Left = 462
Top = 328
Top = 311
Width = 97
Height = 29
Anchors = [akTop, akRight]
@@ -82,7 +83,7 @@ object FormDebug: TFormDebug
end
object ButtonRazTampon: TButton
Left = 462
Top = 360
Top = 343
Width = 97
Height = 33
Anchors = [akTop, akRight]
@@ -93,7 +94,7 @@ object FormDebug: TFormDebug
end
object ButtonCherche: TButton
Left = 462
Top = 296
Top = 279
Width = 97
Height = 25
Hint = 'Cherche la cha'#238'ne "erreur"'
@@ -106,7 +107,7 @@ object FormDebug: TFormDebug
end
object ButtonAffEvtChrono: TButton
Left = 462
Top = 256
Top = 239
Width = 97
Height = 33
Anchors = [akTop, akRight]
@@ -117,7 +118,7 @@ object FormDebug: TFormDebug
end
object ButtonCop: TButton
Left = 462
Top = 208
Top = 191
Width = 97
Height = 41
Anchors = [akTop, akRight]
@@ -134,7 +135,7 @@ object FormDebug: TFormDebug
end
object ButtonRazLog: TButton
Left = 462
Top = 400
Top = 383
Width = 97
Height = 33
Anchors = [akTop, akRight]
@@ -145,7 +146,7 @@ object FormDebug: TFormDebug
end
object GroupBox1: TGroupBox
Left = 468
Top = 600
Top = 583
Width = 369
Height = 185
Anchors = [akTop, akRight]
@@ -295,7 +296,7 @@ object FormDebug: TFormDebug
end
object GroupBox2: TGroupBox
Left = 460
Top = 20
Top = 3
Width = 384
Height = 149
Anchors = [akTop, akRight]
@@ -508,7 +509,7 @@ object FormDebug: TFormDebug
end
object RichDebug: TRichEdit
Left = 8
Top = 8
Top = -9
Width = 445
Height = 685
Anchors = [akLeft, akTop, akRight, akBottom]
@@ -521,7 +522,7 @@ object FormDebug: TFormDebug
end
object GroupBox5: TGroupBox
Left = 468
Top = 488
Top = 471
Width = 372
Height = 57
Anchors = [akTop, akRight]
@@ -588,7 +589,7 @@ object FormDebug: TFormDebug
end
object ButtonRazTout: TButton
Left = 463
Top = 176
Top = 159
Width = 97
Height = 25
Hint =
@@ -603,7 +604,7 @@ object FormDebug: TFormDebug
end
object GroupBox6: TGroupBox
Left = 468
Top = 552
Top = 535
Width = 372
Height = 41
Anchors = [akTop, akRight]
@@ -680,7 +681,7 @@ object FormDebug: TFormDebug
end
object MemoEvtDet: TRichEdit
Left = 565
Top = 174
Top = 157
Width = 280
Height = 307
Anchors = [akTop, akRight]
UnitDebug.pas
+23 -14
View File
@@ -206,7 +206,10 @@ begin
compt_erreur:=0;
LigneErreur:=0;
if debug=1 then Affiche('Fin création fenêtre debug',clLime);
// && débug=====================
//CheckBoxEvtDetAig.Checked:=true;
//CheckTrame.checked:=true;
// fin debug====================
couleurs_debug;
end;
@@ -377,8 +380,7 @@ begin
ancdebug:=NivDebug;
NivDebug:=3;
Val(EditSigSuiv.Text,adr,erreur);
if erreur<>0 then exit;
etat_signal_suivant(Adr,1,AdrSigSuivant) ;
if (erreur<>0) and (adr>0) then etat_signal_suivant(Adr,1,AdrSigSuivant) ;
NivDebug:=AncDebug;
end;
@@ -394,8 +396,10 @@ begin
if (s1='') or (s2='') then exit;
if s1[1]='A' then begin type1:=aig;delete(s1,1,1);end else type1:=det;
if s2[1]='A' then begin type2:=aig;delete(s2,1,1);end else type2:=det;
Val(s1,prec,erreur); if erreur<>0 then exit;
Val(s2,Actuel,erreur); if erreur<>0 then exit;
Val(s1,prec,erreur);
if (erreur<>0) or (prec<1) then exit;
Val(s2,Actuel,erreur);
if (erreur<>0) or (actuel<1) then exit;
Adr:=detecteur_suivant_El(prec,type1,actuel,type2,1);
if Adr<9996 then AfficheDebug('Le détecteur suivant aux éléments '+IntToSTR(prec)+'/'+IntToSTR(actuel)+' est '+IntToSTR(Adr),clyellow)
else AfficheDebug('Pas trouvé de détecteur suvant aux éléments '+IntToSTR(prec)+'/'+IntToSTR(actuel),clyellow);
@@ -407,7 +411,8 @@ var Adr,erreur,ancdebug : integer ;
begin
ancdebug:=NivDebug;
NivDebug:=3;
Val(EditSigSuiv.Text,Adr,erreur); if erreur<>0 then exit;
Val(EditSigSuiv.Text,Adr,erreur);
if (erreur=0) or (adr<1) then exit;
if test_memoire_zones(Adr) then AfficheDebug('Présence train',clYellow) else
AfficheDebug('Absence train',clyellow);
NivDebug:=AncDebug;
@@ -417,7 +422,8 @@ end;
procedure TFormDebug.ButtonCPClick(Sender: TObject);
var Adr,erreur,ancdebug,adrtrain,voie : integer ;
begin
Val(EditSigSuiv.Text,Adr,erreur); if erreur<>0 then exit;
Val(EditSigSuiv.Text,Adr,erreur);
if (erreur<>0) or (adr<1) then exit;
ancdebug:=NivDebug;
NivDebug:=3;
if PresTrainPrec(Adr,Nb_cantons_Sig,false,voie,adrtrain) then AfficheDebug('Présence train '+intToSTR(AdrTrain),clYellow) else
@@ -429,7 +435,8 @@ procedure TFormDebug.Button2Click(Sender: TObject);
var Adr,erreur,ancdebug,train : integer ;
reservetraintiers : boolean;
begin
Val(EditSigSuiv.Text,Adr,erreur); if erreur<>0 then exit;
Val(EditSigSuiv.Text,Adr,erreur);
if (erreur<>0) or (Adr<1) then exit;
ancdebug:=NivDebug;
NivDebug:=3;
Cond_Carre(Adr);
@@ -454,28 +461,28 @@ procedure TFormDebug.ButtonSimuDet0Click(Sender: TObject);
var det,erreur : integer;
begin
val(EditSimuDet.Text,det,erreur);
if erreur=0 then Event_Detecteur(det,false,'');
if (erreur=0) and (det>0) then Event_Detecteur(det,false,'');
end;
procedure TFormDebug.ButtonSimuDet1Click(Sender: TObject);
var det,erreur : integer;
begin
val(EditSimuDet.Text,det,erreur);
if erreur=0 then Event_Detecteur(det,true,'');
if (erreur=0) and (det>0) then Event_Detecteur(det,true,'');
end;
procedure TFormDebug.ButtonSimuAct1Click(Sender: TObject);
var det,erreur : integer;
begin
val(EditSimuDet.Text,det,erreur);
if erreur=0 then Event_Act(det,0,1,'');
if (erreur=0) and (det>0) then Event_Act(det,0,1,'');
end;
procedure TFormDebug.ButtonSimuAct0Click(Sender: TObject);
var det,erreur : integer;
begin
val(EditSimuDet.Text,det,erreur);
if erreur=0 then Event_Act(det,0,0,'');
if (erreur=0) and (det>0) then Event_Act(det,0,0,'');
end;
procedure TFormDebug.ButtonRazToutClick(Sender: TObject);
@@ -512,8 +519,10 @@ begin
if (s1='') or (s2='') then exit;
if s1[1]='A' then begin type1:=aig;delete(s1,1,1);end else type1:=det;
if s2[1]='A' then begin type2:=aig;delete(s2,1,1);end else type2:=det;
Val(s1,prec,erreur); if erreur<>0 then exit;
Val(s2,Actuel,erreur); if erreur<>0 then exit;
Val(s1,prec,erreur);
if (erreur<>0) or (prec<1) then exit;
Val(s2,Actuel,erreur);
if (erreur<>0) or (actuel<1) then exit;
Adr:=suivant_Alg3(prec,type1,actuel,type2,1);
if Adr<9995 then
begin
UnitPrinc.dfm
+34 -31
View File
@@ -1,10 +1,11 @@
object FormPrinc: TFormPrinc
Left = 114
Top = 237
Width = 1149
Height = 699
Left = 27
Top = 202
Anchors = [akLeft, akTop, akRight]
BorderStyle = bsSingle
Caption = 'Signaux complexes'
ClientHeight = 648
ClientWidth = 1133
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -13,18 +14,20 @@ object FormPrinc: TFormPrinc
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poDefault
Scaled = False
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
DesignSize = (
1141
1133
648)
PixelsPerInch = 96
TextHeight = 13
object LabelTitre: TLabel
Left = 8
Top = 2
Top = 10
Width = 173
Height = 18
Caption = 'Signaux complexes GL'
@@ -37,7 +40,7 @@ object FormPrinc: TFormPrinc
end
object Image9feux: TImage
Left = 1064
Top = 0
Top = 8
Width = 57
Height = 105
Picture.Data = {
@@ -227,7 +230,7 @@ object FormPrinc: TFormPrinc
end
object Image7feux: TImage
Left = 440
Top = 0
Top = 8
Width = 57
Height = 105
Picture.Data = {
@@ -395,7 +398,7 @@ object FormPrinc: TFormPrinc
end
object Image5feux: TImage
Left = 728
Top = -8
Top = 0
Width = 41
Height = 89
Picture.Data = {
@@ -495,7 +498,7 @@ object FormPrinc: TFormPrinc
end
object Image4feux: TImage
Left = 704
Top = 0
Top = 8
Width = 41
Height = 97
Picture.Data = {
@@ -587,7 +590,7 @@ object FormPrinc: TFormPrinc
end
object Image3feux: TImage
Left = 600
Top = 8
Top = 16
Width = 33
Height = 57
Picture.Data = {
@@ -668,7 +671,7 @@ object FormPrinc: TFormPrinc
end
object Image2feux: TImage
Left = 1064
Top = 104
Top = 112
Width = 33
Height = 57
Picture.Data = {
@@ -742,7 +745,7 @@ object FormPrinc: TFormPrinc
end
object Image2Dir: TImage
Left = 656
Top = 0
Top = 8
Width = 41
Height = 25
Picture.Data = {
@@ -817,7 +820,7 @@ object FormPrinc: TFormPrinc
end
object Image3Dir: TImage
Left = 848
Top = 0
Top = 8
Width = 49
Height = 25
Picture.Data = {
@@ -895,7 +898,7 @@ object FormPrinc: TFormPrinc
end
object Image4Dir: TImage
Left = 792
Top = 0
Top = 8
Width = 57
Height = 25
Picture.Data = {
@@ -983,7 +986,7 @@ object FormPrinc: TFormPrinc
end
object Image5Dir: TImage
Left = 880
Top = 0
Top = 8
Width = 65
Height = 25
Picture.Data = {
@@ -1081,7 +1084,7 @@ object FormPrinc: TFormPrinc
end
object Image6Dir: TImage
Left = 960
Top = 0
Top = 8
Width = 81
Height = 25
Picture.Data = {
@@ -1189,7 +1192,7 @@ object FormPrinc: TFormPrinc
end
object ImageSignal20: TImage
Left = 1048
Top = 416
Top = 424
Width = 57
Height = 105
Picture.Data = {
@@ -1429,7 +1432,7 @@ object FormPrinc: TFormPrinc
object StatusBar1: TStatusBar
Left = 0
Top = 626
Width = 1141
Width = 1133
Height = 22
Panels = <
item
@@ -1457,7 +1460,7 @@ object FormPrinc: TFormPrinc
end
object MSCommUSBInterface: TMSComm
Left = 1064
Top = 192
Top = 200
Width = 32
Height = 32
OnComm = MSCommUSBInterfaceComm
@@ -1467,7 +1470,7 @@ object FormPrinc: TFormPrinc
end
object Button1: TButton
Left = 744
Top = 8
Top = 16
Width = 75
Height = 25
Anchors = [akTop, akRight]
@@ -1478,7 +1481,7 @@ object FormPrinc: TFormPrinc
end
object GrandPanel: TPanel
Left = 8
Top = 48
Top = 56
Width = 1057
Height = 476
TabOrder = 3
@@ -1518,7 +1521,7 @@ object FormPrinc: TFormPrinc
OnChange = FenRichChange
OnMouseDown = FenRichMouseDown
end
object ScrollBox1: TScrollBox
object ScrollBoxSig: TScrollBox
Left = 536
Top = 176
Width = 465
@@ -1532,7 +1535,7 @@ object FormPrinc: TFormPrinc
ParentColor = False
TabOrder = 1
end
object GroupBox1: TGroupBox
object GroupBoxAcc: TGroupBox
Left = 497
Top = 21
Width = 265
@@ -1589,7 +1592,7 @@ object FormPrinc: TFormPrinc
OnClick = ButtonDevieClick
end
end
object GroupBox3: TGroupBox
object GroupBoxTrains: TGroupBox
Left = 497
Top = 64
Width = 265
@@ -1967,7 +1970,7 @@ object FormPrinc: TFormPrinc
Text = '<1>'
end
object ButtonEnv: TButton
Left = 0
Left = 8
Top = 88
Width = 88
Height = 33
@@ -1978,9 +1981,9 @@ object FormPrinc: TFormPrinc
OnClick = ButtonEnvClick
end
end
object GroupBox2: TGroupBox
Left = 721
Top = 56
object GroupBoxCV: TGroupBox
Left = 481
Top = -8
Width = 265
Height = 129
Anchors = [akTop, akRight]
@@ -2043,7 +2046,7 @@ object FormPrinc: TFormPrinc
end
object MSCommCde1: TMSComm
Left = 1064
Top = 272
Top = 280
Width = 32
Height = 32
OnComm = MSCommCde1Comm
@@ -2053,7 +2056,7 @@ object FormPrinc: TFormPrinc
end
object MSCommCde2: TMSComm
Left = 1064
Top = 304
Top = 312
Width = 32
Height = 32
OnComm = MSCommCde2Comm
UnitPrinc.pas
+862 -517
View File
File diff suppressed because it is too large Load Diff
UnitSR.dfm
+33 -33
View File
@@ -3,7 +3,7 @@ object FormSR: TFormSR
Top = 73
BorderStyle = bsDialog
Caption = 'Configuration du d'#233'codeur du signal St'#233'phane Ravaut'
ClientHeight = 562
ClientHeight = 540
ClientWidth = 475
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
@@ -18,21 +18,21 @@ object FormSR: TFormSR
TextHeight = 13
object LabelAdrSR1: TLabel
Left = 24
Top = 64
Top = 72
Width = 63
Height = 13
Caption = 'LabelAdrSR1'
end
object Label1: TLabel
Left = 120
Top = 48
Top = 56
Width = 15
Height = 13
Caption = '+ 2'
end
object Label2: TLabel
Left = 120
Top = 72
Top = 80
Width = 12
Height = 13
Caption = '- 1'
@@ -78,33 +78,33 @@ object FormSR: TFormSR
end
object Shape1: TShape
Left = 16
Top = 96
Top = 104
Width = 409
Height = 1
end
object LabelAdrSR2: TLabel
Left = 24
Top = 120
Top = 128
Width = 63
Height = 13
Caption = 'LabelAdrSR2'
end
object Label7: TLabel
Left = 120
Top = 104
Top = 112
Width = 15
Height = 13
Caption = '+ 2'
end
object Label8: TLabel
Left = 120
Top = 128
Top = 136
Width = 12
Height = 13
Caption = '- 1'
end
object Label6: TLabel
Left = 336
Left = 344
Top = 24
Width = 21
Height = 16
@@ -118,56 +118,56 @@ object FormSR: TFormSR
end
object LabelCV1: TLabel
Left = 320
Top = 48
Top = 56
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV2: TLabel
Left = 384
Top = 48
Top = 56
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV3: TLabel
Left = 320
Top = 72
Top = 80
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV4: TLabel
Left = 384
Top = 72
Top = 80
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV5: TLabel
Left = 320
Top = 110
Top = 118
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV6: TLabel
Left = 384
Top = 110
Top = 118
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV7: TLabel
Left = 320
Top = 134
Top = 142
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV8: TLabel
Left = 384
Top = 134
Top = 142
Width = 20
Height = 13
Caption = 'CV='
@@ -449,55 +449,55 @@ object FormSR: TFormSR
end
object Shape7: TShape
Left = 16
Top = 448
Top = 440
Width = 409
Height = 1
end
object LabelAdrSR8: TLabel
Left = 24
Top = 472
Top = 464
Width = 63
Height = 13
Caption = 'LabelAdrSR2'
end
object Label20: TLabel
Left = 120
Top = 456
Top = 448
Width = 15
Height = 13
Caption = '+ 2'
end
object Label21: TLabel
Left = 120
Top = 480
Top = 472
Width = 12
Height = 13
Caption = '- 1'
end
object LabelCV29: TLabel
Left = 320
Top = 460
Top = 452
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV30: TLabel
Left = 384
Top = 460
Top = 452
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV31: TLabel
Left = 320
Top = 484
Top = 476
Width = 20
Height = 13
Caption = 'CV='
end
object LabelCV32: TLabel
Left = 384
Top = 484
Top = 476
Width = 20
Height = 13
Caption = 'CV='
@@ -511,7 +511,7 @@ object FormSR: TFormSR
end
object ComboBoxAdr1: TComboBox
Left = 160
Top = 48
Top = 56
Width = 145
Height = 21
Style = csDropDownList
@@ -521,7 +521,7 @@ object FormSR: TFormSR
end
object ComboBoxAdr2: TComboBox
Left = 160
Top = 72
Top = 80
Width = 145
Height = 21
Style = csDropDownList
@@ -531,7 +531,7 @@ object FormSR: TFormSR
end
object ComboBoxAdr3: TComboBox
Left = 160
Top = 104
Top = 112
Width = 145
Height = 21
Style = csDropDownList
@@ -541,7 +541,7 @@ object FormSR: TFormSR
end
object ComboBoxAdr4: TComboBox
Left = 160
Top = 128
Top = 136
Width = 145
Height = 21
Style = csDropDownList
@@ -651,7 +651,7 @@ object FormSR: TFormSR
end
object ComboBoxAdr15: TComboBox
Left = 160
Top = 456
Top = 448
Width = 145
Height = 21
Style = csDropDownList
@@ -661,7 +661,7 @@ object FormSR: TFormSR
end
object ComboBoxAdr16: TComboBox
Left = 160
Top = 480
Top = 472
Width = 145
Height = 21
Style = csDropDownList
@@ -670,8 +670,8 @@ object FormSR: TFormSR
OnChange = ComboBoxAdr16Change
end
object BitBtnok: TBitBtn
Left = 16
Top = 520
Left = 24
Top = 504
Width = 75
Height = 25
TabOrder = 16
UnitTCO.dfm
+40 -52
View File
@@ -1,8 +1,8 @@
object FormTCO: TFormTCO
Left = 73
Top = 79
Width = 1212
Height = 661
Left = 114
Top = 116
Width = 1218
Height = 594
VertScrollBar.Visible = False
Caption = 'c'
Color = clBtnFace
@@ -24,13 +24,13 @@ object FormTCO: TFormTCO
OnKeyPress = FormKeyPress
OnMouseWheel = FormMouseWheel
DesignSize = (
1196
602)
1210
543)
PixelsPerInch = 96
TextHeight = 13
object LabelZoom: TLabel
Left = 1167
Top = 3
Left = 1168
Top = 0
Width = 32
Height = 13
Anchors = [akTop, akRight]
@@ -43,24 +43,24 @@ object FormTCO: TFormTCO
ParentFont = False
end
object ImageTemp: TImage
Left = 1020
Top = 3
Left = 1021
Top = 0
Width = 121
Height = 121
Anchors = [akTop, akRight]
end
object ImageTemp2: TImage
Left = 1019
Top = 132
Left = 1020
Top = 129
Width = 121
Height = 121
Anchors = [akTop, akRight]
end
object ScrollBox: TScrollBox
Left = 10
Top = 15
Width = 687
Height = 410
Left = 8
Top = 12
Width = 690
Height = 347
HorzScrollBar.Smooth = True
HorzScrollBar.Tracking = True
VertScrollBar.Smooth = True
@@ -71,13 +71,13 @@ object FormTCO: TFormTCO
ParentColor = False
TabOrder = 1
DesignSize = (
683
406)
686
343)
object ImageTCO: TImage
Left = 120
Top = 41
Width = 486
Height = 320
Width = 489
Height = 257
Anchors = [akLeft, akTop, akRight, akBottom]
AutoSize = True
ParentShowHint = False
@@ -91,8 +91,8 @@ object FormTCO: TFormTCO
end
end
object TrackBarZoom: TTrackBar
Left = 1157
Top = 18
Left = 1166
Top = 15
Width = 41
Height = 311
Anchors = [akTop, akRight]
@@ -108,9 +108,9 @@ object FormTCO: TFormTCO
OnChange = TrackBarZoomChange
end
object PanelBas: TPanel
Left = 2
Top = 461
Width = 1199
Left = 0
Top = 395
Width = 1202
Height = 140
Anchors = [akLeft, akRight, akBottom]
Color = clActiveBorder
@@ -123,7 +123,7 @@ object FormTCO: TFormTCO
TabOrder = 2
OnDragOver = PanelBasDragOver
DesignSize = (
1199
1202
140)
object Label1: TLabel
Left = 240
@@ -906,7 +906,7 @@ object FormTCO: TFormTCO
ParentFont = False
end
object ButtonSauveTCO: TButton
Left = 1090
Left = 1093
Top = 8
Width = 96
Height = 33
@@ -918,7 +918,7 @@ object FormTCO: TFormTCO
OnClick = ButtonSauveTCOClick
end
object ButtonConfigTCO: TButton
Left = 1090
Left = 1093
Top = 48
Width = 96
Height = 33
@@ -929,7 +929,7 @@ object FormTCO: TFormTCO
OnClick = ButtonConfigTCOClick
end
object ButtonSimu: TButton
Left = 878
Left = 881
Top = 80
Width = 113
Height = 25
@@ -939,18 +939,6 @@ object FormTCO: TFormTCO
TabStop = False
OnClick = ButtonSimuClick
end
object ButtonMasquer: TButton
Left = 1090
Top = 88
Width = 96
Height = 33
Anchors = [akTop, akRight]
Caption = 'Masquer bandeau'
TabOrder = 3
TabStop = False
WordWrap = True
OnClick = ButtonMasquerClick
end
object GroupBox1: TGroupBox
Left = 8
Top = 3
@@ -963,7 +951,7 @@ object FormTCO: TFormTCO
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
TabOrder = 4
TabOrder = 3
object Label41: TLabel
Left = 72
Top = 18
@@ -1134,30 +1122,30 @@ object FormTCO: TFormTCO
end
end
object buttonRaz: TButton
Left = 987
Left = 1094
Top = 88
Width = 97
Height = 33
Anchors = [akTop, akRight]
Caption = 'Raz des occupations'
TabOrder = 5
TabOrder = 4
TabStop = False
WordWrap = True
OnClick = buttonRazClick
end
object ButtonCalibrage: TButton
Left = 918
Left = 921
Top = 56
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Calibrage'
TabOrder = 6
TabOrder = 5
TabStop = False
OnClick = ButtonCalibrageClick
end
object ButtonDessiner: TButton
Left = 987
Left = 990
Top = 48
Width = 97
Height = 33
@@ -1168,24 +1156,24 @@ object FormTCO: TFormTCO
Caption = 'Dessiner le TCO'
ParentShowHint = False
ShowHint = True
TabOrder = 7
TabOrder = 6
TabStop = False
OnClick = ButtonDessinerClick
end
object ButtonAffSC: TButton
Left = 987
Left = 990
Top = 8
Width = 97
Height = 33
Anchors = [akTop, akRight]
Caption = 'Afficher Signaux Complexes'
TabOrder = 8
TabOrder = 7
TabStop = False
WordWrap = True
OnClick = ButtonAffSCClick
end
object RadioGroupSel: TRadioGroup
Left = 839
Left = 842
Top = 8
Width = 138
Height = 49
@@ -1200,7 +1188,7 @@ object FormTCO: TFormTCO
'Cellules s'#233'lectionn'#233'es'
'fen'#234'tre d'#233'pla'#231'able')
ParentFont = False
TabOrder = 9
TabOrder = 8
OnClick = RadioGroupSelClick
end
end
UnitTCO.pas
+405 -964
View File
File diff suppressed because it is too large Load Diff
Unitplace.pas
+36 -14
View File
@@ -239,7 +239,11 @@ procedure TFormPlace.Edit1Change(Sender: TObject);
var i,erreur : integer;
begin
val(edit1.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then
begin
LabelTexte.caption:='Erreur détecteur 1';
exit;
end;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -254,7 +258,11 @@ procedure TFormPlace.Edit2Change(Sender: TObject);
var i,erreur : integer;
begin
val(edit2.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then
begin
LabelTexte.caption:='Erreur détecteur 2';
exit;
end;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -269,7 +277,11 @@ procedure TFormPlace.Edit3Change(Sender: TObject);
var i,erreur : integer;
begin
val(edit3.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then
begin
LabelTexte.caption:='Erreur détecteur 3';
exit;
end;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -284,7 +296,11 @@ procedure TFormPlace.Edit4Change(Sender: TObject);
var i,erreur : integer;
begin
val(edit4.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then
begin
LabelTexte.caption:='Erreur détecteur 4';
exit;
end;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -299,7 +315,11 @@ procedure TFormPlace.Edit5Change(Sender: TObject);
var i,erreur : integer;
begin
val(edit5.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then
begin
LabelTexte.caption:='Erreur détecteur 5';
exit;
end;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -314,7 +334,11 @@ procedure TFormPlace.Edit6Change(Sender: TObject);
var i,erreur : integer;
begin
val(edit6.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then
begin
LabelTexte.caption:='Erreur détecteur 6';
exit;
end;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -449,7 +473,7 @@ procedure TFormPlace.EditDir1Change(Sender: TObject);
var i,erreur : integer;
begin
val(editDir1.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then exit;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -463,7 +487,7 @@ procedure TFormPlace.EditDir2Change(Sender: TObject);
var i,erreur : integer;
begin
val(editDir2.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then exit;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -477,7 +501,7 @@ procedure TFormPlace.EditDir3Change(Sender: TObject);
var i,erreur : integer;
begin
val(editDir3.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then exit;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -487,13 +511,11 @@ begin
placement[3].detdir:=i;
end;
procedure TFormPlace.EditDir4Change(Sender: TObject);
var i,erreur : integer;
begin
val(editDir4.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then exit;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -507,7 +529,7 @@ procedure TFormPlace.EditDir5Change(Sender: TObject);
var i,erreur : integer;
begin
val(editDir5.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then exit;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
@@ -521,7 +543,7 @@ procedure TFormPlace.EditDir6Change(Sender: TObject);
var i,erreur : integer;
begin
val(editDir6.Text,i,erreur);
if erreur<>0 then exit;
if (erreur<>0) or (i<0) then exit;
if index_adresse_detecteur(i)=0 then
begin
LabelTexte.caption:='Détecteur '+intToSTR(i)+' inexistant';
verif_version.pas
+1 -1
View File
@@ -25,7 +25,7 @@ var
verifVersion,notificationVersion,essai : boolean;
chemin_Dest,chemin_src,date_creation,nombre_tel : string;
Const Version='8.43'; // sert à la comparaison de la version publiée
Const Version='8.5'; // sert à la comparaison de la version publiée
SousVersion=' '; // A B C ... en cas d'absence de sous version mettre un espace
// pour unzip
SHCONTCH_NOPROGRESSBOX = 4;
versions.txt
+10
View File
@@ -233,5 +233,15 @@ version 8.41 : Am
version 8.42 : Création d'un onglet de paramètres avancés.
Fichier d'aide affichable depuis le menu.
version 8.43 : Correction d'un bug sur l'importation des détecteurs depuis CDM rail.
version 8.44 : Gestion de la centrale Z21 en mode autonome en Xpressnet.
Amélioration des réservations des aiguillages.
Amélioration affichages des trajets dans les TCOs.
Amélioration des réceptions des trames XpressNet.
Ajout d'une action "arrêt des trains" pour les TCOs