reportfrm.lfm

object ReportFrame: TReportFrame
  Left = 0
  Height = 579
  Top = 0
  Width = 710
  ClientHeight = 579
  ClientWidth = 710
  ParentShowHint = False
  TabOrder = 0
  DesignLeft = 299
  DesignTop = 109
  object SettingsPanel: TPanel
    Left = 6
    Height = 232
    Top = 6
    Width = 698
    Align = alTop
    AutoSize = True
    BorderSpacing.Around = 6
    BevelOuter = bvNone
    ClientHeight = 232
    ClientWidth = 698
    TabOrder = 0
    object PeriodGroupBox: TGroupBox
      Left = 0
      Height = 80
      Top = 0
      Width = 308
      AutoSize = True
      Caption = 'Period'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.HorizontalSpacing = 6
      ChildSizing.VerticalSpacing = 6
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 4
      ClientHeight = 60
      ClientWidth = 304
      TabOrder = 0
      object PeriodBeginLabel: TLabel
        Left = 6
        Height = 23
        Top = 6
        Width = 79
        Caption = 'Begin:'
        Layout = tlCenter
        ParentColor = False
      end
      object PeriodBeginDateTimePicker: TDateTimePicker
        Left = 91
        Height = 23
        Top = 6
        Width = 79
        CenturyFrom = 1941
        MaxDate = 2958465
        MinDate = -53780
        TabOrder = 0
        TrailingSeparator = False
        TextForNullDate = 'NULL'
        LeadingZeros = True
        NullInputAllowed = False
        Kind = dtkDate
        TimeFormat = tf24
        TimeDisplay = tdHMS
        DateMode = dmComboBox
        Date = 44562
        Time = 0.430048217589501
        UseDefaultSeparators = True
        HideDateTimeParts = []
        MonthNames = 'Long'
        OnChange = PeriodBeginDateTimePickerChange
      end
      object PeriodEndLabel: TLabel
        Left = 190
        Height = 23
        Top = 6
        Width = 23
        BorderSpacing.Left = 20
        Caption = 'End:'
        Layout = tlCenter
        ParentColor = False
      end
      object PeriodEndDateTimePicker: TDateTimePicker
        Left = 219
        Height = 23
        Top = 6
        Width = 79
        CenturyFrom = 1941
        MaxDate = 2958465
        MinDate = -53780
        TabOrder = 1
        TrailingSeparator = False
        TextForNullDate = 'NULL'
        LeadingZeros = True
        NullInputAllowed = False
        Kind = dtkDate
        TimeFormat = tf24
        TimeDisplay = tdHMS
        DateMode = dmComboBox
        Date = 44562
        Time = 0.753500497681671
        UseDefaultSeparators = True
        HideDateTimeParts = []
        MonthNames = 'Long'
        OnChange = PeriodEndDateTimePickerChange
      end
      object PeriodAllTimeCheckBox: TCheckBox
        Left = 6
        Height = 19
        Top = 35
        Width = 79
        Caption = 'For all time'
        OnChange = PeriodAllTimeCheckBoxChange
        TabOrder = 2
      end
    end
    object GroupByRadioGroup: TRadioGroup
      AnchorSideTop.Control = PeriodGroupBox
      AnchorSideTop.Side = asrBottom
      Left = 0
      Height = 77
      Top = 95
      Width = 77
      AutoFill = True
      AutoSize = True
      BorderSpacing.Top = 15
      Caption = 'Group by'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 57
      ClientWidth = 73
      Items.Strings = (
        'Years'
        'Months'
        'Days'
      )
      OnClick = GroupByRadioGroupClick
      TabOrder = 1
    end
    object ViewRadioGroup: TRadioGroup
      AnchorSideTop.Control = GroupByRadioGroup
      Left = 136
      Height = 58
      Top = 95
      Width = 65
      AutoFill = True
      AutoSize = True
      Caption = 'View'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 38
      ClientWidth = 61
      Items.Strings = (
        'Table'
        'Chart'
      )
      OnClick = ViewRadioGroupClick
      TabOrder = 2
    end
    object TasksGroupBox: TGroupBox
      AnchorSideLeft.Control = PeriodGroupBox
      AnchorSideLeft.Side = asrBottom
      AnchorSideRight.Control = SettingsPanel
      AnchorSideRight.Side = asrBottom
      Left = 328
      Height = 232
      Top = 0
      Width = 370
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Left = 20
      Caption = 'Tasks'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.HorizontalSpacing = 6
      ChildSizing.VerticalSpacing = 6
      ClientHeight = 212
      ClientWidth = 366
      Constraints.MaxWidth = 600
      Constraints.MinWidth = 200
      TabOrder = 3
      object TaskListFilterEdit: TListFilterEdit
        Left = 6
        Height = 23
        Top = 6
        Width = 354
        ButtonWidth = 23
        Align = alTop
        AutoSize = False
        NumGlyphs = 1
        MaxLength = 0
        TabOrder = 0
        TextHint = '(filter)'
        FilteredListbox = TasksCheckListBox
      end
      object TasksCheckListBox: TCheckListBox
        Left = 6
        Height = 140
        Top = 35
        Width = 354
        Align = alClient
        Constraints.MinHeight = 140
        Constraints.MinWidth = 250
        ItemHeight = 0
        OnClickCheck = TasksCheckListBoxClickCheck
        TabOrder = 1
      end
      object ButtonPanel: TPanel
        Left = 6
        Height = 25
        Top = 181
        Width = 354
        Align = alBottom
        AutoSize = True
        BevelOuter = bvNone
        ClientHeight = 25
        ClientWidth = 354
        TabOrder = 2
        object SelectAllTasksButton: TButton
          Left = 0
          Height = 25
          Top = 0
          Width = 94
          AutoSize = True
          Caption = '(De)Select all'
          OnClick = SelectAllTasksButtonClick
          TabOrder = 0
        end
      end
    end
  end
  object ReportTreeListView: TTreeListView
    Left = 0
    Height = 335
    Top = 244
    Width = 710
    Options = [tlvoToolTips, tlvoRightMouseSelects, tlvoStriped]
    Columns = <    
      item
        Alignment = taLeftJustify
        Text = 'Task'
        Width = 550
        Visible = True
      end    
      item
        Alignment = taRightJustify
        Text = 'Total time'
        Width = 100
        Visible = True
      end>
    RowHeight = 16
    Images = NonVisualCtrlsDataModule.Icons
    HorizontalLineMode = lmNone
    HorizontalLineColor = clWindowFrame
    VerticalLineMode = lmDot
    VerticalLineColor = clWindowFrame
    RootLineMode = lmSolid
    RootLineColor = clWindowFrame
    ColorSearchMark = clAqua
    ColorSearchMarkField = 16744320
    ExpandMode = emExpandByClick
    HotTrackFont.Color = clBlue
    HotTrackFont.Style = [fsUnderline]
    Font.Color = clWindowText
    SelectedFont.Color = clHighlightText
    SelectedHotTrackFont.Color = clHighlightText
    SelectedHotTrackFont.Style = [fsBold, fsUnderline]
    StripedOddColor = clWindow
    StripedEvenColor = 16774378
    SelectBackColor = clHighlight
    ButtonColor = clWindow
    BackGroundColor = clWindow
    Scrollbars = ssBoth
    HeaderVisible = True
    OnCustomItemDraw = ReportTreeListViewCustomItemDraw
    OnCustomRecordItemDraw = ReportTreeListViewCustomRecordItemDraw
    TabOrder = 2
    Align = alClient
  end
  object ReportChart: TChart
    Left = 0
    Height = 335
    Top = 244
    Width = 710
    AxisList = <    
      item
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = 'Hours'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Visible = False
        TickLength = 0
        Alignment = calBottom
        Marks.Format = '%2:s'
        Marks.LabelBrush.Style = bsClear
        Marks.OverlapPolicy = opHideNeighbour
        Marks.Source = LabelsChartSource
        Marks.Style = smsLabel
        Minors = <        
          item
            Intervals.Count = 1
            Intervals.MinLength = 5
            Intervals.Options = [aipUseCount, aipUseMinLength]
            TickLength = 4
            Marks.LabelBrush.Style = bsClear
          end>
        Title.LabelBrush.Style = bsClear
      end>
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Legend.Visible = True
    Margins.Bottom = 0
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Align = alClient
  end
  object LabelsChartSource: TListChartSource
    Left = 616
    Top = 488
  end
end