lazarus-ccr/components/tvplanit/examples/datastores/json/unit1.lfm

object Form1: TForm1
  Left = 225
  Height = 686
  Top = 155
  Width = 980
  Caption = 'Form1'
  ClientHeight = 686
  ClientWidth = 980
  LCLVersion = '3.99.0.0'
  OnCreate = FormCreate
  object Panel1: TPanel
    Left = 0
    Height = 33
    Top = 0
    Width = 980
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 33
    ClientWidth = 980
    TabOrder = 0
    object VpResourceCombo1: TVpResourceCombo
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 4
      Height = 23
      Top = 5
      Width = 208
      DataStore = VpJSONDataStore1
      Style = csDropDownList
      Borderspacing.Left = 4
      Borderspacing.Top = 4
      Borderspacing.Bottom = 4
    end
    object BtnNewRes: TButton
      AnchorSideLeft.Control = VpResourceCombo1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 216
      Height = 25
      Top = 4
      Width = 98
      AutoSize = True
      BorderSpacing.Left = 4
      BorderSpacing.Top = 4
      BorderSpacing.Bottom = 4
      Caption = 'New resource'
      TabOrder = 1
      OnClick = BtnNewResClick
    end
    object BtnEditRes: TButton
      AnchorSideLeft.Control = BtnNewRes
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 318
      Height = 25
      Top = 4
      Width = 94
      AutoSize = True
      BorderSpacing.Left = 4
      BorderSpacing.Top = 4
      BorderSpacing.Bottom = 4
      Caption = 'Edit resource'
      TabOrder = 2
      OnClick = BtnEditResClick
    end
    object BtnDeleteRes: TButton
      AnchorSideLeft.Control = BtnEditRes
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 412
      Height = 25
      Top = 4
      Width = 107
      AutoSize = True
      Caption = 'Delete resource'
      TabOrder = 3
      OnClick = BtnDeleteResClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Height = 653
    Top = 33
    Width = 980
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Events and tasks'
      ClientHeight = 625
      ClientWidth = 972
      object VpDayView1: TVpDayView
        Left = 0
        Height = 625
        Top = 0
        Width = 301
        PopupMenu = VpDayView1.default
        DataStore = VpJSONDataStore1
        ControlLink = VpControlLink1
        Font.Height = -12
        ParentFont = False
        Align = alLeft
        TabOrder = 0
        AllDayEventAttributes.Font.Height = -12
        AllowDragAndDrop = True
        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
        RowHeadAttributes.HourFont.Height = -24
        RowHeadAttributes.MinuteFont.Height = -12
        LineColor = clGray
        DateLabelFormat = 'dddd, mmmm dd, yyyy'
      end
      object Panel2: TPanel
        Left = 306
        Height = 625
        Top = 0
        Width = 386
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'Panel2'
        ClientHeight = 625
        ClientWidth = 386
        TabOrder = 1
        object VpWeekView1: TVpWeekView
          Left = 0
          Height = 379
          Top = 0
          Width = 386
          PopupMenu = VpWeekView1.default
          DataStore = VpJSONDataStore1
          ControlLink = VpControlLink1
          Font.Height = -12
          ParentFont = False
          AllDayEventAttributes.BackgroundColor = clWindow
          AllDayEventAttributes.EventBorderColor = clGray
          AllDayEventAttributes.Font.Height = -12
          DateLabelFormat = 'dddd, mmmm dd, yyyy'
          DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
          DayHeadAttributes.Font.Height = -13
          DayHeadAttributes.Font.Name = 'Tahoma'
          DrawingStyle = dsFlat
          EventFont.Height = -12
          HeadAttributes.Font.Height = -12
          LineColor = clGray
          WeekStartsOn = dtMonday
          Align = alClient
          TabOrder = 0
        end
        object VpMonthView1: TVpMonthView
          Left = 0
          Height = 241
          Top = 384
          Width = 386
          PopupMenu = VpMonthView1.default
          DataStore = VpJSONDataStore1
          ControlLink = VpControlLink1
          Font.Height = -12
          ParentFont = False
          Align = alBottom
          TabOrder = 1
          DayHeadAttributes.Font.Height = -13
          DayHeadAttributes.Font.Name = 'Tahoma'
          DayNumberFont.Height = -12
          DrawingStyle = dsFlat
          EventFont.Height = -12
          OffDayColor = clSilver
          TodayAttributes.Color = clSilver
          TodayAttributes.BorderPen.Color = clRed
          TodayAttributes.BorderPen.Width = 3
        end
        object Splitter2: TSplitter
          Cursor = crVSplit
          Left = 0
          Height = 5
          Top = 379
          Width = 386
          Align = alBottom
          ResizeAnchor = akBottom
        end
      end
      object VpTaskList1: TVpTaskList
        Left = 697
        Height = 625
        Top = 0
        Width = 275
        PopupMenu = VpTaskList1.default
        DataStore = VpJSONDataStore1
        ControlLink = VpControlLink1
        Align = alClient
        TabOrder = 2
        DisplayOptions.NormalColor = clBlack
        DrawingStyle = dsFlat
        LineColor = clGray
        TaskHeadAttributes.Color = clSilver
        TaskHeadAttributes.Font.Height = -12
      end
      object Splitter1: TSplitter
        Left = 692
        Height = 625
        Top = 0
        Width = 5
      end
      object Splitter3: TSplitter
        Left = 301
        Height = 625
        Top = 0
        Width = 5
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Contacts'
      ClientHeight = 625
      ClientWidth = 972
      object VpContactButtonBar1: TVpContactButtonBar
        Left = 0
        Height = 625
        Top = 0
        Width = 40
        DrawingStyle = dsFlat
        RadioStyle = False
        Align = alLeft
      end
      object VpContactGrid1: TVpContactGrid
        Left = 40
        Height = 625
        Top = 0
        Width = 932
        PopupMenu = VpContactGrid1.default
        DataStore = VpJSONDataStore1
        ControlLink = VpControlLink1
        Font.Height = -12
        ParentFont = False
        Align = alClient
        TabOrder = 1
        ColumnWidth = 200
        ContactHeadAttributes.Font.Height = -12
        DrawingStyle = dsFlat
      end
    end
  end
  object VpControlLink1: TVpControlLink
    DataStore = VpJSONDataStore1
    Printer.DayStart = h_08
    Printer.DayEnd = h_05
    Printer.Granularity = gr30Min
    Printer.MarginUnits = imAbsolutePixel
    Printer.PrintFormats = <>
    Left = 136
    Top = 264
  end
  object VpResourceEditDialog1: TVpResourceEditDialog
    Version = 'v1.8.0'
    DataStore = VpJSONDataStore1
    Options = []
    Placement.Position = mpCenter
    Placement.Top = 10
    Placement.Left = 10
    Placement.Height = 250
    Placement.Width = 400
    Left = 136
    Top = 335
  end
  object PopupMenu1: TPopupMenu
    Left = 129
    Top = 527
  end
  object VpJSONDataStore1: TVpJSONDataStore
    CategoryColorMap.Category0.Description = 'Category 0'
    CategoryColorMap.Category1.Description = 'Category 1'
    CategoryColorMap.Category2.Description = 'Category 2'
    CategoryColorMap.Category3.Description = 'Category 3'
    CategoryColorMap.Category4.Description = 'Category 4'
    CategoryColorMap.Category5.Description = 'Category 5'
    CategoryColorMap.Category6.Description = 'Category 6'
    CategoryColorMap.Category7.Description = 'Category 7'
    CategoryColorMap.Category8.Description = 'Category 8'
    CategoryColorMap.Category9.Description = 'Category 9'
    HiddenCategories.BackgroundColor = clSilver
    HiddenCategories.Color = clGray
    OnDisconnect = VpJSONDataStore1Disconnect
    FileName = 'data.json'
    Left = 136
    Top = 192
  end
end