-
Notifications
You must be signed in to change notification settings - Fork 19
/
FormRichLog.dfm
111 lines (111 loc) · 2.52 KB
/
FormRichLog.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
object frmRichLog: TfrmRichLog
Left = 549
Top = 450
AlphaBlend = True
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'Log'
ClientHeight = 514
ClientWidth = 718
Color = clBtnFace
DoubleBuffered = True
ParentFont = True
Position = poDesigned
ScreenSnap = True
ShowHint = True
SnapBuffer = 3
OnDestroy = FormDestroy
TextHeight = 15
object Container: TPanel
Left = 0
Top = 0
Width = 718
Height = 514
Align = alClient
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
object Log: TRichLog
AlignWithMargins = True
Left = 3
Top = 3
Width = 712
Height = 474
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
HideSelection = False
Lines.Strings = (
'Log')
MaxLength = 2147483632
ParentColor = True
ParentFont = False
PlainText = True
ScrollBars = ssBoth
TabOrder = 1
WordWrap = False
OnError = LogError
end
object pnlBottom: TPanel
Left = 0
Top = 480
Width = 718
Height = 34
Align = alBottom
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
object chkAutoOpen: TCheckBox
AlignWithMargins = True
Left = 3
Top = 3
Width = 156
Height = 28
Hint = 'Show this Log window when it displays error or warning messages.'
Align = alLeft
Caption = 'Show the log on error'
Checked = True
State = cbChecked
TabOrder = 0
end
object btnClear: TButton
AlignWithMargins = True
Left = 647
Top = 1
Width = 68
Height = 32
Hint = 'Clear log'
Margins.Top = 1
Margins.Bottom = 1
Align = alRight
Caption = 'Clear'
TabOrder = 1
OnClick = btnClearClick
end
object trkLogVerb: TRichLogTrckbr
AlignWithMargins = True
Left = 381
Top = 3
Width = 260
Height = 28
Align = alRight
BevelOuter = bvNone
ShowCaption = False
TabOrder = 2
TrackBar.Left = 110
TrackBar.Top = 0
TrackBar.Width = 150
TrackBar.Height = 28
TrackBar.Hint = 'Hide all messages below this level'
TrackBar.Align = alRight
TrackBar.Max = 5
TrackBar.Position = 2
TrackBar.TabOrder = 0
Verbosity = lvInfos
Log = Log
end
end
end
end