lazarus-ccr/components/tvplanit/examples/tutorial/unit1.lfm

object Form1: TForm1
  Left = 262
  Height = 559
  Top = 155
  Width = 804
  Caption = 'Form1'
  ClientHeight = 559
  ClientWidth = 804
  OnCreate = FormCreate
  LCLVersion = '2.1.0.0'
  object PageControl1: TPageControl
    Left = 0
    Height = 559
    Top = 0
    Width = 804
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Events'
      ClientHeight = 531
      ClientWidth = 796
      object VpDayView1: TVpDayView
        Left = 0
        Height = 526
        Top = 4
        Width = 490
        DataStore = VpXmlDatastore1
        ControlLink = VpControlLink1
        Color = clWindow
        Anchors = [akTop, akLeft, akRight, akBottom]
        ReadOnly = False
        TabStop = True
        TabOrder = 0
        AllDayEventAttributes.BackgroundColor = clBtnShadow
        AllDayEventAttributes.EventBorderColor = cl3DDkShadow
        AllDayEventAttributes.EventBackgroundColor = clBtnFace
        ShowEventTimes = False
        DrawingStyle = dsFlat
        TimeSlotColors.Active = clWhite
        TimeSlotColors.Inactive = 8454143
        TimeSlotColors.Holiday = 16744703
        TimeSlotColors.Weekend = 16777088
        TimeSlotColors.ActiveRange.RangeBegin = h_00
        TimeSlotColors.ActiveRange.RangeEnd = h_00
        HeadAttributes.Font.Height = -13
        HeadAttributes.Color = clBtnFace
        RowHeadAttributes.HourFont.Height = -24
        RowHeadAttributes.MinuteFont.Height = -12
        RowHeadAttributes.Color = clBtnFace
        ShowResourceName = True
        LineColor = clGray
        GutterWidth = 7
        DateLabelFormat = 'dddd, mmmm dd, yyyy'
        Granularity = gr30Min
        DefaultTopHour = h_07
        TimeFormat = tf24Hour
        NumDays = 2
      end
      object VpWeekView1: TVpWeekView
        Left = 496
        Height = 283
        Top = 4
        Width = 297
        DataStore = VpXmlDatastore1
        ControlLink = VpControlLink1
        Color = clWindow
        AllDayEventAttributes.BackgroundColor = clWindow
        AllDayEventAttributes.EventBorderColor = clGray
        AllDayEventAttributes.EventBackgroundColor = clBtnFace
        DateLabelFormat = 'dddd, mmmm dd, yyyy'
        DayHeadAttributes.Color = clBtnFace
        DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
        DayHeadAttributes.Font.Height = -13
        DayHeadAttributes.Bordered = True
        DrawingStyle = dsFlat
        HeadAttributes.Color = clBtnFace
        LineColor = clGray
        TimeFormat = tf12Hour
        ShowEventTime = True
        WeekStartsOn = dtMonday
        Anchors = [akTop, akRight, akBottom]
        TabStop = True
        TabOrder = 1
      end
      object VpMonthView1: TVpMonthView
        Left = 496
        Height = 240
        Top = 290
        Width = 297
        DataStore = VpXmlDatastore1
        ControlLink = VpControlLink1
        Color = clWindow
        Anchors = [akRight, akBottom]
        TabStop = True
        TabOrder = 2
        DateLabelFormat = 'mmmm yyyy'
        DayHeadAttributes.Color = clBtnFace
        DayNameStyle = dsShort
        DrawingStyle = dsFlat
        EventDayStyle = []
        HeadAttributes.Color = clBtnFace
        KBNavigation = True
        OffDayColor = clSilver
        SelectedDayColor = clRed
        ShowEvents = True
        ShowEventTime = False
        TimeFormat = tf24Hour
        TodayAttributes.Color = clSilver
        TodayAttributes.BorderPen.Color = clRed
        TodayAttributes.BorderPen.Width = 3
        WeekStartsOn = dtMonday
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Tasks'
      ClientHeight = 531
      ClientWidth = 796
      object VpTaskList1: TVpTaskList
        Left = 0
        Height = 531
        Top = 0
        Width = 796
        DataStore = VpXmlDatastore1
        ControlLink = VpControlLink1
        Color = clWindow
        Align = alClient
        TabStop = True
        TabOrder = 0
        ReadOnly = False
        DisplayOptions.CheckBGColor = clWindow
        DisplayOptions.CheckColor = cl3DDkShadow
        DisplayOptions.CheckStyle = csCheck
        DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
        DisplayOptions.ShowCompletedTasks = False
        DisplayOptions.ShowAll = False
        DisplayOptions.ShowDueDate = True
        DisplayOptions.OverdueColor = clRed
        DisplayOptions.NormalColor = clBlack
        DisplayOptions.CompletedColor = clGray
        LineColor = clGray
        MaxVisibleTasks = 250
        TaskHeadAttributes.Color = clSilver
        DrawingStyle = dsFlat
        ShowResourceName = True
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Contacts'
      ClientHeight = 531
      ClientWidth = 796
      object VpContactGrid1: TVpContactGrid
        Left = 40
        Height = 531
        Top = 0
        Width = 756
        DataStore = VpXmlDatastore1
        ControlLink = VpControlLink1
        Color = clWindow
        Align = alClient
        TabStop = True
        TabOrder = 0
        AllowInPlaceEditing = True
        BarWidth = 1
        BarColor = clSilver
        ColumnWidth = 145
        ContactHeadAttributes.Color = clSilver
        ContactHeadAttributes.Bordered = True
        DrawingStyle = dsFlat
      end
      object VpContactButtonBar1: TVpContactButtonBar
        Left = 0
        Height = 531
        Top = 0
        Width = 40
        ContactGrid = VpContactGrid1
        DrawingStyle = dsFlat
        RadioStyle = False
        Align = alLeft
      end
    end
  end
  object VpControlLink1: TVpControlLink
    DataStore = VpXmlDatastore1
    Printer.BottomMargin = 0
    Printer.DayStart = h_08
    Printer.DayEnd = h_05
    Printer.Granularity = gr30Min
    Printer.LeftMargin = 0
    Printer.MarginUnits = imAbsolutePixel
    Printer.PrintFormats = <>
    Printer.RightMargin = 0
    Printer.TopMargin = 0
    left = 143
    top = 184
  end
  object VpXmlDatastore1: TVpXmlDatastore
    CategoryColorMap.Category0.BackgroundColor = 16777175
    CategoryColorMap.Category0.Color = clTeal
    CategoryColorMap.Category0.Description = 'Business'
    CategoryColorMap.Category1.BackgroundColor = 15200743
    CategoryColorMap.Category1.Color = clMoneyGreen
    CategoryColorMap.Category1.Description = 'Personal'
    CategoryColorMap.Category2.Color = clYellow
    CategoryColorMap.Category2.Description = 'Category 2'
    CategoryColorMap.Category3.Color = clLime
    CategoryColorMap.Category3.Description = 'Category 3'
    CategoryColorMap.Category4.Color = clPurple
    CategoryColorMap.Category4.Description = 'Category 4'
    CategoryColorMap.Category5.Color = clTeal
    CategoryColorMap.Category5.Description = 'Category 5'
    CategoryColorMap.Category6.Color = clFuchsia
    CategoryColorMap.Category6.Description = 'Category 6'
    CategoryColorMap.Category7.Color = clOlive
    CategoryColorMap.Category7.Description = 'Category 7'
    CategoryColorMap.Category8.Color = clAqua
    CategoryColorMap.Category8.Description = 'Category 8'
    CategoryColorMap.Category9.Color = clMaroon
    CategoryColorMap.Category9.Description = 'Category 9'
    HiddenCategories.BackgroundColor = clSilver
    HiddenCategories.Color = clGray
    EnableEventTimer = True
    PlayEventSounds = True
    left = 143
    top = 107
  end
end