V2.2
V2.2
This commit is contained in:
f1iwq2
292
UnitDebug.dfm
292
UnitDebug.dfm
@@ -1,8 +1,8 @@
|
||||
object FormDebug: TFormDebug
|
||||
Left = 186
|
||||
Top = 143
|
||||
Width = 809
|
||||
Height = 773
|
||||
Left = 342
|
||||
Top = 80
|
||||
Width = 842
|
||||
Height = 762
|
||||
Caption = 'Fen'#234'tre de d'#233'bug'
|
||||
Color = clWindow
|
||||
TransparentColorValue = clTeal
|
||||
@@ -16,12 +16,12 @@ object FormDebug: TFormDebug
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
DesignSize = (
|
||||
793
|
||||
735)
|
||||
826
|
||||
724)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 609
|
||||
Left = 642
|
||||
Top = 7
|
||||
Width = 108
|
||||
Height = 13
|
||||
@@ -37,7 +37,7 @@ object FormDebug: TFormDebug
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 441
|
||||
Left = 474
|
||||
Top = 4
|
||||
Width = 131
|
||||
Height = 18
|
||||
@@ -51,10 +51,10 @@ object FormDebug: TFormDebug
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 441
|
||||
Left = 472
|
||||
Top = 168
|
||||
Width = 97
|
||||
Height = 193
|
||||
Width = 99
|
||||
Height = 185
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Label3'
|
||||
@@ -69,7 +69,7 @@ object FormDebug: TFormDebug
|
||||
WordWrap = True
|
||||
end
|
||||
object EditNivDebug: TEdit
|
||||
Left = 721
|
||||
Left = 754
|
||||
Top = 4
|
||||
Width = 49
|
||||
Height = 21
|
||||
@@ -85,10 +85,10 @@ object FormDebug: TFormDebug
|
||||
OnKeyPress = EditNivDebugKeyPress
|
||||
end
|
||||
object MemoEvtDet: TMemo
|
||||
Left = 545
|
||||
Top = 408
|
||||
Width = 233
|
||||
Height = 221
|
||||
Left = 578
|
||||
Top = 360
|
||||
Width = 239
|
||||
Height = 225
|
||||
Anchors = [akTop, akRight]
|
||||
Color = clBlack
|
||||
Font.Charset = ANSI_CHARSET
|
||||
@@ -104,8 +104,8 @@ object FormDebug: TFormDebug
|
||||
TabOrder = 1
|
||||
end
|
||||
object ButtonEcrLog: TButton
|
||||
Left = 441
|
||||
Top = 504
|
||||
Left = 474
|
||||
Top = 480
|
||||
Width = 97
|
||||
Height = 29
|
||||
Anchors = [akTop, akRight]
|
||||
@@ -115,9 +115,9 @@ object FormDebug: TFormDebug
|
||||
end
|
||||
object MemoDebug: TMemo
|
||||
Left = 0
|
||||
Top = 8
|
||||
Width = 426
|
||||
Height = 722
|
||||
Top = 0
|
||||
Width = 465
|
||||
Height = 721
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Lines.Strings = (
|
||||
'MemoDebug')
|
||||
@@ -126,8 +126,8 @@ object FormDebug: TFormDebug
|
||||
WordWrap = False
|
||||
end
|
||||
object ButtonRazTampon: TButton
|
||||
Left = 441
|
||||
Top = 584
|
||||
Left = 474
|
||||
Top = 552
|
||||
Width = 97
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
@@ -137,18 +137,18 @@ object FormDebug: TFormDebug
|
||||
OnClick = ButtonRazTamponClick
|
||||
end
|
||||
object ButtonCherche: TButton
|
||||
Left = 441
|
||||
Top = 464
|
||||
Left = 474
|
||||
Top = 448
|
||||
Width = 97
|
||||
Height = 33
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Chercher erreurs'
|
||||
TabOrder = 5
|
||||
OnClick = ButtonChercheClick
|
||||
end
|
||||
object ButtonAffEvtChrono: TButton
|
||||
Left = 441
|
||||
Top = 424
|
||||
Left = 474
|
||||
Top = 408
|
||||
Width = 97
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
@@ -158,21 +158,27 @@ object FormDebug: TFormDebug
|
||||
OnClick = ButtonAffEvtChronoClick
|
||||
end
|
||||
object ButtonCop: TButton
|
||||
Left = 441
|
||||
Top = 368
|
||||
Left = 474
|
||||
Top = 360
|
||||
Width = 97
|
||||
Height = 49
|
||||
Height = 41
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Copie fen'#234'te principale dans debug'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWhite
|
||||
Font.Height = -9
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 7
|
||||
WordWrap = True
|
||||
OnClick = ButtonCopClick
|
||||
end
|
||||
object RichEdit: TRichEdit
|
||||
Left = 545
|
||||
Left = 578
|
||||
Top = 168
|
||||
Width = 233
|
||||
Height = 233
|
||||
Width = 239
|
||||
Height = 185
|
||||
Anchors = [akTop, akRight]
|
||||
HideScrollBars = False
|
||||
PopupMenu = PopupMenuRE
|
||||
@@ -180,8 +186,8 @@ object FormDebug: TFormDebug
|
||||
TabOrder = 8
|
||||
end
|
||||
object ButtonRazLog: TButton
|
||||
Left = 441
|
||||
Top = 544
|
||||
Left = 474
|
||||
Top = 512
|
||||
Width = 97
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
@@ -191,11 +197,11 @@ object FormDebug: TFormDebug
|
||||
OnClick = ButtonRazLogClick
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 433
|
||||
Top = 633
|
||||
Width = 353
|
||||
Height = 97
|
||||
Anchors = [akRight, akBottom]
|
||||
Left = 474
|
||||
Top = 592
|
||||
Width = 343
|
||||
Height = 132
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Fonctions primitives'
|
||||
Color = cl3DLight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -206,78 +212,118 @@ object FormDebug: TFormDebug
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
object ButtonSigSuiv: TButton
|
||||
Left = 16
|
||||
Top = 24
|
||||
Width = 97
|
||||
Height = 25
|
||||
Hint = 'Etat du signal suivant'
|
||||
Caption = 'Etat signal suivant'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
OnClick = ButtonSigSuivClick
|
||||
end
|
||||
object EditSigSuiv: TEdit
|
||||
Left = 280
|
||||
Top = 24
|
||||
Width = 49
|
||||
Height = 21
|
||||
Hint = 'Indiquer l'#39'adresse du signal '
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object EditPrec: TEdit
|
||||
Left = 224
|
||||
Top = 58
|
||||
Width = 49
|
||||
Height = 21
|
||||
Hint = 'Element pr'#233'c'#233'dent'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object EditActuel: TEdit
|
||||
Left = 288
|
||||
Top = 58
|
||||
Width = 49
|
||||
Height = 21
|
||||
Hint = 'Element actuel'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 3
|
||||
end
|
||||
object ButtonDetSuiv: TButton
|
||||
Left = 16
|
||||
Top = 56
|
||||
Width = 201
|
||||
Height = 25
|
||||
Hint =
|
||||
'Renvoie l'#39#233'l'#233'ment suivant aux deux '#233'l'#233'ments (d'#233'tecteurs ou aigui' +
|
||||
'llages) '
|
||||
Caption = 'D'#233'tecteur suivant aux '#233'l'#233'ments'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 4
|
||||
OnClick = ButtonDetSuivClick
|
||||
end
|
||||
object ButtonCanSuivSig: TButton
|
||||
Left = 128
|
||||
object GroupBox3: TGroupBox
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 105
|
||||
Height = 33
|
||||
Hint = 'Renvoie l'#39'occupation du canton suivant le signal'
|
||||
Caption = 'Etat canton suivant signal occup'#233
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 5
|
||||
WordWrap = True
|
||||
OnClick = ButtonCanSuivSigClick
|
||||
Width = 329
|
||||
Height = 57
|
||||
Caption = 'Signal'
|
||||
TabOrder = 0
|
||||
object Label4: TLabel
|
||||
Left = 241
|
||||
Top = 26
|
||||
Width = 32
|
||||
Height = 13
|
||||
Caption = 'Signal:'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object ButtonSigSuiv: TButton
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 65
|
||||
Height = 33
|
||||
Hint = 'Etat du signal suivant'
|
||||
Caption = 'Etat signal suivant'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
WordWrap = True
|
||||
OnClick = ButtonSigSuivClick
|
||||
end
|
||||
object ButtonCanSuivSig: TButton
|
||||
Left = 72
|
||||
Top = 8
|
||||
Width = 81
|
||||
Height = 41
|
||||
Hint = 'Renvoie l'#39'occupation du canton suivant le signal'
|
||||
Caption = 'Etat canton suivant signal'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
WordWrap = True
|
||||
OnClick = ButtonCanSuivSigClick
|
||||
end
|
||||
object EditSigSuiv: TEdit
|
||||
Left = 272
|
||||
Top = 24
|
||||
Width = 41
|
||||
Height = 21
|
||||
Hint = 'Indiquer l'#39'adresse du signal '
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 152
|
||||
Top = 8
|
||||
Width = 81
|
||||
Height = 41
|
||||
Caption = 'Etat 3 cantons pr'#233'c'#233'dents signal'
|
||||
TabOrder = 3
|
||||
WordWrap = True
|
||||
OnClick = Button1Click
|
||||
end
|
||||
end
|
||||
object GroupBox4: TGroupBox
|
||||
Left = 8
|
||||
Top = 72
|
||||
Width = 329
|
||||
Height = 49
|
||||
Caption = 'D'#233'tecteur suivant'
|
||||
TabOrder = 1
|
||||
object ButtonDetSuiv: TButton
|
||||
Left = 16
|
||||
Top = 16
|
||||
Width = 185
|
||||
Height = 25
|
||||
Hint =
|
||||
'Renvoie l'#39#233'l'#233'ment suivant aux deux '#233'l'#233'ments (d'#233'tecteurs ou aigui' +
|
||||
'llages) '
|
||||
Caption = 'D'#233'tecteur suivant aux '#233'l'#233'ments'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
OnClick = ButtonDetSuivClick
|
||||
end
|
||||
object EditPrec: TEdit
|
||||
Left = 216
|
||||
Top = 18
|
||||
Width = 49
|
||||
Height = 21
|
||||
Hint = 'Element pr'#233'c'#233'dent'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object EditActuel: TEdit
|
||||
Left = 272
|
||||
Top = 18
|
||||
Width = 49
|
||||
Height = 21
|
||||
Hint = 'Element actuel'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 433
|
||||
Left = 472
|
||||
Top = 24
|
||||
Width = 345
|
||||
Height = 137
|
||||
@@ -293,9 +339,9 @@ object FormDebug: TFormDebug
|
||||
ParentFont = False
|
||||
TabOrder = 11
|
||||
object CheckAffSig: TCheckBox
|
||||
Left = 24
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 297
|
||||
Width = 161
|
||||
Height = 17
|
||||
Caption = 'Fonctionnement des signaux'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -308,9 +354,9 @@ object FormDebug: TFormDebug
|
||||
OnClick = CheckAffSigClick
|
||||
end
|
||||
object CheckBoxEvtDetAig: TCheckBox
|
||||
Left = 24
|
||||
Left = 8
|
||||
Top = 32
|
||||
Width = 281
|
||||
Width = 201
|
||||
Height = 17
|
||||
Caption = 'Ev'#232'nements d'#233'tecteurs et aiguillages'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -323,9 +369,9 @@ object FormDebug: TFormDebug
|
||||
OnClick = CheckBoxEvtDetAigClick
|
||||
end
|
||||
object CheckBoxTraceLIste: TCheckBox
|
||||
Left = 24
|
||||
Left = 8
|
||||
Top = 112
|
||||
Width = 289
|
||||
Width = 185
|
||||
Height = 17
|
||||
Caption = 'Evaluations des routes des trains'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -338,9 +384,9 @@ object FormDebug: TFormDebug
|
||||
OnClick = CheckBoxTraceLIsteClick
|
||||
end
|
||||
object CheckTrame: TCheckBox
|
||||
Left = 24
|
||||
Left = 8
|
||||
Top = 80
|
||||
Width = 305
|
||||
Width = 233
|
||||
Height = 17
|
||||
Caption = 'Trames '#233'chang'#233'es avec l'#39'interface ou CDM'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -353,9 +399,9 @@ object FormDebug: TFormDebug
|
||||
OnClick = CheckTrameClick
|
||||
end
|
||||
object CheckBoxAct: TCheckBox
|
||||
Left = 24
|
||||
Left = 8
|
||||
Top = 48
|
||||
Width = 257
|
||||
Width = 153
|
||||
Height = 17
|
||||
Caption = 'Ev'#232'vements actionneurs'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -368,9 +414,9 @@ object FormDebug: TFormDebug
|
||||
OnClick = CheckBoxActClick
|
||||
end
|
||||
object CheckBoxAffFD: TCheckBox
|
||||
Left = 24
|
||||
Left = 8
|
||||
Top = 96
|
||||
Width = 297
|
||||
Width = 193
|
||||
Height = 17
|
||||
Caption = 'Fronts descendants des d'#233'tecteurs'
|
||||
Color = cl3DLight
|
||||
@@ -385,9 +431,9 @@ object FormDebug: TFormDebug
|
||||
OnClick = CheckBoxAffFDClick
|
||||
end
|
||||
object CheckBoxAffDebDecSig: TCheckBox
|
||||
Left = 24
|
||||
Left = 8
|
||||
Top = 64
|
||||
Width = 265
|
||||
Width = 193
|
||||
Height = 17
|
||||
Caption = 'Pilotage des d'#233'codeurs de signaux'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
|
||||
Reference in New Issue
Block a user