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+ -$N+
-$O- -$O-
-$P+ -$P+
-$Q- -$Q+
-$R- -$R+
-$S- -$S-
-$T- -$T-
-$U- -$U-
+4 -2
View File
@@ -17,8 +17,8 @@ M=0
N=1 N=1
O=0 O=0
P=1 P=1
Q=0 Q=1
R=0 R=1
S=0 S=0
T=0 T=0
U=0 U=0
@@ -130,3 +130,5 @@ OriginalFilename=
ProductName= ProductName=
ProductVersion=8.1.0.0 ProductVersion=8.1.0.0
Comments= 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', MSCommLib_TLB in 'MSCommLib_TLB.pas',
UnitHorloge in 'UnitHorloge.pas' {FormHorloge}, UnitHorloge in 'UnitHorloge.pas' {FormHorloge},
UnitFicheHoraire in 'UnitFicheHoraire.pas' {FormFicheHoraire}, UnitFicheHoraire in 'UnitFicheHoraire.pas' {FormFicheHoraire},
UnitClock in 'UnitClock.pas' {FormClock}; UnitClock in 'UnitClock.pas' {FormClock},
UnitModifAction in 'UnitModifAction.pas' {FormModifAction};
{$R *.res} {$R *.res}
@@ -46,6 +47,7 @@ begin
Application.CreateForm(TFormVersion, FormVersion); Application.CreateForm(TFormVersion, FormVersion);
Application.CreateForm(TFormClock, FormClock); Application.CreateForm(TFormClock, FormClock);
Application.CreateForm(TFormHorloge, FormHorloge); Application.CreateForm(TFormHorloge, FormHorloge);
Application.CreateForm(TFormModifAction, FormModifAction);
fin_preliminaire; fin_preliminaire;
Application.Run; Application.Run;
end. end.
+126 -120
View File
@@ -1,108 +1,110 @@
Start Length Name Class Start Length Name Class
0001:00000000 00186E4CH .text CODE 0001:00000000 001C19ACH .text CODE
0002:00000000 00002D10H .data DATA 0002:00000000 00002D30H .data DATA
0002:00002D10 045EDA31H .bss BSS 0002:00002D30 045EEF79H .bss BSS
Detailed map of segments Detailed map of segments
0001:00000000 00005EFF C=CODE S=.text G=(none) M=System ACBP=A9 0001:00000000 00005F3F C=CODE S=.text G=(none) M=System ACBP=A9
0001:00005F00 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9 0001:00005F40 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:00006080 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:00006188 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:000070A8 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:000070E0 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:00007418 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:0000E38C 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:0000EBA8 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:00016BF8 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:00016D98 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:000175D4 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:0001792C 0000A7FE C=CODE S=.text G=(none) M=Classes ACBP=A9
0001:000220D8 00000370 C=CODE S=.text G=(none) M=Consts ACBP=A9 0001:0002212C 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:0002249C 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:0002C098 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:0002C1BC 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:0002C474 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:0002C60C 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:0002CD94 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:0002CDCC 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:0002DDC4 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:0002DE1C 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:0002EEE4 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:0002F204 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:0002F5F4 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:0002FFB0 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:0002FFE8 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:00030020 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:00030060 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:00030098 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:000300F0 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:00030128 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:00030194 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:000301F4 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:0003022C 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:00033900 0000602A C=CODE S=.text G=(none) M=ExtCtrls ACBP=A9
0001:00038388 00000090 C=CODE S=.text G=(none) M=ComStrs ACBP=A9 0001:0003992C 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:000399BC 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:0003A15C 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:0003A284 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:0003DAA8 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:0003DAE0 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:0003DB48 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:0003DBB0 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:0003DC1C 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:0003DC74 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:0003DCAC 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:000475F4 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:00048494 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:00054B2C 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:00054C94 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:000559B4 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:00066DB8 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:0006804C 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:00069C50 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:00070334 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:0007D2C0 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:0007D310 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:000906FC 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:0009075C 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:000919B8 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:000919F0 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:00093184 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:000931E4 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:00096700 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:00096A14 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:00096B3C 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:0009A5B4 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:0009AEA0 000005A0 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:0009B440 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:0009B480 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:0009B4B8 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:0009B4F0 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:0009BF08 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:0009E010 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:000A72B4 00001BFC C=CODE S=.text G=(none) M=Spin ACBP=A9
0001:000A7528 0000057C C=CODE S=.text G=(none) M=Importation ACBP=A9 0001:000A8EB0 00001988 C=CODE S=.text G=(none) M=UnitPilote ACBP=A9
0001:000A7AA4 000147B4 C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9 0001:000AA838 0000057C C=CODE S=.text G=(none) M=Importation ACBP=A9
0001:000BC258 000028F7 C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9 0001:000AADB4 00019484 C=CODE S=.text G=(none) M=UnitAnalyseSegCDM ACBP=A9
0001:000BEB50 00000C64 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9 0001:000C4238 00002E3F C=CODE S=.text G=(none) M=UnitConfigTCO ACBP=A9
0001:000BF7B4 000041E0 C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9 0001:000C7078 00000D78 C=CODE S=.text G=(none) M=Unit_Pilote_aig ACBP=A9
0001:000C3994 00001050 C=CODE S=.text G=(none) M=UnitFicheHoraire ACBP=A9 0001:000C7DF0 000054E8 C=CODE S=.text G=(none) M=UnitConfigCellTCO ACBP=A9
0001:000C49E4 00001548 C=CODE S=.text G=(none) M=UnitClock ACBP=A9 0001:000CD2D8 000011D0 C=CODE S=.text G=(none) M=UnitFicheHoraire ACBP=A9
0001:000C5F2C 00032638 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9 0001:000CE4A8 000017D4 C=CODE S=.text G=(none) M=UnitClock ACBP=A9
0001:000F8564 00003410 C=CODE S=.text G=(none) M=UnitSR ACBP=A9 0001:000CFC7C 000471B0 C=CODE S=.text G=(none) M=UnitTCO ACBP=A9
0001:000FB974 000027BC C=CODE S=.text G=(none) M=UnitCDF ACBP=A9 0001:00116E2C 000039DC C=CODE S=.text G=(none) M=UnitSR ACBP=A9
0001:000FE130 00000E5C C=CODE S=.text G=(none) M=UnitHorloge ACBP=A9 0001:0011A808 00002BF8 C=CODE S=.text G=(none) M=UnitCDF ACBP=A9
0001:000FEF8C 0000233F C=CODE S=.text G=(none) M=verif_version ACBP=A9 0001:0011D400 00005DC8 C=CODE S=.text G=(none) M=UnitModifAction ACBP=A9
0001:001012CC 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9 0001:001231C8 00046AD8 C=CODE S=.text G=(none) M=UnitConfig ACBP=A9
0001:0010249C 00000DC8 C=CODE S=.text G=(none) M=UnitSimule ACBP=A9 0001:00169CA0 00000E78 C=CODE S=.text G=(none) M=UnitHorloge ACBP=A9
0001:00103264 00002A50 C=CODE S=.text G=(none) M=Unitplace ACBP=A9 0001:0016AB18 000024FF C=CODE S=.text G=(none) M=verif_version ACBP=A9
0001:00105CB4 0003E8A8 C=CODE S=.text G=(none) M=UnitPrinc ACBP=A9 0001:0016D018 000011D0 C=CODE S=.text G=(none) M=UnitPareFeu ACBP=A9
0001:0014455C 0003F6BC C=CODE S=.text G=(none) M=UnitConfig ACBP=A9 0001:0016E1E8 00000F6C C=CODE S=.text G=(none) M=UnitSimule ACBP=A9
0001:00183C18 00002D08 C=CODE S=.text G=(none) M=UnitDebug ACBP=A9 0001:0016F154 00002E60 C=CODE S=.text G=(none) M=Unitplace ACBP=A9
0001:00186920 0000052C C=CODE S=.text G=(none) M=Signaux_complexes_GL 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:00000000 000000CC C=DATA S=.data G=DGROUP M=System ACBP=A9
0002:000000CC 00000020 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9 0002:000000CC 00000020 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9
0002:000000EC 00000254 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9 0002:000000EC 00000254 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9
@@ -211,31 +213,34 @@ Detailed map of segments
0002:00003E5C 00000004 C=BSS S=.bss G=DGROUP M=MaskUtils ACBP=A9 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: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: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:00003E68 00000004 C=BSS S=.bss G=DGROUP M=Spin ACBP=A9
0002:00003E78 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9 0002:00003E6C 00000010 C=BSS S=.bss G=DGROUP M=UnitPilote ACBP=A9
0002:00003E88 000148B0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9 0002:00003E7C 00000010 C=BSS S=.bss G=DGROUP M=Importation ACBP=A9
0002:00018738 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9 0002:00003E8C 000148B0 C=BSS S=.bss G=DGROUP M=UnitAnalyseSegCDM ACBP=A9
0002:0001874C 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9 0002:0001873C 00000014 C=BSS S=.bss G=DGROUP M=UnitConfigTCO ACBP=A9
0002:00018760 00000020 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9 0002:00018750 00000014 C=BSS S=.bss G=DGROUP M=Unit_Pilote_aig ACBP=A9
0002:00018780 00000288 C=BSS S=.bss G=DGROUP M=UnitFicheHoraire ACBP=A9 0002:00018764 00000020 C=BSS S=.bss G=DGROUP M=UnitConfigCellTCO ACBP=A9
0002:00018A08 00000034 C=BSS S=.bss G=DGROUP M=UnitClock ACBP=A9 0002:00018784 00001908 C=BSS S=.bss G=DGROUP M=UnitFicheHoraire ACBP=A9
0002:00018A3C 0041870C C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9 0002:0001A08C 00000034 C=BSS S=.bss G=DGROUP M=UnitClock ACBP=A9
0002:00431148 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9 0002:0001A0C0 0041870C C=BSS S=.bss G=DGROUP M=UnitTCO ACBP=A9
0002:00431158 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9 0002:004327CC 00000010 C=BSS S=.bss G=DGROUP M=UnitSR ACBP=A9
0002:0043116C 00000038 C=BSS S=.bss G=DGROUP M=UnitHorloge ACBP=A9 0002:004327DC 00000014 C=BSS S=.bss G=DGROUP M=UnitCDF ACBP=A9
0002:004311A4 000001EC C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9 0002:004327F0 00000018 C=BSS S=.bss G=DGROUP M=UnitModifAction ACBP=A9
0002:00431390 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9 0002:00432808 0000057C C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9
0002:00431394 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9 0002:00432D84 00000038 C=BSS S=.bss G=DGROUP M=UnitHorloge ACBP=A9
0002:004313A0 00000008 C=BSS S=.bss G=DGROUP M=Unitplace ACBP=A9 0002:00432DBC 000001EC C=BSS S=.bss G=DGROUP M=verif_version ACBP=A9
0002:004313A8 041BF0E0 C=BSS S=.bss G=DGROUP M=UnitPrinc ACBP=A9 0002:00432FA8 00000004 C=BSS S=.bss G=DGROUP M=UnitPareFeu ACBP=A9
0002:045F0488 0000057C C=BSS S=.bss G=DGROUP M=UnitConfig ACBP=A9 0002:00432FAC 0000000C C=BSS S=.bss G=DGROUP M=UnitSimule ACBP=A9
0002:045F0A04 0000002C C=BSS S=.bss G=DGROUP M=UnitDebug 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 Bound resource files
c:\program files (x86)\borland\delphi7\Lib\Buttons.res 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\ExtDlgs.res
c:\program files (x86)\borland\delphi7\Lib\Controls.res c:\program files (x86)\borland\delphi7\Lib\Controls.res
c:\program files (x86)\borland\delphi7\Lib\SPIN.RES
UnitPilote.dfm UnitPilote.dfm
Importation.dfm Importation.dfm
UnitAnalyseSegCDM.dfm UnitAnalyseSegCDM.dfm
@@ -247,15 +252,16 @@ UnitClock.dfm
UnitTCO.dfm UnitTCO.dfm
UnitSR.dfm UnitSR.dfm
UnitCDF.dfm UnitCDF.dfm
UnitModifAction.dfm
UnitConfig.dfm
UnitHorloge.dfm UnitHorloge.dfm
verif_version.dfm verif_version.dfm
UnitSimule.dfm UnitSimule.dfm
Unitplace.dfm Unitplace.dfm
UnitPrinc.dfm UnitPrinc.dfm
UnitConfig.dfm
UnitDebug.dfm UnitDebug.dfm
Signaux_complexes_GL.res Signaux_complexes_GL.res
Signaux_complexes_GL.drf 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 object FormClock: TFormClock
Left = 965 Left = 923
Top = 184 Top = 433
Width = 291 Width = 250
Height = 293 Height = 250
Caption = 'Horloge' Caption = 'Horloge'
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@@ -15,13 +15,13 @@ object FormClock: TFormClock
OnCreate = FormCreate OnCreate = FormCreate
OnResize = FormResize OnResize = FormResize
DesignSize = ( DesignSize = (
275 234
254) 212)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object BitBtnMarHor: TBitBtn object BitBtnMarHor: TBitBtn
Left = 10 Left = 10
Top = 230 Top = 187
Width = 25 Width = 25
Height = 25 Height = 25
Hint = 'Lance l'#39'horloge' Hint = 'Lance l'#39'horloge'
@@ -33,7 +33,7 @@ object FormClock: TFormClock
end end
object BitBtnArrHorl: TBitBtn object BitBtnArrHorl: TBitBtn
Left = 40 Left = 40
Top = 230 Top = 187
Width = 25 Width = 25
Height = 25 Height = 25
Hint = 'Arr'#234'te l'#39'horloge' Hint = 'Arr'#234'te l'#39'horloge'
@@ -45,7 +45,7 @@ object FormClock: TFormClock
end end
object BitBtnInitHor: TBitBtn object BitBtnInitHor: TBitBtn
Left = 72 Left = 72
Top = 230 Top = 187
Width = 25 Width = 25
Height = 25 Height = 25
Hint = 'Initialiser l'#39'horloge' Hint = 'Initialiser l'#39'horloge'
@@ -57,7 +57,7 @@ object FormClock: TFormClock
end end
object ButtonParametres: TButton object ButtonParametres: TButton
Left = 102 Left = 102
Top = 230 Top = 187
Width = 25 Width = 25
Height = 25 Height = 25
Hint = 'Param'#233'trage' Hint = 'Param'#233'trage'
@@ -70,7 +70,7 @@ object FormClock: TFormClock
end end
object ButtonGH: TButton object ButtonGH: TButton
Left = 134 Left = 134
Top = 230 Top = 187
Width = 25 Width = 25
Height = 25 Height = 25
Hint = 'Grille horaire' Hint = 'Grille horaire'
+13 -6
View File
@@ -342,18 +342,23 @@ begin
begin begin
LargeurFC:=250; LargeurFC:=250;
HauteurFC:=250; HauteurFC:=250;
OffsetXFC:=(formprinc.top+formPrinc.height)-FormClock.height-20; formclock.width:=LargeurFC;
OffsetYFC:=(formprinc.left+formPrinc.width)-formClock.width; formclock.height:=HauteurFC;
end; end;
formclock.top:=OffsetYFC;
formclock.left:=OffsetXFC; OffsetYFC:=(formprinc.top+formPrinc.height)-FormClock.height-32;
formclock.width:=LargeurFC; OffsetXFC:=(formprinc.left+formPrinc.width)-formClock.width;
formclock.height:=HauteurFC;
// écart entre fenetre principale et clock // écart entre fenetre principale et clock
DeltaFPCY:=OffsetYFC-formprinc.top; DeltaFPCY:=OffsetYFC-formprinc.top;
DeltaFPCX:=OffsetXFC-formprinc.left; DeltaFPCX:=OffsetXFC-formprinc.left;
formclock.top:=OffsetYFC;
formclock.left:=OffsetXFC;
end; end;
procedure TFormClock.FormCreate(Sender: TObject); procedure TFormClock.FormCreate(Sender: TObject);
begin begin
// inits // inits
@@ -462,6 +467,8 @@ begin
end; end;
procedure TFormClock.ButtonGHClick(Sender: TObject); procedure TFormClock.ButtonGHClick(Sender: TObject);
begin begin
formFicheHoraire.showModal; formFicheHoraire.showModal;
+151 -463
View File
@@ -1,6 +1,6 @@
object FormConfig: TFormConfig object FormConfig: TFormConfig
Left = 258 Left = 220
Top = 206 Top = 130
Hint = 'Modifie la configuration selon les s'#233'lections choisies' Hint = 'Modifie la configuration selon les s'#233'lections choisies'
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Configuration g'#233'n'#233'rale' Caption = 'Configuration g'#233'n'#233'rale'
@@ -681,7 +681,7 @@ object FormConfig: TFormConfig
Top = 8 Top = 8
Width = 633 Width = 633
Height = 505 Height = 505
ActivePage = TabSheetAct ActivePage = TabSheet1
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
@@ -2840,17 +2840,17 @@ object FormConfig: TFormConfig
end end
end end
end end
object TabSheetAct: TTabSheet object TabSheet1: TTabSheet
Caption = 'Actionneurs/D'#233'tecteurs' Caption = 'Actions'
ImageIndex = 5 ImageIndex = 6
object Label16: TLabel object Label44: TLabel
Left = 0 Left = 0
Top = 4 Top = 12
Width = 562 Width = 537
Height = 13 Height = 13
Caption = Caption =
'Liste de mod'#233'lisation des actionneurs - cliquez sur une ligne po' + 'Liste de mod'#233'lisation des actions - cliquez sur une ligne pour a' +
'ur afficher la description de l'#39'action' 'fficher la description de l'#39'action'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
@@ -2858,6 +2858,121 @@ object FormConfig: TFormConfig
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object GroupBox13: TGroupBox
Left = 352 Left = 352
Top = 24 Top = 24
@@ -2865,417 +2980,31 @@ object FormConfig: TFormConfig
Height = 441 Height = 441
Caption = 'Description de l'#39'action' Caption = 'Description de l'#39'action'
TabOrder = 0 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 object GroupBoxPNA: TGroupBox
Left = 96 Left = 8
Top = 64 Top = 224
Width = 169 Width = 249
Height = 121 Height = 121
Caption = 'Actionneurs PN simples' Caption = 'Actionneurs PN simples'
TabOrder = 2 TabOrder = 0
end end
object GroupBoxPNZ: TGroupBox object GroupBoxPNZ: TGroupBox
Left = 192 Left = 8
Top = 88 Top = 352
Width = 169 Width = 249
Height = 65 Height = 65
Caption = 'Zones de d'#233'tection' Caption = 'Zones de d'#233'tection'
TabOrder = 3 TabOrder = 1
end end
object GroupBoxPN: TGroupBox object GroupBoxPN: TGroupBox
Left = 144 Left = 8
Top = 24 Top = 24
Width = 249 Width = 249
Height = 193 Height = 193
Caption = 'Action gestion passage '#224' niveau' Caption = 'Action gestion passage '#224' niveau'
ParentShowHint = False ParentShowHint = False
ShowHint = False ShowHint = False
TabOrder = 4 TabOrder = 2
object Label21: TLabel object Label21: TLabel
Left = 8 Left = 8
Top = 84 Top = 84
@@ -3393,7 +3122,7 @@ object FormConfig: TFormConfig
object RadioGroupActPN: TRadioGroup object RadioGroupActPN: TRadioGroup
Left = 8 Left = 8
Top = 16 Top = 16
Width = 217 Width = 233
Height = 57 Height = 57
Hint = 'action par accessoire DCC ou commande COM/USB' Hint = 'action par accessoire DCC ou commande COM/USB'
Caption = 'Type d'#39'action' Caption = 'Type d'#39'action'
@@ -3406,13 +3135,13 @@ object FormConfig: TFormConfig
OnClick = RadioGroupActPNClick OnClick = RadioGroupActPNClick
end end
object ComboBoxPNCom: TComboBox object ComboBoxPNCom: TComboBox
Left = 72 Left = 80
Top = 128 Top = 128
Width = 145 Width = 145
Height = 21 Height = 21
Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"' Hint = 'Nom de l'#39'accessoire d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
Style = csDropDownList Style = csDropDownList
ItemHeight = 13 ItemHeight = 0
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 10 TabOrder = 10
@@ -3420,61 +3149,13 @@ object FormConfig: TFormConfig
end end
end 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 object GroupBox17: TGroupBox
Left = 0 Left = 0
Top = 272 Top = 16
Width = 345 Width = 345
Height = 193 Height = 449
Caption = 'Actionneurs/d'#233'tecteurs passage '#224' niveau' Caption = 'Actionneurs/d'#233'tecteurs passage '#224' niveau'
TabOrder = 2 TabOrder = 1
object ButtonNouvPN: TButton object ButtonNouvPN: TButton
Left = 8 Left = 8
Top = 24 Top = 24
@@ -3500,7 +3181,7 @@ object FormConfig: TFormConfig
Left = 8 Left = 8
Top = 48 Top = 48
Width = 329 Width = 329
Height = 137 Height = 345
Color = clBlack Color = clBlack
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua Font.Color = clAqua
@@ -3519,7 +3200,7 @@ object FormConfig: TFormConfig
end end
object TabSheetDccpp: TTabSheet object TabSheetDccpp: TTabSheet
Caption = 'DCC++' Caption = 'DCC++'
ImageIndex = 6 ImageIndex = 7
ParentShowHint = False ParentShowHint = False
ShowHint = False ShowHint = False
object Label10: TLabel object Label10: TLabel
@@ -4274,4 +3955,11 @@ object FormConfig: TFormConfig
Left = 696 Left = 696
Top = 376 Top = 376
end end
object PopupMenuActions: TPopupMenu
Left = 768
object ModifAction: TMenuItem
Caption = 'Modifier l'#39'action'
OnClick = ModifActionClick
end
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 Left = 160
Top = 8 Top = 8
Bitmap = { Bitmap = {
494C010108000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 494C010113001800040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001002000000000000030 0000000000003600000028000000400000006000000001002000000000000060
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 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
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 00000000000000000000FF000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 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 00000000000000000000FF000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000000000000000 00000000000000000000FF000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FF000000FF000000FF000000FF000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000000000000000000000000000000000000000000000000000
0000FF000000FF00000000800000008000000080000000800000FF000000FF00 0000FF000000FF00000000800000008000000080000000800000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF0000000000FF000000FF000000FF000000FF00FF000000FF00 0000FF000000FF0000000000FF000000FF000000FF000000FF00FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF0000000000FF000000FF000000FF000000FF00FF000000FF00 0000FF000000FF00000000FFFF0000FFFF0000FFFF0000FFFF00FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000FF000000
0000000000000000000000000000000000000000000000000000000000000000 FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
000000000000000000000000000000000000000000000000000000000000FF00 FF000000FF000000FF000000000000000000000000000000000000000000FF00
0000008000000080000000800000008000000080000000800000008000000080 0000008000000080000000800000008000000080000000800000008000000080
0000FF000000000000000000000000000000000000000000000000000000FF00 0000FF000000000000000000000000000000000000000000000000000000FF00
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00FF000000000000000000000000000000000000000000000000000000FF00 FF00FF000000000000000000000000000000000000000000000000000000FF00
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
FF00FF0000000000000000000000000000000000000000000000000000000000 FF00FF000000000000000000000000000000000000000000FF000000FF000000
0000000000000000000000000000000000000000000000000000000000000000 FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
0000000000000000000000000000000000000000000000000000FF0000000080 FF000000FF000000FF000000FF00000000000000000000000000FF0000000080
0000008000000080000000800000008000000080000000800000008000000080 0000008000000080000000800000008000000080000000800000008000000080
000000800000FF00000000000000000000000000000000000000FF0000000000 000000800000FF00000000000000000000000000000000000000FF0000000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF00FF00000000000000000000000000000000000000FF0000000000 FF000000FF00FF00000000000000000000000000000000000000FF00000000FF
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
FF000000FF00FF00000000000000000000000000000000000000000000000000 FF0000FFFF00FF00000000000000000000000000FF000000FF00000000000000
0000000000000000000000000000000000000000000000000000000000000000 00000000FF000000FF00000000000000FF000000FF00000000000000FF000000
00000000000000000000000000000000000000000000FF000000008000000080 FF00000000000000FF000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000008000000080000000000000008000000080 0000008000000080000000800000008000000080000000000000008000000080
000000800000FF000000000000000000000000000000FF0000000000FF000000 000000800000FF000000000000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF000000FF000000FF00000000000000FF000000 FF000000FF000000FF000000FF000000FF000000FF00000000000000FF000000
FF000000FF00FF000000000000000000000000000000FF0000000000FF000000 FF000000FF00FF000000000000000000000000000000FF00000000FFFF0000FF
FF000000FF000000FF000000FF000000FF000000FF00000000000000FF000000 FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FF
FF000000FF00FF00000000000000000000000000000000000000000000000000 FF0000FFFF00FF00000000000000000000000000FF00000000000000FF000000
0000000000000000000000000000000000000000000000000000000000000000 FF00000000000000FF00000000000000FF00000000000000FF00000000000000
00000000000000000000000000000000000000000000FF000000008000000080 FF00000000000000FF000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000008000000000000000800000008000000080 0000008000000080000000800000008000000000000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000 00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF000000FF00000000000000FF000000FF000000 FF000000FF000000FF000000FF000000FF00000000000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF0000000000FF000000 FF000000FF000000FF00FF0000000000000000000000FF00000000FFFF0000FF
FF000000FF000000FF000000FF000000FF00000000000000FF0000FFFF000000 FF0000FFFF0000FFFF0000FFFF0000FFFF000000000000FFFF008080000000FF
FF000000FF000000FF00FF000000000000000000FF000000FF000000FF000000 FF0000FFFF0000FFFF00FF000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 FF00000000000000FF00000000000000FF00000000000000FF00000000000000
FF000000FF000000FF000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000FF
FF000000FF000000FF00FF000000000000000000FF0000000000000000000000
FF000000FF00000000000000FF000000FF0000000000000000000000FF000000
FF00000000000000FF000000FF000000FF0000000000FF000000008000000080 FF00000000000000FF000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080 0000008000000080000000800000000000000080000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000 00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000 FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF0000000000FF000000 FF000000FF000000FF00FF0000000000000000000000FF00000000FFFF0000FF
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000FF FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF008080
FF000000FF000000FF00FF00000000000000000000000000FF000000FF000000 000000FFFF0000FFFF00FF000000000000000000FF000000FF00000000000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000 00000000FF000000FF00000000000000FF00000000000000FF00000000000000
FF00000000000000FF000000FF000000FF0000000000FF000000008000000080 FF0000000000000000000000FF000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080 0000008000000080000000800000000000000080000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000 00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000 FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF0000000000FF000000 FF000000FF000000FF00FF0000000000000000000000FF00000000FFFF0000FF
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000FF FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF008080
FF000000FF000000FF00FF000000000000000000FF000000FF000000FF000000 000000FFFF0000FFFF00FF000000000000000000FF00000000000000FF000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000 FF000000FF000000FF00000000000000FF00000000000000FF00000000000000
FF00000000000000FF000000FF000000FF0000000000FF000000008000000080 FF00000000000000FF00000000000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080
00000080000000800000FF0000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF000000FF00FF0000000000000000000000FF00000000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF008080
000000FFFF0000FFFF00FF000000000000000000FF00000000000000FF000000
FF00000000000000FF00000000000000FF00000000000000FF00000000000000
FF00000000000000FF00000000000000FF0000000000FF000000008000000080
0000008000000080000000800000000000000080000000800000008000000080 0000008000000080000000800000000000000080000000800000008000000080
000000800000FF000000000000000000000000000000FF0000000000FF000000 000000800000FF000000000000000000000000000000FF0000000000FF000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000 FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF00FF000000000000000000000000000000FF0000000000FF000000 FF000000FF00FF000000000000000000000000000000FF00000000FFFF0000FF
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000FF FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF008080
FF000000FF00FF00000000000000000000000000FF0000000000000000000000 000000FFFF00FF00000000000000000000000000FF000000FF00000000000000
FF000000FF00000000000000FF00000000000000FF000000FF00000000000000 00000000FF000000000000000000000000000000FF00000000000000FF000000
FF000000000000000000000000000000FF000000000000000000FF0000000080 FF0000000000000000000000FF000000FF000000000000000000FF0000000080
0000008000000080000000800000000000000080000000800000008000000080 0000008000000080000000800000000000000080000000800000008000000080
000000800000FF00000000000000000000000000000000000000FF0000000000 000000800000FF00000000000000000000000000000000000000FF0000000000
FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000 FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF000000FF00FF00000000000000000000000000000000000000FF0000000000 FF000000FF00FF00000000000000000000000000000000000000FF00000000FF
FF000000FF000000FF000000FF00000000000000FF000000FF0000FFFF000000 FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF008080000000FF
FF000000FF00FF0000000000000000000000000000000000FF000000FF000000 FF0000FFFF00FF0000000000000000000000000000000000FF000000FF000000
FF000000FF00000000000000FF00000000000000FF000000FF00000000000000 FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00000000000000FF000000FF0000000000000000000000000000000000FF00 FF000000FF000000FF000000FF0000000000000000000000000000000000FF00
0000008000000080000000800000000000000080000000800000008000000080 0000008000000080000000800000000000000080000000800000008000000080
0000FF000000000000000000000000000000000000000000000000000000FF00 0000FF000000000000000000000000000000000000000000000000000000FF00
00000000FF000000FF000000FF00000000000000FF000000FF000000FF000000 00000000FF000000FF000000FF00000000000000FF000000FF000000FF000000
FF00FF000000000000000000000000000000000000000000000000000000FF00 FF00FF000000000000000000000000000000000000000000000000000000FF00
00000000FF000000FF000000FF000000000000FFFF0000FFFF000000FF000000 000000FFFF0000FFFF0000FFFF0000000000808000008080000000FFFF0000FF
FF00FF000000000000000000000000000000000000000000FF000000FF000000 FF00FF00000000000000000000000000000000000000000000000000FF000000
00000000FF00000000000000FF00000000000000FF000000FF00000000000000 FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00000000000000FF000000FF00000000000000000000000000000000000000 FF000000FF000000FF0000000000000000000000000000000000000000000000
0000FF000000008000000080000000800000008000000080000000800000FF00 0000FF000000008000000080000000800000008000000080000000800000FF00
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000FF0000000000FF000000FF000000FF000000FF000000FF000000FF00FF00 0000FF0000000000FF000000FF000000FF000000FF000000FF000000FF00FF00
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000FF0000000000FF000000FF000000FF000000FF000000FF000000FF00FF00 0000FF00000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00FF00
0000000000000000000000000000000000000000FF0000000000000000000000
FF000000000000000000000000000000FF0000000000000000000000FF000000
FF000000000000000000000000000000FF000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF000000FF000000FF000000FF000000000000000000000000000000 FF000000FF000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF000000FF000000FF000000FF000000FF000000FF0000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
@@ -697,49 +1081,49 @@ object FormConfCellTCO: TFormConfCellTCO
C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0 C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
C000C0C0C000C0C0C000C0C0C000C0C0C0000000000080808000808080000000 C000C0C0C000C0C0C000C0C0C000C0C0C0000000000080808000808080000000
0000000000008080800000800000C0C0C0000000000000FF0000008000008080 0000000000008080800000800000C0C0C0000000000000FF0000008000008080
8000000000000000000080808000C0C0C0000000000000000000000000000000 8000000000000000000080808000C0C0C0000000000000800000008000000080
0000000000000000000000000000000000000000000000000000000000000000 0000000000000080000000800000008000000080000000000000000000000080
0000000000000000000000000000000000000000000000000000000000000000 0000008000000000000000000000008000000000000000000000000000000000
0000000000000000800000000000000000000000800000000000000000000000 0000000000000000800000000000000000000000800000000000000000000000
800000000000000000000000000000000000000080000000800000008000C0C0 800000000000000000000000000000000000000080000000800000008000C0C0
C00000008000000080000000800000008000000080000000800000008000C0C0 C00000008000000080000000800000008000000080000000800000008000C0C0
C000000080000000800000008000000080000000000000000000000000000000 C000000080000000800000008000000080000000000000000000000000000000
000000000000C0C0C0000080000080808000C0C0C0000080000000FF00000000 000000000000C0C0C0000080000080808000C0C0C0000080000000FF00000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000080000000800000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000080000000800000000000000000000000800000000000000080
0000000000000000000000000000000000000000000000000000000000000000 0000008000000000000000000000008000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000080000000800000008000C0C0 000000000000000000000000000000000000000080000000800000008000C0C0
C00000008000000080000000800000008000000080000000800000008000C0C0 C00000008000000080000000800000008000000080000000800000008000C0C0
C000000080000000800000008000000080000000000000000000000000000000 C000000080000000800000008000000080000000000000000000000000000000
0000000000000080000000800000808080008080800000800000808080000000 0000000000000080000000800000808080008080800000800000808080000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000080000000800000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000080000000800000000000000000000000800000000000000080
0000000000000000000000000000000000008080000080800000808000008080 0000008000000000000000000000008000008080000080800000808000008080
0000808000008080000080800000808000008080000080800000808000008080 0000808000008080000080800000808000008080000080800000808000008080
000080800000808000008080000080800000000080000000800000008000C0C0 000080800000808000008080000080800000000080000000800000008000C0C0
C00000008000000080000000800000008000000080000000800000008000C0C0 C00000008000000080000000800000008000000080000000800000008000C0C0
C000000080000000800000008000000080000000000000000000C0C0C0000080 C000000080000000800000008000000080000000000000000000C0C0C0000080
0000008000000080000000800000000000008080800000800000808080000000 0000008000000080000000800000000000008080800000800000808080000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000080000000800000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000080000000800000000000000000000000800000000000000080
0000000000000000000000000000000000008080000080800000808000008080 0000008000000080000000000000008000008080000080800000808000008080
0000808000008080000080800000808000008080000080800000808000008080 0000808000008080000080800000808000008080000080800000808000008080
00008080000080800000808000008080000000FFFF0000FFFF0000FFFF0000FF 00008080000080800000808000008080000000FFFF0000FFFF0000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000000000C0C0C000008000000080 FF0000FFFF0000FFFF0000FFFF0000FFFF0000000000C0C0C000008000000080
0000008000000000000000000000000000008080800000800000808080000000 0000008000000000000000000000000000008080800000800000808080000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000080000000800000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000080000000800000000000000000000000800000000000000080
0000000000000000000000000000000000008080000000000000000000000000 0000008000000000000000800000008000008080000000000000000000000000
0000808000008080000080800000000000000000000000000000808000008080 0000808000008080000080800000000000000000000000000000808000008080
000000000000000000000000000080800000000080000000800000008000C0C0 000000000000000000000000000080800000000080000000800000008000C0C0
C0000000800000008000000080000000800000FFFF000000800000008000C0C0 C0000000800000008000000080000000800000FFFF000000800000008000C0C0
C0000000800000008000000080000000800000000000C0C0C000008000008080 C0000000800000008000000080000000800000000000C0C0C000008000008080
800000000000000000000000000000000000C0C0C00000800000008000000000 800000000000000000000000000000000000C0C0C00000800000008000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000800000008000000080
0000000000000000000000000000000000000000000000000000000000000000 0000000000000080000000800000008000000080000000000000000000000080
0000000000000000000000000000000000008080000000000000808000008080 0000000000000000000000000000008000008080000000000000808000008080
0000000000008080000000000000808000008080000080800000808000000000 0000000000008080000000000000808000008080000080800000808000000000
000080800000808000008080000080800000000080000000800000008000C0C0 000080800000808000008080000080800000000080000000800000008000C0C0
C000000080000000800000008000000080000000800000FFFF0000008000C0C0 C000000080000000800000008000000080000000800000FFFF0000008000C0C0
@@ -782,20 +1166,31 @@ object FormConfCellTCO: TFormConfCellTCO
0000000000000000000000000000000000008080000080800000808000008080 0000000000000000000000000000000000008080000080800000808000008080
0000808000008080000080800000808000008080000080800000808000008080 0000808000008080000080800000808000008080000080800000808000008080
000080800000808000008080000080800000424D3E000000000000003E000000 000080800000808000008080000080800000424D3E000000000000003E000000
2800000040000000300000000100010000000000800100000000000000000000 2800000040000000600000000100010000000000000300000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000 000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFC3FFC3FFC3F 00000000000000000000000000000000FFFFFFFFFFFF0000FFFFFFFFFFFF0000
FFFFF00FF00FF00FFFFFE007E007E007FFFFC003C003C003FFFF800380038003 FFFFFFFFFFFF0000FFFFC0FFC1E00000FFFFC0FFC1E00000FFFFFFFFFFFF0000
FFFF800180018001000080018001800100008001800180010000800180018001 FFFFFFFFFFFF00000000B6DBB6DB000000000000000000000000B6DBB6DB0000
00008003800380030000C003C003C0030000E007E007E0070000F00FF00FF00F 00000000000000000000B6DBB6DB00000000FFFFFFFF00000000FFFFFFFF0000
0000F81FF81FF81F0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFB47 0000FFFFFFFF00000000FFFFFFFF0000E0FFFFFFFFFFEFE7C07F4002FFFFC7C3
0000FFFFF7DFF56F0000FFFFC007F56F0000C1C1C007F54F0000988CF7DFFB6F C07F2004F7DF8381C07F1008C0070101C07F0810C0078003E07F0420F7DFC007
0000F81FF7DFFFFF0000F81FC00700000000C11FC00700000000871FF7DF0000 FE670240F7DFE00FFE670240C007F01FFE670240C007E00FFE670240F7DFC007
00008F1FF7DF000000008C8CC00700000000C1C1C00700000000FFFFF7DF0000 FE470420F7DF8003FE070810C0070101FE071008C0070381FE0F2004F7DF87C3
0000FFFFFFFF00000000FFFFFFFF000000000000000000000000000000000000 FE1F4002FFFFCFE7FE3FFFFFFFFFFFFFFFFFFFFFFC3FFFFFFC3FFFFFFC3FFCFF
000000000000} F3CFFFFFFC3FFCFFEFF7FE01FE7FFCFFDFFB9601FC7FFC1FBFBBFE01F87FFC1F
BF7D0401F27FFCFFBEFDFE03E63FFCFFBEFDFE07E61FFC07BEFD0A0FE64FFC07
BEFBFFFFFE67FFFFDEFBFFCFFE67B8FFEEF7FFC7FE67BDFFF7EF8003FE7F9DFF
F81FFFC7FE7FB9FFFFFFFFCFFE7F8DFFFFFFFFFFFFFFFFFFF00FFC3FFC3FFC3F
E007F00FF00FF00FC003E007E007E0078001C003C003C0033248800380038003
4AA88001800180010AA880018001800132AC80018001800142AA800180018001
4AAA800380038003374CC003C003C0038001E007E007E007C003F00FF00FF00F
E007F81FF81FF81FF00FFFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFB47
0000FFFFFFFFF56F0000FFFFFFFFF56F0000C1C1FFFFF54F0000988C8866FB6F
0000F81F39A6FFFF0000F81F39A600000000C11F39A200000000871F39A40000
00008F1F886E000000008C8CFFFF00000000C1C1FFFF00000000FFFFFFFF0000
0000FFFFFFFF00000000FFFFFFFF0000}
end end
end end
+27 -17
View File
@@ -646,17 +646,28 @@ begin
end; end;
end; end;
// une imagelist c'est 24x24 maxi // une imagelist c'est 16x16 maxi
ListBoxAction.Items.Add(Format('%d%s', [0, 'Afficher TCO'])); // valeur d'index de l'icone dans la ImagelistIcones with ListBoxAction do
ListBoxAction.Items.Add(Format('%d%s', [1, 'Afficher Signaux Complexes'])); begin
ListBoxAction.Items.Add(Format('%d%s', [2, 'Afficher CDM Rail'])); Items.Add(Format('%d%s', [0, 'Afficher TCO'])); // valeur d'index de l'icone dans la ImagelistIcones
ListBoxAction.Items.Add(Format('%d%s', [3, 'Activer/désactiver sortie'])); itemHeight:=16;
ListBoxAction.Items.Add(Format('%d%s', [4, 'Arrêter les trains'])); Items.Add(Format('%d%s', [1, 'Afficher Signaux Complexes']));
ListBoxAction.Items.Add(Format('%d%s', [5, 'Démarrer l''horloge'])); itemHeight:=16;
ListBoxAction.Items.Add(Format('%d%s', [6, 'Arrêter l''horloge'])); Items.Add(Format('%d%s', [2, 'Afficher CDM Rail']));
ListBoxAction.Items.Add(Format('%d%s', [7, 'Initialiser l''horloge'])); itemHeight:=16;
ListBoxAction.Items.Add(Format('%d%s', [8, 'Afficher l''horloge'])); 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é // dessine les composants - non utilisé
{ {
@@ -1062,7 +1073,6 @@ begin
Affiche_cellule(IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]); Affiche_cellule(IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]);
end; end;
end; end;
end; end;
@@ -1071,16 +1081,16 @@ end;
procedure TFormConfCellTCO.ListBoxActionDrawItem(Control: TWinControl; procedure TFormConfCellTCO.ListBoxActionDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState); Index: Integer; Rect: TRect; State: TOwnerDrawState);
var var
IcoIndex: Integer; i,erreur : Integer;
ItemText: string; ItemText: string;
begin begin
with ListBoxAction do with ListBoxAction do
begin begin
IcoIndex:=StrToIntDef(Items[Index][1], 0); ItemText:=Items[index];
ItemText:=Items[Index]; val(ItemText,i,erreur);
Delete(ItemText,1,1); Delete(ItemText,1,erreur-1);
Canvas.Fillrect(Rect); 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); Canvas.Textout(Rect.Left + ImageListIcones.Width + 2, Rect.Top, ItemText);
end; end;
end; end;
+19 -18
View File
@@ -1,6 +1,6 @@
object FormDebug: TFormDebug object FormDebug: TFormDebug
Left = 244 Left = 258
Top = 119 Top = 1
VertScrollBar.Increment = 67 VertScrollBar.Increment = 67
VertScrollBar.Tracking = True VertScrollBar.Tracking = True
VertScrollBar.Visible = False VertScrollBar.Visible = False
@@ -32,6 +32,7 @@ object FormDebug: TFormDebug
Width = 872 Width = 872
Height = 677 Height = 677
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Position = 96
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False
@@ -41,7 +42,7 @@ object FormDebug: TFormDebug
673) 673)
object LabelTitreDebug: TLabel object LabelTitreDebug: TLabel
Left = 475 Left = 475
Top = 8 Top = -88
Width = 131 Width = 131
Height = 18 Height = 18
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -55,7 +56,7 @@ object FormDebug: TFormDebug
end end
object Label1: TLabel object Label1: TLabel
Left = 627 Left = 627
Top = 10 Top = -86
Width = 108 Width = 108
Height = 13 Height = 13
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -71,7 +72,7 @@ object FormDebug: TFormDebug
end end
object RichDebug: TRichEdit object RichDebug: TRichEdit
Left = 0 Left = 0
Top = 0 Top = -96
Width = 454 Width = 454
Height = 753 Height = 753
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
@@ -85,7 +86,7 @@ object FormDebug: TFormDebug
end end
object ButtonRazTout: TButton object ButtonRazTout: TButton
Left = 465 Left = 465
Top = 216 Top = 120
Width = 97 Width = 97
Height = 25 Height = 25
Hint = Hint =
@@ -100,7 +101,7 @@ object FormDebug: TFormDebug
end end
object ButtonCop: TButton object ButtonCop: TButton
Left = 465 Left = 465
Top = 248 Top = 152
Width = 97 Width = 97
Height = 41 Height = 41
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -117,7 +118,7 @@ object FormDebug: TFormDebug
end end
object ButtonAffEvtChrono: TButton object ButtonAffEvtChrono: TButton
Left = 465 Left = 465
Top = 296 Top = 200
Width = 97 Width = 97
Height = 33 Height = 33
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -128,7 +129,7 @@ object FormDebug: TFormDebug
end end
object ButtonCherche: TButton object ButtonCherche: TButton
Left = 465 Left = 465
Top = 336 Top = 240
Width = 97 Width = 97
Height = 25 Height = 25
Hint = 'Cherche la cha'#238'ne "erreur"' Hint = 'Cherche la cha'#238'ne "erreur"'
@@ -141,7 +142,7 @@ object FormDebug: TFormDebug
end end
object ButtonEcrLog: TButton object ButtonEcrLog: TButton
Left = 465 Left = 465
Top = 184 Top = 88
Width = 97 Width = 97
Height = 29 Height = 29
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -151,7 +152,7 @@ object FormDebug: TFormDebug
end end
object ButtonRazTampon: TButton object ButtonRazTampon: TButton
Left = 465 Left = 465
Top = 368 Top = 272
Width = 97 Width = 97
Height = 33 Height = 33
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -162,7 +163,7 @@ object FormDebug: TFormDebug
end end
object ButtonRazLog: TButton object ButtonRazLog: TButton
Left = 465 Left = 465
Top = 408 Top = 312
Width = 97 Width = 97
Height = 33 Height = 33
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -173,7 +174,7 @@ object FormDebug: TFormDebug
end end
object MemoEvtDet: TRichEdit object MemoEvtDet: TRichEdit
Left = 570 Left = 570
Top = 186 Top = 90
Width = 272 Width = 272
Height = 263 Height = 263
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -184,7 +185,7 @@ object FormDebug: TFormDebug
end end
object GroupBox5: TGroupBox object GroupBox5: TGroupBox
Left = 462 Left = 462
Top = 456 Top = 360
Width = 380 Width = 380
Height = 57 Height = 57
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -251,7 +252,7 @@ object FormDebug: TFormDebug
end end
object GroupBox6: TGroupBox object GroupBox6: TGroupBox
Left = 462 Left = 462
Top = 520 Top = 424
Width = 380 Width = 380
Height = 52 Height = 52
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -328,7 +329,7 @@ object FormDebug: TFormDebug
end end
object GroupBoxPrim: TGroupBox object GroupBoxPrim: TGroupBox
Left = 464 Left = 464
Top = 584 Top = 488
Width = 378 Width = 378
Height = 185 Height = 185
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -499,7 +500,7 @@ object FormDebug: TFormDebug
end end
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 466 Left = 466
Top = 28 Top = -68
Width = 376 Width = 376
Height = 149 Height = 149
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -712,7 +713,7 @@ object FormDebug: TFormDebug
end end
object EditNivDebug: TEdit object EditNivDebug: TEdit
Left = 751 Left = 751
Top = 8 Top = -88
Width = 49 Width = 49
Height = 21 Height = 21
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
+15 -2
View File
@@ -107,6 +107,7 @@ type
procedure CheckBoxPrincClick(Sender: TObject); procedure CheckBoxPrincClick(Sender: TObject);
procedure Button3Click(Sender: TObject); procedure Button3Click(Sender: TObject);
procedure ButtonAigDevieClick(Sender: TObject); procedure ButtonAigDevieClick(Sender: TObject);
procedure ButtonSigPrecClick(Sender: TObject);
private private
{ Déclarations privées } { Déclarations privées }
public public
@@ -512,14 +513,14 @@ procedure TFormDebug.ButtonSimuAct1Click(Sender: TObject);
var det,erreur : integer; var det,erreur : integer;
begin begin
val(EditSimuDet.Text,det,erreur); 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; end;
procedure TFormDebug.ButtonSimuAct0Click(Sender: TObject); procedure TFormDebug.ButtonSimuAct0Click(Sender: TObject);
var det,erreur : integer; var det,erreur : integer;
begin begin
val(EditSimuDet.Text,det,erreur); 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; end;
procedure TFormDebug.ButtonRazToutClick(Sender: TObject); procedure TFormDebug.ButtonRazToutClick(Sender: TObject);
@@ -715,4 +716,16 @@ begin
NivDebug:=AncDebug; NivDebug:=AncDebug;
end; 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. end.
+1
View File
@@ -12,6 +12,7 @@ object FormFicheHoraire: TFormFicheHoraire
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
PixelsPerInch = 96 PixelsPerInch = 96
+3 -3
View File
@@ -24,7 +24,7 @@ type
end; end;
const const
MaxHoraire=20; MaxHoraire=200;
var var
FormFicheHoraire: TFormFicheHoraire; FormFicheHoraire: TFormFicheHoraire;
@@ -106,7 +106,7 @@ begin
Hint:='Grille horaire'; Hint:='Grille horaire';
ShowHint:=true; ShowHint:=true;
ColCount:=6; ColCount:=6;
RowCount:=14; RowCount:=MaxHoraire+1;
Options := stringGridFO.Options + [goEditing]; Options := stringGridFO.Options + [goEditing];
ColWidths[0]:=30; ColWidths[0]:=30;
ColWidths[1]:=200; ColWidths[1]:=200;
@@ -116,7 +116,7 @@ begin
ColWidths[5]:=60; ColWidths[5]:=60;
Cells[0,0]:='Ligne'; Cells[0,0]:='Ligne';
Cells[1,0]:='Nom train'; Cells[1,0]:='Nom du train';
Cells[2,0]:='Départ'; Cells[2,0]:='Départ';
Cells[3,0]:='Vitesse'+#13+'démarrage'; Cells[3,0]:='Vitesse'+#13+'démarrage';
Cells[4,0]:='Sens'+#13+'(N/R)'; Cells[4,0]:='Sens'+#13+'(N/R)';
+22 -23
View File
@@ -362,7 +362,7 @@ object FormHorloge: TFormHorloge
object LabelErreur: TLabel object LabelErreur: TLabel
Left = 288 Left = 288
Top = 192 Top = 192
Width = 3 Width = 113
Height = 13 Height = 13
Caption = '.' Caption = '.'
end end
@@ -375,7 +375,7 @@ object FormHorloge: TFormHorloge
TabOrder = 0 TabOrder = 0
object RadioButtonHS: TRadioButton object RadioButtonHS: TRadioButton
Left = 32 Left = 32
Top = 24 Top = 16
Width = 113 Width = 113
Height = 17 Height = 17
Hint = 'Horloge window, non comprimable' Hint = 'Horloge window, non comprimable'
@@ -387,7 +387,7 @@ object FormHorloge: TFormHorloge
end end
object RadioButtonHI: TRadioButton object RadioButtonHI: TRadioButton
Left = 32 Left = 32
Top = 40 Top = 32
Width = 113 Width = 113
Height = 17 Height = 17
Hint = 'Horloge de Signaux_Complexes, comprimable' Hint = 'Horloge de Signaux_Complexes, comprimable'
@@ -472,14 +472,14 @@ object FormHorloge: TFormHorloge
Caption = 'Initialisation de l'#39'horloge interne' Caption = 'Initialisation de l'#39'horloge interne'
TabOrder = 3 TabOrder = 3
object Label3: TLabel object Label3: TLabel
Left = 70 Left = 38
Top = 28 Top = 28
Width = 49 Width = 49
Height = 13 Height = 13
Caption = 'Initialiser '#224 Caption = 'Initialiser '#224
end end
object Label4: TLabel object Label4: TLabel
Left = 152 Left = 144
Top = 26 Top = 26
Width = 6 Width = 6
Height = 13 Height = 13
@@ -499,18 +499,6 @@ object FormHorloge: TFormHorloge
Height = 13 Height = 13
Caption = 'h' Caption = 'h'
end 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 object EditMInit: TEdit
Left = 160 Left = 160
Top = 24 Top = 24
@@ -519,7 +507,7 @@ object FormHorloge: TFormHorloge
Hint = 'Heure de d'#233'marrage de l'#39'horloge interne' Hint = 'Heure de d'#233'marrage de l'#39'horloge interne'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 0
Text = '00' Text = '00'
OnChange = EditMInitChange OnChange = EditMInitChange
end end
@@ -529,7 +517,7 @@ object FormHorloge: TFormHorloge
Width = 59 Width = 59
Height = 25 Height = 25
Caption = 'Initialiser' Caption = 'Initialiser'
TabOrder = 2 TabOrder = 1
OnClick = ButtonInitClick OnClick = ButtonInitClick
end end
object EditRetourHeure: TEdit object EditRetourHeure: TEdit
@@ -540,7 +528,7 @@ object FormHorloge: TFormHorloge
Hint = 'Heure '#224' laquelle l'#39'horloge reprend sa valeur initiale' Hint = 'Heure '#224' laquelle l'#39'horloge reprend sa valeur initiale'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 3 TabOrder = 2
Text = '00' Text = '00'
OnChange = EditRetourHeureChange OnChange = EditRetourHeureChange
end end
@@ -552,7 +540,7 @@ object FormHorloge: TFormHorloge
Hint = 'Heure '#224' laquelle l'#39'horloge reprend sa valeur initiale' Hint = 'Heure '#224' laquelle l'#39'horloge reprend sa valeur initiale'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 3
Text = '00' Text = '00'
OnChange = EditRetourMinuteChange OnChange = EditRetourMinuteChange
end end
@@ -562,9 +550,20 @@ object FormHorloge: TFormHorloge
Width = 241 Width = 241
Height = 17 Height = 17
Caption = 'Red'#233'marrer l'#39'horloge au retour '#224' l'#39'initialisation' Caption = 'Red'#233'marrer l'#39'horloge au retour '#224' l'#39'initialisation'
TabOrder = 5 TabOrder = 4
OnClick = CheckBoxRedemarreClick OnClick = CheckBoxRedemarreClick
end end
object SpinEditHInit: TSpinEdit
Left = 104
Top = 24
Width = 38
Height = 22
MaxValue = 23
MinValue = 0
TabOrder = 5
Value = 0
OnChange = SpinEditHInitChange
end
end end
object ButtonS: TButton object ButtonS: TButton
Left = 206 Left = 206
@@ -580,7 +579,7 @@ object FormHorloge: TFormHorloge
end end
object ButtonAh: TButton object ButtonAh: TButton
Left = 312 Left = 312
Top = 200 Top = 224
Width = 75 Width = 75
Height = 33 Height = 33
Caption = 'Afficher l'#39'horloge' Caption = 'Afficher l'#39'horloge'
+22 -19
View File
@@ -4,7 +4,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,unitPrinc, ComCtrls, jpeg, ExtCtrls ; Dialogs, StdCtrls,unitPrinc, ComCtrls, jpeg, ExtCtrls, Spin ;
type type
TFormHorloge = class(TForm) TFormHorloge = class(TForm)
@@ -17,7 +17,6 @@ type
ButtonOk: TButton; ButtonOk: TButton;
GroupBox3: TGroupBox; GroupBox3: TGroupBox;
Label3: TLabel; Label3: TLabel;
EditHInit: TEdit;
EditMInit: TEdit; EditMInit: TEdit;
Label4: TLabel; Label4: TLabel;
TrackBarTemps: TTrackBar; TrackBarTemps: TTrackBar;
@@ -34,11 +33,11 @@ type
CheckBoxRedemarre: TCheckBox; CheckBoxRedemarre: TCheckBox;
ButtonAh: TButton; ButtonAh: TButton;
CheckBoxAffiche: TCheckBox; CheckBoxAffiche: TCheckBox;
SpinEditHInit: TSpinEdit;
procedure ButtonOkClick(Sender: TObject); procedure ButtonOkClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure TrackBarTempsChange(Sender: TObject); procedure TrackBarTempsChange(Sender: TObject);
procedure ButtonInitClick(Sender: TObject); procedure ButtonInitClick(Sender: TObject);
procedure EditHInithange(Sender: TObject);
procedure EditMInitChange(Sender: TObject); procedure EditMInitChange(Sender: TObject);
procedure RadioButtonHSClick(Sender: TObject); procedure RadioButtonHSClick(Sender: TObject);
procedure RadioButtonHIClick(Sender: TObject); procedure RadioButtonHIClick(Sender: TObject);
@@ -50,6 +49,7 @@ type
procedure CheckBoxRedemarreClick(Sender: TObject); procedure CheckBoxRedemarreClick(Sender: TObject);
procedure ButtonAhClick(Sender: TObject); procedure ButtonAhClick(Sender: TObject);
procedure CheckBoxAfficheClick(Sender: TObject); procedure CheckBoxAfficheClick(Sender: TObject);
procedure SpinEditHInitChange(Sender: TObject);
private private
{ Déclarations privées } { Déclarations privées }
public public
@@ -77,7 +77,7 @@ begin
begin begin
GroupBox3.Enabled:=true; GroupBox3.Enabled:=true;
GroupBox2.Enabled:=true; GroupBox2.Enabled:=true;
editHinit.Enabled:=true; SpinEditHinit.Enabled:=true;
editMinit.Enabled:=true; editMinit.Enabled:=true;
ButtonInit.Enabled:=true; ButtonInit.Enabled:=true;
TrackBarTemps.Enabled:=true; TrackBarTemps.Enabled:=true;
@@ -92,7 +92,7 @@ begin
begin begin
GroupBox3.Enabled:=false; GroupBox3.Enabled:=false;
GroupBox2.Enabled:=false; GroupBox2.Enabled:=false;
editHinit.Enabled:=false; SpinEditHinit.Enabled:=false;
editMinit.Enabled:=false; editMinit.Enabled:=false;
ButtonInit.Enabled:=false; ButtonInit.Enabled:=false;
TrackBarTemps.Enabled:=false; TrackBarTemps.Enabled:=false;
@@ -157,19 +157,7 @@ begin
init_horloge; init_horloge;
end; 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); procedure TFormHorloge.EditMInitChange(Sender: TObject);
var i,erreur : integer; var i,erreur : integer;
@@ -264,7 +252,7 @@ begin
CheckBoxAffiche.checked:=AffHorl; CheckBoxAffiche.checked:=AffHorl;
CheckBoxRedemarre.Checked:=relanceHorl_init; CheckBoxRedemarre.Checked:=relanceHorl_init;
TrackBarTemps.position:=DureeMinute; TrackBarTemps.position:=DureeMinute;
EditHInit.Text:=intToSTR(HeureInit); SpinEditHInit.Text:=intToSTR(HeureInit);
EditMInit.Text:=intToSTR(MinuteInit); EditMInit.Text:=intToSTR(MinuteInit);
EditRetourHeure.Text:=intToSTR(RetourHeure); EditRetourHeure.Text:=intToSTR(RetourHeure);
EditRetourMinute.Text:=intToSTR(RetourMinute); EditRetourMinute.Text:=intToSTR(RetourMinute);
@@ -295,4 +283,19 @@ begin
AffHorl:=CheckBoxAffiche.checked; AffHorl:=CheckBoxAffiche.checked;
end; 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. 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 object FormPrinc: TFormPrinc
Left = 128 Left = 134
Top = 170 Top = 114
Width = 1148 Width = 1148
Height = 624 Height = 624
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
@@ -21,7 +21,7 @@ object FormPrinc: TFormPrinc
OnResize = FormResize OnResize = FormResize
DesignSize = ( DesignSize = (
1132 1132
565) 566)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object LabelTitre: TLabel object LabelTitre: TLabel
@@ -1445,7 +1445,7 @@ object FormPrinc: TFormPrinc
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Top = 543 Top = 544
Width = 1132 Width = 1132
Height = 22 Height = 22
Panels = < Panels = <
@@ -1986,8 +1986,8 @@ object FormPrinc: TFormPrinc
end end
end end
object GroupBoxCV: TGroupBox object GroupBoxCV: TGroupBox
Left = 513 Left = 585
Top = 120 Top = 72
Width = 265 Width = 265
Height = 129 Height = 129
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@@ -2120,10 +2120,6 @@ object FormPrinc: TFormPrinc
Caption = 'Codification des signaux' Caption = 'Codification des signaux'
OnClick = CodificationdessignauxClick OnClick = CodificationdessignauxClick
end end
object Codificationdesactionneurs1: TMenuItem
Caption = 'Codification des actionneurs'
OnClick = Codificationdesactionneurs1Click
end
object N5: TMenuItem object N5: TMenuItem
Caption = '-' Caption = '-'
end 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); closeFile(fte);
formprinc.ButtonArretSimu.Visible:=true; formprinc.ButtonArretSimu.Visible:=true;
i_simule:=1; i_simule:=1;
SauvefiltrageDet0:=filtrageDet0;
filtrageDet0:=0;
FormSimulation.Close; FormSimulation.Close;
Affiche('Fichier simulation : '+Nomfichier ,clyellow); Affiche('Fichier simulation : '+Nomfichier ,clyellow);
end; end;
+2 -1
View File
@@ -9256,10 +9256,11 @@ begin
end; end;
// allume ou éteint (mode=0 ou 1) la voie du train "train", zone de det1 à det2 sur le TCO // 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 // det1 et det2 doivent être consécutifs sur le TCO, mais peuvent être séparés par des aiguillages
// si mode=0 : éteint // si mode=0 : éteint
// =1 : couleur détecteur allumé // =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 // 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 // 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); procedure zone_tco(indexTCO,det1,det2,train,mode: integer);
+1 -4
View File
@@ -457,9 +457,8 @@ end;
procedure TFormPlace.ButtonLanceRoutageClick(Sender: TObject); procedure TFormPlace.ButtonLanceRoutageClick(Sender: TObject);
var vitesse,a,i,j,id,adrDet,AdrTrain : integer; var i,j,adrDet,AdrTrain : integer;
trouve,demarre : boolean; trouve,demarre : boolean;
var s: string;
begin begin
if cdm_connecte then if cdm_connecte then
begin begin
@@ -467,8 +466,6 @@ begin
exit; exit;
end; end;
trouve:=false; trouve:=false;
// explorer les détecteurs pour lancer les trains si le détecteur est affecté à un train // explorer les détecteurs pour lancer les trains si le détecteur est affecté à un train
for i:=1 to NDetecteurs do for i:=1 to NDetecteurs do
+3 -6
View File
@@ -26,7 +26,7 @@ var
chemin_Dest,chemin_src,date_creation,nombre_tel : string; chemin_Dest,chemin_src,date_creation,nombre_tel : string;
f : text; 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 SousVersion=' '; // A B C ... en cas d'absence de sous version mettre un espace
// pour unzip // pour unzip
SHCONTCH_NOPROGRESSBOX = 4; SHCONTCH_NOPROGRESSBOX = 4;
@@ -149,11 +149,8 @@ end;
// dézipe copie les fichiers et lance la nouvelle version // dézipe copie les fichiers et lance la nouvelle version
// s : chemin et fichier à déziper // s : chemin et fichier à déziper
procedure dezipe_copie_lance(s : string); procedure dezipe_copie_lance(s : string);
var fichier,nomPDF : string; var
dirList : tStrings; i : integer;
SR : TSearchRec;
nombre,i,attributes : integer;
pdf,ok : boolean;
begin begin
// Vérifier si répertoire dest existe // 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. 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. Amélioration de l'importation du réseau depuis CDM Rail.
Création d'actionneurs "horloge" et "vitesse train". 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