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
|
object LogForm: TLogForm
Left = 426
Height = 351
Top = 183
Width = 460
HorzScrollBar.Page = 459
VertScrollBar.Page = 350
ActiveControl = BClose
Caption = 'Output of execution'
ClientHeight = 351
ClientWidth = 460
OnShow = FormShow
LCLVersion = '1.3'
object Label1: TLabel
Left = 8
Height = 16
Top = 8
Width = 312
AutoSize = False
Caption = 'Actions:'
ParentColor = False
end
object BClose: TButton
Left = 373
Height = 25
Top = 318
Width = 75
Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4
Caption = '&Cancel'
OnClick = BCloseClick
TabOrder = 0
end
object LBLog: TListBox
Left = 8
Height = 280
Top = 32
Width = 440
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
TabOrder = 1
end
object BSave: TButton
Left = 8
Height = 25
Top = 318
Width = 75
Anchors = [akLeft, akBottom]
BorderSpacing.InnerBorder = 4
Caption = '&Save'
OnClick = BSaveClick
TabOrder = 2
end
object SDlog: TSaveDialog
Title = 'Save file as'
Filter = 'Log files|*.log|Text files|*.txt|All files|*.*'
FilterIndex = 0
Options = [ofPathMustExist, ofEnableSizing, ofViewDetail]
left = 96
top = 320
end
end
|
