PC World 1999 October/PCWorld_1999-10_cd2.bin/Supreme/_SETUP.1/Contact.exe/0/RCDATA/TFORMCALENDAR/TFORMCALENDAR.txt

Text File | 1999-09-06 | 10KB | 310 lines

object FormCalendar: TFormCalendar
  Left = 379
  Top = 286
  BorderStyle = bsDialog
  Caption = 'Kalend��'
  ClientHeight = 245
  ClientWidth = 236
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  PopupMenu = PopupMenu
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SButtonToday: TSpeedButton
    Left = 4
    Top = 1
    Width = 50
    Height = 44
    Hint = 'J�t ke dne�ku'
    Caption = 'Dnes'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
      555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
      7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
      55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
      55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
      BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
      55555555577777555555555705BBB55505555555F5777555F555557B5555055B
      505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
      5B5557555557F55557555555555B555555555555555755555555}
    Layout = blGlyphTop
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = TodayClick
  end
  object SButtonMark: TSpeedButton
    Left = 54
    Top = 1
    Width = 50
    Height = 44
    Hint = 'Um�stit/odstranit zna�ku'
    Caption = 'Zna�ka'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
      055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
      005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
      B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
      305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
      305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
      30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
      3055577777555557F7F555000555555999555577755555577755}
    Layout = blGlyphTop
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = MarkClick
  end
  object Bevel2: TBevel
    Left = 3
    Top = 48
    Width = 229
    Height = 173
    Shape = bsFrame
  end
  object SButtonGoto: TSpeedButton
    Left = 104
    Top = 1
    Width = 50
    Height = 44
    Hint = 'J�t na zna�ku'
    Caption = 'Jdi na'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
      EEEEEEEEFFFEEEEEEEEEEEEECC8EEEEEEEEEEEE877FEEEEEEEEEEEEEC88EEEEC
      8EEEEEE87FEEEE87FEEEEEEECC88EECCC8EEEEEE87FEE8777FEEEEEEECC88CC8
      88EEEEEEE87F877FFFEEEEEEECCECC88EEEEEEEEE87F77FEEEEEEEEEECCCCE88
      EEEEEEEEEE777FEEEEEEEEE0E0000EEEEEEEEEEFFE777FFFEEEEEEEFFEFFFFFF
      0EEEEE877F777777FEEEEEEEFFFFFEEEEEEEEEE877777F88EEEEEEEEEFFFFEEE
      EEEEEEEE87777FEEEEEEEEEEEEFFFEEEEEEEEEEEE8777FEEEEEEEEEEEEEFFEEE
      EEEEEEEEEE877FEEEEEEEEEEEEE00EEEEEEEEEEEEEE88EEEEEEEEEEEEEE00EEE
      EEEEEEEEEEE88EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE}
    Layout = blGlyphTop
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = GotoClick
  end
  object SButtonClose: TSpeedButton
    Left = 182
    Top = 1
    Width = 50
    Height = 44
    Hint = 'Zav��t kalend��'
    Caption = 'Zav��t'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEE777777E
      EEEEEEEE00000007EEEEEEE0191919107EEEEE019191919107EEE01919191919
      107E019191919191910709F91F19F91F19070F1F9F9F9F9F910701F91F1F1F1F
      F9070F1F9F9F9F9F9F0709F9FFF9F91FF9070191919191919107E01919191919
      107EEE019191919107EEEEE0191919107EEEEEEE00000007EEEE}
    Layout = blGlyphTop
    OnClick = CloseClick
  end
  object BtnPrevYear: TSpeedButton
    Left = 10
    Top = 56
    Width = 22
    Height = 22
    Hint = 'P�edchoz� rok (Ctrl+PgDn)'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
      E000EEEEE0EEEEEE0000EEEE00EEEEE00000EEE000EEEE000000EE0000EEE000
      0000E00000EE00000000000000E000000000E00000EE00000000EE0000EEE000
      0000EEE000EEEE000000EEEE00EEEEE00000EEEEE0EEEEEE0000EEEEEEEEEEEE
      E000}
    Layout = blGlyphRight
    ParentShowHint = False
    ShowHint = True
    OnClick = PrevYearClick
  end
  object BtnPrevMonth: TSpeedButton
    Left = 33
    Top = 56
    Width = 22
    Height = 22
    Hint = 'P�edchoz� m�s�c (PgDn)'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
      E000EEEEEEEE0EEEE000EEEEEEE00EEEE000EEEEEE000EEEE000EEEEE0000EEE
      E000EEEE00000EEEE000EEE000000EEEE000EEEE00000EEEE000EEEEE0000EEE
      E000EEEEEE000EEEE000EEEEEEE00EEEE000EEEEEEEE0EEEE000EEEEEEEEEEEE
      E000}
    Layout = blGlyphRight
    ParentShowHint = False
    ShowHint = True
    OnClick = PrevMonthClick
  end
  object NextMonth: TSpeedButton
    Left = 179
    Top = 56
    Width = 22
    Height = 22
    Hint = 'N�sleduj�c� m�s�c (PgUp)'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
      E000EEEE0EEEEEEEE000EEEE00EEEEEEE000EEEE000EEEEEE000EEEE0000EEEE
      E000EEEE00000EEEE000EEEE000000EEE000EEEE00000EEEE000EEEE0000EEEE
      E000EEEE000EEEEEE000EEEE00EEEEEEE000EEEE0EEEEEEEE000EEEEEEEEEEEE
      E000}
    Layout = blGlyphRight
    ParentShowHint = False
    ShowHint = True
    OnClick = NextMonthClick
  end
  object BtnNextYear: TSpeedButton
    Left = 202
    Top = 56
    Width = 22
    Height = 22
    Hint = 'N�sleduj�c� rok (Ctrl+PgUp)'
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
      E0000EEEEEE0EEEEE00000EEEEE00EEEE000000EEEE000EEE0000000EEE0000E
      E00000000EE00000E000000000E00000000000000EE00000E0000000EEE0000E
      E000000EEEE000EEE00000EEEEE00EEEE0000EEEEEE0EEEEE000EEEEEEEEEEEE
      E000}
    Layout = blGlyphRight
    ParentShowHint = False
    ShowHint = True
    OnClick = NextYearClick
  end
  object LabelInfo1: TLabel
    Left = 60
    Top = 60
    Width = 113
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'LabelInfo1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 225
    Width = 236
    Height = 20
    Panels = <
      item
        Width = 60
      end
      item
        Width = 60
      end
      item
        Width = 50
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object Calendar: TCalendarPlus
    Left = 11
    Top = 84
    Width = 213
    Height = 129
    StartOfWeek = 1
    TabOrder = 0
    OnChange = CalendarChange
    OnDblClick = MarkClick
  end
  object PopupMenu: TPopupMenu
    OnPopup = PopupMenuPopup
    Left = 184
    Top = 180
    object MItemClose: TMenuItem
      Caption = 'Zav��t'
      ShortCut = 27
      OnClick = CloseClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object MItemToday: TMenuItem
      Caption = 'Dne�n� den'
      ShortCut = 36
      OnClick = TodayClick
    end
    object MItemMark: TMenuItem
      Caption = 'Vlo�it/odstranit zna�ku'
      ShortCut = 32
      OnClick = MarkClick
    end
    object MItemGoto: TMenuItem
      Caption = 'J�t na zna�ku'
      ShortCut = 16420
      OnClick = GotoClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object MItemPrevYear: TMenuItem
      Caption = 'P�edchoz� rok'
      ShortCut = 16417
      OnClick = PrevYearClick
    end
    object MItemPrevMonth: TMenuItem
      Caption = 'P�edchoz� m�s�c'
      ShortCut = 33
      OnClick = PrevMonthClick
    end
    object MItemNextMonth: TMenuItem
      Caption = 'N�sleduj�c� m�s�c'
      ShortCut = 34
      OnClick = NextMonthClick
    end
    object MItemNextYear: TMenuItem
      Caption = 'N�sleduj�c� rok'
      ShortCut = 16418
      OnClick = NextYearClick
    end
    object MItemPopup: TMenuItem
      Caption = 'Popup (trvale skryto)'
      ShortCut = 32889
      Visible = False
      OnClick = MItemPopupClick
    end
  end
end