lazarus-ccr/components/tvplanit/examples/calendar/main.lfm

object Form1: TForm1
  Left = 1046
  Height = 607
  Top = 160
  Width = 607
  Caption = 'TvPlanIt Calendar Demo'
  ClientHeight = 607
  ClientWidth = 607
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object VpCalendar1: TVpCalendar
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Bevel1
    Left = 128
    Height = 319
    Top = 8
    Width = 351
    PopupMenu = VpCalendar1.default
    DataStore = VpIniDatastore1
    ControlLink = VpControlLink1
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Left = 120
    BorderSpacing.Right = 120
    BorderSpacing.Around = 8
    BorderStyle = bsSingle
    Colors.ActiveDay = clWindow
    Colors.ActiveDayBorder = clWindowText
    Colors.ActiveDayText = clWindowText
    Colors.Background = clDefault
    Colors.ColorScheme = cscalCustom
    Colors.DayNames = clWindowText
    Colors.Days = clWindowText
    Colors.InactiveDays = clWindowText
    Colors.MonthAndYear = clWindowText
    Colors.Weekend = clWindowText
    Colors.EventDays = clWindowText
    Colors.Holidays = clRed
    TabOrder = 0
    TabStop = True
  end
  object Panel1: TPanel
    AnchorSideLeft.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 8
    Height = 250
    Top = 349
    Width = 587
    Anchors = [akLeft, akBottom]
    AutoSize = True
    BorderSpacing.Around = 8
    BevelOuter = bvNone
    ClientHeight = 250
    ClientWidth = 587
    TabOrder = 1
    object cbActiveDayColor: TColorButton
      AnchorSideLeft.Control = rgColorScheme
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 448
      Height = 25
      Top = 0
      Width = 139
      BorderSpacing.Left = 16
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Active day'
      Margin = 4
      OnColorChanged = cbActiveDayColorColorChanged
    end
    object cgOptions: TCheckGroup
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      Left = 0
      Height = 165
      Top = 0
      Width = 296
      AutoFill = True
      Caption = 'Options'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 2
      ClientHeight = 145
      ClientWidth = 292
      Columns = 2
      Items.Strings = (
        'cdoShortNames'
        'cdoShowYear'
        'cdoShowInactive'
        'cdoShowRevert'
        'cdoShowToday'
        'cdoShowNavBtns'
        'cdoHideActive'
        'cdoHighlightSat'
        'cdoHighlightSun'
        'cdoHighlightHolidays'
      )
      OnItemClick = cgOptionsItemClick
      TabOrder = 0
      Data = {
        0A00000002020202020202020202
      }
    end
    object rgColorScheme: TRadioGroup
      AnchorSideLeft.Control = cgOptions
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 312
      Height = 165
      Top = 0
      Width = 120
      AutoFill = True
      BorderSpacing.Left = 16
      Caption = 'Color Scheme'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 145
      ClientWidth = 116
      Items.Strings = (
        'cscalCustom'
        'cscalClassic'
        'cscalWindows'
        'cscalGold'
        'cscalOcean'
        'cscalRose'
      )
      OnClick = rgColorSchemeClick
      TabOrder = 1
    end
    object cbDayNamesColor: TColorButton
      AnchorSideLeft.Control = cbActiveDayColor
      AnchorSideTop.Control = cbActiveDayTextColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 75
      Width = 139
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Day names'
      Margin = 4
      OnColorChanged = cbDayNamesColorColorChanged
    end
    object cbDaysColor: TColorButton
      AnchorSideLeft.Control = cbActiveDayColor
      AnchorSideTop.Control = cbDayNamesColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 100
      Width = 139
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Days'
      Margin = 4
      OnColorChanged = cbDaysColorColorChanged
    end
    object cbInactiveDaysColor: TColorButton
      AnchorSideLeft.Control = cbActiveDayColor
      AnchorSideTop.Control = cbDaysColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 125
      Width = 139
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Inactive days'
      Margin = 4
      OnColorChanged = cbInactiveDaysColorColorChanged
    end
    object cbMonthAndYearColor: TColorButton
      AnchorSideLeft.Control = cbActiveDayColor
      AnchorSideTop.Control = cbInactiveDaysColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 150
      Width = 139
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Month and year'
      Margin = 4
      OnColorChanged = cbMonthAndYearColorColorChanged
    end
    object cbWeekendColor: TColorButton
      AnchorSideLeft.Control = cbActiveDayColor
      AnchorSideTop.Control = cbMonthAndYearColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 175
      Width = 139
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Weekend'
      Margin = 4
      OnColorChanged = cbWeekendColorColorChanged
    end
    object cbEventDaysColor: TColorButton
      AnchorSideLeft.Control = cbActiveDayColor
      AnchorSideTop.Control = cbWeekendColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 200
      Width = 139
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Event days'
      Margin = 4
      OnColorChanged = cbEventDaysColorColorChanged
    end
    object cbBackgroundColor: TColorButton
      AnchorSideLeft.Control = cbActiveDayColor
      AnchorSideTop.Control = cbEventDaysColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 225
      Width = 139
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Background'
      Margin = 4
      OnColorChanged = cbBackgroundColorColorChanged
    end
    object cbBorder: TCheckBox
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = cgOptions
      AnchorSideTop.Side = asrBottom
      Left = 0
      Height = 19
      Top = 173
      Width = 53
      BorderSpacing.Top = 8
      Caption = 'Border'
      Checked = True
      OnChange = cbBorderChange
      State = cbChecked
      TabOrder = 2
    end
    object lblDayNameWidth: TLabel
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = seDayNameWidth
      AnchorSideTop.Side = asrCenter
      Left = 0
      Height = 15
      Top = 204
      Width = 90
      Caption = 'Date name width'
    end
    object seDayNameWidth: TSpinEdit
      AnchorSideLeft.Control = lblDayNameWidth
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbBorder
      AnchorSideTop.Side = asrBottom
      Left = 106
      Height = 23
      Top = 200
      Width = 108
      Alignment = taRightJustify
      BorderSpacing.Left = 16
      BorderSpacing.Top = 8
      MaxValue = 999
      OnChange = seDayNameWidthChange
      TabOrder = 3
    end
    object lblWeekStarts: TLabel
      AnchorSideLeft.Control = lblDayNameWidth
      AnchorSideTop.Control = cbWeekStarts
      AnchorSideTop.Side = asrCenter
      Left = 0
      Height = 15
      Top = 231
      Width = 77
      Caption = 'Week starts on'
    end
    object cbWeekStarts: TComboBox
      AnchorSideLeft.Control = seDayNameWidth
      AnchorSideTop.Control = seDayNameWidth
      AnchorSideTop.Side = asrBottom
      Left = 106
      Height = 23
      Top = 227
      Width = 106
      BorderSpacing.Top = 4
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        'dtSunday'
        'dtMonday'
        'dtTuesday'
        'dtWednesday'
        'dtThursday'
        'dtFriday'
        'dtSaturday'
      )
      OnChange = cbWeekStartsChange
      TabOrder = 4
      Text = 'dtSunday'
    end
    object cbActiveDayBorderColor: TColorButton
      AnchorSideLeft.Control = rgColorScheme
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbActiveDayColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 25
      Width = 139
      BorderSpacing.Left = 16
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Active day border'
      Margin = 4
      OnColorChanged = cbActiveDayBorderColorColorChanged
    end
    object cbActiveDayTextColor: TColorButton
      AnchorSideLeft.Control = rgColorScheme
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbActiveDayBorderColor
      AnchorSideTop.Side = asrBottom
      Left = 448
      Height = 25
      Top = 50
      Width = 139
      BorderSpacing.Left = 16
      BorderWidth = 2
      ButtonColorAutoSize = False
      ButtonColorSize = 16
      ButtonColor = clSilver
      Caption = 'Active day text'
      Margin = 4
      OnColorChanged = cbActiveDayTextColorColorChanged
    end
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Panel1
    Left = 8
    Height = 6
    Top = 335
    Width = 591
    Anchors = [akLeft, akRight, akBottom]
    BorderSpacing.Left = 8
    BorderSpacing.Right = 8
    Shape = bsTopLine
  end
  object VpControlLink1: TVpControlLink
    DataStore = VpIniDatastore1
    Printer.DayStart = h_08
    Printer.DayEnd = h_05
    Printer.Granularity = gr30Min
    Printer.MarginUnits = imAbsolutePixel
    Printer.PrintFormats = <>
    Left = 40
    Top = 72
  end
  object VpIniDatastore1: TVpIniDatastore
    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
    AutoConnect = True
    FileName = 'data.ini'
    Left = 40
    Top = 176
  end
end