home *** CD-ROM | disk | FTP | other *** search
- object fDateTime: TfDateTime
- Left = 422
- Top = 250
- HelpContext = 12
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsToolWindow
- Caption = 'Vlo'#382'it datum a '#269'as...'
- ClientHeight = 265
- ClientWidth = 316
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label2: TLabel
- Left = 208
- Top = 24
- Width = 90
- Height = 13
- Caption = 'c, d, dd, ddd, dddd'
- end
- object Label4: TLabel
- Left = 208
- Top = 39
- Width = 98
- Height = 13
- Caption = 'm, mm, mmm, mmmm'
- end
- object Label5: TLabel
- Left = 208
- Top = 54
- Width = 96
- Height = 13
- Caption = 'yy, yyyy, e, ee, g, gg'
- end
- object Label6: TLabel
- Left = 208
- Top = 88
- Width = 54
- Height = 13
- Caption = 'h, hh, n, nn'
- end
- object Label7: TLabel
- Left = 208
- Top = 120
- Width = 90
- Height = 13
- Caption = 'am/pm, a/p, ampm'
- end
- object Label8: TLabel
- Left = 208
- Top = 104
- Width = 69
- Height = 13
- Caption = 's, ss, z, zz, t, tt'
- end
- object lDate: TLabel
- Left = 208
- Top = 8
- Width = 41
- Height = 13
- Caption = 'Datum:'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object lTime: TLabel
- Left = 208
- Top = 72
- Width = 26
- Height = 13
- Caption = #268'as:'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object lDateTime: TLabel
- Left = 8
- Top = 184
- Width = 58
- Height = 13
- Caption = 'lDateTime'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label1: TLabel
- Left = 208
- Top = 152
- Width = 21
- Height = 13
- Caption = 'RFC'
- end
- object lRFC: TLabel
- Left = 208
- Top = 136
- Width = 99
- Height = 13
- Caption = 'Format RFC-2822'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object listDate: TListBox
- Left = 8
- Top = 8
- Width = 193
- Height = 169
- Style = lbOwnerDrawFixed
- ItemHeight = 16
- Items.Strings = (
- 'dd/mm/yyyy hh:nn:ss'
- 'dd.mm.yyyy'
- 'dd. mmmm yyyy'
- 'd mmm yyyy'
- 'dddd dd. mmm.yyyy'
- 'hh:mm:ss'
- 'h:m:s'
- 'rfc')
- TabOrder = 0
- OnClick = listDateClick
- OnDblClick = bOKClick
- OnDrawItem = listDateDrawItem
- OnKeyPress = listDateKeyPress
- end
- object bOK: TButton
- Left = 232
- Top = 200
- Width = 75
- Height = 25
- Caption = '&OK'
- Default = True
- TabOrder = 5
- OnClick = bOKClick
- end
- object bCancel: TButton
- Left = 232
- Top = 232
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Storno'
- ModalResult = 2
- TabOrder = 6
- end
- object bAdd: TButton
- Left = 8
- Top = 232
- Width = 65
- Height = 25
- Caption = 'P'#345'&idat'
- Enabled = False
- TabOrder = 2
- OnClick = bAddClick
- end
- object bReplace: TButton
- Left = 72
- Top = 232
- Width = 65
- Height = 25
- Caption = 'P'#345'&epsat'
- Enabled = False
- TabOrder = 3
- OnClick = bReplaceClick
- end
- object bDelete: TButton
- Left = 136
- Top = 232
- Width = 65
- Height = 25
- Caption = 'S&mazat'
- Enabled = False
- TabOrder = 4
- OnClick = bDeleteClick
- end
- object eDate: TEdit
- Left = 8
- Top = 200
- Width = 193
- Height = 21
- TabOrder = 1
- OnChange = eDateChange
- end
- end
-