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
|
inherited DbgOutputForm: TDbgOutputForm
Left = 108
Height = 200
Top = 140
Width = 400
BorderStyle = bsSizeToolWin
Caption = 'Debug output'
ClientHeight = 200
ClientWidth = 400
OnClose = FormClose
OnCreate = FormCreate
object txtOutput: TMemo[0]
Left = 0
Height = 200
Top = 0
Width = 400
Align = alClient
PopupMenu = mnuPopup
TabOrder = 0
end
object mnuPopup: TPopupMenu[1]
left = 336
top = 96
object popClear: TMenuItem
Caption = '&Clear'
OnClick = popClearClick
end
object popCopyAll: TMenuItem
Caption = 'Copy all output to clipboard'
OnClick = popCopyAllClick
end
end
end
|
