Logger.lfm

object FLog: TFLog
  Left = 378
  Height = 405
  Top = 130
  Width = 671
  BorderStyle = bsSizeToolWin
  Caption = 'Log'
  ClientHeight = 405
  ClientWidth = 671
  Color = clBtnFace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  OnActivate = FormActivate
  OnCreate = FormCreate
  LCLVersion = '1.6.0.2'
  object SpinEndTime: TSpinEdit
    Left = 72
    Height = 21
    Hint = 'Show Log Up To (seconds)'
    Top = 381
    Width = 65
    Anchors = [akLeft, akBottom]
    MaxValue = 0
    OnChange = SpinEndTimeChange
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object BClear: TButton
    Left = 240
    Height = 19
    Top = 378
    Width = 41
    Anchors = [akLeft, akBottom]
    Caption = '&Clear'
    OnClick = BClearClick
    TabOrder = 1
  end
  object Export: TButton
    Left = 288
    Height = 20
    Top = 377
    Width = 41
    Anchors = [akLeft, akBottom]
    Caption = 'E&xport'
    OnClick = ExportClick
    TabOrder = 2
  end
  object BDraw: TButton
    Left = 597
    Height = 21
    Top = 376
    Width = 62
    Anchors = [akRight, akBottom]
    Caption = '&Draw'
    Default = True
    OnClick = BDrawClick
    TabOrder = 3
  end
  object CLBSeries: TCheckListBox
    Left = 505
    Height = 341
    Top = 29
    Width = 153
    Anchors = [akTop, akRight, akBottom]
    ItemHeight = 0
    OnClickCheck = CLBSeriesClickCheck
    TabOrder = 4
  end
  object CBTypes: TComboBox
    Left = 505
    Height = 21
    Top = 4
    Width = 155
    Anchors = [akTop, akRight]
    DropDownCount = 10
    ItemHeight = 13
    ItemIndex = 3
    Items.Strings = (
      'All'
      'Filled'
      'I - Inputs'
      'Q - Outputs'
      'M - MemBits'
      'MW - MemWords'
      'S - SysBits'
      'SW - SysWords'
      'TM - Timer'
    )
    OnChange = CBTypesChange
    TabOrder = 6
    Text = 'Q - Outputs'
  end
  object CBShowPercentNames: TCheckBox
    Left = 523
    Height = 19
    Top = 378
    Width = 63
    Anchors = [akRight, akBottom]
    Caption = '%Names'
    OnClick = CBShowPercentNamesClick
    TabOrder = 8
  end
  object CBLogTimers: TCheckBox
    Left = 138
    Height = 19
    Top = 378
    Width = 99
    Anchors = [akLeft, akBottom]
    Caption = 'Log Timers(.V.P)'
    TabOrder = 5
  end
  object CBAutoDraw: TCheckBox
    Left = 332
    Height = 19
    Top = 379
    Width = 68
    Anchors = [akLeft, akBottom]
    Caption = 'AutoDraw'
    Checked = True
    OnClick = CBAutoDrawClick
    State = cbChecked
    TabOrder = 7
  end
  object SpinStartTime: TSpinEdit
    Left = 4
    Height = 21
    Hint = 'Show Log From (seconds)'
    Top = 381
    Width = 65
    Anchors = [akLeft, akBottom]
    MaxValue = 0
    OnChange = SpinStartTimeChange
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
  end
  object LabelTooManyPoints: TLabel
    Left = 16
    Height = 13
    Top = 352
    Width = 334
    Anchors = [akLeft, akBottom]
    Caption = '[Error] Use From... To... to reduce the number of points in the chart!'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsItalic]
    ParentColor = False
    ParentFont = False
  end
  object ChartLog: TChart
    Left = 4
    Height = 342
    Top = 4
    Width = 381
    AxisList = <    
      item
        Minors = <>
        Title.LabelFont.Orientation = 900
      end    
      item
        Alignment = calBottom
        Minors = <>
      end>
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Anchors = [akTop, akLeft, akRight, akBottom]
    object ChartLogLineSeries1: TLineSeries
      LinePen.Color = clGray
    end
    object ChartLogLineSeries2: TLineSeries
      LinePen.Color = clGreen
    end
    object ChartLogLineSeries3: TLineSeries
      LinePen.Color = clFuchsia
    end
    object ChartLogLineSeries4: TLineSeries
      LinePen.Color = clLime
    end
    object ChartLogLineSeries5: TLineSeries
      LinePen.Color = clAqua
    end
    object ChartLogLineSeries6: TLineSeries
      LinePen.Color = clGreen
    end
    object ChartLogLineSeries7: TLineSeries
      LinePen.Color = clTeal
    end
    object ChartLogLineSeries8: TLineSeries
      LinePen.Color = clYellow
    end
    object ChartLogLineSeries9: TLineSeries
      LinePen.Color = clMaroon
    end
    object ChartLogLineSeries10: TLineSeries
      LinePen.Color = clMedGray
    end
  end
  object ChartListbox1: TChartListbox
    Left = 398
    Height = 366
    Top = 4
    Width = 100
    Chart = ChartLog
    Anchors = [akTop, akRight]
    ItemHeight = 0
    TabOrder = 11
  end
  object Label1: TLabel
    Left = 8
    Height = 13
    Top = 370
    Width = 28
    Caption = 'From:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 73
    Height = 13
    Top = 369
    Width = 16
    Caption = 'To:'
    ParentColor = False
  end
  object SaveDialogExport: TSaveDialog
    Filter = 'Comma Separated Values|*.csv|Text Files|*.txt|All Files|*'
    left = 360
    top = 240
  end
  object TimerAutoDraw: TTimer
    Interval = 500
    OnTimer = TimerAutoDrawTimer
    left = 360
    top = 296
  end
  object ChartToolset1: TChartToolset
    left = 48
    top = 200
  end
  object ChartStyles1: TChartStyles
    Styles = <>
    left = 54
    top = 264
  end
  object IntervalChartSource1: TIntervalChartSource
    Params.NiceSteps = '0.5|1.0'
    left = 248
    top = 184
  end
end