home *** CD-ROM | disk | FTP | other *** search
- 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
-