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

V10.2

Browse Source
This commit is contained in:
f1iwq2
2025-03-19 15:46:50 +01:00
parent 662da541c0
commit cc07ac603c
20 changed files with 3325 additions and 9903 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Notice d'utilisation des signaux_complexes_GL_V9.8.pdf → Notice d'utilisation des signaux_complexes_GL_V10.2.pdf
BIN
View File
Binary file not shown.
UnitCompteur.dfm
+48 -400
View File
@@ -1,11 +1,12 @@
object FormCompteur: TFormCompteur object FormCompteur: TFormCompteur
Left = 555 Left = 550
Top = 218 Top = 218
Width = 222 Width = 227
Height = 262 Height = 262
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'Compteur' Caption = 'Compteur'
Color = clBtnFace Color = clBtnFace
TransparentColorValue = clPurple
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@@ -15,9 +16,8 @@ object FormCompteur: TFormCompteur
OldCreateOrder = False OldCreateOrder = False
OnActivate = FormActivate OnActivate = FormActivate
OnClose = FormClose OnClose = FormClose
DesignSize = ( OnCreate = FormCreate
214 OnResize = FormResize
231)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object ImageCompteur: TImage object ImageCompteur: TImage
@@ -27,415 +27,56 @@ object FormCompteur: TFormCompteur
Height = 128 Height = 128
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
end end
object LabelTrain: TLabel object Labeltrain: TLabel
Left = 0 Left = 32
Top = 128 Top = 176
Width = 34 Width = 10
Height = 19 Height = 22
Alignment = taCenter Caption = #39#39
Anchors = [akLeft, akTop, akRight]
Caption = 'train'
Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -19
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False
ParentFont = False ParentFont = False
end end
object ImageTachro: TImage object ImageTprov: TImage
Left = 80 Left = 56
Top = 152 Top = 88
Width = 106 Width = 161
Height = 37 Height = 33
Picture.Data = {
07544269746D6170762E0000424D762E00000000000036000000280000006A00
0000250000000100180000000000402E00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFF
FFFFFFFF00000000000000000000000000000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000
00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFF
FFFFFFFF00000000000000000000000000000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFF
FFFFFFFFFFFFFF00000000000000000000000000000000000000000000000000
0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFF
FFFFFFFFFFFFFF00000000000000000000000000000000000000000000000000
0000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFF
FFFFFFFFFFFFFF000000000000000000000000000000000000000000000000FF
FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000FFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000FFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
00FFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFF
FFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
00FFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFF
FFFF000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
00000000FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFF
FFFF000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
00000000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF00
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000
00000000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF00
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
00000000000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF00
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000
0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF00000000
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000FFFFFFFFFFFFFFFFFF0000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000
0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF000000000000000000000000000000000000000000FFFFFFFFFFFFFFFF
FF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
00000000000000000000000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000
0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000
00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
00000000000000000000000000FFFFFFFFFFFFFFFFFF00000000000000000000
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF000000000000000000000000000000FFFFFF00000000000000000000000000
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000
000000000000000000000000000000FFFFFFFFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000
0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFFFFFF
FFFFFFFFFFFFFFFF000000000000000000000000000000000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFF000000000000000000000000000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF0000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000}
Visible = False Visible = False
end end
object TrackBar1: TTrackBar object ImageTrain: TImage
Left = 0 Left = 0
Top = 40 Top = 192
Width = 217
Height = 33
end
object TrackBarC: TTrackBar
Left = 0
Top = 128
Width = 129 Width = 129
Height = 21 Height = 21
Ctl3D = False
Max = 127
Min = -128
ParentCtl3D = False
TabOrder = 0 TabOrder = 0
Visible = False OnChange = TrackBarCChange
end
object Button0: TButton
Left = 96
Top = 160
Width = 17
Height = 17
Caption = '0'
TabOrder = 1
OnClick = Button0Click
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 112 Left = 184
Top = 8 Top = 16
object Verrouillerdevant1: TMenuItem object Verrouillerdevant1: TMenuItem
Caption = 'Verrouiller devant' Caption = 'Verrouiller devant'
OnClick = Verrouillerdevant1Click OnClick = Verrouillerdevant1Click
@@ -459,5 +100,12 @@ object FormCompteur: TFormCompteur
Caption = 'Compteur tachro' Caption = 'Compteur tachro'
OnClick = Compteurtachro1Click OnClick = Compteurtachro1Click
end end
object N2: TMenuItem
Caption = '-'
end
object Affichericonedutrain1: TMenuItem
Caption = 'Afficher icone du train'
OnClick = Affichericonedutrain1Click
end
end end
end end
UnitCompteur.pas
+661 -224
View File
File diff suppressed because it is too large Load Diff
UnitConfig.dfm
+378 -151
View File
@@ -1,6 +1,6 @@
object FormConfig: TFormConfig object FormConfig: TFormConfig
Left = 245 Left = 240
Top = 117 Top = 128
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'
@@ -670,7 +670,7 @@ object FormConfig: TFormConfig
Top = 8 Top = 8
Width = 633 Width = 633
Height = 505 Height = 505
ActivePage = TabSheetTrains ActivePage = TabSheetBouton
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
@@ -4149,7 +4149,7 @@ object FormConfig: TFormConfig
Top = 16 Top = 16
Width = 337 Width = 337
Height = 457 Height = 457
ActivePage = TabSheetTrGen ActivePage = TtabSheetEt
TabOrder = 3 TabOrder = 3
object TabSheetTrGen: TTabSheet object TabSheetTrGen: TTabSheet
Caption = 'G'#233'n'#233'ral' Caption = 'G'#233'n'#233'ral'
@@ -4578,6 +4578,148 @@ object FormConfig: TFormConfig
end end
end end
end end
object TabSheetCompt: TTabSheet
Caption = 'Compteurs'
ImageIndex = 8
object Label75: TLabel
Left = 8
Top = 8
Width = 122
Height = 13
Caption = 'Compteurs de vitesse'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label81: TLabel
Left = 320
Top = 24
Width = 263
Height = 13
Caption = 'Personnalisation des couleurs des compteurs de vitesse'
end
object GroupBox17: TGroupBox
Left = 312
Top = 72
Width = 249
Height = 265
Caption = 'Param'#232'tres de couleur'
TabOrder = 0
object Label76: TLabel
Left = 74
Top = 88
Width = 79
Height = 13
Caption = 'Couleur d'#39'aiguille'
end
object Label77: TLabel
Left = 39
Top = 120
Width = 114
Height = 13
Caption = 'Couleur des graduations'
end
object Label78: TLabel
Left = 54
Top = 152
Width = 99
Height = 13
Caption = 'Couleur des num'#233'ros'
end
object Label79: TLabel
Left = 75
Top = 184
Width = 78
Height = 13
Caption = 'Couleur de fond'
end
object Label80: TLabel
Left = 88
Top = 214
Width = 65
Height = 13
Caption = 'Couleur d'#39'arc'
end
object ComboBoxCompt: TComboBox
Left = 48
Top = 28
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = ComboBoxComptChange
Items.Strings = (
'Compteur type 1'
'Compteur type 2'
'Compteur tachro')
end
object BoutonCoulAig: TButton
Left = 182
Top = 80
Width = 27
Height = 25
Caption = 'A'
TabOrder = 1
OnClick = BoutonCoulAigClick
end
object ButtonCoulGrad: TButton
Left = 182
Top = 112
Width = 27
Height = 25
Caption = 'G'
Enabled = False
TabOrder = 2
OnClick = ButtonCoulGradClick
end
object ButtonCoulNum: TButton
Left = 182
Top = 144
Width = 27
Height = 25
Caption = 'N'
TabOrder = 3
OnClick = ButtonCoulNumClick
end
object ButtonCoulFond: TButton
Left = 182
Top = 176
Width = 27
Height = 25
Caption = 'F'
Enabled = False
TabOrder = 4
OnClick = ButtonCoulFondClick
end
object ButtonCoulArc: TButton
Left = 182
Top = 208
Width = 27
Height = 25
Caption = 'Arc'
TabOrder = 5
OnClick = ButtonCoulArcClick
end
end
object Panel2: TPanel
Left = 8
Top = 72
Width = 281
Height = 281
Caption = 'Panel2'
TabOrder = 1
object ImageCtC: TImage
Left = 8
Top = 8
Width = 265
Height = 265
end
end
end
object TabSheetPeriph: TTabSheet object TabSheetPeriph: TTabSheet
Caption = 'P'#233'riph'#233'riques' Caption = 'P'#233'riph'#233'riques'
ImageIndex = 9 ImageIndex = 9
@@ -4894,7 +5036,7 @@ object FormConfig: TFormConfig
Left = 72 Left = 72
Top = 80 Top = 80
Width = 193 Width = 193
Height = 201 Height = 233
Brush.Color = clOlive Brush.Color = clOlive
end end
object ShapeBR: TShape object ShapeBR: TShape
@@ -5003,13 +5145,6 @@ object FormConfig: TFormConfig
Height = 13 Height = 13
Caption = '-' Caption = '-'
end end
object Label74: TLabel
Left = 312
Top = 240
Width = 81
Height = 13
Caption = 'Affecter au train :'
end
object LabelId: TLabel object LabelId: TLabel
Left = 80 Left = 80
Top = 88 Top = 88
@@ -5025,151 +5160,243 @@ object FormConfig: TFormConfig
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object LabeledEditCT: TLabeledEdit object ShapeB5: TShape
Left = 480 Left = 80
Top = 80 Top = 264
Width = 40 Width = 33
Height = 21 Height = 33
Hint = 'Code ascii envoy'#233' par le bouton' Hint = 'Clic bouton 5'
EditLabel.Width = 76 Brush.Color = clGray
EditLabel.Height = 13 ParentShowHint = False
EditLabel.Caption = 'Code de touche' Shape = stCircle
EditLabel.Layout = tlBottom ShowHint = True
LabelPosition = lpLeft OnMouseDown = ShapeB5MousDown
LabelSpacing = 50 end
object ShapeB6: TShape
Left = 128
Top = 264
Width = 33
Height = 33
Hint = 'Clic bouton 6'
Brush.Color = clGray
ParentShowHint = False
Shape = stCircle
ShowHint = True
OnMouseDown = ShapeB6MouseDown
end
object ShapeB7: TShape
Left = 176
Top = 264
Width = 33
Height = 33
Hint = 'Clic bouton 7'
Brush.Color = clGray
ParentShowHint = False
Shape = stCircle
ShowHint = True
OnMouseDown = ShapeB7MouseDown
end
object ShapeB8: TShape
Left = 224
Top = 264
Width = 33
Height = 33
Hint = 'Clic bouton 8'
Brush.Color = clGray
ParentShowHint = False
Shape = stCircle
ShowHint = True
OnMouseDown = ShapeB8MouseDown
end
object ButtonHook: TButton
Left = 448
Top = 328
Width = 113
Height = 41
Hint = 'Relance le gestionnaire d'#39'interception du clavier USB'
Caption = 'Relance interception clavier USB'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
OnChange = LabeledEditCTChange WordWrap = True
OnClick = ButtonHookClick
end end
object LabeledEditRm: TLabeledEdit object GroupBoxBR: TGroupBox
Left = 480 Left = 312
Top = 128
Width = 40
Height = 21
Hint = 'Code ascii envoy'#233' par la rotation anti horaire (-)'
EditLabel.Width = 99
EditLabel.Height = 13
EditLabel.Caption = 'Code de rotation en -'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = LabeledEditRmChange
end
object LabeledEditRp: TLabeledEdit
Left = 480
Top = 152
Width = 40
Height = 21
Hint = 'Code ascii envoy'#233' par la rotation horaire (+)'
EditLabel.Width = 102
EditLabel.Height = 13
EditLabel.Caption = 'Code de rotation en +'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = LabeledEditRpChange
end
object LabeledEditClic: TLabeledEdit
Left = 480
Top = 176 Top = 176
Width = 40 Width = 260
Height = 21 Height = 121
Hint = 'Code ascii envoy'#233' par le clic bouton' Caption = 'Bouton rotatif'
EditLabel.Width = 59 TabOrder = 1
EditLabel.Height = 13 object LabeledEditRm: TLabeledEdit
EditLabel.Caption = 'Code de clic' Left = 193
EditLabel.Layout = tlBottom Top = 20
LabelPosition = lpLeft Width = 40
LabelSpacing = 50 Height = 21
ParentShowHint = False Hint = 'Code ascii envoy'#233' par la rotation anti horaire (-)'
ShowHint = True EditLabel.Width = 99
EditLabel.Height = 13
EditLabel.Caption = 'Code de rotation en -'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = LabeledEditRmChange
end
object LabeledEditRp: TLabeledEdit
Left = 193
Top = 44
Width = 40
Height = 21
Hint = 'Code ascii envoy'#233' par la rotation horaire (+)'
EditLabel.Width = 102
EditLabel.Height = 13
EditLabel.Caption = 'Code de rotation en +'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = LabeledEditRpChange
end
object LabeledEditClic: TLabeledEdit
Left = 193
Top = 68
Width = 40
Height = 21
Hint = 'Code ascii envoy'#233' par le clic bouton'
EditLabel.Width = 59
EditLabel.Height = 13
EditLabel.Caption = 'Code de clic'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = LabeledEditClicChange
end
object LabeledEditIncr: TLabeledEdit
Left = 193
Top = 92
Width = 40
Height = 21
Hint = 'Valeur de l'#39'incr'#233'ment sur une rotation'
EditLabel.Width = 105
EditLabel.Height = 13
EditLabel.Caption = 'Incr'#233'ment '#224' la rotation'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnChange = LabeledEditIncrChange
end
end
object GroupBoxBt: TGroupBox
Left = 312
Top = 176
Width = 260
Height = 121
Caption = 'Bouton'
TabOrder = 2
object LabeledEditF: TLabeledEdit
Left = 185
Top = 52
Width = 40
Height = 21
Hint = 'Fonction F associ'#233'e au bouton'
EditLabel.Width = 100
EditLabel.Height = 13
EditLabel.Caption = 'Fonction F '#224' envoyer'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = LabeledEditFChange
end
object LabeledEditFn: TLabeledEdit
Left = 201
Top = 76
Width = 16
Height = 21
Hint = '0 ou 1'
EditLabel.Width = 6
EditLabel.Height = 13
EditLabel.Caption = #224
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 5
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = LabeledEditFnChange
end
object LabeledEditCT: TLabeledEdit
Left = 185
Top = 20
Width = 40
Height = 21
Hint = 'Code ascii envoy'#233' par le bouton'
EditLabel.Width = 76
EditLabel.Height = 13
EditLabel.Caption = 'Code de touche'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = LabeledEditCTChange
end
end
object GroupBoxBloc: TGroupBox
Left = 312
Top = 48
Width = 257
Height = 113
Caption = 'G'#233'n'#233'ral'
TabOrder = 3 TabOrder = 3
OnChange = LabeledEditClicChange object Label74: TLabel
end Left = 8
object LabeledEditNUM: TLabeledEdit Top = 32
Left = 480 Width = 81
Top = 40 Height = 13
Width = 25 Caption = 'Affecter au train :'
Height = 21 end
Hint = 'Num'#233'ro de contr'#244'leur clavier USB (1 '#224' 10)' object ComboBoxUSBTr: TComboBox
EditLabel.Width = 134 Left = 96
EditLabel.Height = 13 Top = 28
EditLabel.Caption = 'Num'#233'ro de bloc clavier USB' Width = 153
EditLabel.Layout = tlBottom Height = 21
LabelPosition = lpLeft Style = csDropDownList
LabelSpacing = 30 ItemHeight = 13
ParentShowHint = False TabOrder = 0
ShowHint = True OnChange = ComboBoxUSBTrChange
TabOrder = 4 end
OnChange = LabeledEditNUMChange object LabeledEditNUM: TLabeledEdit
end Left = 208
object LabeledEditF: TLabeledEdit Top = 72
Left = 480 Width = 25
Top = 104 Height = 21
Width = 40 Hint = 'Num'#233'ro de contr'#244'leur clavier USB (1 '#224' 10)'
Height = 21 EditLabel.Width = 134
Hint = 'Fonction F associ'#233'e au bouton' EditLabel.Height = 13
EditLabel.Width = 100 EditLabel.Caption = 'Num'#233'ro de bloc clavier USB'
EditLabel.Height = 13 EditLabel.Layout = tlBottom
EditLabel.Caption = 'Fonction F '#224' envoyer' LabelPosition = lpLeft
EditLabel.Layout = tlBottom LabelSpacing = 30
LabelPosition = lpLeft ParentShowHint = False
LabelSpacing = 50 ShowHint = True
ParentShowHint = False TabOrder = 1
ShowHint = True OnChange = LabeledEditNUMChange
TabOrder = 5 end
OnChange = LabeledEditFChange
end
object LabeledEditIncr: TLabeledEdit
Left = 480
Top = 200
Width = 40
Height = 21
Hint = 'Valeur de l'#39'incr'#233'ment sur une rotation'
EditLabel.Width = 105
EditLabel.Height = 13
EditLabel.Caption = 'Incr'#233'ment '#224' la rotation'
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 50
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnChange = LabeledEditIncrChange
end
object ComboBoxUSBTr: TComboBox
Left = 416
Top = 240
Width = 153
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 7
OnChange = ComboBoxUSBTrChange
end
object LabeledEditFn: TLabeledEdit
Left = 536
Top = 104
Width = 16
Height = 21
Hint = '0 ou 1'
EditLabel.Width = 6
EditLabel.Height = 13
EditLabel.Caption = #224
EditLabel.Layout = tlBottom
LabelPosition = lpLeft
LabelSpacing = 5
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnChange = LabeledEditFnChange
end end
end end
end end
UnitConfig.pas
+506 -105
View File
File diff suppressed because it is too large Load Diff
UnitConfigCellTCO.dfm
+3 -2
View File
@@ -662,7 +662,7 @@ object FormConfCellTCO: TFormConfCellTCO
object ImageListIcones: TImageList object ImageListIcones: TImageList
Left = 160 Left = 160
Bitmap = { Bitmap = {
494C010122002700040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 494C010122002700040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
000000000000360000002800000040000000A0000000010020000000000000A0 000000000000360000002800000040000000A0000000010020000000000000A0
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
@@ -1986,6 +1986,7 @@ object FormConfCellTCO: TFormConfCellTCO
000000000000F56F000000000000F56F000000000000F54F000000000000FB6F 000000000000F56F000000000000F56F000000000000F54F000000000000FB6F
000000000000FFFF000000000000000000000000000000000000000000000000 000000000000FFFF000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000} 0000000000000000000000000000000000000000000000000000000000000000
000000000000}
end end
end end
UnitDebug.pas
+1 -1
View File
@@ -473,7 +473,7 @@ begin
if (erreur<>0) or (adr<1) then exit; if (erreur<>0) or (adr<1) then exit;
ancdebug:=NivDebug; ancdebug:=NivDebug;
NivDebug:=3; NivDebug:=3;
if PresTrainPrec(Adr,Nb_cantons_Sig,true,adrtrain,voie) then AfficheDebug('Présence train @='+intToSTR(AdrTrain),clYellow) else if PresTrainPrec(Adr,Nb_cantons_Sig,FALSE,adrtrain,voie) then AfficheDebug('Présence train @='+intToSTR(AdrTrain),clYellow) else
AfficheDebug('Absence train',clyellow); AfficheDebug('Absence train',clyellow);
NivDebug:=AncDebug; NivDebug:=AncDebug;
end; end;
UnitModifAction.dfm
+2 -2
View File
@@ -516,7 +516,7 @@ object FormModifAction: TFormModifAction
Top = 32 Top = 32
Width = 217 Width = 217
Height = 21 Height = 21
ItemHeight = 0 ItemHeight = 13
TabOrder = 0 TabOrder = 0
OnChange = ComboBoxFamilleChange OnChange = ComboBoxFamilleChange
end end
@@ -720,7 +720,7 @@ object FormModifAction: TFormModifAction
Height = 21 Height = 21
Hint = 'Nom du p'#233'riph'#233'rique d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"' Hint = 'Nom du p'#233'riph'#233'rique d'#233'fini dans l'#39'onglet "p'#233'riph'#233'riques COM/USB"'
Style = csDropDownList Style = csDropDownList
ItemHeight = 0 ItemHeight = 13
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 4
UnitModifAction.pas
+25 -5
View File
@@ -219,13 +219,18 @@ begin
end; end;
// ajoute à la listbox t une ligne avec son icone opérations[] // ajoute à la listbox t une ligne avec son icone opérations[]
// i numéro d'opération
procedure affecte_operation(i : integer;t : tListBox); procedure affecte_operation(i : integer;t : tListBox);
var s : string;
begin begin
if i<ActionBoutonTCO then t.Items.Add(Format('%d%s', [i-1, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones if ligneclicAct<0 then exit;
if i=ActionBoutonTCO then t.Items.Add(Format('%d%s', [IconeBouton, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones s:=operations[i].nom;
if i=ActionAffecteMemoire then t.Items.Add(Format('%d%s', [IconeActionAffecteMemoire, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones if not(Tablo_Action[ligneclicact+1].tabloOp[i].valide) then s:=s+sd;
if i=ActionIncMemoire then t.Items.Add(Format('%d%s', [IconeActionIncMemoire, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones if i<ActionBoutonTCO then t.Items.Add(Format('%d%s', [i-1, s])); // valeur d'index de l'icone dans la ImagelistIcones
if i=ActionDecMemoire then t.Items.Add(Format('%d%s', [IconeActionDecMemoire, operations[i].nom])); // valeur d'index de l'icone dans la ImagelistIcones if i=ActionBoutonTCO then t.Items.Add(Format('%d%s', [IconeBouton, s])); // valeur d'index de l'icone dans la ImagelistIcones
if i=ActionAffecteMemoire then t.Items.Add(Format('%d%s', [IconeActionAffecteMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
if i=ActionIncMemoire then t.Items.Add(Format('%d%s', [IconeActionIncMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
if i=ActionDecMemoire then t.Items.Add(Format('%d%s', [IconeActionDecMemoire, s])); // valeur d'index de l'icone dans la ImagelistIcones
end; end;
procedure TFormModifAction.FormCreate(Sender: TObject); procedure TFormModifAction.FormCreate(Sender: TObject);
@@ -966,6 +971,7 @@ begin
begin begin
LabelAdresse.Visible:=true; // numéro de fonction LabelAdresse.Visible:=true; // numéro de fonction
LabelAdresse.caption:='Code de touche'; LabelAdresse.caption:='Code de touche';
EditAdr.Hint:='Code de touche';
ButtonFonction.Visible:=false; ButtonFonction.Visible:=false;
EditAdr.Text:=IntToSTR(tablo_action[index].adresse); EditAdr.Text:=IntToSTR(tablo_action[index].adresse);
EditAdr.Visible:=true; EditAdr.Visible:=true;
@@ -1516,9 +1522,23 @@ begin
end; end;
procedure TFormModifAction.ListBoxOperationsDblClick(Sender: TObject); procedure TFormModifAction.ListBoxOperationsDblClick(Sender: TObject);
var s : string;
i : integer;
begin begin
if (clicAction<0) or (ligneclicAct<0) or clicliste then exit; if (clicAction<0) or (ligneclicAct<0) or clicliste then exit;
Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide:=not(Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide); Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide:=not(Tablo_Action[ligneclicAct+1].tabloOp[clicaction+1].valide);
// op:=Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].numoperation;
s:=ListBoxOperations.Items[clicaction];
i:=pos(sd,s);
if i<>0 then delete(s,i,length(sd));
if not(Tablo_Action[ligneclicact+1].tabloOp[clicaction+1].valide) then s:=s+sd;
listBoxOperations.Items[clicaction]:=s;
formconfig.ListBoxOperations.items[clicaction]:=s; //encode_actions(ligneclicAct+1);
maj_combocactions(ligneclicAct); maj_combocactions(ligneclicAct);
end; end;
UnitPrinc.dfm
+448 -8510
View File
File diff suppressed because it is too large Load Diff
UnitPrinc.pas
+1117 -471
View File
File diff suppressed because it is too large Load Diff
UnitRoute.dfm
+15 -4
View File
@@ -1,6 +1,6 @@
object FormRoute: TFormRoute object FormRoute: TFormRoute
Left = 201 Left = 338
Top = 182 Top = 290
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Route' Caption = 'Route'
ClientHeight = 298 ClientHeight = 298
@@ -61,8 +61,10 @@ object FormRoute: TFormRoute
ItemHeight = 13 ItemHeight = 13
ParentFont = False ParentFont = False
ParentShowHint = False ParentShowHint = False
PopupMenu = PopupMenuR
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
OnDblClick = ListBoxRoutesDblClick
OnDrawItem = ListBoxRoutesDrawItem OnDrawItem = ListBoxRoutesDrawItem
OnKeyDown = ListBoxRoutesKeyDown OnKeyDown = ListBoxRoutesKeyDown
OnMouseDown = ListBoxRoutesMouseDown OnMouseDown = ListBoxRoutesMouseDown
@@ -118,13 +120,13 @@ object FormRoute: TFormRoute
OnClick = ButtonRAZClick OnClick = ButtonRAZClick
end end
object ButtonFenPil: TButton object ButtonFenPil: TButton
Left = 232 Left = 224
Top = 258 Top = 258
Width = 83 Width = 83
Height = 33 Height = 33
Hint = 'Ouvre la fen'#234'tre de pilotage des trains' Hint = 'Ouvre la fen'#234'tre de pilotage des trains'
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Fen'#234'tre de pilotage' Caption = 'Choisir cette route'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 5 TabOrder = 5
@@ -234,4 +236,13 @@ object FormRoute: TFormRoute
Caption = 'Debug' Caption = 'Debug'
TabOrder = 11 TabOrder = 11
end end
object PopupMenuR: TPopupMenu
OnPopup = PopupMenuRPopup
Left = 344
Top = 8
object Choisircetteroute1: TMenuItem
Caption = 'Choisir cette route'
OnClick = Choisircetteroute1Click
end
end
end end
UnitRoute.pas
+42 -4
View File
@@ -6,7 +6,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls, StdCtrls, ExtCtrls , UnitPrinc; Dialogs, ComCtrls, ShellCtrls, StdCtrls, ExtCtrls , UnitPrinc, Menus;
type type
TFormRoute = class(TForm) TFormRoute = class(TForm)
@@ -29,6 +29,8 @@ type
ButtonTrouver: TButton; ButtonTrouver: TButton;
CheckBoxRoutesLongues: TCheckBox; CheckBoxRoutesLongues: TCheckBox;
CheckBoxDebugRoutes: TCheckBox; CheckBoxDebugRoutes: TCheckBox;
PopupMenuR: TPopupMenu;
Choisircetteroute1: TMenuItem;
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure ListBoxRoutesMouseDown(Sender: TObject; Button: TMouseButton; procedure ListBoxRoutesMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
@@ -49,6 +51,9 @@ type
procedure ListBoxRoutesDrawItem(Control: TWinControl; Index: Integer; procedure ListBoxRoutesDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState); Rect: TRect; State: TOwnerDrawState);
procedure CheckBoxRoutesLonguesClick(Sender: TObject); procedure CheckBoxRoutesLonguesClick(Sender: TObject);
procedure Choisircetteroute1Click(Sender: TObject);
procedure ListBoxRoutesDblClick(Sender: TObject);
procedure PopupMenuRPopup(Sender: TObject);
private private
{ Déclarations privées } { Déclarations privées }
public public
@@ -330,7 +335,13 @@ begin
formRoute.ButtonDetail.caption:='Détail route '; formRoute.ButtonDetail.caption:='Détail route ';
formRoute.ButtonEfface.caption:='Efface route '; formRoute.ButtonEfface.caption:='Efface route ';
if idcantonRoute<>0 then formRoute.ListBoxRoutes.Hint:='Sélectionne une route pour l''affecter au train '+canton[idcantonRoute].NomTrain; if idcantonRoute<>0 then
begin
formRoute.ListBoxRoutes.Hint:='Sélectionne une route pour l''affecter au train '+canton[idcantonRoute].NomTrain+' par '+#13+
'double clic ou'+#13+
'clic droit "choisir cette route" ou'+#13+
'bouton "choisir cette route"';
end;
IdCantonClic:=Idcantonroute; IdCantonClic:=Idcantonroute;
IdTrainCourant:=canton[idcantonRoute].indexTrain; IdTrainCourant:=canton[idcantonRoute].indexTrain;
@@ -525,6 +536,8 @@ begin
begin begin
trains[idt].route[0].adresse:=0; trains[idt].route[0].adresse:=0;
end; end;
canton[i].numcantonorg:=0;
canton[i].numcantonDest:=0;
end; end;
i:=index_canton_numero(cantonDest); i:=index_canton_numero(cantonDest);
@@ -532,6 +545,9 @@ begin
begin begin
canton[i].bouton:=0; canton[i].bouton:=0;
dessin_canton(i,0); // remet le bouton jaune du canton dest dessin_canton(i,0); // remet le bouton jaune du canton dest
canton[i].numcantonorg:=0;
canton[i].numcantonDest:=0;
end; end;
// efface icone train // efface icone train
@@ -589,6 +605,7 @@ begin
EditObligeCanton.Hint:='Numéro de cantons séparés par des virgules (10 maxi)'+#13+'Laisser vide pour aucune obligation'; EditObligeCanton.Hint:='Numéro de cantons séparés par des virgules (10 maxi)'+#13+'Laisser vide pour aucune obligation';
EditInterditCanton.Hint:='Numéro de cantons séparés par des virgules (10 maxi)'+#13+'Laisser vide pour aucune interdiction'; EditInterditCanton.Hint:='Numéro de cantons séparés par des virgules (10 maxi)'+#13+'Laisser vide pour aucune interdiction';
ListBoxRoutes.Style:=lbOwnerDrawFixed; //pour déclencher l'evt on drawitem ListBoxRoutes.Style:=lbOwnerDrawFixed; //pour déclencher l'evt on drawitem
// fenêtre toujours devant // fenêtre toujours devant
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NoMove or SWP_NoSize); SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NoMove or SWP_NoSize);
@@ -615,7 +632,7 @@ begin
efface_route_tco(false); efface_route_tco(false);
end; end;
procedure TFormRoute.ButtonFenPilClick(Sender: TObject); procedure choisir_cette_route;
begin begin
if idcantonRoute<1 then exit; if idcantonRoute<1 then exit;
indexTrainFR:=canton[idcantonRoute].indexTrain; indexTrainFR:=canton[idcantonRoute].indexTrain;
@@ -624,7 +641,12 @@ begin
TabSheetRA.Enabled:=true; TabSheetRA.Enabled:=true;
show; show;
end; end;
close; formroute.close;
end;
procedure TFormRoute.ButtonFenPilClick(Sender: TObject);
begin
choisir_cette_route;
end; end;
procedure TFormRoute.ButtonParcours(Sender: TObject); procedure TFormRoute.ButtonParcours(Sender: TObject);
@@ -768,4 +790,20 @@ begin
Maj_fenetre; Maj_fenetre;
end; end;
procedure TFormRoute.Choisircetteroute1Click(Sender: TObject);
begin
choisir_cette_route;
end;
procedure TFormRoute.ListBoxRoutesDblClick(Sender: TObject);
begin
choisir_cette_route;
end;
procedure TFormRoute.PopupMenuRPopup(Sender: TObject);
begin
if IndexLigneRoute<0 then choisirCetteRoute1.Caption:='Pas de route'
else choisirCetteRoute1.Caption:='Choisir cette route';
end;
end. end.
UnitRouteTrains.dfm
+1 -1
View File
@@ -53,7 +53,7 @@ object FormRouteTrain: TFormRouteTrain
Top = 8 Top = 8
Width = 585 Width = 585
Height = 177 Height = 177
ActivePage = TabSheetRM ActivePage = TabSheetRA
TabOrder = 1 TabOrder = 1
object TabSheetRA: TTabSheet object TabSheetRA: TTabSheet
Caption = 'Route affect'#233'e' Caption = 'Route affect'#233'e'
UnitRouteTrains.pas
+1 -1
View File
@@ -113,7 +113,7 @@ begin
begin begin
detect:=0; detect:=0;
Affiche('Le train '+train+' n''est pas déclaré sur le détecteur d''un canton',clOrange); Affiche('Le train '+train+' n''est pas déclaré sur le détecteur d''un canton',clOrange);
Affiche('ou le décteur du train n''est pas activé',clOrange); Affiche('ou le détecteur du train n''est pas activé',clOrange);
exit; exit;
end; end;
UnitTCO.dfm
+2 -2
View File
@@ -24,8 +24,8 @@ object FormTCO: TFormTCO
OnKeyPress = FormKeyPress OnKeyPress = FormKeyPress
OnMouseWheel = FormMouseWheel OnMouseWheel = FormMouseWheel
DesignSize = ( DesignSize = (
997 1005
548) 556)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object LabelZoom: TLabel object LabelZoom: TLabel
UnitTCO.pas
+50 -8
View File
@@ -345,15 +345,22 @@ type
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure ButtonCalibrageClick(Sender: TObject); procedure ButtonCalibrageClick(Sender: TObject);
procedure ButtonCoulFondClick(Sender: TObject); procedure ButtonCoulFondClick(Sender: TObject);
procedure ColorDialog1Show(Sender: TObject); procedure ImagePalette24DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure ImagePalette24EndDrag(Sender, Target: TObject; X, Y: Integer); procedure ColorDialog1Show(Sender: TObject);
procedure ImagePalette24DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure ImagePalette24EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure ImagePalette24MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ImagePalette24MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ImagePalette25DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure ImagePalette25DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure ImagePalette25EndDrag(Sender, Target: TObject; X, Y: Integer); procedure ImagePalette25EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure ImagePalette25MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ImagePalette25MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure FormKeyPress(Sender: TObject; var Key: Char); procedure ImagePalette1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure ImagePalette1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ImagePalette4DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure ImagePalette4DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure EditTypeImageChange(Sender: TObject); procedure Toutslectionner1Click(Sender: TObject); procedure ButtonDessinerClick(Sender: TObject); procedure ImagePalette26DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure ImagePalette26EndDrag(Sender, Target: TObject; X, Y: Integer); procedure EditTypeImageChange(Sender: TObject);
procedure Toutslectionner1Click(Sender: TObject);
procedure ButtonDessinerClick(Sender: TObject);
procedure ImagePalette26DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure ImagePalette26EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure ImagePalette26MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ImagePalette26MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ImagePalette23EndDrag(Sender, Target: TObject; X, Y: Integer); procedure ImagePalette23EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure ImagePalette23DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure ImagePalette23DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
@@ -377,8 +384,8 @@ type
procedure ImagePalette34EndDrag(Sender, Target: TObject; X, Y: Integer); procedure ImagePalette34EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure ImagePalette34MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ImagePalette34MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure EditAdrElementClick(Sender: TObject); procedure EditAdrElementClick(Sender: TObject);
procedure ImagePalette53DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure ImagePalette53DragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
procedure ImagePalette52EndDrag(Sender, Target: TObject; X, Y: Integer); procedure ImagePalette52EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure ImagePalette53MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ImagePalette53MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ButtonAffSCClick(Sender: TObject); procedure ButtonAffSCClick(Sender: TObject);
procedure RadioGroupSelClick(Sender: TObject); procedure RadioGroupSelClick(Sender: TObject);
@@ -484,7 +491,7 @@ type
Adresse : integer; // adresse du détecteur ou de l'aiguillage ou du feu OU si action sortie : adresse Adresse : integer; // adresse du détecteur ou de l'aiguillage ou du feu OU si action sortie : adresse
BImage : integer; // icone: 0=rien 1=voie 2=aiguillage gauche ... 50=feu BImage : integer; // icone: 0=rien 1=voie 2=aiguillage gauche ... 50=feu
mode : integer; // couleur de voie 0=éteint 1=ClVoies 2=couleur dans le champ train mode : integer; // couleur de voie 0=éteint 1=ClVoies 2=couleur dans le champ train
train : integer; // numéro du train train : integer; // index du train
trajet : integer; // décrit le trajet ouvert sur la voie (cas d'un croisement ou d'une tjd/S) trajet : integer; // décrit le trajet ouvert sur la voie (cas d'un croisement ou d'une tjd/S)
inverse : boolean; // aiguillage piloté inversé inverse : boolean; // aiguillage piloté inversé
repr : integer; // position de la représentation texte 0 = rien 1=centré 2=Haut 3=Bas 4=réparti 5=double centré repr : integer; // position de la représentation texte 0 = rien 1=centré 2=Haut 3=Bas 4=réparti 5=double centré
@@ -699,6 +706,7 @@ procedure renseigne_TJDs_TCO;
procedure Affiche_temps_arret(IdTrain,tps : integer); procedure Affiche_temps_arret(IdTrain,tps : integer);
procedure titre_fenetre(indexTCO : integer); procedure titre_fenetre(indexTCO : integer);
function IsVoieDroite(i : integer) : boolean; function IsVoieDroite(i : integer) : boolean;
function trouve_canton(el1 : integer;tel1 : tequipement;el2 : integer;tel2 : tequipement) : integer;
implementation implementation
@@ -804,6 +812,26 @@ begin
else result:=0; else result:=0;
end; end;
// renvoie l'index de canton encadré par les 2 éléments el1 et el2
function trouve_canton(el1 : integer;tel1 : tequipement;el2 : integer;tel2 : tequipement) : integer;
var i,eLc1,eLc2 : integer;
teLc1,teLc2 : tequipement;
trouve : boolean;
begin
i:=1;
result:=0;
repeat
eLc1:=canton[i].el1; teLc1:=canton[i].typ1;
eLc2:=canton[i].el2; teLc2:=canton[i].typ2;
trouve:=((elc1=el1) and (teLc1=tel1) and (elc2=el2) and (teLc2=tel2)) or
((elc2=el1) and (teLc2=tel1) and (elc1=el2) and (teLc1=tel2)) ;
inc(i);
until (trouve) or (i>nCantons);
if trouve then result:=i-1;
end;
// le tampon est aussi grand que le x/y du plus grand TCO // le tampon est aussi grand que le x/y du plus grand TCO
procedure init_tampon_copiercoller; procedure init_tampon_copiercoller;
begin begin
@@ -1490,6 +1518,7 @@ begin
end end
else else
begin begin
// canton vertical
zone_tco(t,i,SensTCO_N,0,0,11,false,false); // demande éléments contigus en haut (7) du canton, résultats dans var globales xCanton et tel1 zone_tco(t,i,SensTCO_N,0,0,11,false,false); // demande éléments contigus en haut (7) du canton, résultats dans var globales xCanton et tel1
if xCanton=0 then tel1:=buttoir; if xCanton=0 then tel1:=buttoir;
canton[i].el1:=xCanton; canton[i].el1:=xCanton;
@@ -6981,6 +7010,11 @@ begin
if i=0 then begin Affiche('Erreur 19H : index canton nul en TCO'+intToSTR(indexTCO)+' x='+intToSTR(x)+' y='+intToSTR(y),clred);exit;end; if i=0 then begin Affiche('Erreur 19H : index canton nul en TCO'+intToSTR(indexTCO)+' x='+intToSTR(x)+' y='+intToSTR(y),clred);exit;end;
indexTrain:=TCO[IndexTCO,x,y].train; indexTrain:=TCO[IndexTCO,x,y].train;
if (indexTrain<0) or (indexTrain>NTrains) then
begin
Affiche('Anomalie 670',clred);
exit;
end;
AdrTrain:=canton[i].adresseTrain; AdrTrain:=canton[i].adresseTrain;
//Affiche('Canton '+intToSTR(canton[i].numero)+' adrTrain='+intToSTR(AdrTrain),clLime); //Affiche('Canton '+intToSTR(canton[i].numero)+' adrTrain='+intToSTR(AdrTrain),clLime);
@@ -7101,6 +7135,7 @@ begin
if (sens<>SensGauche) and (sens<>SensDroit) and (sens<>0) then if (sens<>SensGauche) and (sens<>SensDroit) and (sens<>0) then
begin begin
Sens:=SensGauche; Sens:=SensGauche;
canton[i].SensLoco:=sens;
Affiche('Anomalie sens train canton '+intToSTR(canton[i].numero)+' incohérent ; repositionné à gauche',clOrange); Affiche('Anomalie sens train canton '+intToSTR(canton[i].numero)+' incohérent ; repositionné à gauche',clOrange);
end; end;
case sens of case sens of
@@ -7207,6 +7242,12 @@ begin
textOUT(x0-length(s)*8,y0+1,s);} textOUT(x0-length(s)*8,y0+1,s);}
indexTrain:=TCO[IndexTCO,x,y].train; indexTrain:=TCO[IndexTCO,x,y].train;
if (indexTrain<0) or (indexTrain>NTrains) then
begin
Affiche('Anomalie 671',clred);
exit;
end;
AdrTrain:=canton[i].adresseTrain; AdrTrain:=canton[i].adresseTrain;
if AdrTrain<>0 then indexTrain:=index_train_adresse(adrTrain); if AdrTrain<>0 then indexTrain:=index_train_adresse(adrTrain);
@@ -7335,6 +7376,7 @@ begin
if (sens<>SensHaut) and (sens<>SensBas) and (sens<>0) then if (sens<>SensHaut) and (sens<>SensBas) and (sens<>0) then
begin begin
Sens:=SensHaut; Sens:=SensHaut;
canton[i].SensLoco:=sens;
Affiche('Anomalie sens train canton '+intToSTR(canton[i].numero)+' incohérent ; repositionné en haut',clOrange); Affiche('Anomalie sens train canton '+intToSTR(canton[i].numero)+' incohérent ; repositionné en haut',clOrange);
end; end;
case sens of case sens of
@@ -19138,7 +19180,6 @@ begin
// affectation train canton destination // affectation train canton destination
affecte_Train_canton(trains[idTrain].adresse,IdCantonDest,sens); affecte_Train_canton(trains[idTrain].adresse,IdCantonDest,sens);
//application.processMessages;
// si le canton destination était occupé au déplacement d'un train de canton // si le canton destination était occupé au déplacement d'un train de canton
if (TrainDest<>0) and (cantonDest<>CantonOrg) then if (TrainDest<>0) and (cantonDest<>CantonOrg) then
@@ -19167,7 +19208,7 @@ begin
detecteur[adresse].AdrTrain:=canton[idCantonDest].adresseTrain; detecteur[adresse].AdrTrain:=canton[idCantonDest].adresseTrain;
detecteur[adresse].Train:=canton[idCantonDest].NomTrain; detecteur[adresse].Train:=canton[idCantonDest].NomTrain;
end; end;
maj_signaux(true); maj_signaux(false);
end; end;
@@ -19199,6 +19240,7 @@ var GMode,l2,h2 : integer;
angle,Zoom : single; angle,Zoom : single;
recta : trect; recta : trect;
begin begin
formRoute.Show;
{ angle:=5; { angle:=5;
Zoom:=2; Zoom:=2;
l2:=trains[1].icone.picture.width div 2; l2:=trains[1].icone.picture.width div 2;
selection_train.pas
+6
View File
@@ -188,6 +188,7 @@ var i,t,idTCO,x,y,detect : integer;
begin begin
if (AdrTrain=0) then exit; if (AdrTrain=0) then exit;
if procPrinc then AfficheDebug('Raz_cantons_train @='+intToSTR(AdrTrain),clyellow); if procPrinc then AfficheDebug('Raz_cantons_train @='+intToSTR(AdrTrain),clyellow);
//Affiche('Raz_cantons_train @='+intToSTR(AdrTrain),clyellow);
if adrTrain<>0 then if adrTrain<>0 then
begin begin
for i:=1 to Ncantons do for i:=1 to Ncantons do
@@ -253,8 +254,10 @@ var idTrain,t,el1,el2 : integer;
t1,t2 : tequipement; t1,t2 : tequipement;
begin begin
if ProcPrinc then AfficheDebug('Affecte_train_canton: @='+intToSTR(AdrTrain)+' Idcanton='+intToSTR(idcanton),clorange); if ProcPrinc then AfficheDebug('Affecte_train_canton: @='+intToSTR(AdrTrain)+' Idcanton='+intToSTR(idcanton),clorange);
//Affiche('Affecte_train_canton: @='+intToSTR(AdrTrain)+' Idcanton='+intToSTR(idcanton),clyellow);
if (IdCanton>0) and (idCanton<=nCantons) then if (IdCanton>0) and (idCanton<=nCantons) then
begin begin
idTrain:=0;
if (AdrTrain<>0) and (adrTrain<>9999) then if (AdrTrain<>0) and (adrTrain<>9999) then
begin begin
idTrain:=Index_train_adresse(adrTrain); idTrain:=Index_train_adresse(adrTrain);
@@ -308,6 +311,9 @@ begin
Maj_detecteurs_canton(idCanton,AdrTrain,el2); Maj_detecteurs_canton(idCanton,AdrTrain,el2);
end; end;
end; end;
maj_signaux(false);
//affiche('Det du canton '+intToSTR(canton[Idcanton].numero)+' det1='+intToSTR(canton[Idcanton].det1)+' det2='+intToSTR(canton[Idcanton].det2),clyellow); //affiche('Det du canton '+intToSTR(canton[Idcanton].numero)+' det1='+intToSTR(canton[Idcanton].det1)+' det2='+intToSTR(canton[Idcanton].det2),clyellow);
end; end;
verif_version.pas
+3 -1
View File
@@ -26,7 +26,7 @@ var
f : text; f : text;
Const Const
VersionSC = '10.0'; // sert à la comparaison de la version publiée VersionSC = '10.2'; // 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;
@@ -284,6 +284,8 @@ begin
else else
begin begin
Affiche('Erreur '+intToSTR(i)+' au lancement de installeur.exe ',clred); Affiche('Erreur '+intToSTR(i)+' au lancement de installeur.exe ',clred);
Affiche(SysErrorMessage(GetLastError),clred);
Affiche('Exécutez le manuellement',clred);
end; end;
end; end;
versions.txt
+7 -2
View File
@@ -312,10 +312,15 @@ version 9.77 : Am
version 9.78 : Correction du déclencheur "démarrage train" version 9.78 : Correction du déclencheur "démarrage train"
version 9.79 : Corrections et améliorations diverses. version 9.79 : Corrections et améliorations diverses.
version 9.8 : Intégration des claviers et boutons rotatifs USB version 9.8 : Intégration des claviers et boutons rotatifs USB
version 9.9 : Correction évalution fonctions logiques sur opérateur NONET NONOU version 9.9 : Correction évaluation fonctions logiques sur opérateur NONET NONOU
version 10.0 : Création de 3 compteurs de vitesse de trains utilisables en mode autonome ou CDM. version 10.0 : Création de 3 compteurs de vitesse de trains utilisables en mode autonome ou CDM.
Création de déclencheurs depuis appui sur touches de clavier ou blocs USB. Création de déclencheurs depuis appui sur touches de clavier ou blocs USB.
version 10.1 : Correction d'un bug sur l'évolution des trains dans le TCO.
version 10.2 : Ajout de 4 boutons aux claviers USB
Compteurs de vitesses pour chaque train dans un nouvel onglet "compteurs".
Les couleurs des compteurs sont personnalisables.
Pilotage des accessoires en mode asynchrone.
Correction bug fonction F bloc USB et pilotage train affecté au bloc