V8.7
This commit is contained in:
f1iwq2
2024-04-06 16:54:03 +02:00
parent 1f2fa711ca
commit b10f983b0b
26 changed files with 4349 additions and 2848 deletions
+2 -2
View File
@@ -14,8 +14,8 @@
-$N+
-$O-
-$P+
-$Q-
-$R-
-$Q+
-$R+
-$S-
-$T-
-$U-
+4 -2
View File
@@ -17,8 +17,8 @@ M=0
N=1
O=0
P=1
Q=0
R=0
Q=1
R=1
S=0
T=0
U=0
@@ -130,3 +130,5 @@ OriginalFilename=
ProductName=
ProductVersion=8.1.0.0
Comments=
[Excluded Packages]
c:\program files (x86)\borland\delphi7\Projects\Bpl\DsgnCPort8.bpl=ComPort Library
+3 -1
View File
@@ -21,7 +21,8 @@ uses
MSCommLib_TLB in 'MSCommLib_TLB.pas',
UnitHorloge in 'UnitHorloge.pas' {FormHorloge},
UnitFicheHoraire in 'UnitFicheHoraire.pas' {FormFicheHoraire},
UnitClock in 'UnitClock.pas' {FormClock};
UnitClock in 'UnitClock.pas' {FormClock},
UnitModifAction in 'UnitModifAction.pas' {FormModifAction};
{$R *.res}
@@ -46,6 +47,7 @@ begin
Application.CreateForm(TFormVersion, FormVersion);
Application.CreateForm(TFormClock, FormClock);
Application.CreateForm(TFormHorloge, FormHorloge);
Application.CreateForm(TFormModifAction, FormModifAction);
fin_preliminaire;
Application.Run;
end.
+126 -120
View File
@@ -1,108 +1,110 @@
Start Length Name Class
0001:00000000 00186E4CH .text CODE
0002:00000000 00002D10H .data DATA
0002:00002D10 045EDA31H .bss BSS
0001:00000000 001C19ACH .text CODE
0002:00000000 00002D30H .data DATA
0002:00002D30 045EEF79H .bss BSS
Detailed map of segments
0001:00000000 00005EFF C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005F00 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00006040 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:00006148 00000F20 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:00007068 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:000070A0 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:000073D8 00006F74 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E34C 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000EB68 0000804E C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016BB8 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016D58 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:00017594 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:000178EC 0000A7EA C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:000220D8 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:00022448 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002C044 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002C168 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C420 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C5B8 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CD40 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CD78 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DD70 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DDC8 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002EE90 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F1B0 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F5A0 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:0002FF5C 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:0002FF94 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:0002FFCC 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:0003000C 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:00030044 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:0003009C 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:000300D4 0000006C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:00030140 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:000301A0 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:000301D8 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:000338AC 00004ADA C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038388 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:00038418 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:00038BB8 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:00038CE0 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003C504 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003C53C 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003C5A4 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003C60C 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003C678 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003C6D0 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003C708 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:00046050 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00046EF0 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00053588 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:000536F0 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:00054410 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:00065814 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:00066AA8 00001C04 C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:000686AC 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:0006ED90 0000CF8C C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007BD1C 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:0007BD6C 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:0008F158 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0008F1B8 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:00090414 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:0009044C 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:00091BE0 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:00091C40 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:0009515C 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:00095470 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:00095598 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:00099010 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:000998FC 00000598 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:00099E94 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:00099ED4 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:00099F0C 00000038 C=CODE S=.text G=(none) M=DateUtils ACBP=A9
0001:00099F44 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009A95C 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009CA64 000092A4 C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A5D08 00001820 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A7528 0000057C C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000A7AA4 000147B4 C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000BC258 000028F7 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000BEB50 00000C64 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000BF7B4 000041E0 C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000C3994 00001050 C=CODE S=.text G=(none) M=UnitFicheHoraire ACBP=A9
0001:000C49E4 00001548 C=CODE S=.text G=(none) M=UnitClock ACBP=A9
0001:000C5F2C 00032638 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:000F8564 00003410 C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:000FB974 000027BC C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:000FE130 00000E5C C=CODE S=.text G=(none) M=UnitHorloge ACBP=A9
0001:000FEF8C 0000233F C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:001012CC 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0010249C 00000DC8 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:00103264 00002A50 C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:00105CB4 0003E8A8 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:0014455C 0003F6BC C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:00183C18 00002D08 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:00186920 0000052C C=CODE S=.text G=(none) M=Signaux_complexes_GL ACBP=A9
0001:00000000 00005F3F C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005F40 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9
0001:00006080 00000108 C=CODE S=.text G=(none) M=Types ACBP=A9
0001:00006188 00000F20 C=CODE S=.text G=(none) M=Windows ACBP=A9
0001:000070A8 00000038 C=CODE S=.text G=(none) M=Messages ACBP=A9
0001:000070E0 00000338 C=CODE S=.text G=(none) M=SysConst ACBP=A9
0001:00007418 00006F74 C=CODE S=.text G=(none) M=SysUtils ACBP=A9
0001:0000E38C 0000081B C=CODE S=.text G=(none) M=VarUtils ACBP=A9
0001:0000EBA8 0000804E C=CODE S=.text G=(none) M=Variants ACBP=A9
0001:00016BF8 000001A0 C=CODE S=.text G=(none) M=RTLConsts ACBP=A9
0001:00016D98 0000083C C=CODE S=.text G=(none) M=TypInfo ACBP=A9
0001:000175D4 00000358 C=CODE S=.text G=(none) M=ActiveX ACBP=A9
0001:0001792C 0000A7FE C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:0002212C 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9
0001:0002249C 00009BFB C=CODE S=.text G=(none) M=Graphics ACBP=A9
0001:0002C098 00000124 C=CODE S=.text G=(none) M=Math ACBP=A9
0001:0002C1BC 000002B8 C=CODE S=.text G=(none) M=Contnrs ACBP=A9
0001:0002C474 00000198 C=CODE S=.text G=(none) M=CommCtrl ACBP=A9
0001:0002C60C 00000787 C=CODE S=.text G=(none) M=MultiMon ACBP=A9
0001:0002CD94 00000038 C=CODE S=.text G=(none) M=Imm ACBP=A9
0001:0002CDCC 00000FF8 C=CODE S=.text G=(none) M=HelpIntfs ACBP=A9
0001:0002DDC4 00000058 C=CODE S=.text G=(none) M=WinSpool ACBP=A9
0001:0002DE1C 000010C8 C=CODE S=.text G=(none) M=Printers ACBP=A9
0001:0002EEE4 0000031F C=CODE S=.text G=(none) M=FlatSB ACBP=A9
0001:0002F204 000003F0 C=CODE S=.text G=(none) M=SyncObjs ACBP=A9
0001:0002F5F4 000009BB C=CODE S=.text G=(none) M=UxTheme ACBP=A9
0001:0002FFB0 00000038 C=CODE S=.text G=(none) M=RichEdit ACBP=A9
0001:0002FFE8 00000038 C=CODE S=.text G=(none) M=ToolWin ACBP=A9
0001:00030020 00000040 C=CODE S=.text G=(none) M=ShellAPI ACBP=A9
0001:00030060 00000038 C=CODE S=.text G=(none) M=RegStr ACBP=A9
0001:00030098 00000058 C=CODE S=.text G=(none) M=WinInet ACBP=A9
0001:000300F0 00000038 C=CODE S=.text G=(none) M=UrlMon ACBP=A9
0001:00030128 0000006C C=CODE S=.text G=(none) M=ShlObj ACBP=A9
0001:00030194 00000060 C=CODE S=.text G=(none) M=CommDlg ACBP=A9
0001:000301F4 00000038 C=CODE S=.text G=(none) M=Dlgs ACBP=A9
0001:0003022C 000036D1 C=CODE S=.text G=(none) M=Dialogs ACBP=A9
0001:00033900 0000602A C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:0003992C 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9
0001:000399BC 000007A0 C=CODE S=.text G=(none) M=Clipbrd ACBP=A9
0001:0003A15C 00000128 C=CODE S=.text G=(none) M=StrUtils ACBP=A9
0001:0003A284 00003821 C=CODE S=.text G=(none) M=Buttons ACBP=A9
0001:0003DAA8 00000038 C=CODE S=.text G=(none) M=ExtDlgs ACBP=A9
0001:0003DAE0 00000068 C=CODE S=.text G=(none) M=IniFiles ACBP=A9
0001:0003DB48 00000068 C=CODE S=.text G=(none) M=Registry ACBP=A9
0001:0003DBB0 0000006C C=CODE S=.text G=(none) M=Mapi ACBP=A9
0001:0003DC1C 00000058 C=CODE S=.text G=(none) M=ExtActns ACBP=A9
0001:0003DC74 00000038 C=CODE S=.text G=(none) M=ListActns ACBP=A9
0001:0003DCAC 00009948 C=CODE S=.text G=(none) M=ComCtrls ACBP=A9
0001:000475F4 00000EA0 C=CODE S=.text G=(none) M=Themes ACBP=A9
0001:00048494 0000C698 C=CODE S=.text G=(none) M=StdCtrls ACBP=A9
0001:00054B2C 00000168 C=CODE S=.text G=(none) M=StdActns ACBP=A9
0001:00054C94 00000D1F C=CODE S=.text G=(none) M=WinHelpViewer ACBP=A9
0001:000559B4 00011403 C=CODE S=.text G=(none) M=Controls ACBP=A9
0001:00066DB8 00001292 C=CODE S=.text G=(none) M=ActnList ACBP=A9
0001:0006804C 00001C04 C=CODE S=.text G=(none) M=ImgList ACBP=A9
0001:00069C50 000066E1 C=CODE S=.text G=(none) M=Menus ACBP=A9
0001:00070334 0000CF8C C=CODE S=.text G=(none) M=Forms ACBP=A9
0001:0007D2C0 00000050 C=CODE S=.text G=(none) M=JConsts ACBP=A9
0001:0007D310 000133EC C=CODE S=.text G=(none) M=jpeg ACBP=A9
0001:000906FC 00000060 C=CODE S=.text G=(none) M=ComConst ACBP=A9
0001:0009075C 00001259 C=CODE S=.text G=(none) M=ComObj ACBP=A9
0001:000919B8 00000038 C=CODE S=.text G=(none) M=StdVCL ACBP=A9
0001:000919F0 00001793 C=CODE S=.text G=(none) M=AxCtrls ACBP=A9
0001:00093184 00000060 C=CODE S=.text G=(none) M=OleConst ACBP=A9
0001:000931E4 00003519 C=CODE S=.text G=(none) M=OleCtrls ACBP=A9
0001:00096700 00000314 C=CODE S=.text G=(none) M=TlHelp32 ACBP=A9
0001:00096A14 00000128 C=CODE S=.text G=(none) M=WinSock ACBP=A9
0001:00096B3C 00003A78 C=CODE S=.text G=(none) M=ScktComp ACBP=A9
0001:0009A5B4 000008EA C=CODE S=.text G=(none) M=OleServer ACBP=A9
0001:0009AEA0 000005A0 C=CODE S=.text G=(none) M=MSCommLib_TLB ACBP=A9
0001:0009B440 00000040 C=CODE S=.text G=(none) M=MMSystem ACBP=A9
0001:0009B480 00000038 C=CODE S=.text G=(none) M=Nb30 ACBP=A9
0001:0009B4B8 00000038 C=CODE S=.text G=(none) M=DateUtils ACBP=A9
0001:0009B4F0 00000A18 C=CODE S=.text G=(none) M=MaskUtils ACBP=A9
0001:0009BF08 00002108 C=CODE S=.text G=(none) M=Mask ACBP=A9
0001:0009E010 000092A4 C=CODE S=.text G=(none) M=Grids ACBP=A9
0001:000A72B4 00001BFC C=CODE S=.text G=(none) M=Spin ACBP=A9
0001:000A8EB0 00001988 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000AA838 0000057C C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000AADB4 00019484 C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000C4238 00002E3F C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000C7078 00000D78 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000C7DF0 000054E8 C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000CD2D8 000011D0 C=CODE S=.text G=(none) M=UnitFicheHoraire ACBP=A9
0001:000CE4A8 000017D4 C=CODE S=.text G=(none) M=UnitClock ACBP=A9
0001:000CFC7C 000471B0 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:00116E2C 000039DC C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:0011A808 00002BF8 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:0011D400 00005DC8 C=CODE S=.text G=(none) M=UnitModifAction ACBP=A9
0001:001231C8 00046AD8 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:00169CA0 00000E78 C=CODE S=.text G=(none) M=UnitHorloge ACBP=A9
0001:0016AB18 000024FF C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:0016D018 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0016E1E8 00000F6C C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:0016F154 00002E60 C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:00171FB4 0004C52C C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9
0001:001BE4E0 00002F78 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9
0001:001C1458 00000554 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
@@ -211,31 +213,34 @@ Detailed map of segments
0002:00003E5C 00000004 C=BSS S=.bss G=DGROUP M=MaskUtils ACBP=A9
0002:00003E60 00000004 C=BSS S=.bss G=DGROUP M=Mask ACBP=A9
0002:00003E64 00000004 C=BSS S=.bss G=DGROUP M=Grids ACBP=A9
0002:00003E68 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9
0002:00003E78 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9
0002:00003E88 000148B0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:00018738 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:0001874C 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:00018760 00000020 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00018780 00000288 C=BSS S=.bss G=DGROUP M=UnitFicheHoraire ACBP=A9
0002:00018A08 00000034 C=BSS S=.bss G=DGROUP M=UnitClock ACBP=A9
0002:00018A3C 0041870C C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:00431148 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:00431158 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:0043116C 00000038 C=BSS S=.bss G=DGROUP M=UnitHorloge ACBP=A9
0002:004311A4 000001EC C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:00431390 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:00431394 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:004313A0 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:004313A8 041BF0E0 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9
0002:045F0488 0000057C C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:045F0A04 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug ACBP=A9
0002:00003E68 00000004 C=BSS S=.bss G=DGROUP M=Spin ACBP=A9
0002:00003E6C 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9
0002:00003E7C 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9
0002:00003E8C 000148B0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:0001873C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00018750 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:00018764 00000020 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00018784 00001908 C=BSS S=.bss G=DGROUP M=UnitFicheHoraire ACBP=A9
0002:0001A08C 00000034 C=BSS S=.bss G=DGROUP M=UnitClock ACBP=A9
0002:0001A0C0 0041870C C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:004327CC 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:004327DC 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:004327F0 00000018 C=BSS S=.bss G=DGROUP M=UnitModifAction ACBP=A9
0002:00432808 0000057C C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:00432D84 00000038 C=BSS S=.bss G=DGROUP M=UnitHorloge ACBP=A9
0002:00432DBC 000001EC C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:00432FA8 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:00432FAC 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:00432FB8 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9
0002:00432FC0 041BEF8C C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9
0002:045F1F4C 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug 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
c:\program files (x86)\borland\delphi7\Lib\SPIN.RES
UnitPilote.dfm
Importation.dfm
UnitAnalyseSegCDM.dfm
@@ -247,15 +252,16 @@ UnitClock.dfm
UnitTCO.dfm
UnitSR.dfm
UnitCDF.dfm
UnitModifAction.dfm
UnitConfig.dfm
UnitHorloge.dfm
verif_version.dfm
UnitSimule.dfm
Unitplace.dfm
UnitPrinc.dfm
UnitConfig.dfm
UnitDebug.dfm
Signaux_complexes_GL.res
Signaux_complexes_GL.drf
Program entry point at 0001:00186C50
Program entry point at 0001:001C1798
+11 -11
View File
@@ -1,8 +1,8 @@
object FormClock: TFormClock
Left = 965
Top = 184
Width = 291
Height = 293
Left = 923
Top = 433
Width = 250
Height = 250
Caption = 'Horloge'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
@@ -15,13 +15,13 @@ object FormClock: TFormClock
OnCreate = FormCreate
OnResize = FormResize
DesignSize = (
275
254)
234
212)
PixelsPerInch = 96
TextHeight = 13
object BitBtnMarHor: TBitBtn
Left = 10
Top = 230
Top = 187
Width = 25
Height = 25
Hint = 'Lance l'#39'horloge'
@@ -33,7 +33,7 @@ object FormClock: TFormClock
end
object BitBtnArrHorl: TBitBtn
Left = 40
Top = 230
Top = 187
Width = 25
Height = 25
Hint = 'Arr'#234'te l'#39'horloge'
@@ -45,7 +45,7 @@ object FormClock: TFormClock
end
object BitBtnInitHor: TBitBtn
Left = 72
Top = 230
Top = 187
Width = 25
Height = 25
Hint = 'Initialiser l'#39'horloge'
@@ -57,7 +57,7 @@ object FormClock: TFormClock
end
object ButtonParametres: TButton
Left = 102
Top = 230
Top = 187
Width = 25
Height = 25
Hint = 'Param'#233'trage'
@@ -70,7 +70,7 @@ object FormClock: TFormClock
end
object ButtonGH: TButton
Left = 134
Top = 230
Top = 187
Width = 25
Height = 25
Hint = 'Grille horaire'
+13 -6
View File
@@ -342,18 +342,23 @@ begin
begin
LargeurFC:=250;
HauteurFC:=250;
OffsetXFC:=(formprinc.top+formPrinc.height)-FormClock.height-20;
OffsetYFC:=(formprinc.left+formPrinc.width)-formClock.width;
formclock.width:=LargeurFC;
formclock.height:=HauteurFC;
end;
formclock.top:=OffsetYFC;
formclock.left:=OffsetXFC;
formclock.width:=LargeurFC;
formclock.height:=HauteurFC;
OffsetYFC:=(formprinc.top+formPrinc.height)-FormClock.height-32;
OffsetXFC:=(formprinc.left+formPrinc.width)-formClock.width;
// écart entre fenetre principale et clock
DeltaFPCY:=OffsetYFC-formprinc.top;
DeltaFPCX:=OffsetXFC-formprinc.left;
formclock.top:=OffsetYFC;
formclock.left:=OffsetXFC;
end;
procedure TFormClock.FormCreate(Sender: TObject);
begin
// inits
@@ -462,6 +467,8 @@ begin
end;
procedure TFormClock.ButtonGHClick(Sender: TObject);
begin
formFicheHoraire.showModal;
+151 -463
View File
@@ -1,6 +1,6 @@
object FormConfig: TFormConfig
Left = 258
Top = 206
Left = 220
Top = 130
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 = TabSheetAct
ActivePage = TabSheet1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
@@ -2840,17 +2840,17 @@ object FormConfig: TFormConfig
end
end
end
object TabSheetAct: TTabSheet
Caption = 'Actionneurs/D'#233'tecteurs'
ImageIndex = 5
object Label16: TLabel
object TabSheet1: TTabSheet
Caption = 'Actions'
ImageIndex = 6
object Label44: TLabel
Left = 0
Top = 4
Width = 562
Top = 12
Width = 537
Height = 13
Caption =
'Liste de mod'#233'lisation des actionneurs - cliquez sur une ligne po' +
'ur afficher la description de l'#39'action'
'Liste de mod'#233'lisation des actions - cliquez sur une ligne pour a' +
'fficher la description de l'#39'action'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
@@ -2858,6 +2858,121 @@ object FormConfig: TFormConfig
Font.Style = [fsBold]
ParentFont = False
end
object GroupBox15: TGroupBox
Left = 0
Top = 32
Width = 609
Height = 425
Caption = 'Actions'
TabOrder = 0
object Label48: TLabel
Left = 352
Top = 16
Width = 149
Height = 13
Caption = 'Op'#233'rations r'#233'alis'#233'es par l'#39'action'
end
object ListBoxActions: TListBox
Left = 16
Top = 40
Width = 305
Height = 193
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
MultiSelect = True
ParentFont = False
PopupMenu = PopupMenuListes
TabOrder = 0
OnKeyDown = ListBoxActionsKeyDown
OnMouseDown = ListBoxActionsMouseDown
end
object ListBoxOperations: TListBox
Left = 336
Top = 40
Width = 249
Height = 193
Hint = 'Double clic pour valider/d'#233'valider une action'
Style = lbOwnerDrawVariable
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
ParentShowHint = False
PopupMenu = PopupMenuActions
ShowHint = True
TabOrder = 1
OnDblClick = ListBoxOperationsDblClick
OnDrawItem = ListBoxOperationsDrawItem
OnMouseDown = ListBoxOperationsMouseDown
end
object ButtonModAction: TButton
Left = 344
Top = 272
Width = 75
Height = 25
Caption = 'Modifier'
TabOrder = 2
OnClick = ButtonModActionClick
end
object RichEditInfo: TRichEdit
Left = 16
Top = 240
Width = 305
Height = 185
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 3
end
object Button1: TButton
Left = 16
Top = 16
Width = 65
Height = 17
Caption = 'Nouveau'
TabOrder = 4
OnClick = ButtonNouvAccClick
end
object Button3: TButton
Left = 104
Top = 16
Width = 65
Height = 17
Hint = 'Supprime l'#39'actionneur(s) s'#233'lectionn'#233'(s)'
Caption = 'Supprime'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = ButtonSupAccClick
end
object ButtonTestAction: TButton
Left = 504
Top = 272
Width = 75
Height = 25
Caption = 'Test action'
TabOrder = 6
OnClick = ButtonTestActionClick
end
end
end
object TabSheetPN: TTabSheet
Caption = 'PN'
ImageIndex = 6
object GroupBox13: TGroupBox
Left = 352
Top = 24
@@ -2865,417 +2980,31 @@ object FormConfig: TFormConfig
Height = 441
Caption = 'Description de l'#39'action'
TabOrder = 0
object GroupBoxRadio: TGroupBox
Left = 8
Top = 16
Width = 249
Height = 105
Caption = 'Type d'#39'action'
TabOrder = 0
object RadioButtonLoc: TRadioButton
Left = 24
Top = 16
Width = 193
Height = 17
Caption = 'Fonction F pour locomotive'
TabOrder = 0
OnClick = RadioButtonLocClick
end
object RadioButtonAccess: TRadioButton
Left = 24
Top = 32
Width = 161
Height = 17
Caption = 'Accessoire'
TabOrder = 1
OnClick = RadioButtonAccessClick
end
object RadioButtonSon: TRadioButton
Left = 24
Top = 48
Width = 161
Height = 17
Caption = 'Son'
TabOrder = 2
OnClick = RadioButtonSonClick
end
object RadioButtonCde: TRadioButton
Left = 24
Top = 64
Width = 177
Height = 17
Caption = 'Commande COM/USB/Socket'
TabOrder = 3
OnClick = RadioButtonCdeClick
end
object RadioButtonVit: TRadioButton
Left = 24
Top = 80
Width = 145
Height = 17
Caption = 'Vitesse de locomotive'
TabOrder = 4
OnClick = RadioButtonVitClick
end
end
object GroupBoxAct: TGroupBox
Left = 8
Top = 120
Width = 249
Height = 321
Caption = 'Action fonction de locomotive '
TabOrder = 1
object GroupBox18: TGroupBox
Left = 8
Top = 16
Width = 233
Height = 145
Caption = 'D'#233'clencheur '
TabOrder = 0
object LabelActionneur: TLabel
Left = 8
Top = 88
Width = 54
Height = 26
Caption = 'Actionneur D'#233'tecteur'
WordWrap = True
end
object Label30: TLabel
Left = 168
Top = 96
Width = 6
Height = 13
Caption = #224
end
object LabelTrain: TLabel
Left = 8
Top = 118
Width = 60
Height = 13
Caption = 'Train(s) D'#233'cl'
end
object EditAct: TEdit
Left = 72
Top = 92
Width = 41
Height = 21
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = EditActChange
end
object EditEtatActionneur: TEdit
Left = 184
Top = 92
Width = 17
Height = 21
Hint = 'Etat '#224' ou 1'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = EditEtatActionneurChange
end
object EditTrainDecl: TEdit
Left = 72
Top = 116
Width = 153
Height = 21
Hint =
'Train(s) d'#233'clencheur(s) s'#233'par'#233's par des virgules pour lequel la ' +
'condition s'#39'applique (mettre X pour tous les trains) #13 d'#233'clenc' +
'hement par actionneur uniquement'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = EditTrainDeclChange
end
object RadioButtonActDet: TRadioButton
Left = 16
Top = 16
Width = 161
Height = 17
Caption = 'Actionneur/D'#233'tecteur'
TabOrder = 3
OnClick = RadioButtonActDetClick
end
object RadioButtonZones: TRadioButton
Left = 16
Top = 32
Width = 161
Height = 17
Caption = 'Zones de d'#233'tection'
TabOrder = 4
OnClick = RadioButtonZonesClick
end
object EditAct2: TEdit
Left = 120
Top = 92
Width = 41
Height = 21
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnChange = EditAct2Change
end
object RadioButtonAig: TRadioButton
Left = 16
Top = 48
Width = 145
Height = 17
Caption = 'Ev'#232'nement aiguillage'
TabOrder = 6
OnClick = RadioButtonAigClick
end
object RadioButtonHorl: TRadioButton
Left = 16
Top = 64
Width = 113
Height = 17
Caption = 'Horloge'
TabOrder = 7
OnClick = RadioButtonHorlClick
end
end
object GroupBox19: TGroupBox
Left = 8
Top = 168
Width = 233
Height = 137
Caption = 'Destinataire de l'#39'action '
TabOrder = 1
object LabelTempo: TLabel
Left = 48
Top = 44
Width = 55
Height = 13
Caption = 'Tempo (ms)'
end
object LabelFonction: TLabel
Left = 8
Top = 18
Width = 80
Height = 13
BiDiMode = bdLeftToRight
Caption = 'Action : Fonction'
ParentBiDiMode = False
end
object Labela: TLabel
Left = 152
Top = 20
Width = 6
Height = 13
Caption = #224
end
object LabelNomSon: TLabel
Left = 0
Top = 56
Width = 91
Height = 13
Caption = 'Nom du fichier son:'
end
object SpeedButtonJoue: TSpeedButton
Left = 56
Top = 88
Width = 41
Height = 33
Hint = 'Joue le son'
Flat = True
Glyph.Data = {
4E010000424D4E010000000000003E0000002800000022000000220000000100
010000000000100100000000000000000000020000000000000000000000FFFF
FF00FFFFFFFFC0000000FFFFFFFFC0000000FFFFFFFFC0000000C0000000C000
0000800000004000000000000000000000001FFFFFFE000000003FFFFFFF0000
00003FFFFFFF000000003FFFFFFF000000003FF8FFFF000000003FF03FFF0000
00003FF00FFF000000003FF303FF000000003FF3C0FF000000003FF3F07F0000
00003FF3FC7F000000003FF3FC7F000000003FF3E07F000000003FF381FF0000
00003FF207FF000000003FF01FFF000000003FF07FFF000000003FF9FFFF0000
00003FFFFFFF000000003FFFFFFF000000003FFFFFFF000000001FFFFFFE0000
000000000000000000008000000040000000C0000000C0000000FFFFFFFFC000
0000FFFFFFFFC0000000FFFFFFFFC0000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButtonJoueClick
end
object SpeedButtonCharger: TSpeedButton
Left = 120
Top = 88
Width = 25
Height = 34
Hint = 'Ouvre un fichier son WAV'
Flat = True
Glyph.Data = {
BA060000424DBA06000000000000360400002800000019000000170000000100
0800000000008402000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A6000020400000206000002080000020A0000020C0000020E000004000000040
20000040400000406000004080000040A0000040C0000040E000006000000060
20000060400000606000006080000060A0000060C0000060E000008000000080
20000080400000806000008080000080A0000080C0000080E00000A0000000A0
200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
20004000400040006000400080004000A0004000C0004000E000402000004020
20004020400040206000402080004020A0004020C0004020E000404000004040
20004040400040406000404080004040A0004040C0004040E000406000004060
20004060400040606000406080004060A0004060C0004060E000408000004080
20004080400040806000408080004080A0004080C0004080E00040A0000040A0
200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
20008000400080006000800080008000A0008000C0008000E000802000008020
20008020400080206000802080008020A0008020C0008020E000804000008040
20008040400080406000804080008040A0008040C0008040E000806000008060
20008060400080606000806080008060A0008060C0008060E000808000008080
20008080400080806000808080008080A0008080C0008080E00080A0000080A0
200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0A0A00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF272727271C120A00FFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000FF27BF7F77776F2727271D130A0000FFFFFF
FFFFFFFFFFFFFF000000FF26F6BFBFBF7F7F7F77776F2F27271D130A0000FFFF
FFFFFF000000FF2F6FF6BFBFBFBFBF7F7F7F7F7F7F6F2F2F270AFFFFFFFFFF00
0000FF2727F6BFBFBFBFBFBF7F7F7F7F7F7F7F7F7726FFFFFFFFFF000000FF27
6FF6BFBFBFBFBFBFBF7F7F7F7F7F7F7F7F2F00FFFFFFFF000000FF27BF6FF6BF
BFBFBFBFBFBF7F7F7F7F7F7F7F771CFFFFFFFF000000FF27BF27F6BFBFBFBFBF
BFBFBF7F7F7F7F7F7FBF2F00FFFFFF000000FF27BF2FF6BFBFBFBFBFBFBFBFBF
7F7F7F7F7FBF7713FFFFFF000000FF277F376FF6BFBFBFBFBFBFBFBFBF7F7F7F
7F7FBF2F00FFFF000000FF277F3727F6BFBFBFBFBFBFBFBFBFBF7F7F7F7FBF77
0AFFFF000000FF277F372F27276FF6F6F6F6F6BFBFBFBFBF7F7F7FBF2700FF00
0000FF277F37373737372F2F27276F77BFBFBFBFBFBFBFBF6F0AFF000000FF27
7F373737373737373737372F2F276F6F7777777F7F1DFF000000FF277F373737
3737373737373737373737372F6F2F272727FF000000FF277F37373737373737
3737373737373737377FBF270A0AFF000000FF277F373737373737377FBFBFBF
BFBFBFBFBFF6270AFFFFFF000000FF277F373737373737372666272727272727
272752FFFFFFFF000000FF27BFBFBFBFBFBFBFBF25FFFFFFFFFFFFFFFFFFFFFF
FFFFFF000000FF266F2727272727276F13FFFFFFFFFFFFFFFFFFFFFFFFFFFF00
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButtonChargerClick
end
object Label42: TLabel
Left = 16
Top = 68
Width = 49
Height = 13
Caption = 'Train Dest'
end
object EditTempo: TEdit
Left = 112
Top = 38
Width = 41
Height = 21
TabOrder = 0
OnChange = EditTempoChange
end
object CheckRAZ: TCheckBox
Left = 40
Top = 56
Width = 145
Height = 17
Caption = 'Remise '#224' 0 apr'#232's pilotage'
TabOrder = 1
OnClick = CheckRAZClick
end
object EditFonctionAccess: TEdit
Left = 112
Top = 14
Width = 33
Height = 21
Hint = 'Num'#233'ro de fonction du d'#233'codeur du train (0 '#224' 12 ou 28)'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = EditFonctionAccessChange
end
object EditEtatFoncSortie: TEdit
Left = 168
Top = 14
Width = 25
Height = 21
TabOrder = 3
OnChange = EditEtatFoncSortieChange
end
object EditSon: TEdit
Left = 16
Top = 88
Width = 161
Height = 21
TabOrder = 4
OnChange = EditSonChange
end
object EditTrainDest: TEdit
Left = 80
Top = 64
Width = 129
Height = 21
Hint = 'Train destinataire de la fonction F'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnChange = EditTrainDestChange
end
object ComboBoxAccComUSB: TComboBox
Left = 16
Top = 80
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
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnChange = ComboBoxAccComUSBChange
end
end
object ButtonTestAct: TButton
Left = 16
Top = 294
Width = 89
Height = 20
Hint = 'Test de l'#39'actionneur/d'#233'tecteur en mode RUN'
Caption = 'Test actionneur'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = ButtonTestActClick
end
end
object GroupBoxPNA: TGroupBox
Left = 96
Top = 64
Width = 169
Left = 8
Top = 224
Width = 249
Height = 121
Caption = 'Actionneurs PN simples'
TabOrder = 2
TabOrder = 0
end
object GroupBoxPNZ: TGroupBox
Left = 192
Top = 88
Width = 169
Left = 8
Top = 352
Width = 249
Height = 65
Caption = 'Zones de d'#233'tection'
TabOrder = 3
TabOrder = 1
end
object GroupBoxPN: TGroupBox
Left = 144
Left = 8
Top = 24
Width = 249
Height = 193
Caption = 'Action gestion passage '#224' niveau'
ParentShowHint = False
ShowHint = False
TabOrder = 4
TabOrder = 2
object Label21: TLabel
Left = 8
Top = 84
@@ -3393,7 +3122,7 @@ object FormConfig: TFormConfig
object RadioGroupActPN: TRadioGroup
Left = 8
Top = 16
Width = 217
Width = 233
Height = 57
Hint = 'action par accessoire DCC ou commande COM/USB'
Caption = 'Type d'#39'action'
@@ -3406,13 +3135,13 @@ object FormConfig: TFormConfig
OnClick = RadioGroupActPNClick
end
object ComboBoxPNCom: TComboBox
Left = 72
Left = 80
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
@@ -3420,61 +3149,13 @@ object FormConfig: TFormConfig
end
end
end
object GroupBox14: TGroupBox
Left = 0
Top = 24
Width = 345
Height = 233
Caption = 'Actionneurs/d'#233'tecteurs locomotives ou accessoires'
TabOrder = 1
object ButtonNouvAcc: TButton
Left = 8
Top = 24
Width = 65
Height = 17
Caption = 'Nouveau'
TabOrder = 0
OnClick = ButtonNouvAccClick
end
object ButtonSupAcc: TButton
Left = 80
Top = 24
Width = 65
Height = 17
Hint = 'Supprime l'#39'actionneur(s) s'#233'lectionn'#233'(s)'
Caption = 'Supprime'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = ButtonSupAccClick
end
object ListBoxAct: TListBox
Left = 8
Top = 48
Width = 329
Height = 161
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
MultiSelect = True
ParentFont = False
PopupMenu = PopupMenuListes
TabOrder = 2
OnKeyDown = ListBoxActKeyDown
OnMouseDown = ListBoxActMouseDown
end
end
object GroupBox17: TGroupBox
Left = 0
Top = 272
Top = 16
Width = 345
Height = 193
Height = 449
Caption = 'Actionneurs/d'#233'tecteurs passage '#224' niveau'
TabOrder = 2
TabOrder = 1
object ButtonNouvPN: TButton
Left = 8
Top = 24
@@ -3500,7 +3181,7 @@ object FormConfig: TFormConfig
Left = 8
Top = 48
Width = 329
Height = 137
Height = 345
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
@@ -3519,7 +3200,7 @@ object FormConfig: TFormConfig
end
object TabSheetDccpp: TTabSheet
Caption = 'DCC++'
ImageIndex = 6
ImageIndex = 7
ParentShowHint = False
ShowHint = False
object Label10: TLabel
@@ -4274,4 +3955,11 @@ object FormConfig: TFormConfig
Left = 696
Top = 376
end
object PopupMenuActions: TPopupMenu
Left = 768
object ModifAction: TMenuItem
Caption = 'Modifier l'#39'action'
OnClick = ModifActionClick
end
end
end
+970 -1780
View File
File diff suppressed because it is too large Load Diff
+491 -96
View File
@@ -395,8 +395,8 @@ object FormConfCellTCO: TFormConfCellTCO
Left = 160
Top = 8
Bitmap = {
494C010108000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001002000000000000030
494C010113001800040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000006000000001002000000000000060
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -536,118 +536,502 @@ object FormConfCellTCO: TFormConfCellTCO
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF000000FF000000FF000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF000000FF00000000000000000000000000000000000000
FF000000FF000000FF000000FF000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF000000FF000000FF000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF000000FF00000000000000000000000000000000000000
FF000000FF000000FF000000FF000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF0000000000000000000000
FF000000FF00000000000000FF000000FF0000000000000000000000FF000000
FF00000000000000FF000000FF000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF000000FF000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF00000000000000FF000000FF000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF000000FF000000FF000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF00000000000000FF000000FF000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF0000000000000000000000
FF000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF000000000000000000000000000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF000000FF000000
FF000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF00000000000000FF000000FF00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF000000FF000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF00000000000000FF000000FF00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF0000000000000000000000
FF000000000000000000000000000000FF0000000000000000000000FF000000
FF000000000000000000000000000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FF00
0000FF000000FF000000FF000000FF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
FF00000000000000000000000000000000000000000000000000000000000000
FF000000FF000000000000000000000000000000000000000000FF000000FF00
0000FF000000FF000000FF000000FF000000FF00000000000000000000000000
000000000000000000000000000000000000FFFFFF0000000000000080000000
8000000080000000800000008000000080000000800000008000000080000000
8000000080000000800000000000FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF000000
FF000000FF0000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF0000000000000000000000000000000000FF000000FF00
0000FF000000FF000000FF000000FF000000FF00000000000000000000000000
000000000000000000000000000000000000FFFFFF00FFFFFF00000000000000
8000000080000000800000008000000080000000800000008000000080000000
80000000800000000000FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF000000FF000000
FF000000FF000000FF000000000000000000000000000000FF000000FF000000
FF000000FF000000FF000000FF00000000000000000000000000FF000000FF00
0000FF000000FF000000FF000000FF000000FF00000000000000000000000000
000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
0000000080000000800000008000000080000000800000008000000080000000
800000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF00000000000000000000000000FF000000FFFF
0000FF000000FF000000FF000000FF000000FF00000000000000000000000000
000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00000000000000800000008000000080000000800000008000000080000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000000000000000000000000000000000000000FFFF
0000FFFF0000FFFF0000FFFF0000FF000000FF00000000000000000000000000
000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00000000000000800000008000000080000000800000000000FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF000000FF0000000000000000000000FF00
0000FF000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000000080000000800000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFF0000FF0000000000000000000000FF00
0000FF000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000000080000000800000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFF0000FF0000000000000000000000FF00
0000FF000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000000080000000800000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFF0000FF0000000000000000000000FF00
0000FF000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000000080000000800000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFF0000FF00000000000000FF000000FF00
0000FF000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00000000000000800000008000000080000000800000000000FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF0000000000000000000000000000000000000000000000
0000000000000000000000000000FFFF0000FF000000FF000000FF000000FF00
0000FF000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00000000000000800000008000000080000000800000008000000080000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF00000000000000000000000000000000000000
0000000000000000000000000000FFFF0000FF000000FF000000FF000000FF00
0000FFFF0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
0000000080000000800000008000000080000000800000008000000080000000
800000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000000000000000000000000000FF000000FF000000
FF000000FF000000FF000000FF00000000000000000000000000000000000000
0000000000000000000000000000FFFF0000FF000000FF000000FFFF0000FFFF
000000000000000000000000000000000000FFFFFF00FFFFFF00000000000000
8000000080000000800000008000000080000000800000008000000080000000
80000000800000000000FFFFFF00FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF000000FF000000
FF000000FF0000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF0000000000000000000000000000000000000000000000
0000000000000000000000000000FFFF0000FF000000FFFF0000FFFF00000000
000000000000000000000000000000000000FFFFFF0000000000000080000000
8000000080000000800000008000000080000000800000008000000080000000
8000000080000000800000000000FFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF000000
FF00000000000000000000000000000000000000000000000000000000000000
FF000000FF000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF00000000000000000000000000000000000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF0000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000080000000800000008000000080000000
8000000080000000800000008000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF00000000000000000000000000000000008000000080000000
0000000080000000000000000000000080000000800000008000000080000000
8000000080000000800000008000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000FF0000000000
00000000000000000000000000000000000000000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF00000000000000000000000000000000000000000000000000
0000000000000000000000000000000080000000800000008000000080000000
8000000080000000800000008000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000FF0000000000
00000000000000000000000000000000000000000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000000000000000800000008000000080000000
8000000080000000000000008000000080000000800000008000000080000000
8000000080000000800000008000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF0000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000000000000000000000000000000000000000
0000000000000000000000000000000080000000800000008000000080000000
8000000080000000800000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF0000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000000000000000000000000000000000000000
0000000000000000000000000000000080000000800000008000000080000000
8000000080000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000FF000000FF00
0000FF00000000000000000000000000000000000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000000000000000800000008000000080000000
8000000000000000800000000000000080000000800000008000000080000000
8000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000FF000000FF00
0000FF00000000000000000000000000000000000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF00000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF00000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000080000000
8000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000000000000000
000000000000FF000000FF000000FF0000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000080000000
8000000080000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000000000000000
00000000000000000000FF000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000000000000000000000000000000000000000000000000000FF00
0000000000000000000000000000000000000000000000008000000080000000
8000000080000000800000008000000080000000800000008000000080000000
8000000080000000800000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000FF0000000000
00000000000000000000FF000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000080000000
8000000080000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000000000000000
000000000000FF000000FF000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000080000000
8000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000FF000000FF00
00000000000000000000FF000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000000000000000000000000000000000000000000000000000
0000FF000000FF00000000800000008000000080000000800000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF0000000000FF000000FF000000FF000000FF00FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF0000000000FF000000FF000000FF000000FF00FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FF00
0000FF000000FF00000000FFFF0000FFFF0000FFFF0000FFFF00FF000000FF00
00000000000000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000000000000000000000000000000000000000FF00
0000008000000080000000800000008000000080000000800000008000000080
0000FF000000000000000000000000000000000000000000000000000000FF00
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00FF000000000000000000000000000000000000000000000000000000FF00
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00FF0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FF0000000080
000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
FF00FF000000000000000000000000000000000000000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000FF00000000000000000000000000FF0000000080
0000008000000080000000800000008000000080000000800000008000000080
000000800000FF00000000000000000000000000000000000000FF0000000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF00FF00000000000000000000000000000000000000FF0000000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF00FF00000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000008000000080
FF000000FF00FF00000000000000000000000000000000000000FF00000000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
FF0000FFFF00FF00000000000000000000000000FF000000FF00000000000000
00000000FF000000FF00000000000000FF000000FF00000000000000FF000000
FF00000000000000FF000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000008000000080000000000000008000000080
000000800000FF000000000000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF000000FF000000FF00000000000000FF000000
FF000000FF00FF000000000000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF000000FF000000FF00000000000000FF000000
FF000000FF00FF00000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF000000008000000080
FF000000FF00FF000000000000000000000000000000FF00000000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FF
FF0000FFFF00FF00000000000000000000000000FF00000000000000FF000000
FF00000000000000FF00000000000000FF00000000000000FF00000000000000
FF00000000000000FF000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000008000000000000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF000000FF00000000000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF000000FF00000000000000FF0000FFFF000000
FF000000FF000000FF00FF000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000FF
FF000000FF000000FF00FF000000000000000000FF0000000000000000000000
FF000000FF00000000000000FF000000FF0000000000000000000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF00000000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF000000000000FFFF008080000000FF
FF0000FFFF0000FFFF00FF000000000000000000FF000000FF000000FF000000
FF00000000000000FF00000000000000FF00000000000000FF00000000000000
FF00000000000000FF000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000FF
FF000000FF000000FF00FF00000000000000000000000000FF000000FF000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF00000000000000FF000000FF000000FF0000000000FF000000008000000080
FF000000FF000000FF00FF0000000000000000000000FF00000000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF008080
000000FFFF0000FFFF00FF000000000000000000FF000000FF00000000000000
00000000FF000000FF00000000000000FF00000000000000FF00000000000000
FF0000000000000000000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000FF
FF000000FF000000FF00FF000000000000000000FF000000FF000000FF000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF00000000000000FF000000FF000000FF0000000000FF000000008000000080
FF000000FF000000FF00FF0000000000000000000000FF00000000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF008080
000000FFFF0000FFFF00FF000000000000000000FF00000000000000FF000000
FF000000FF000000FF00000000000000FF00000000000000FF00000000000000
FF00000000000000FF00000000000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF00000000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF008080
000000FFFF0000FFFF00FF000000000000000000FF00000000000000FF000000
FF00000000000000FF00000000000000FF00000000000000FF00000000000000
FF00000000000000FF00000000000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080
000000800000FF000000000000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF00FF000000000000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000FF
FF000000FF00FF00000000000000000000000000FF0000000000000000000000
FF000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF000000000000000000000000000000FF000000000000000000FF0000000080
FF000000FF00FF000000000000000000000000000000FF00000000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF008080
000000FFFF00FF00000000000000000000000000FF000000FF00000000000000
00000000FF000000000000000000000000000000FF00000000000000FF000000
FF0000000000000000000000FF000000FF000000000000000000FF0000000080
0000008000000080000000800000000000000080000000800000008000000080
000000800000FF00000000000000000000000000000000000000FF0000000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF00FF00000000000000000000000000000000000000FF0000000000
FF000000FF000000FF000000FF00000000000000FF000000FF0000FFFF000000
FF000000FF00FF0000000000000000000000000000000000FF000000FF000000
FF000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF00000000000000FF000000FF0000000000000000000000000000000000FF00
FF000000FF00FF00000000000000000000000000000000000000FF00000000FF
FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF008080000000FF
FF0000FFFF00FF0000000000000000000000000000000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000FF0000000000000000000000000000000000FF00
0000008000000080000000800000000000000080000000800000008000000080
0000FF000000000000000000000000000000000000000000000000000000FF00
00000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF00FF000000000000000000000000000000000000000000000000000000FF00
00000000FF000000FF000000FF000000000000FFFF0000FFFF000000FF000000
FF00FF000000000000000000000000000000000000000000FF000000FF000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000
FF00000000000000FF000000FF00000000000000000000000000000000000000
000000FFFF0000FFFF0000FFFF0000000000808000008080000000FFFF0000FF
FF00FF00000000000000000000000000000000000000000000000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF0000000000000000000000000000000000000000000000
0000FF000000008000000080000000800000008000000080000000800000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF0000000000FF000000FF000000FF000000FF000000FF000000FF00FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF0000000000FF000000FF000000FF000000FF000000FF000000FF00FF00
0000000000000000000000000000000000000000FF0000000000000000000000
FF000000000000000000000000000000FF0000000000000000000000FF000000
FF000000000000000000000000000000FF000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000FF00000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00FF00
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000000000000000000000000000
FF000000FF000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -697,49 +1081,49 @@ object FormConfCellTCO: TFormConfCellTCO
C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
C000C0C0C000C0C0C000C0C0C000C0C0C0000000000080808000808080000000
0000000000008080800000800000C0C0C0000000000000FF0000008000008080
8000000000000000000080808000C0C0C0000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
8000000000000000000080808000C0C0C0000000000000800000008000000080
0000000000000080000000800000008000000080000000000000000000000080
0000008000000000000000000000008000000000000000000000000000000000
0000000000000000800000000000000000000000800000000000000000000000
800000000000000000000000000000000000000080000000800000008000C0C0
C00000008000000080000000800000008000000080000000800000008000C0C0
C000000080000000800000008000000080000000000000000000000000000000
000000000000C0C0C0000080000080808000C0C0C0000080000000FF00000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000080000000800000000000000000
0000000000000080000000800000000000000000000000800000000000000080
0000008000000000000000000000008000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000080000000800000008000C0C0
C00000008000000080000000800000008000000080000000800000008000C0C0
C000000080000000800000008000000080000000000000000000000000000000
0000000000000080000000800000808080008080800000800000808080000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000008080000080800000808000008080
0000000000000000000000000000000000000080000000800000000000000000
0000000000000080000000800000000000000000000000800000000000000080
0000008000000000000000000000008000008080000080800000808000008080
0000808000008080000080800000808000008080000080800000808000008080
000080800000808000008080000080800000000080000000800000008000C0C0
C00000008000000080000000800000008000000080000000800000008000C0C0
C000000080000000800000008000000080000000000000000000C0C0C0000080
0000008000000080000000800000000000008080800000800000808080000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000008080000080800000808000008080
0000000000000000000000000000000000000080000000800000000000000000
0000000000000080000000800000000000000000000000800000000000000080
0000008000000080000000000000008000008080000080800000808000008080
0000808000008080000080800000808000008080000080800000808000008080
00008080000080800000808000008080000000FFFF0000FFFF0000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000000000C0C0C000008000000080
0000008000000000000000000000000000008080800000800000808080000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000008080000000000000000000000000
0000000000000000000000000000000000000080000000800000000000000000
0000000000000080000000800000000000000000000000800000000000000080
0000008000000000000000800000008000008080000000000000000000000000
0000808000008080000080800000000000000000000000000000808000008080
000000000000000000000000000080800000000080000000800000008000C0C0
C0000000800000008000000080000000800000FFFF000000800000008000C0C0
C0000000800000008000000080000000800000000000C0C0C000008000008080
800000000000000000000000000000000000C0C0C00000800000008000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000008080000000000000808000008080
0000000000000000000000000000000000000000000000800000008000000080
0000000000000080000000800000008000000080000000000000000000000080
0000000000000000000000000000008000008080000000000000808000008080
0000000000008080000000000000808000008080000080800000808000000000
000080800000808000008080000080800000000080000000800000008000C0C0
C000000080000000800000008000000080000000800000FFFF0000008000C0C0
@@ -782,20 +1166,31 @@ object FormConfCellTCO: TFormConfCellTCO
0000000000000000000000000000000000008080000080800000808000008080
0000808000008080000080800000808000008080000080800000808000008080
000080800000808000008080000080800000424D3E000000000000003E000000
2800000040000000300000000100010000000000800100000000000000000000
2800000040000000600000000100010000000000000300000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFC3FFC3FFC3F
FFFFF00FF00FF00FFFFFE007E007E007FFFFC003C003C003FFFF800380038003
FFFF800180018001000080018001800100008001800180010000800180018001
00008003800380030000C003C003C0030000E007E007E0070000F00FF00FF00F
0000F81FF81FF81F0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFB47
0000FFFFF7DFF56F0000FFFFC007F56F0000C1C1C007F54F0000988CF7DFFB6F
0000F81FF7DFFFFF0000F81FC00700000000C11FC00700000000871FF7DF0000
00008F1FF7DF000000008C8CC00700000000C1C1C00700000000FFFFF7DF0000
0000FFFFFFFF00000000FFFFFFFF000000000000000000000000000000000000
000000000000}
00000000000000000000000000000000FFFFFFFFFFFF0000FFFFFFFFFFFF0000
FFFFFFFFFFFF0000FFFFC0FFC1E00000FFFFC0FFC1E00000FFFFFFFFFFFF0000
FFFFFFFFFFFF00000000B6DBB6DB000000000000000000000000B6DBB6DB0000
00000000000000000000B6DBB6DB00000000FFFFFFFF00000000FFFFFFFF0000
0000FFFFFFFF00000000FFFFFFFF0000E0FFFFFFFFFFEFE7C07F4002FFFFC7C3
C07F2004F7DF8381C07F1008C0070101C07F0810C0078003E07F0420F7DFC007
FE670240F7DFE00FFE670240C007F01FFE670240C007E00FFE670240F7DFC007
FE470420F7DF8003FE070810C0070101FE071008C0070381FE0F2004F7DF87C3
FE1F4002FFFFCFE7FE3FFFFFFFFFFFFFFFFFFFFFFC3FFFFFFC3FFFFFFC3FFCFF
F3CFFFFFFC3FFCFFEFF7FE01FE7FFCFFDFFB9601FC7FFC1FBFBBFE01F87FFC1F
BF7D0401F27FFCFFBEFDFE03E63FFCFFBEFDFE07E61FFC07BEFD0A0FE64FFC07
BEFBFFFFFE67FFFFDEFBFFCFFE67B8FFEEF7FFC7FE67BDFFF7EF8003FE7F9DFF
F81FFFC7FE7FB9FFFFFFFFCFFE7F8DFFFFFFFFFFFFFFFFFFF00FFC3FFC3FFC3F
E007F00FF00FF00FC003E007E007E0078001C003C003C0033248800380038003
4AA88001800180010AA880018001800132AC80018001800142AA800180018001
4AAA800380038003374CC003C003C0038001E007E007E007C003F00FF00FF00F
E007F81FF81FF81FF00FFFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFB47
0000FFFFFFFFF56F0000FFFFFFFFF56F0000C1C1FFFFF54F0000988C8866FB6F
0000F81F39A6FFFF0000F81F39A600000000C11F39A200000000871F39A40000
00008F1F886E000000008C8CFFFF00000000C1C1FFFF00000000FFFFFFFF0000
0000FFFFFFFF00000000FFFFFFFF0000}
end
end
+27 -17
View File
@@ -646,17 +646,28 @@ begin
end;
end;
// une imagelist c'est 24x24 maxi
ListBoxAction.Items.Add(Format('%d%s', [0, 'Afficher TCO'])); // valeur d'index de l'icone dans la ImagelistIcones
ListBoxAction.Items.Add(Format('%d%s', [1, 'Afficher Signaux Complexes']));
ListBoxAction.Items.Add(Format('%d%s', [2, 'Afficher CDM Rail']));
ListBoxAction.Items.Add(Format('%d%s', [3, 'Activer/désactiver sortie']));
ListBoxAction.Items.Add(Format('%d%s', [4, 'Arrêter les trains']));
ListBoxAction.Items.Add(Format('%d%s', [5, 'Démarrer l''horloge']));
ListBoxAction.Items.Add(Format('%d%s', [6, 'Arrêter l''horloge']));
ListBoxAction.Items.Add(Format('%d%s', [7, 'Initialiser l''horloge']));
ListBoxAction.Items.Add(Format('%d%s', [8, 'Afficher l''horloge']));
// une imagelist c'est 16x16 maxi
with ListBoxAction do
begin
Items.Add(Format('%d%s', [0, 'Afficher TCO'])); // valeur d'index de l'icone dans la ImagelistIcones
itemHeight:=16;
Items.Add(Format('%d%s', [1, 'Afficher Signaux Complexes']));
itemHeight:=16;
Items.Add(Format('%d%s', [2, 'Afficher CDM Rail']));
itemHeight:=16;
Items.Add(Format('%d%s', [3, 'Activer/désactiver sortie']));
itemHeight:=16;
Items.Add(Format('%d%s', [4, 'Arrêter les trains']));
itemHeight:=16;
Items.Add(Format('%d%s', [5, 'Démarrer l''horloge']));
itemHeight:=16;
Items.Add(Format('%d%s', [6, 'Arrêter l''horloge']));
itemHeight:=16;
Items.Add(Format('%d%s', [7, 'Initialiser l''horloge']));
itemHeight:=16;
Items.Add(Format('%d%s', [8, 'Afficher l''horloge']));
itemHeight:=16;
end;
// dessine les composants - non utilisé
{
@@ -1062,7 +1073,6 @@ begin
Affiche_cellule(IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]);
end;
end;
end;
@@ -1071,16 +1081,16 @@ end;
procedure TFormConfCellTCO.ListBoxActionDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
IcoIndex: Integer;
i,erreur : Integer;
ItemText: string;
begin
with ListBoxAction do
begin
IcoIndex:=StrToIntDef(Items[Index][1], 0);
ItemText:=Items[Index];
Delete(ItemText,1,1);
ItemText:=Items[index];
val(ItemText,i,erreur);
Delete(ItemText,1,erreur-1);
Canvas.Fillrect(Rect);
ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, IcoIndex);
ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
Canvas.Textout(Rect.Left + ImageListIcones.Width + 2, Rect.Top, ItemText);
end;
end;
+19 -18
View File
@@ -1,6 +1,6 @@
object FormDebug: TFormDebug
Left = 244
Top = 119
Left = 258
Top = 1
VertScrollBar.Increment = 67
VertScrollBar.Tracking = True
VertScrollBar.Visible = False
@@ -32,6 +32,7 @@ object FormDebug: TFormDebug
Width = 872
Height = 677
HorzScrollBar.Visible = False
VertScrollBar.Position = 96
Anchors = [akLeft, akTop, akRight, akBottom]
Color = clBtnFace
ParentColor = False
@@ -41,7 +42,7 @@ object FormDebug: TFormDebug
673)
object LabelTitreDebug: TLabel
Left = 475
Top = 8
Top = -88
Width = 131
Height = 18
Anchors = [akTop, akRight]
@@ -55,7 +56,7 @@ object FormDebug: TFormDebug
end
object Label1: TLabel
Left = 627
Top = 10
Top = -86
Width = 108
Height = 13
Anchors = [akTop, akRight]
@@ -71,7 +72,7 @@ object FormDebug: TFormDebug
end
object RichDebug: TRichEdit
Left = 0
Top = 0
Top = -96
Width = 454
Height = 753
Anchors = [akLeft, akTop, akRight]
@@ -85,7 +86,7 @@ object FormDebug: TFormDebug
end
object ButtonRazTout: TButton
Left = 465
Top = 216
Top = 120
Width = 97
Height = 25
Hint =
@@ -100,7 +101,7 @@ object FormDebug: TFormDebug
end
object ButtonCop: TButton
Left = 465
Top = 248
Top = 152
Width = 97
Height = 41
Anchors = [akTop, akRight]
@@ -117,7 +118,7 @@ object FormDebug: TFormDebug
end
object ButtonAffEvtChrono: TButton
Left = 465
Top = 296
Top = 200
Width = 97
Height = 33
Anchors = [akTop, akRight]
@@ -128,7 +129,7 @@ object FormDebug: TFormDebug
end
object ButtonCherche: TButton
Left = 465
Top = 336
Top = 240
Width = 97
Height = 25
Hint = 'Cherche la cha'#238'ne "erreur"'
@@ -141,7 +142,7 @@ object FormDebug: TFormDebug
end
object ButtonEcrLog: TButton
Left = 465
Top = 184
Top = 88
Width = 97
Height = 29
Anchors = [akTop, akRight]
@@ -151,7 +152,7 @@ object FormDebug: TFormDebug
end
object ButtonRazTampon: TButton
Left = 465
Top = 368
Top = 272
Width = 97
Height = 33
Anchors = [akTop, akRight]
@@ -162,7 +163,7 @@ object FormDebug: TFormDebug
end
object ButtonRazLog: TButton
Left = 465
Top = 408
Top = 312
Width = 97
Height = 33
Anchors = [akTop, akRight]
@@ -173,7 +174,7 @@ object FormDebug: TFormDebug
end
object MemoEvtDet: TRichEdit
Left = 570
Top = 186
Top = 90
Width = 272
Height = 263
Anchors = [akTop, akRight]
@@ -184,7 +185,7 @@ object FormDebug: TFormDebug
end
object GroupBox5: TGroupBox
Left = 462
Top = 456
Top = 360
Width = 380
Height = 57
Anchors = [akTop, akRight]
@@ -251,7 +252,7 @@ object FormDebug: TFormDebug
end
object GroupBox6: TGroupBox
Left = 462
Top = 520
Top = 424
Width = 380
Height = 52
Anchors = [akTop, akRight]
@@ -328,7 +329,7 @@ object FormDebug: TFormDebug
end
object GroupBoxPrim: TGroupBox
Left = 464
Top = 584
Top = 488
Width = 378
Height = 185
Anchors = [akTop, akRight]
@@ -499,7 +500,7 @@ object FormDebug: TFormDebug
end
object GroupBox2: TGroupBox
Left = 466
Top = 28
Top = -68
Width = 376
Height = 149
Anchors = [akTop, akRight]
@@ -712,7 +713,7 @@ object FormDebug: TFormDebug
end
object EditNivDebug: TEdit
Left = 751
Top = 8
Top = -88
Width = 49
Height = 21
Anchors = [akTop, akRight]
+15 -2
View File
@@ -107,6 +107,7 @@ type
procedure CheckBoxPrincClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ButtonAigDevieClick(Sender: TObject);
procedure ButtonSigPrecClick(Sender: TObject);
private
{ Déclarations privées }
public
@@ -512,14 +513,14 @@ procedure TFormDebug.ButtonSimuAct1Click(Sender: TObject);
var det,erreur : integer;
begin
val(EditSimuDet.Text,det,erreur);
if (erreur=0) and (det>0) then Event_Act(det,0,1,'',false);
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) and (det>0) then Event_Act(det,0,0,'',false);
if (erreur=0) and (det>0) then Event_Act(det,0,0,'');
end;
procedure TFormDebug.ButtonRazToutClick(Sender: TObject);
@@ -715,4 +716,16 @@ begin
NivDebug:=AncDebug;
end;
procedure TFormDebug.ButtonSigPrecClick(Sender: TObject);
var Adr,erreur,ancDebug : integer;
begin
Val(EditSigSuiv.Text,Adr,erreur);
if (erreur<>0) or (Adr<1) then exit;
ancdebug:=NivDebug;
NivDebug:=3;
erreur:=Signal_Precedent(Adr);
NivDebug:=AncDebug;
AfficheDebug('signal précédent='+intToSTR(erreur),clyellow);
end;
end.
+1
View File
@@ -12,6 +12,7 @@ object FormFicheHoraire: TFormFicheHoraire
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
+3 -3
View File
@@ -24,7 +24,7 @@ type
end;
const
MaxHoraire=20;
MaxHoraire=200;
var
FormFicheHoraire: TFormFicheHoraire;
@@ -106,7 +106,7 @@ begin
Hint:='Grille horaire';
ShowHint:=true;
ColCount:=6;
RowCount:=14;
RowCount:=MaxHoraire+1;
Options := stringGridFO.Options + [goEditing];
ColWidths[0]:=30;
ColWidths[1]:=200;
@@ -116,7 +116,7 @@ begin
ColWidths[5]:=60;
Cells[0,0]:='Ligne';
Cells[1,0]:='Nom train';
Cells[1,0]:='Nom du train';
Cells[2,0]:='Départ';
Cells[3,0]:='Vitesse'+#13+'démarrage';
Cells[4,0]:='Sens'+#13+'(N/R)';
+22 -23
View File
@@ -362,7 +362,7 @@ object FormHorloge: TFormHorloge
object LabelErreur: TLabel
Left = 288
Top = 192
Width = 3
Width = 113
Height = 13
Caption = '.'
end
@@ -375,7 +375,7 @@ object FormHorloge: TFormHorloge
TabOrder = 0
object RadioButtonHS: TRadioButton
Left = 32
Top = 24
Top = 16
Width = 113
Height = 17
Hint = 'Horloge window, non comprimable'
@@ -387,7 +387,7 @@ object FormHorloge: TFormHorloge
end
object RadioButtonHI: TRadioButton
Left = 32
Top = 40
Top = 32
Width = 113
Height = 17
Hint = 'Horloge de Signaux_Complexes, comprimable'
@@ -472,14 +472,14 @@ object FormHorloge: TFormHorloge
Caption = 'Initialisation de l'#39'horloge interne'
TabOrder = 3
object Label3: TLabel
Left = 70
Left = 38
Top = 28
Width = 49
Height = 13
Caption = 'Initialiser '#224
end
object Label4: TLabel
Left = 152
Left = 144
Top = 26
Width = 6
Height = 13
@@ -499,18 +499,6 @@ object FormHorloge: TFormHorloge
Height = 13
Caption = 'h'
end
object EditHInit: TEdit
Left = 128
Top = 24
Width = 25
Height = 21
Hint = 'Heure de d'#233'marrage de l'#39'horloge interne'
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = '00'
OnChange = EditHInithange
end
object EditMInit: TEdit
Left = 160
Top = 24
@@ -519,7 +507,7 @@ object FormHorloge: TFormHorloge
Hint = 'Heure de d'#233'marrage de l'#39'horloge interne'
ParentShowHint = False
ShowHint = True
TabOrder = 1
TabOrder = 0
Text = '00'
OnChange = EditMInitChange
end
@@ -529,7 +517,7 @@ object FormHorloge: TFormHorloge
Width = 59
Height = 25
Caption = 'Initialiser'
TabOrder = 2
TabOrder = 1
OnClick = ButtonInitClick
end
object EditRetourHeure: TEdit
@@ -540,7 +528,7 @@ object FormHorloge: TFormHorloge
Hint = 'Heure '#224' laquelle l'#39'horloge reprend sa valeur initiale'
ParentShowHint = False
ShowHint = True
TabOrder = 3
TabOrder = 2
Text = '00'
OnChange = EditRetourHeureChange
end
@@ -552,7 +540,7 @@ object FormHorloge: TFormHorloge
Hint = 'Heure '#224' laquelle l'#39'horloge reprend sa valeur initiale'
ParentShowHint = False
ShowHint = True
TabOrder = 4
TabOrder = 3
Text = '00'
OnChange = EditRetourMinuteChange
end
@@ -562,9 +550,20 @@ object FormHorloge: TFormHorloge
Width = 241
Height = 17
Caption = 'Red'#233'marrer l'#39'horloge au retour '#224' l'#39'initialisation'
TabOrder = 5
TabOrder = 4
OnClick = CheckBoxRedemarreClick
end
object SpinEditHInit: TSpinEdit
Left = 104
Top = 24
Width = 38
Height = 22
MaxValue = 23
MinValue = 0
TabOrder = 5
Value = 0
OnChange = SpinEditHInitChange
end
end
object ButtonS: TButton
Left = 206
@@ -580,7 +579,7 @@ object FormHorloge: TFormHorloge
end
object ButtonAh: TButton
Left = 312
Top = 200
Top = 224
Width = 75
Height = 33
Caption = 'Afficher l'#39'horloge'
+22 -19
View File
@@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,unitPrinc, ComCtrls, jpeg, ExtCtrls ;
Dialogs, StdCtrls,unitPrinc, ComCtrls, jpeg, ExtCtrls, Spin ;
type
TFormHorloge = class(TForm)
@@ -17,7 +17,6 @@ type
ButtonOk: TButton;
GroupBox3: TGroupBox;
Label3: TLabel;
EditHInit: TEdit;
EditMInit: TEdit;
Label4: TLabel;
TrackBarTemps: TTrackBar;
@@ -34,11 +33,11 @@ type
CheckBoxRedemarre: TCheckBox;
ButtonAh: TButton;
CheckBoxAffiche: TCheckBox;
SpinEditHInit: TSpinEdit;
procedure ButtonOkClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure TrackBarTempsChange(Sender: TObject);
procedure ButtonInitClick(Sender: TObject);
procedure EditHInithange(Sender: TObject);
procedure EditMInitChange(Sender: TObject);
procedure RadioButtonHSClick(Sender: TObject);
procedure RadioButtonHIClick(Sender: TObject);
@@ -50,6 +49,7 @@ type
procedure CheckBoxRedemarreClick(Sender: TObject);
procedure ButtonAhClick(Sender: TObject);
procedure CheckBoxAfficheClick(Sender: TObject);
procedure SpinEditHInitChange(Sender: TObject);
private
{ Déclarations privées }
public
@@ -77,7 +77,7 @@ begin
begin
GroupBox3.Enabled:=true;
GroupBox2.Enabled:=true;
editHinit.Enabled:=true;
SpinEditHinit.Enabled:=true;
editMinit.Enabled:=true;
ButtonInit.Enabled:=true;
TrackBarTemps.Enabled:=true;
@@ -92,7 +92,7 @@ begin
begin
GroupBox3.Enabled:=false;
GroupBox2.Enabled:=false;
editHinit.Enabled:=false;
SpinEditHinit.Enabled:=false;
editMinit.Enabled:=false;
ButtonInit.Enabled:=false;
TrackBarTemps.Enabled:=false;
@@ -157,19 +157,7 @@ begin
init_horloge;
end;
procedure TFormHorloge.EditHInithange(Sender: TObject);
var i,erreur : integer;
begin
val(editHInit.Text,i,erreur);
if (erreur<>0) or (i<0) or (i>23) then
begin
LabelErreur.Caption:='Erreur heure';
exit;
end;
LabelErreur.Caption:='';
HeureInit:=i;
config_modifie:=true;
end;
procedure TFormHorloge.EditMInitChange(Sender: TObject);
var i,erreur : integer;
@@ -264,7 +252,7 @@ begin
CheckBoxAffiche.checked:=AffHorl;
CheckBoxRedemarre.Checked:=relanceHorl_init;
TrackBarTemps.position:=DureeMinute;
EditHInit.Text:=intToSTR(HeureInit);
SpinEditHInit.Text:=intToSTR(HeureInit);
EditMInit.Text:=intToSTR(MinuteInit);
EditRetourHeure.Text:=intToSTR(RetourHeure);
EditRetourMinute.Text:=intToSTR(RetourMinute);
@@ -295,4 +283,19 @@ begin
AffHorl:=CheckBoxAffiche.checked;
end;
procedure TFormHorloge.SpinEditHInitChange(Sender: TObject);
var i,erreur : integer;
begin
val(spinEditHInit.Text,i,erreur);
if (erreur<>0) or (i<0) or (i>23) then
begin
LabelErreur.Caption:='Erreur heure';
exit;
end;
LabelErreur.Caption:='';
HeureInit:=i;
config_modifie:=true;
end;
end.
+559
View File
@@ -0,0 +1,559 @@
object FormModifAction: TFormModifAction
Left = 309
Top = 112
BorderStyle = bsDialog
Caption = 'Modifier une action'
ClientHeight = 443
ClientWidth = 744
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label5: TLabel
Left = 16
Top = 10
Width = 62
Height = 16
Caption = 'Action(s)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelInfo: TLabel
Left = 316
Top = 416
Width = 237
Height = 13
end
object ButtonOk: TButton
Left = 16
Top = 416
Width = 75
Height = 25
Caption = 'Ok'
TabOrder = 0
OnClick = ButtonOkClick
end
object ComboBoxActions: TComboBox
Left = 88
Top = 8
Width = 585
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
OnChange = ComboBoxActionsChange
end
object PageControlAct: TPageControl
Left = 8
Top = 64
Width = 729
Height = 337
ActivePage = TabSheetOp
MultiLine = True
TabOrder = 2
object TabSheetDecl: TTabSheet
Caption = 'D'#233'clencheur'
object LabelDecl: TLabel
Left = 16
Top = 24
Width = 193
Height = 13
Caption = 'Liste de d'#233'clencheurs disponibles'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ListBoxDeclench: TListBox
Left = 16
Top = 60
Width = 185
Height = 185
ItemHeight = 13
TabOrder = 0
OnDrawItem = ListBoxDeclenchDrawItem
end
object GroupBoxDecl: TGroupBox
Left = 224
Top = 52
Width = 481
Height = 149
Caption = 'Param'#232'tres du d'#233'clencheur '
TabOrder = 1
object LabelAdresse: TLabel
Left = 16
Top = 36
Width = 38
Height = 13
Caption = 'Adresse'
end
object LabelTrain: TLabel
Left = 8
Top = 112
Width = 86
Height = 13
Caption = 'Train d'#233'clencheur'
WordWrap = True
end
object LabelEtat: TLabel
Left = 32
Top = 72
Width = 19
Height = 13
Caption = 'Etat'
end
object Labelheure: TLabel
Left = 120
Top = 36
Width = 6
Height = 13
Caption = 'h'
end
object ImageIcone: TImage
Left = 304
Top = 24
Width = 16
Height = 16
end
object EditAdr: TEdit
Left = 80
Top = 32
Width = 33
Height = 21
Hint = 'Adresse'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = EditAdrChange
end
object EditAdr2: TEdit
Left = 136
Top = 32
Width = 33
Height = 21
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = EditAdr2Change
end
object EditTrainDecl: TEdit
Left = 120
Top = 112
Width = 241
Height = 21
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = EditTrainDeclChange
end
object SpinEditEtat: TSpinEdit
Left = 80
Top = 68
Width = 33
Height = 22
MaxValue = 2
MinValue = 0
TabOrder = 3
Value = 0
OnChange = SpinEditEtatChange
end
end
object RichEditInf: TRichEdit
Left = 224
Top = 216
Width = 481
Height = 49
TabOrder = 2
end
object ButtonApplDecl: TButton
Left = 16
Top = 256
Width = 75
Height = 25
Hint = 'Application du d'#233'clencheur '#224' l'#39'action s'#233'lectionn'#233'e'
Caption = 'Appliquer'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = ButtonApplDeclClick
end
end
object TabSheetOp: TTabSheet
Caption = 'Op'#233'rations'
ImageIndex = 1
object Shape1: TShape
Left = 216
Top = 8
Width = 3
Height = 293
Brush.Color = clBlack
end
object Label3: TLabel
Left = 258
Top = 8
Width = 157
Height = 13
Caption = 'Liste d'#39'op'#233'rations '#224' r'#233'aliser'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 32
Top = 8
Width = 67
Height = 13
Caption = 'Liste d'#39'actions'
end
object SpeedButtonSupprime: TSpeedButton
Left = 338
Top = 255
Width = 23
Height = 22
Hint = 'Supprime une op'#233'ration de la liste'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000C40E0000C40E00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF9FFFFFFF9
9FFFFF999FFFFF9999FFF99999FFF999999F9999999F9999999FF99999999999
99FFFF99999999999FFFFFF999999999FFFFFFFF9999999FFFFFFFF999999999
FFFFFF99999999999FFFF9999999999999FF9999999F9999999F999999FFF999
999FF9999FFFFF9999FFFF99FFFFFFF99FFFFFFFFFFFFFFFFFFF}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButtonSupprimeClick
end
object Label1: TLabel
Left = 240
Top = 258
Width = 94
Height = 13
Caption = 'Supprimer op'#233'ration'
end
object ComboBoxFamille: TComboBox
Left = 0
Top = 32
Width = 209
Height = 21
ItemHeight = 13
TabOrder = 0
OnChange = ComboBoxFamilleChange
end
object ListBoxOper: TListBox
Left = 0
Top = 64
Width = 201
Height = 193
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
OnDrawItem = ListBoxOperDrawItem
end
object ListBoxOperations: TListBox
Left = 232
Top = 28
Width = 217
Height = 201
Hint = 'Liste chronologique des op'#233'rations '#224' effectuer'
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnDblClick = ListBoxOperationsDblClick
OnDrawItem = ListBoxOperationsDrawItem
OnMouseDown = ListBoxOperationsMouseDown
end
object GroupBoxParam: TGroupBox
Left = 464
Top = 32
Width = 249
Height = 265
Caption = 'Param'#232'tres de l'#39'op'#233'ration'
TabOrder = 3
object SpeedButtonCharger: TSpeedButton
Left = 128
Top = 216
Width = 25
Height = 34
Hint = 'Ouvre un fichier son WAV'
Flat = True
Glyph.Data = {
BA060000424DBA06000000000000360400002800000019000000170000000100
0800000000008402000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A6000020400000206000002080000020A0000020C0000020E000004000000040
20000040400000406000004080000040A0000040C0000040E000006000000060
20000060400000606000006080000060A0000060C0000060E000008000000080
20000080400000806000008080000080A0000080C0000080E00000A0000000A0
200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
20004000400040006000400080004000A0004000C0004000E000402000004020
20004020400040206000402080004020A0004020C0004020E000404000004040
20004040400040406000404080004040A0004040C0004040E000406000004060
20004060400040606000406080004060A0004060C0004060E000408000004080
20004080400040806000408080004080A0004080C0004080E00040A0000040A0
200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
20008000400080006000800080008000A0008000C0008000E000802000008020
20008020400080206000802080008020A0008020C0008020E000804000008040
20008040400080406000804080008040A0008040C0008040E000806000008060
20008060400080606000806080008060A0008060C0008060E000808000008080
20008080400080806000808080008080A0008080C0008080E00080A0000080A0
200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0A0A00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF272727271C120A00FFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000FF27BF7F77776F2727271D130A0000FFFFFF
FFFFFFFFFFFFFF000000FF26F6BFBFBF7F7F7F77776F2F27271D130A0000FFFF
FFFFFF000000FF2F6FF6BFBFBFBFBF7F7F7F7F7F7F6F2F2F270AFFFFFFFFFF00
0000FF2727F6BFBFBFBFBFBF7F7F7F7F7F7F7F7F7726FFFFFFFFFF000000FF27
6FF6BFBFBFBFBFBFBF7F7F7F7F7F7F7F7F2F00FFFFFFFF000000FF27BF6FF6BF
BFBFBFBFBFBF7F7F7F7F7F7F7F771CFFFFFFFF000000FF27BF27F6BFBFBFBFBF
BFBFBF7F7F7F7F7F7FBF2F00FFFFFF000000FF27BF2FF6BFBFBFBFBFBFBFBFBF
7F7F7F7F7FBF7713FFFFFF000000FF277F376FF6BFBFBFBFBFBFBFBFBF7F7F7F
7F7FBF2F00FFFF000000FF277F3727F6BFBFBFBFBFBFBFBFBFBF7F7F7F7FBF77
0AFFFF000000FF277F372F27276FF6F6F6F6F6BFBFBFBFBF7F7F7FBF2700FF00
0000FF277F37373737372F2F27276F77BFBFBFBFBFBFBFBF6F0AFF000000FF27
7F373737373737373737372F2F276F6F7777777F7F1DFF000000FF277F373737
3737373737373737373737372F6F2F272727FF000000FF277F37373737373737
3737373737373737377FBF270A0AFF000000FF277F373737373737377FBFBFBF
BFBFBFBFBFF6270AFFFFFF000000FF277F373737373737372666272727272727
272752FFFFFFFF000000FF27BFBFBFBFBFBFBFBF25FFFFFFFFFFFFFFFFFFFFFF
FFFFFF000000FF266F2727272727276F13FFFFFFFFFFFFFFFFFFFFFFFFFFFF00
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButtonChargerClick
end
object SpeedButtonJoue: TSpeedButton
Left = 56
Top = 216
Width = 41
Height = 33
Hint = 'Joue le son'
Flat = True
Glyph.Data = {
4E010000424D4E010000000000003E0000002800000022000000220000000100
010000000000100100000000000000000000020000000000000000000000FFFF
FF00FFFFFFFFC0000000FFFFFFFFC0000000FFFFFFFFC0000000C0000000C000
0000800000004000000000000000000000001FFFFFFE000000003FFFFFFF0000
00003FFFFFFF000000003FFFFFFF000000003FF8FFFF000000003FF03FFF0000
00003FF00FFF000000003FF303FF000000003FF3C0FF000000003FF3F07F0000
00003FF3FC7F000000003FF3FC7F000000003FF3E07F000000003FF381FF0000
00003FF207FF000000003FF01FFF000000003FF07FFF000000003FF9FFFF0000
00003FFFFFFF000000003FFFFFFF000000003FFFFFFF000000001FFFFFFE0000
000000000000000000008000000040000000C0000000C0000000FFFFFFFFC000
0000FFFFFFFFC0000000FFFFFFFFC0000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButtonJoueClick
end
object LabelPeriph: TLabel
Left = 24
Top = 128
Width = 62
Height = 13
Caption = 'P'#233'riph'#233'rique:'
end
object LabeledEditTrain: TLabeledEdit
Left = 24
Top = 184
Width = 161
Height = 21
Hint = 'train'
EditLabel.Width = 24
EditLabel.Height = 13
EditLabel.Caption = 'Train'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = LabeledEditTrainChange
end
object LabeledEditAdresse: TLabeledEdit
Left = 64
Top = 32
Width = 41
Height = 21
EditLabel.Width = 38
EditLabel.Height = 13
EditLabel.Caption = 'Adresse'
LabelPosition = lpLeft
LabelSpacing = 10
TabOrder = 1
OnChange = LabeledEditAdresseChange
end
object LabeledEditFonctionF: TLabeledEdit
Left = 144
Top = 56
Width = 41
Height = 21
EditLabel.Width = 47
EditLabel.Height = 13
EditLabel.Caption = 'FonctionF'
LabelPosition = lpLeft
LabelSpacing = 10
TabOrder = 2
OnChange = LabeledEditFonctionFChange
end
object LabeledEditEtat: TLabeledEdit
Left = 144
Top = 32
Width = 25
Height = 21
EditLabel.Width = 19
EditLabel.Height = 13
EditLabel.Caption = 'Etat'
LabelPosition = lpLeft
LabelSpacing = 10
TabOrder = 3
OnChange = LabeledEditEtatChange
end
object CheckBoxRAZ: TCheckBox
Left = 24
Top = 104
Width = 145
Height = 17
Caption = 'Remise '#224' 0 apr'#232's pilotage'
TabOrder = 4
OnClick = CheckBoxRAZClick
end
object ComboBoxAccComUSB: TComboBox
Left = 24
Top = 144
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
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnChange = ComboBoxAccComUSBChange
end
object LabeledEditTempoF: TLabeledEdit
Left = 144
Top = 80
Width = 33
Height = 21
EditLabel.Width = 72
EditLabel.Height = 13
EditLabel.Caption = 'Tempo x100ms'
LabelPosition = lpLeft
LabelSpacing = 10
TabOrder = 6
OnChange = LabeledEditTempoFChange
end
end
object ButtonAjouter: TButton
Left = 128
Top = 276
Width = 75
Height = 25
Hint =
'Ajouter l'#39'action s'#233'lectionn'#233'e dans la liste des op'#233'rations '#224' r'#233'a' +
'liser'
Caption = 'Ajouter >>>'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = ButtonAjouterClick
end
object ButtonAppAction: TButton
Left = 16
Top = 276
Width = 75
Height = 25
Hint =
'Mise '#224' jour du champ d'#39'action vers le champ de la liste d'#39'op'#233'ra' +
'tions '#224' r'#233'aliser'
Caption = 'Appliquer >>>'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = ButtonAppActionClick
end
object SpinButton1: TSpinButton
Left = 400
Top = 248
Width = 33
Height = 41
Hint = 'Change l'#39'ordre d'#39'ex'#233'cution des op'#233'rations'
DownGlyph.Data = {
0E010000424D0E01000000000000360000002800000009000000060000000100
200000000000D800000000000000000000000000000000000000008080000080
8000008080000080800000808000008080000080800000808000008080000080
8000008080000080800000808000000000000080800000808000008080000080
8000008080000080800000808000000000000000000000000000008080000080
8000008080000080800000808000000000000000000000000000000000000000
0000008080000080800000808000000000000000000000000000000000000000
0000000000000000000000808000008080000080800000808000008080000080
800000808000008080000080800000808000}
ParentShowHint = False
ShowHint = True
TabOrder = 6
UpGlyph.Data = {
0E010000424D0E01000000000000360000002800000009000000060000000100
200000000000D800000000000000000000000000000000000000008080000080
8000008080000080800000808000008080000080800000808000008080000080
8000000000000000000000000000000000000000000000000000000000000080
8000008080000080800000000000000000000000000000000000000000000080
8000008080000080800000808000008080000000000000000000000000000080
8000008080000080800000808000008080000080800000808000000000000080
8000008080000080800000808000008080000080800000808000008080000080
800000808000008080000080800000808000}
OnDownClick = SpinButton1DownClick
OnUpClick = SpinButton1UpClick
end
end
end
object LabeledEditNomAct: TLabeledEdit
Left = 88
Top = 36
Width = 225
Height = 21
EditLabel.Width = 73
EditLabel.Height = 13
EditLabel.Caption = 'Nom de l'#39'action'
LabelPosition = lpLeft
LabelSpacing = 5
TabOrder = 3
OnChange = LabeledEditNomActChange
end
object OpenDialogSon: TOpenDialog
Left = 680
end
end
+1219
View File
File diff suppressed because it is too large Load Diff
+6 -10
View File
@@ -1,6 +1,6 @@
object FormPrinc: TFormPrinc
Left = 128
Top = 170
Left = 134
Top = 114
Width = 1148
Height = 624
Anchors = [akLeft, akTop, akRight]
@@ -21,7 +21,7 @@ object FormPrinc: TFormPrinc
OnResize = FormResize
DesignSize = (
1132
565)
566)
PixelsPerInch = 96
TextHeight = 13
object LabelTitre: TLabel
@@ -1445,7 +1445,7 @@ object FormPrinc: TFormPrinc
end
object StatusBar1: TStatusBar
Left = 0
Top = 543
Top = 544
Width = 1132
Height = 22
Panels = <
@@ -1986,8 +1986,8 @@ object FormPrinc: TFormPrinc
end
end
object GroupBoxCV: TGroupBox
Left = 513
Top = 120
Left = 585
Top = 72
Width = 265
Height = 129
Anchors = [akTop, akRight]
@@ -2120,10 +2120,6 @@ object FormPrinc: TFormPrinc
Caption = 'Codification des signaux'
OnClick = CodificationdessignauxClick
end
object Codificationdesactionneurs1: TMenuItem
Caption = 'Codification des actionneurs'
OnClick = Codificationdesactionneurs1Click
end
object N5: TMenuItem
Caption = '-'
end
+677 -262
View File
File diff suppressed because it is too large Load Diff
-2
View File
@@ -145,8 +145,6 @@ begin
closeFile(fte);
formprinc.ButtonArretSimu.Visible:=true;
i_simule:=1;
SauvefiltrageDet0:=filtrageDet0;
filtrageDet0:=0;
FormSimulation.Close;
Affiche('Fichier simulation : '+Nomfichier ,clyellow);
end;
+2 -1
View File
@@ -9256,10 +9256,11 @@ begin
end;
// allume ou éteint (mode=0 ou 1) la voie du train "train", zone de det1 à det2 sur le TCO
// train est l'index du train qui a été créé par le roulage (tableau event_det_train[train] )
// det1 et det2 doivent être consécutifs sur le TCO, mais peuvent être séparés par des aiguillages
// si mode=0 : éteint
// =1 : couleur détecteur allumé
// =2 : couleur de l'index train
// =2 : couleur de l'index train
// Ne nécessite pas que les aiguillages aoient bien positionnés entre det1 et det2
// procédure récursive quand on passe par un aiguillage en pointe pour explorer les éléments opposés
procedure zone_tco(indexTCO,det1,det2,train,mode: integer);
+1 -4
View File
@@ -457,9 +457,8 @@ end;
procedure TFormPlace.ButtonLanceRoutageClick(Sender: TObject);
var vitesse,a,i,j,id,adrDet,AdrTrain : integer;
var i,j,adrDet,AdrTrain : integer;
trouve,demarre : boolean;
var s: string;
begin
if cdm_connecte then
begin
@@ -467,8 +466,6 @@ begin
exit;
end;
trouve:=false;
// explorer les détecteurs pour lancer les trains si le détecteur est affecté à un train
for i:=1 to NDetecteurs do
+3 -6
View File
@@ -26,7 +26,7 @@ var
chemin_Dest,chemin_src,date_creation,nombre_tel : string;
f : text;
Const VersionSC ='8.6'; // sert à la comparaison de la version publiée
Const VersionSC ='8.7'; // 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;
@@ -149,11 +149,8 @@ end;
// dézipe copie les fichiers et lance la nouvelle version
// s : chemin et fichier à déziper
procedure dezipe_copie_lance(s : string);
var fichier,nomPDF : string;
dirList : tStrings;
SR : TSearchRec;
nombre,i,attributes : integer;
pdf,ok : boolean;
var
i : integer;
begin
// Vérifier si répertoire dest existe
+2
View File
@@ -248,5 +248,7 @@ version 8.54 : Ajout du choix de pilotage des trains par CDM par adresse ou par
version 8.6 : Gestion des démarrages des trains sur horaire, en fonction d'une horloge paramétrable.
Amélioration de l'importation du réseau depuis CDM Rail.
Création d'actionneurs "horloge" et "vitesse train".
version 8.7 : les actionneurs deviennent les actions, et un déclencheur peut déclencher plusieurs opérations