object FrmAppLog: TFrmAppLog
  Left = 258
  Top = 155
  AutoScroll = False
  Caption = 'FrmAppLog'
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object mlog: TMemo
    Left = 0
    Top = 0
    Width = 377
    Height = 453
    Align = alLeft
    Lines.Strings = (
      '')
    ScrollBars = ssBoth
    TabOrder = 0
    WordWrap = False
  end
  object Button1: TButton
    Left = 416
    Top = 40
    Width = 225
    Height = 33
    Caption = '在主線程中寫入一條消息'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 392
    Top = 312
    Width = 289
    Height = 129
    Color = clMenu
    Lines.Strings = (
      '                                       說明：'
      '1、程序執行時會在當前目錄下建立Logfile子目錄并建'
      '立為GBASXXXXXXXX.log的日志文件。XXXX部分表示'
      '當前年月日,這個文件每天建立一個，你可以在程序'
      '執行時改變系統時間看一下。'
      '2、自動刪除日志文件功能也可以通過多建立日志文件'
      '測試'
      '3、上面按鈕分別給出了從主進程、其他線程寫日志文'
      '件的方法，同時也證明不會產生內存沖突。'
      'my email: yj.lucky@X263.net')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Button2: TButton
    Left = 416
    Top = 88
    Width = 225
    Height = 33
    Caption = '創建6個線程同時向日志寫入消息'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 416
    Top = 136
    Width = 225
    Height = 33
    Caption = '釋放上面的線程'
    TabOrder = 4
    OnClick = Button3Click
  end
end