object FoLog: TFoLog
  Left = 454
  Top = 250
  ClientWidth = 413
  ClientHeight = 339
  Caption = 'FoLog'
  Color = clBtnFace
  Constraints.MinHeight = 300
  Constraints.MinWidth = 300
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100001001000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
    BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
    0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
    0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 413
    Height = 24
    AutoSize = True
    ButtonWidth = 24
    Caption = 'ToolBar1'
    EdgeBorders = [ebBottom]
    Flat = True
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object ToolButton2: TToolButton
      Left = 0
      Top = 0
      Action = Save
    end
    object ToolButton1: TToolButton
      Left = 24
      Top = 0
      Action = Print
    end
  end
  object ListView1: TListView
    Left = 0
    Top = 24
    Width = 413
    Height = 321
    Align = alClient
    Columns = <
      item
        Caption = 'Time'
        Width = 115
      end
      item
        Caption = 'Title'
        Width = 120
      end
      item
        Caption = 'Description'
        Width = 150
      end>
    FlatScrollBars = True
    GridLines = True
    HotTrack = True
    ReadOnly = True
    RowSelect = True
    TabOrder = 1
    ViewStyle = vsReport
  end
  object ImageList1: TImageList
    Left = 16
    Top = 58
    Bitmap = {
[encoded data, 9727 characters]
      000000000000}
  end
  object ActionList1: TActionList
    Left = 60
    Top = 58
    object Save: TAction
      Caption = 'Save'
      Hint = 'Save'
      ImageIndex = 0
      ShortCut = 16467
      OnExecute = SaveExecute
    end
    object Print: TAction
      Caption = '&Print'
      Hint = 'Print'
      ImageIndex = 1
      ShortCut = 16464
      OnExecute = PrintExecute
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'csv'
    Filter = 'CSV File (*.csv)|*.csv|Binary File (*.dat)|*.dat'
    Left = 136
    Top = 58
  end
end
