-
Notifications
You must be signed in to change notification settings - Fork 19
/
FormRamLog.dfm
160 lines (160 loc) · 3.79 KB
/
FormRamLog.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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
object frmRamLog: TfrmRamLog
Left = 549
Top = 450
AlphaBlend = True
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'Log'
ClientHeight = 512
ClientWidth = 600
Color = clBtnFace
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
Position = poDesigned
ScreenSnap = True
ShowHint = True
SnapBuffer = 3
OnClose = FormClose
OnDestroy = FormDestroy
TextHeight = 17
object Container: TPanel
Left = 0
Top = 0
Width = 600
Height = 512
Align = alClient
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
object pnlBottom: TPanel
Left = 0
Top = 482
Width = 604
Height = 31
Align = alBottom
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
object chkLogOnError: TCheckBox
AlignWithMargins = True
Left = 204
Top = 3
Width = 138
Height = 25
Hint = 'Show this Log window when it displays error or warning messages.'
Align = alLeft
Caption = 'Show log on error'
Checked = True
State = cbChecked
TabOrder = 0
OnClick = chkLogOnErrorClick
end
object btnClear: TButton
AlignWithMargins = True
Left = 533
Top = 1
Width = 68
Height = 29
Hint = 'Clear log'
Margins.Top = 1
Margins.Bottom = 1
Align = alRight
Caption = 'Clear'
TabOrder = 1
OnClick = btnClearClick
end
object trkLogVerb: TLogVerbFilter
AlignWithMargins = True
Left = 348
Top = 3
Width = 179
Height = 25
Align = alClient
BevelOuter = bvNone
ShowCaption = False
TabOrder = 2
TrackBar.Left = 59
TrackBar.Top = 0
TrackBar.Width = 120
TrackBar.Height = 25
TrackBar.Hint = 'Hide all messages below this level'
TrackBar.Align = alRight
TrackBar.Max = 6
TrackBar.Min = 1
TrackBar.Position = 6
TrackBar.TabOrder = 0
Verbosity = lvErrors
Log = Log
end
object chkShowTime: TCheckBox
AlignWithMargins = True
Left = 103
Top = 3
Width = 95
Height = 25
Align = alLeft
Caption = 'Show time'
TabOrder = 3
OnClick = chkShowTimeClick
end
object chkShowDate: TCheckBox
AlignWithMargins = True
Left = 3
Top = 3
Width = 94
Height = 25
Align = alLeft
Caption = 'Show date'
TabOrder = 4
OnClick = chkShowDateClick
end
end
object Log: TLogGrid
AlignWithMargins = True
Left = 3
Top = 3
Width = 598
Height = 476
Align = alClient
BevelOuter = bvNone
ColCount = 1
DefaultRowHeight = 22
FixedCols = 0
RowCount = 1
FixedRows = 0
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goFixedRowDefAlign]
ParentColor = True
ParentFont = False
PopupMenu = PopupMenu
TabOrder = 1
Verbosity = lvErrors
ColWidths = (
577)
end
end
object PopupMenu: TPopupMenu
Left = 460
Top = 196
object mnuCopy: TMenuItem
Caption = 'Copy line'
OnClick = mnuCopyClick
end
object mnuCopyFiltered: TMenuItem
Caption = 'Copy all (filtered)'
Enabled = False
end
object mnuCopyAll: TMenuItem
Caption = 'Copy all (unfiltered)'
Hint = 'Returns all lines, even if a filter is applied.'
OnClick = mnuCopyAllClick
end
end
end