BrookFramework/Examples/LCL/Logger_frMain.lfm

object frMain: TfrMain
  Left = 248
  Height = 240
  Top = 154
  Width = 390
  Caption = 'Logger example'
  ClientHeight = 240
  ClientWidth = 390
  OnCreate = FormCreate
  Position = poDesktopCenter
  LCLVersion = '2.0.10.0'
  object pnLog: TPanel
    Left = 4
    Height = 29
    Top = 4
    Width = 382
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 4
    BorderSpacing.Top = 4
    BorderSpacing.Right = 4
    BorderSpacing.Bottom = 2
    ClientHeight = 29
    ClientWidth = 382
    TabOrder = 0
    object lbLog: TLabel
      Left = 5
      Height = 27
      Top = 1
      Width = 20
      Align = alLeft
      BorderSpacing.Left = 4
      Caption = 'Log'
      Layout = tlCenter
      ParentColor = False
    end
    object edLog: TEdit
      Left = 29
      Height = 23
      Top = 3
      Width = 350
      Align = alClient
      BorderSpacing.Left = 4
      BorderSpacing.Top = 2
      BorderSpacing.Right = 2
      BorderSpacing.Bottom = 2
      TabOrder = 0
      Text = 'Test'
    end
  end
  object btAppendLog: TButton
    Cursor = crHandPoint
    Left = 4
    Height = 25
    Top = 35
    Width = 382
    Align = alTop
    BorderSpacing.Left = 4
    BorderSpacing.Top = 2
    BorderSpacing.Right = 4
    Caption = '&Append log'
    OnClick = btAppendLogClick
    TabOrder = 1
  end
  object BrookLogger1: TBrookLogger
    Filters.Strings = (
      'DEBUG'
      'HINT'
      'INFO'
    )
    Left = 176
    Top = 96
  end
end