Chip 2000 January/Chip_2000-01_cd.bin/zkuste/Svatky/_SETUP.1/Vyroci.exe/0/RCDATA/TDATEENTERFORM/TDATEENTERFORM.txt

Text File | 1999-11-25 | 8.1 KB | 287 lines

object DateEnterForm: TDateEnterForm
  Left = 261
  Top = 194
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Vyberte datum'
  ClientHeight = 233
  ClientWidth = 283
  Font.Charset = EASTEUROPE_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Calendar: TCalendar
    Left = 0
    Top = 33
    Width = 200
    Height = 200
    HelpContext = 201
    Align = alClient
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu
    StartOfWeek = 1
    TabOrder = 0
    OnChange = CalendarChange
    OnDblClick = CalendarDblClick
  end
  object TPanel
    Left = 0
    Top = 0
    Width = 283
    Height = 33
    HelpContext = 200
    Align = alTop
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object TPanel
      Left = 0
      Top = 0
      Width = 58
      Height = 33
      HelpContext = 200
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object PriorDayBtn: TSpeedButton
        Tag = -1
        Left = 29
        Top = 4
        Width = 25
        Height = 25
        Hint = 'o 1 den zp�t'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
          000DD88888888888880DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD8FFFFFFFFFF
          F80DD8FFFFFF0FFFF80DD8FFFFF00FFFF80DD8FFFF000FFFF80DD8FFF0000FFF
          F80DD8FFFF000FFFF80DD8FFFFF00FFFF80DD8FFFFFF0FFFF80DD8FFFFFFFFFF
          F80DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD88888888888880D}
        OnClick = DateBtnClick
        OnMouseDown = DataBtnDown
        OnMouseUp = DataBtnUp
      end
      object PriorMonthBtn: TSpeedButton
        Tag = -2
        Left = 4
        Top = 4
        Width = 25
        Height = 25
        Hint = 'o 1 m�s�c zp�t'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
          000DD88888888888880DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD8FFFFFFFFFF
          F80DD8FFFF0FFFF0F80DD8FFF00FFF00F80DD8FF000FF000F80DD8F0000F0000
          F80DD8FF000FF000F80DD8FFF00FFF00F80DD8FFFF0FFFF0F80DD8FFFFFFFFFF
          F80DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD88888888888880D}
        OnClick = DateBtnClick
        OnMouseDown = DataBtnDown
        OnMouseUp = DataBtnUp
      end
    end
    object TPanel
      Left = 196
      Top = 0
      Width = 87
      Height = 33
      HelpContext = 200
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object NextDayBtn: TSpeedButton
        Tag = 1
        Left = 4
        Top = 4
        Width = 25
        Height = 25
        Hint = 'o 1 den vp�ed'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
          000DD88888888888880DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD8FFFFFFFFFF
          F80DD8FFFF0FFFFFF80DD8FFFF00FFFFF80DD8FFFF000FFFF80DD8FFFF0000FF
          F80DD8FFFF000FFFF80DD8FFFF00FFFFF80DD8FFFF0FFFFFF80DD8FFFFFFFFFF
          F80DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD88888888888880D}
        OnClick = DateBtnClick
        OnMouseDown = DataBtnDown
        OnMouseUp = DataBtnUp
      end
      object NextMonthBtn: TSpeedButton
        Tag = 2
        Left = 29
        Top = 4
        Width = 25
        Height = 25
        Hint = 'o 1 m�s�c vp�ed'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
          000DD88888888888880DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD8FFFFFFFFFF
          F80DD8F0FFFF0FFFF80DD8F00FFF00FFF80DD8F000FF000FF80DD8F0000F0000
          F80DD8F000FF000FF80DD8F00FFF00FFF80DD8F0FFFF0FFFF80DD8FFFFFFFFFF
          F80DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD88888888888880D}
        OnClick = DateBtnClick
        OnMouseDown = DataBtnDown
        OnMouseUp = DataBtnUp
      end
      object TodayBtn: TSpeedButton
        Left = 58
        Top = 4
        Width = 25
        Height = 25
        Hint = 'zp�t na dne�n� datum'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
          000DD88888888888880DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD8FFFFFFFFFF
          F80DD8F0FFFFFFF0F80DD8F00FFFFF00F80DD8F000FFF000F80DD8F0000F0000
          F80DD8F000FFF000F80DD8F00FFFFF00F80DD8F0FFFFFFF0F80DD8FFFFFFFFFF
          F80DD8FFFFFFFFFFF80DD8FFFFFFFFFFF80DD88888888888880D}
        OnClick = DateBtnClick
        OnMouseDown = DataBtnDown
        OnMouseUp = DataBtnUp
      end
    end
    object DatePanel: TPanel
      Left = 58
      Top = 0
      Width = 138
      Height = 33
      HelpContext = 200
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 2
    end
  end
  object TPanel
    Left = 200
    Top = 33
    Width = 83
    Height = 200
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 2
    object TPanel
      Left = 0
      Top = 139
      Width = 83
      Height = 61
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object OkBtn: TButton
        Left = 4
        Top = 4
        Width = 75
        Height = 25
        HelpContext = 202
        Caption = 'OK'
        Default = True
        ModalResult = 1
        TabOrder = 0
      end
      object CancelBtn: TButton
        Left = 4
        Top = 32
        Width = 75
        Height = 25
        HelpContext = 203
        Cancel = True
        Caption = 'Storno'
        ModalResult = 2
        TabOrder = 1
      end
    end
  end
  object ButtonTimer: TTimer
    Enabled = False
    OnTimer = ButtonTimerTimer
    Left = 228
    Top = 48
  end
  object PopupMenu: TPopupMenu
    Left = 228
    Top = 100
    object PriorYearItem: TMenuItem
      Tag = -3
      Caption = '-1 &rok'
      ShortCut = 16417
      OnClick = DateBtnClick
    end
    object PriorMonthItem: TMenuItem
      Tag = -2
      Caption = '-1 &m�s�c'
      ShortCut = 33
      OnClick = DateBtnClick
    end
    object PriorWeekItem: TMenuItem
      Tag = -4
      Caption = '-1 &t�den'
      ShortCut = 38
      OnClick = DateBtnClick
    end
    object PriorDayItem: TMenuItem
      Tag = -1
      Caption = '&-1 den'
      ShortCut = 37
      OnClick = DateBtnClick
    end
    object TodayItem: TMenuItem
      Caption = '&Dne�n� datum'
      ShortCut = 36
      OnClick = DateBtnClick
    end
    object NextDayItem: TMenuItem
      Tag = 1
      Caption = '&+1 den'
      ShortCut = 39
      OnClick = DateBtnClick
    end
    object NextWeekItem: TMenuItem
      Tag = 4
      Caption = '+1 t�de&n'
      ShortCut = 40
      OnClick = DateBtnClick
    end
    object NextMonthItem: TMenuItem
      Tag = 2
      Caption = '+1 m�s�&c'
      ShortCut = 34
      OnClick = DateBtnClick
    end
    object NextYearItem: TMenuItem
      Tag = 3
      Caption = '+1 ro&k'
      ShortCut = 16418
      OnClick = DateBtnClick
    end
  end
end