V2.0
This commit is contained in:
f1iwq2
381
UnitDebug.dfm
381
UnitDebug.dfm
@@ -1,10 +1,9 @@
|
||||
object FormDebug: TFormDebug
|
||||
Left = 241
|
||||
Top = 150
|
||||
BorderStyle = bsSingle
|
||||
Left = 186
|
||||
Top = 143
|
||||
Width = 809
|
||||
Height = 773
|
||||
Caption = 'Fen'#234'tre de d'#233'bug'
|
||||
ClientHeight = 639
|
||||
ClientWidth = 789
|
||||
Color = clWindow
|
||||
TransparentColorValue = clTeal
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -16,13 +15,17 @@ object FormDebug: TFormDebug
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
DesignSize = (
|
||||
793
|
||||
735)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 616
|
||||
Top = 15
|
||||
Left = 609
|
||||
Top = 7
|
||||
Width = 108
|
||||
Height = 13
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Niveau du Debug (0-3)'
|
||||
Color = clWhite
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -34,10 +37,11 @@ object FormDebug: TFormDebug
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 448
|
||||
Top = 12
|
||||
Left = 441
|
||||
Top = 4
|
||||
Width = 131
|
||||
Height = 18
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Fen'#234'tre de d'#233'bug'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@@ -47,10 +51,11 @@ object FormDebug: TFormDebug
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 168
|
||||
Width = 97
|
||||
Height = 193
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Label3'
|
||||
Color = clGray
|
||||
@@ -64,10 +69,11 @@ object FormDebug: TFormDebug
|
||||
WordWrap = True
|
||||
end
|
||||
object EditNivDebug: TEdit
|
||||
Left = 728
|
||||
Top = 12
|
||||
Left = 721
|
||||
Top = 4
|
||||
Width = 49
|
||||
Height = 21
|
||||
Anchors = [akTop, akRight]
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -11
|
||||
@@ -79,10 +85,11 @@ object FormDebug: TFormDebug
|
||||
OnKeyPress = EditNivDebugKeyPress
|
||||
end
|
||||
object MemoEvtDet: TMemo
|
||||
Left = 552
|
||||
Left = 545
|
||||
Top = 408
|
||||
Width = 233
|
||||
Height = 221
|
||||
Anchors = [akTop, akRight]
|
||||
Color = clBlack
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clYellow
|
||||
@@ -97,197 +104,309 @@ object FormDebug: TFormDebug
|
||||
TabOrder = 1
|
||||
end
|
||||
object ButtonEcrLog: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 504
|
||||
Width = 97
|
||||
Height = 29
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Sauvegarder le log'
|
||||
TabOrder = 2
|
||||
OnClick = ButtonEcrLogClick
|
||||
end
|
||||
object MemoDebug: TMemo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 433
|
||||
Height = 625
|
||||
Top = 8
|
||||
Width = 426
|
||||
Height = 722
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Lines.Strings = (
|
||||
'MemoDebug')
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 3
|
||||
WordWrap = False
|
||||
end
|
||||
object CheckAffSig: TCheckBox
|
||||
Left = 448
|
||||
Top = 32
|
||||
Width = 297
|
||||
Height = 17
|
||||
Caption = 'Affichage du fonctionnement des signaux'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnClick = CheckAffSigClick
|
||||
end
|
||||
object ButtonRazTampon: TButton
|
||||
Left = 448
|
||||
Top = 576
|
||||
Left = 441
|
||||
Top = 584
|
||||
Width = 97
|
||||
Height = 33
|
||||
Caption = 'Raz Tampon Ev'#232'nements'
|
||||
TabOrder = 5
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Raz Tampon Ev'#232'nements ---->'
|
||||
TabOrder = 4
|
||||
WordWrap = True
|
||||
OnClick = ButtonRazTamponClick
|
||||
end
|
||||
object ButtonCherche: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 464
|
||||
Width = 97
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Chercher erreurs'
|
||||
TabOrder = 6
|
||||
TabOrder = 5
|
||||
OnClick = ButtonChercheClick
|
||||
end
|
||||
object ButtonAffEvtChrono: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 424
|
||||
Width = 97
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Affiche Evts d'#233'tecteurs et aig'
|
||||
TabOrder = 7
|
||||
TabOrder = 6
|
||||
WordWrap = True
|
||||
OnClick = ButtonAffEvtChronoClick
|
||||
end
|
||||
object CheckBoxTraceLIste: TCheckBox
|
||||
Left = 448
|
||||
Top = 80
|
||||
Width = 289
|
||||
Height = 17
|
||||
Caption = 'Affichage des '#233'valuations des routes'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 8
|
||||
OnClick = CheckBoxTraceLIsteClick
|
||||
end
|
||||
object CheckTrame: TCheckBox
|
||||
Left = 448
|
||||
Top = 96
|
||||
Width = 321
|
||||
Height = 17
|
||||
Caption = 'Affichage des trames '#233'chang'#233'es avec l'#39'interface ou CDM'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
OnClick = CheckTrameClick
|
||||
end
|
||||
object ButtonCop: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 368
|
||||
Width = 97
|
||||
Height = 49
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Copie fen'#234'te principale dans debug'
|
||||
TabOrder = 10
|
||||
TabOrder = 7
|
||||
WordWrap = True
|
||||
OnClick = ButtonCopClick
|
||||
end
|
||||
object RichEdit: TRichEdit
|
||||
Left = 552
|
||||
Left = 545
|
||||
Top = 168
|
||||
Width = 233
|
||||
Height = 233
|
||||
Anchors = [akTop, akRight]
|
||||
HideScrollBars = False
|
||||
PopupMenu = PopupMenuRE
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 11
|
||||
TabOrder = 8
|
||||
end
|
||||
object ButtonRazLog: TButton
|
||||
Left = 448
|
||||
Left = 441
|
||||
Top = 544
|
||||
Width = 97
|
||||
Height = 25
|
||||
Caption = 'Raz Tampon Log'
|
||||
TabOrder = 12
|
||||
Height = 33
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Raz Tampon Log <-----'
|
||||
TabOrder = 9
|
||||
WordWrap = True
|
||||
OnClick = ButtonRazLogClick
|
||||
end
|
||||
object CheckBoxAct: TCheckBox
|
||||
Left = 448
|
||||
Top = 64
|
||||
Width = 257
|
||||
Height = 17
|
||||
Caption = 'Affichage des '#233'v'#232'vements actionneurs'
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 441
|
||||
Top = 633
|
||||
Width = 353
|
||||
Height = 97
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = 'Fonctions primitives'
|
||||
Color = cl3DLight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 13
|
||||
OnClick = CheckBoxActClick
|
||||
end
|
||||
object CheckBoxEvtDetAig: TCheckBox
|
||||
Left = 448
|
||||
Top = 48
|
||||
Width = 281
|
||||
Height = 17
|
||||
Caption = 'Affichage des '#233'v'#232'nements d'#233'tecteurs et aiguillages'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 14
|
||||
OnClick = CheckBoxEvtDetAigClick
|
||||
end
|
||||
object CheckBoxAffFD: TCheckBox
|
||||
Left = 448
|
||||
Top = 112
|
||||
Width = 297
|
||||
Height = 17
|
||||
Caption = 'Affichage des fronts descendants des d'#233'tecteurs'
|
||||
Color = clWindow
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Color = clBlue
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 15
|
||||
OnClick = CheckBoxAffFDClick
|
||||
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
|
||||
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
|
||||
end
|
||||
end
|
||||
object CheckBoxAffDebDecSig: TCheckBox
|
||||
Left = 448
|
||||
Top = 128
|
||||
Width = 321
|
||||
Height = 17
|
||||
Caption = 'Affichage du pilotage des d'#233'codeurs de signaux'
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 433
|
||||
Top = 24
|
||||
Width = 345
|
||||
Height = 137
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'S'#233'lections d'#39'affichage'
|
||||
Color = cl3DLight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Color = clBlue
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 16
|
||||
OnClick = CheckBoxAffDebDecSigClick
|
||||
TabOrder = 11
|
||||
object CheckAffSig: TCheckBox
|
||||
Left = 24
|
||||
Top = 16
|
||||
Width = 297
|
||||
Height = 17
|
||||
Caption = 'Fonctionnement des signaux'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnClick = CheckAffSigClick
|
||||
end
|
||||
object CheckBoxEvtDetAig: TCheckBox
|
||||
Left = 24
|
||||
Top = 32
|
||||
Width = 281
|
||||
Height = 17
|
||||
Caption = 'Ev'#232'nements d'#233'tecteurs et aiguillages'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnClick = CheckBoxEvtDetAigClick
|
||||
end
|
||||
object CheckBoxTraceLIste: TCheckBox
|
||||
Left = 24
|
||||
Top = 112
|
||||
Width = 289
|
||||
Height = 17
|
||||
Caption = 'Evaluations des routes des trains'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
OnClick = CheckBoxTraceLIsteClick
|
||||
end
|
||||
object CheckTrame: TCheckBox
|
||||
Left = 24
|
||||
Top = 80
|
||||
Width = 305
|
||||
Height = 17
|
||||
Caption = 'Trames '#233'chang'#233'es avec l'#39'interface ou CDM'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
OnClick = CheckTrameClick
|
||||
end
|
||||
object CheckBoxAct: TCheckBox
|
||||
Left = 24
|
||||
Top = 48
|
||||
Width = 257
|
||||
Height = 17
|
||||
Caption = 'Ev'#232'vements actionneurs'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnClick = CheckBoxActClick
|
||||
end
|
||||
object CheckBoxAffFD: TCheckBox
|
||||
Left = 24
|
||||
Top = 96
|
||||
Width = 297
|
||||
Height = 17
|
||||
Caption = 'Fronts descendants des d'#233'tecteurs'
|
||||
Color = cl3DLight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
OnClick = CheckBoxAffFDClick
|
||||
end
|
||||
object CheckBoxAffDebDecSig: TCheckBox
|
||||
Left = 24
|
||||
Top = 64
|
||||
Width = 265
|
||||
Height = 17
|
||||
Caption = 'Pilotage des d'#233'codeurs de signaux'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 6
|
||||
OnClick = CheckBoxAffDebDecSigClick
|
||||
end
|
||||
end
|
||||
object SaveDialog: TSaveDialog
|
||||
Left = 760
|
||||
Top = 56
|
||||
Left = 768
|
||||
Top = 488
|
||||
end
|
||||
object PopupMenuRE: TPopupMenu
|
||||
Left = 760
|
||||
Top = 80
|
||||
Left = 768
|
||||
Top = 432
|
||||
object copier1: TMenuItem
|
||||
Caption = 'copier'
|
||||
OnClick = copier1Click
|
||||
|
||||
Reference in New Issue
Block a user