This commit is contained in:
f1iwq2
2020-02-03 21:07:11 +01:00
parent d1613a75c6
commit 110f42baaa
11 changed files with 489 additions and 234 deletions

View File

@@ -1,8 +1,8 @@
object FormDebug: TFormDebug
Left = 313
Top = 77
Left = 514
Top = 56
BorderStyle = bsSingle
Caption = 'FormDebug'
Caption = 'Fen'#234'tre de d'#233'bug'
ClientHeight = 639
ClientWidth = 759
Color = clWhite
@@ -47,16 +47,16 @@ object FormDebug: TFormDebug
ParentFont = False
end
object Label3: TLabel
Left = 464
Top = 200
Left = 456
Top = 88
Width = 265
Height = 101
Height = 73
AutoSize = False
Caption = 'Label3'
Color = clGray
Font.Charset = ANSI_CHARSET
Font.Color = clWindow
Font.Height = -15
Font.Height = -13
Font.Name = 'Arial Narrow'
Font.Style = []
ParentColor = False
@@ -80,26 +80,27 @@ object FormDebug: TFormDebug
end
object MemoEvtDet: TMemo
Left = 564
Top = 308
Top = 416
Width = 181
Height = 281
Height = 173
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Name = 'Arial'
Font.Style = []
Lines.Strings = (
'Tableau des '#233'v'#232'nements d'#233'tecteurs')
'Tableau des '#233'v'#232'nements '
'd'#233'tecteurs')
ParentFont = False
TabOrder = 1
end
object ButtonEcrLog: TButton
Left = 448
Top = 564
Top = 560
Width = 97
Height = 25
Caption = 'Ecrire le log'
Height = 29
Caption = 'Sauvegarder le log'
TabOrder = 2
OnClick = ButtonEcrLogClick
end
@@ -128,8 +129,52 @@ object FormDebug: TFormDebug
TabOrder = 4
OnClick = CheckAffSigClick
end
object SaveDialog: TSaveDialog
Left = 480
object ButtonRazTampon: TButton
Left = 448
Top = 520
Width = 97
Height = 33
Caption = 'Raz Tampon Ev'#232'nements'
TabOrder = 5
WordWrap = True
OnClick = ButtonRazTamponClick
end
object ButtonCherche: TButton
Left = 448
Top = 480
Width = 97
Height = 33
Caption = 'Chercher erreurs'
TabOrder = 6
OnClick = ButtonChercheClick
end
object MemoDet: TMemo
Left = 560
Top = 176
Width = 185
Height = 225
Color = clMaroon
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 7
end
object ButtonAffEvtChrono: TButton
Left = 448
Top = 440
Width = 97
Height = 33
Caption = 'Affiche Evts chrono d'#233'tecteurs'
TabOrder = 8
WordWrap = True
OnClick = ButtonAffEvtChronoClick
end
object SaveDialog: TSaveDialog
Left = 464
Top = 336
end
end