/examples/cleandir/frmlog.lfm

http://github.com/graemeg/lazarus · Unknown · 62 lines · 62 code · 0 blank · 0 comment · 0 complexity · 1a1d53b8d48cf021b7fdec101b286f25 MD5 · raw file

  1. object 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
  62. end