object Form1: TForm1
  Left = 363
  Top = 209
  Width = 343
  Height = 269
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Calendar'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object BitBtnPrevMnth: TBitBtn
    Left = 56
    Top = 168
    Width = 105
    Height = 20
    Caption = '&Prev Month'
    TabOrder = 0
    OnClick = BitBtnPrevMnthClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333333333333333333333333333333333FF333333333333
      3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
      E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
      E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
      E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
      000033333373FF77777733333330003333333333333777333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      33333333333333333333333333333333333333333333333333330000}
    NumGlyphs = 2
  end
  object Calendar1: TCalendar
    Left = 8
    Top = 40
    Width = 320
    Height = 120
    Color = clTeal
    StartOfWeek = 0
    TabOrder = 1
    OnChange = Calendar1Change
  end
  object PanelMnth: TPanel
    Left = 8
    Top = 8
    Width = 145
    Height = 25
    Color = clYellow
    TabOrder = 2
  end
  object BitBtnNextMnth: TBitBtn
    Left = 176
    Top = 168
    Width = 105
    Height = 20
    Caption = '&Next Month'
    TabOrder = 3
    OnClick = BitBtnNextMnthClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333FFF333333333333000333333333
      3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
      3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
      0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
      BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
      33337777773FF733333333333300033333333333337773333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      33333333333333333333333333333333333333333333333333330000}
    Layout = blGlyphRight
    NumGlyphs = 2
  end
  object BitBtnChgStrtDay: TBitBtn
    Left = 48
    Top = 216
    Width = 241
    Height = 20
    Caption = '&Change Starting Day of Week'
    TabOrder = 4
    OnClick = BitBtnChgStrtDayClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
      70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
      70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
      70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
  end
  object ButtonPrevYr: TButton
    Left = 8
    Top = 192
    Width = 89
    Height = 20
    Caption = 'Pre&v Year'
    TabOrder = 5
    OnClick = ButtonPrevYrClick
  end
  object ButtonNextYr: TButton
    Left = 240
    Top = 192
    Width = 89
    Height = 20
    Caption = 'Next &Year'
    TabOrder = 6
    OnClick = ButtonNextYrClick
  end
  object ExpandBtn: TButton
    Left = 288
    Top = 8
    Width = 41
    Height = 25
    Hint = 'Expand'
    Caption = '<-->'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    Visible = False
    OnClick = ExpandBtnClick
  end
  object ShrinkBtn: TButton
    Left = 288
    Top = 8
    Width = 41
    Height = 25
    Hint = 'Shrink'
    Caption = '-><-'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = ShrinkBtnClick
  end
  object btntoday: TButton
    Left = 200
    Top = 8
    Width = 57
    Height = 25
    Hint = 'Jump to Today'#39's Date'
    Caption = '&Today'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = btntodayClick
  end
  object BtnOneLine: TButton
    Left = 128
    Top = 192
    Width = 81
    Height = 20
    Hint = 'Reduces Display to One Line'
    Caption = '&One Line'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = BtnOneLineClick
  end
end