home *** CD-ROM | disk | FTP | other *** search
- object DateForm: TDateForm
- Left = 180
- Top = 115
- AutoScroll = False
- ActiveControl = ValueEdit
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Date Formatting'
- ClientHeight = 162
- ClientWidth = 399
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Visible = True
- OnCreate = FormCreate
- TextHeight = 13
- object Label1: TLabel
- Left = 44
- Top = 12
- Width = 27
- Height = 13
- Caption = 'Value'
- end
- object Label2: TLabel
- Left = 5
- Top = 51
- Width = 66
- Height = 13
- Caption = 'DisplayFormat'
- end
- object Label3: TLabel
- Left = 41
- Top = 90
- Width = 30
- Height = 13
- Caption = 'Result'
- end
- object ValueEdit: TComboBox
- Left = 80
- Top = 8
- Width = 305
- Height = 20
- ItemHeight = 13
- TabOrder = 0
- Text = '11/7/83 12:31pm'
- OnClick = Button1Click
- end
- object FormatEdit: TComboBox
- Left = 80
- Top = 47
- Width = 305
- Height = 20
- ItemHeight = 13
- Items.Strings = (
- 'c'
- 't'
- 'tt'
- 'd'
- 'dd'
- 'ddd'
- 'dddd'
- 'ddddd'
- 'dddddd'
- 'm'
- 'mm'
- 'mmm'
- 'mmmm'
- 'yy'
- 'yyyy'
- 'mm/dd/yy'
- 'hh:mm'
- 'h:mm:ss ampm'
- 'hh:mm:ss a/p'
- 'dddd, mmmm d, yyyy'
- #39'Meeting on'#39' dddddd '#39'at'#39' tt')
- TabOrder = 1
- OnClick = Button1Click
- end
- object ResultEdit: TEdit
- Left = 80
- Top = 86
- Width = 305
- Height = 20
- TabOrder = 2
- end
- object Button1: TButton
- Left = 159
- Top = 116
- Width = 89
- Height = 33
- Caption = '&Format'
- Default = True
- TabOrder = 3
- OnClick = Button1Click
- end
- end
-