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

object Form1: TForm1
  Left = 700
  Height = 746
  Top = 122
  Width = 851
  Caption = 'Examples of the TCalendaLite  component'
  ClientHeight = 746
  ClientWidth = 851
  Color = clWindow
  Font.CharSet = ANSI_CHARSET
  OnCreate = FormCreate
  LCLVersion = '2.1.0.0'
  object PSettings: TPanel
    Left = 0
    Height = 432
    Top = 0
    Width = 851
    Align = alTop
    ClientHeight = 432
    ClientWidth = 851
    TabOrder = 0
    object cgOptions: TCheckGroup
      Left = 24
      Height = 384
      Top = 40
      Width = 160
      AutoFill = False
      Caption = 'Set calendar Options'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = -1
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 364
      ClientWidth = 156
      Items.Strings = (
        'coBoldDayNames'
        'coBoldHolidays'
        'coBoldToday'
        'coBoldTopRow'
        'coBoldWeekend'
        'coDayLine'
        'coShowBorder'
        'coShowHolidays'
        'coShowTodayFrame'
        'coShowTodayName'
        'coShowTodayRow'
        'coShowWeekend'
        'coShowDayNames'
        'coShowTopRow'
        'coUseTopRowColors'
      )
      OnItemClick = cgOptionsItemClick
      TabOrder = 0
      Data = {
        0F000000020202020202020202020202020202
      }
    end
    object cbUseHolidays: TCheckBox
      Left = 560
      Height = 19
      Top = 112
      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 = 560
      Height = 15
      Top = 52
      Width = 32
      Caption = 'Width'
      ParentColor = False
    end
    object seWidth: TSpinEdit
      Left = 608
      Height = 23
      Top = 48
      Width = 66
      MaxValue = 1000
      MinValue = 120
      OnChange = seWidthChange
      TabOrder = 2
      Value = 400
    end
    object seHeight: TSpinEdit
      Left = 608
      Height = 23
      Top = 78
      Width = 66
      MaxValue = 1000
      MinValue = 120
      OnChange = seHeightChange
      TabOrder = 3
      Value = 300
    end
    object lHeight: TLabel
      Left = 560
      Height = 15
      Top = 81
      Width = 36
      Caption = 'Height'
      ParentColor = False
    end
    object rgLanguage: TRadioGroup
      Left = 200
      Height = 216
      Top = 208
      Width = 160
      AutoFill = False
      Caption = 'Language to use'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 196
      ClientWidth = 156
      ItemIndex = 0
      Items.Strings = (
        'English (default)'
        'French'
        'German'
        'Hebrew'
        'Spanish'
        'Italian'
        'Polish'
        'Finnish'
        'Greek'
        '(custom)'
      )
      OnClick = rgLanguageClick
      TabOrder = 4
    end
    object rgStartingDOW: TRadioGroup
      Left = 200
      Height = 160
      Top = 40
      Width = 160
      AutoFill = False
      Caption = 'Starting day of the week'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 140
      ClientWidth = 156
      Items.Strings = (
        'Sunday'
        'Monday'
        'Tuesday'
        'Wednesday'
        'Thursday'
        'Friday'
        'Saturday'
      )
      OnClick = rgStartingDOWClick
      TabOrder = 5
    end
    object GroupBox1: TGroupBox
      Left = 376
      Height = 384
      Top = 40
      Width = 160
      Caption = 'Colors'
      ClientHeight = 364
      ClientWidth = 156
      TabOrder = 6
      object CbArrowBorder: TColorButton
        Left = 16
        Height = 25
        Top = 8
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object CbArrow: TColorButton
        Left = 16
        Height = 25
        Top = 32
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object Label2: TLabel
        Left = 49
        Height = 15
        Top = 13
        Width = 67
        Caption = 'ArrowBorder'
        ParentColor = False
      end
      object Label3: TLabel
        Left = 49
        Height = 15
        Top = 37
        Width = 32
        Caption = 'Arrow'
        ParentColor = False
      end
      object CbBackground: TColorButton
        Left = 16
        Height = 25
        Top = 56
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object CbBorder: TColorButton
        Left = 16
        Height = 25
        Top = 80
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object Label4: TLabel
        Left = 49
        Height = 15
        Top = 61
        Width = 64
        Caption = 'Background'
        ParentColor = False
      end
      object Label5: TLabel
        Left = 49
        Height = 15
        Top = 85
        Width = 35
        Caption = 'Border'
        ParentColor = False
      end
      object CbDayLine: TColorButton
        Left = 16
        Height = 25
        Top = 104
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object CbHolidays: TColorButton
        Left = 16
        Height = 25
        Top = 128
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object Label6: TLabel
        Left = 49
        Height = 15
        Top = 109
        Width = 42
        Caption = 'Day line'
        ParentColor = False
      end
      object Label7: TLabel
        Left = 49
        Height = 15
        Top = 133
        Width = 46
        Caption = 'Holidays'
        ParentColor = False
      end
      object CbPastMonth: TColorButton
        Left = 16
        Height = 25
        Top = 152
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object CbSelectedDate: TColorButton
        Left = 16
        Height = 25
        Top = 176
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object Label8: TLabel
        Left = 49
        Height = 15
        Top = 157
        Width = 89
        Caption = 'Past/next month'
        ParentColor = False
      end
      object Label9: TLabel
        Left = 49
        Height = 15
        Top = 181
        Width = 70
        Caption = 'Selected date'
        ParentColor = False
      end
      object CbText: TColorButton
        Left = 16
        Height = 25
        Top = 200
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object CbTodayFrame: TColorButton
        Left = 16
        Height = 25
        Top = 224
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object Label10: TLabel
        Left = 49
        Height = 15
        Top = 205
        Width = 21
        Caption = 'Text'
        ParentColor = False
      end
      object Label11: TLabel
        Left = 49
        Height = 15
        Top = 229
        Width = 65
        Caption = 'Today frame'
        ParentColor = False
      end
      object CbTopRow: TColorButton
        Left = 16
        Height = 25
        Top = 248
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object CbTopRowText: TColorButton
        Left = 16
        Height = 25
        Top = 272
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object Label12: TLabel
        Left = 49
        Height = 15
        Top = 253
        Width = 42
        Caption = 'Top row'
        ParentColor = False
      end
      object Label13: TLabel
        Left = 49
        Height = 15
        Top = 277
        Width = 65
        Caption = 'Top row text'
        ParentColor = False
      end
      object CbWeekend: TColorButton
        Left = 16
        Height = 25
        Top = 296
        Width = 26
        BorderWidth = 2
        ButtonColorSize = 16
        ButtonColor = clBlack
        Flat = True
        OnColorChanged = ColorButtonChanged
      end
      object Label14: TLabel
        Left = 49
        Height = 15
        Top = 301
        Width = 49
        Caption = 'Weekend'
        ParentColor = False
      end
    end
    object CbPrepareCanvas: TCheckBox
      Left = 560
      Height = 19
      Top = 184
      Width = 144
      Caption = 'Override font of 1st day'
      OnChange = CbPrepareCanvasChange
      TabOrder = 7
    end
    object BtnFont: TButton
      Left = 560
      Height = 25
      Top = 8
      Width = 75
      Caption = 'Font...'
      OnClick = BtnFontClick
      TabOrder = 8
    end
    object CbDrawCell: TCheckBox
      Left = 560
      Height = 19
      Top = 208
      Width = 161
      Caption = 'Owner draw (icon, Nov 11)'
      OnChange = CbDrawCellChange
      TabOrder = 9
    end
    object CbAddHolidayNameToCell: TCheckBox
      Left = 560
      Height = 19
      Top = 136
      Width = 152
      Caption = 'Add holiday name to cell'
      OnChange = CbAddHolidayNameToCellChange
      TabOrder = 10
    end
    object CbShowHints: TCheckBox
      Left = 560
      Height = 19
      Top = 232
      Width = 92
      Caption = 'CbShowHints'
      Checked = True
      OnChange = CbShowHintsChange
      State = cbChecked
      TabOrder = 11
    end
    object CbMultiSelect: TCheckBox
      Left = 560
      Height = 19
      Top = 256
      Width = 81
      Caption = 'Multi select'
      OnChange = CbMultiSelectChange
      TabOrder = 12
    end
    object SelDateListbox: TListBox
      Left = 560
      Height = 120
      Top = 280
      Width = 274
      Columns = 3
      ItemHeight = 0
      TabOrder = 13
    end
    object CbUseBuiltinPopup: TCheckBox
      Left = 560
      Height = 19
      Top = 160
      Width = 153
      Caption = 'Use built-in popup menu'
      Checked = True
      OnChange = CbUseBuiltinPopupChange
      State = cbChecked
      TabOrder = 14
    end
    object LWidth1: TLabel
      Left = 693
      Height = 15
      Top = 52
      Width = 66
      Caption = 'Buttonwidth'
      ParentColor = False
    end
    object seButtonWidth: TSpinEdit
      Left = 768
      Height = 23
      Top = 48
      Width = 50
      MinValue = 10
      OnChange = seButtonWidthChange
      TabOrder = 15
      Value = 10
    end
    object lHeight1: TLabel
      Left = 693
      Height = 15
      Top = 81
      Width = 70
      Caption = 'Buttonheight'
      ParentColor = False
    end
    object seButtonHeight: TSpinEdit
      Left = 768
      Height = 23
      Top = 78
      Width = 50
      MinValue = 10
      OnChange = seButtonHeightChange
      TabOrder = 16
      Value = 10
    end
    object sbResetButtonWidth: TSpeedButton
      Left = 820
      Height = 23
      Hint = 'Reset button width'
      Top = 48
      Width = 23
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000300000
        0033000000330000003300000033000000330000000000000000000000000000
        0000000000000000000000000000000000000000000000000000B78343F2B782
        41FFB68242FFB78242FFB88342FFBA8545FFBB874700BB874700BB874700BB87
        4700BB874700BB874700BB874700BB8747000000002400000031B78240FFFDE6
        C3FFECBA6DFFEDBC70FFF2D9B5FFAF824AAFBA864600BB874700BB874700BB87
        4700BB874700BB874700BB87470000000021AC7C41C1BA8646F9B6803EFFF4DB
        B5FFDDA859FFDFAB5EFFC7934CFFA8773DBF00000030000000150000000A0000
        000A0000000A0000001500000031A9793FB9BB8747FFBB8747FFB6803EFFF9ED
        D9FFEFD9B8FFDCAE6CFFD7A050FFC48E47FFB68041F490663486644724596648
        255B6447245990663387B88341F6C29357FFBB8646FFBB874747B88241FFDFC0
        91FFC69454FFEDDABCFFE6CBA3FFDCB47BFFCFA060FFC6995FFFC4965EFFC597
        5EFFC5975FFFCEA571FFE2C7A0FFC5975DFFBA8645AABB874700BA8545FFB984
        42A3B882409FBD8B4EFFD9B98FFFE9D4B7FFECDBBFFFEDDBBFFFEDDBBFFFEDDC
        C0FFE7D1B0FFD3B081FFBC8948FFB9854496BB874600BB874700BB874700BB87
        4600BA864500B9854433B88241A8B7813FF5B7813EFFB7803EFFB7813EFFB781
        3EFFB8823FFFB98442A8BA85450ABB864600BB874700BB874700FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
      }
      OnClick = sbResetButtonWidthClick
    end
    object sbResetButtonHeight: TSpeedButton
      Left = 820
      Height = 23
      Hint = 'Reset button width'
      Top = 78
      Width = 23
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000300000
        0033000000330000003300000033000000330000000000000000000000000000
        0000000000000000000000000000000000000000000000000000B78343F2B782
        41FFB68242FFB78242FFB88342FFBA8545FFBB874700BB874700BB874700BB87
        4700BB874700BB874700BB874700BB8747000000002400000031B78240FFFDE6
        C3FFECBA6DFFEDBC70FFF2D9B5FFAF824AAFBA864600BB874700BB874700BB87
        4700BB874700BB874700BB87470000000021AC7C41C1BA8646F9B6803EFFF4DB
        B5FFDDA859FFDFAB5EFFC7934CFFA8773DBF00000030000000150000000A0000
        000A0000000A0000001500000031A9793FB9BB8747FFBB8747FFB6803EFFF9ED
        D9FFEFD9B8FFDCAE6CFFD7A050FFC48E47FFB68041F490663486644724596648
        255B6447245990663387B88341F6C29357FFBB8646FFBB874747B88241FFDFC0
        91FFC69454FFEDDABCFFE6CBA3FFDCB47BFFCFA060FFC6995FFFC4965EFFC597
        5EFFC5975FFFCEA571FFE2C7A0FFC5975DFFBA8645AABB874700BA8545FFB984
        42A3B882409FBD8B4EFFD9B98FFFE9D4B7FFECDBBFFFEDDBBFFFEDDBBFFFEDDC
        C0FFE7D1B0FFD3B081FFBC8948FFB9854496BB874600BB874700BB874700BB87
        4600BA864500B9854433B88241A8B7813FF5B7813EFFB7803EFFB7813EFFB781
        3EFFB8823FFFB98442A8BA85450ABB864600BB874700BB874700FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
      }
      OnClick = sbResetButtonHeightClick
    end
    object Label1: TLabel
      Left = 562
      Height = 15
      Top = 408
      Width = 34
      Caption = 'Label1'
      ParentColor = False
    end
  end
  object FontDialog: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    left = 408
    top = 416
  end
  object ImageList1: TImageList
    left = 336
    top = 432
    Bitmap = {
      4C7A010000001000000010000000330200000000000078DA9D92DF6B526118C7
      BDCAABEEFA13BC09BAE82FD85DD445D045C56E828211A3CB8C42486ACD1A04B5
      A0DCB2C56AD66A3F20D4A5D570181D67D6458394F2276E9EB3A3EE1C7513F528
      A27E7B9F338F9C8637F5C017DEF7F97E3F3CCF7939000CE8C9E00F9F3284A361
      E87AF8173F9A548E57AA6039EBFFF8C6481CA375058722F1EEA0797DFF67AC3B
      887FBAF60EC3EB41D87C8B0D8EE392C6480234EF4220546477B7DDF312E73FAF
      C1B26017F51CF34C4C9325FF2C76BFB950F8300D4551A0CD33466228168B1097
      6C903E3A909ABA2213A3F11EEEAB531004C8ABCF500E2E43F64E81CAFEDEA9CE
      9BF0CCA977F1F54DECAC3C4666C60C62343EC005DBAC50FEF21612F32B1B7E35
      9F5BBE07E99303E29BDBEABDE0724098BD0129E0C22AB7DED4781F17EAB65A2D
      1C2C71FE1676BC4F20BCB2F47B9D4E079224C1FA3DD5D678F386D0892592A06F
      D08AF6C9BBD9BC171694B815B5572E97F13B9E802F53C0D1B0DCE70F8776DB77
      B30DC45269F59DF2F93C367901C2F6F6BEE86D6419E9CD2D3CCF5640596234FE
      D858AE3B3A57C4FD740D9C20639EAF60826FF4F59057B028ECE1015F872DAD80
      B2C468FC116FA97DF19184B3661123D332AE7AF760FD5153B3243A538F3CCA50
      9618DDFECD71B6D3F540059767640C5B73383DC2E3C4B92D5574A61E799419DF
      DFBFA9E39D677E557127DBF86BEF41A20C6589D1F126A649A6C6C96815971235
      5CCB28186359129DA9471E657A59D3C1FF9FF58698AC4C6EA62453BDA764AF47
      DE909EF9036C470F74
    }
  end
  object PopupMenu1: TPopupMenu
    left = 117
    top = 465
    object MenuItem1: TMenuItem
      Caption = 'Dummy item'
    end
    object MenuItem2: TMenuItem
      Caption = 'Another dummy item'
    end
    object MenuItem3: TMenuItem
      Caption = 'Last dummy item'
    end
  end
end