lazarus-ccr/components/callite/demo2/umaintestcallite.lfm

object Form1: TForm1
  Left = 536
  Height = 845
  Top = 72
  Width = 648
  Caption = 'Examples of the TCalendaLite  component'
  ClientHeight = 845
  ClientWidth = 648
  Color = clWindow
  Font.CharSet = ANSI_CHARSET
  OnCreate = FormCreate
  LCLVersion = '1.7'
  object PSettings: TPanel
    Left = 0
    Height = 376
    Top = 0
    Width = 648
    Align = alTop
    ClientHeight = 376
    ClientWidth = 648
    TabOrder = 0
    object cgOptions: TCheckGroup
      Left = 24
      Height = 296
      Top = 40
      Width = 185
      AutoFill = True
      Caption = 'Set calendar Options'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 276
      ClientWidth = 181
      Items.Strings = (
        'coBoldDayNames'
        'coBoldHolidays'
        'coBoldToday'
        'coBoldTopRow'
        'coBoldWeekend'
        'coDayLine'
        'coShowBorder'
        'coShowHolidays'
        'coShowTodayFrame'
        'coShowTodayName'
        'coShowTodayRow'
        'coShowWeekend'
        'coUseTopRowColors'
      )
      OnItemClick = cgOptionsItemClick
      TabOrder = 0
      Data = {
        0D00000002020202020202020202020202
      }
    end
    object cbUseHolidays: TCheckBox
      Left = 239
      Height = 19
      Top = 40
      Width = 169
      Caption = 'Ignore OnGetHolidays event'
      OnChange = cbUseHolidaysChange
      TabOrder = 1
    end
    object LTitle: TLabel
      Left = 28
      Height = 15
      Top = 8
      Width = 318
      Caption = 'Various calendar property settings can be changed below:'
      Font.CharSet = ANSI_CHARSET
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object LWidth: TLabel
      Left = 239
      Height = 15
      Top = 81
      Width = 32
      Caption = 'Width'
      ParentColor = False
    end
    object seWidth: TSpinEdit
      Left = 296
      Height = 23
      Top = 79
      Width = 66
      MaxValue = 430
      MinValue = 120
      OnChange = seWidthChange
      TabOrder = 2
      Value = 300
    end
    object seHeight: TSpinEdit
      Left = 296
      Height = 23
      Top = 112
      Width = 66
      MaxValue = 250
      MinValue = 120
      OnChange = seHeightChange
      TabOrder = 3
      Value = 200
    end
    object lHeight: TLabel
      Left = 239
      Height = 15
      Top = 112
      Width = 36
      Caption = 'Height'
      ParentColor = False
    end
    object rgLanguage: TRadioGroup
      Left = 239
      Height = 160
      Top = 176
      Width = 180
      AutoFill = True
      Caption = 'Language to use'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 140
      ClientWidth = 176
      ItemIndex = 0
      Items.Strings = (
        'English (default)'
        'French'
        'German'
        'Hebrew'
        'Spanish'
      )
      OnClick = rgLanguageClick
      TabOrder = 4
    end
    object rgStartingDOW: TRadioGroup
      Left = 440
      Height = 192
      Top = 40
      Width = 176
      AutoFill = True
      Caption = 'Starting day of the week'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 172
      ClientWidth = 172
      Items.Strings = (
        'Sunday'
        'Monday'
        'Tuesday'
        'Wednesday'
        'Thursday'
        'Friday'
        'Saturday'
      )
      OnClick = rgStartingDOWClick
      TabOrder = 5
    end
  end
  object CalendarLite1: TCalendarLite
    Left = 132
    Height = 160
    Top = 489
    Width = 210
    Constraints.MinHeight = 120
    Constraints.MinWidth = 120
    ParentColor = False
    TabOrder = 1
    Date = 42678
    DisplayTexts = '"Today is",dd/mm/yyyy,"Holidays during","There are no holidays set for"'
    WeekendDays = [dowSunday, dowSaturday]
  end
  object Label1: TLabel
    Left = 76
    Height = 15
    Top = 425
    Width = 34
    Caption = 'Label1'
    ParentColor = False
  end
end