home *** CD-ROM | disk | FTP | other *** search
- object FileDateForm: TFileDateForm
- Left = 259
- Top = 116
- Width = 350
- Height = 148
- Caption = 'Re-write File Date/Time'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = False
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 24
- Top = 60
- Width = 160
- Height = 16
- Caption = 'Select New File Date/Time'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DTPicker1: TDateTimePicker
- Left = 24
- Top = 80
- Width = 186
- Height = 21
- CalAlignment = dtaLeft
- Date = 36694.042372685200000000
- Time = 36694.042372685200000000
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkDate
- ParseInput = False
- TabOrder = 0
- end
- object BtnOK: TBitBtn
- Left = 244
- Top = 20
- Width = 75
- Height = 25
- TabOrder = 1
- OnClick = BtnOKClick
- Kind = bkOK
- end
- object BtnCancel: TBitBtn
- Left = 244
- Top = 56
- Width = 75
- Height = 25
- TabOrder = 2
- OnClick = BtnCancelClick
- Kind = bkCancel
- end
- object GroupBox1: TGroupBox
- Left = 24
- Top = 12
- Width = 185
- Height = 41
- TabOrder = 3
- object RadioButton1: TRadioButton
- Left = 12
- Top = 16
- Width = 65
- Height = 17
- Caption = 'SetDate'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = RadioButton1Click
- end
- object RadioButton2: TRadioButton
- Left = 96
- Top = 16
- Width = 73
- Height = 17
- Caption = 'Set Time'
- TabOrder = 1
- OnClick = RadioButton2Click
- end
- end
- end
-