/examples/cleandir/frmlog.lfm
http://github.com/graemeg/lazarus · Unknown · 62 lines · 62 code · 0 blank · 0 comment · 0 complexity · 1a1d53b8d48cf021b7fdec101b286f25 MD5 · raw file
- 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