Logger_frMain.fmx 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374
  1. object frMain: TfrMain
  2. Left = 0
  3. Top = 0
  4. Caption = 'Logger example'
  5. ClientHeight = 280
  6. ClientWidth = 360
  7. Position = DesktopCenter
  8. FormFactor.Width = 320
  9. FormFactor.Height = 480
  10. FormFactor.Devices = [Desktop]
  11. OnCreate = FormCreate
  12. DesignerMasterStyle = 0
  13. object pnLog: TPanel
  14. Align = Top
  15. Margins.Left = 4.000000000000000000
  16. Margins.Top = 4.000000000000000000
  17. Margins.Right = 4.000000000000000000
  18. Position.X = 4.000000000000000000
  19. Position.Y = 4.000000000000000000
  20. Size.Width = 352.000000000000000000
  21. Size.Height = 26.000000000000000000
  22. Size.PlatformDefault = False
  23. TabOrder = 0
  24. object lbLog: TLabel
  25. Align = Left
  26. AutoSize = True
  27. Margins.Left = 4.000000000000000000
  28. Position.X = 4.000000000000000000
  29. Size.Width = 29.000000000000000000
  30. Size.Height = 26.000000000000000000
  31. Size.PlatformDefault = False
  32. Text = 'Log'
  33. TabOrder = 0
  34. end
  35. object edLog: TEdit
  36. Touch.InteractiveGestures = [LongTap, DoubleTap]
  37. Align = Client
  38. TabOrder = 1
  39. Text = 'Test'
  40. Margins.Top = 2.000000000000000000
  41. Margins.Right = 2.000000000000000000
  42. Margins.Bottom = 2.000000000000000000
  43. Size.Width = 317.000000000000000000
  44. Size.Height = 22.000000000000000000
  45. Size.PlatformDefault = False
  46. end
  47. end
  48. object btAppendLog: TButton
  49. Align = Top
  50. Cursor = crHandPoint
  51. Margins.Left = 4.000000000000000000
  52. Margins.Top = 4.000000000000000000
  53. Margins.Right = 4.000000000000000000
  54. Margins.Bottom = 4.000000000000000000
  55. Position.X = 4.000000000000000000
  56. Position.Y = 34.000000000000000000
  57. Size.Width = 352.000000000000000000
  58. Size.Height = 25.000000000000000000
  59. Size.PlatformDefault = False
  60. TabOrder = 2
  61. Text = '&Append log'
  62. OnClick = btAppendLogClick
  63. Left = 16
  64. Top = 40
  65. end
  66. object BrookLogger1: TBrookLogger
  67. Filters.Strings = (
  68. 'INFO'
  69. 'HINT'
  70. 'DEBUG')
  71. Left = 168
  72. Top = 128
  73. end
  74. end