/examples/cleandir/frmlog.lfm

 1object LogForm: TLogForm
 2  Left = 426
 3  Height = 351
 4  Top = 183
 5  Width = 460
 6  HorzScrollBar.Page = 459
 7  VertScrollBar.Page = 350
 8  ActiveControl = BClose
 9  Caption = 'Output of execution'
10  ClientHeight = 351
11  ClientWidth = 460
12  OnShow = FormShow
13  LCLVersion = '1.3'
14  object Label1: TLabel
15    Left = 8
16    Height = 16
17    Top = 8
18    Width = 312
19    AutoSize = False
20    Caption = 'Actions:'
21    ParentColor = False
22  end
23  object BClose: TButton
24    Left = 373
25    Height = 25
26    Top = 318
27    Width = 75
28    Anchors = [akRight, akBottom]
29    BorderSpacing.InnerBorder = 4
30    Caption = '&Cancel'
31    OnClick = BCloseClick
32    TabOrder = 0
33  end
34  object LBLog: TListBox
35    Left = 8
36    Height = 280
37    Top = 32
38    Width = 440
39    Anchors = [akTop, akLeft, akRight, akBottom]
40    ItemHeight = 0
41    TabOrder = 1
42  end
43  object BSave: TButton
44    Left = 8
45    Height = 25
46    Top = 318
47    Width = 75
48    Anchors = [akLeft, akBottom]
49    BorderSpacing.InnerBorder = 4
50    Caption = '&Save'
51    OnClick = BSaveClick
52    TabOrder = 2
53  end
54  object SDlog: TSaveDialog
55    Title = 'Save file as'
56    Filter = 'Log files|*.log|Text files|*.txt|All files|*.*'
57    FilterIndex = 0
58    Options = [ofPathMustExist, ofEnableSizing, ofViewDetail]
59    left = 96
60    top = 320
61  end
62end