>Hi,
>
>I am trying to see what the Date Time pick control would look like. But I am getting errors.
>1. I downloaded FoxClasses.zip and extracted in one of folders on my computer.
>2. I open project Samples.pjx. I get error "Project Error: An unspecified registry error occurred". I click OK to go past the error.
>3. Select classlib DateTimectrls. Then click on DateTimePick and then on Modify. Error:
>

>"Error loading file - record number 15. Timepick1 or one of its members
>Parent: Expression evaluated to an illegal value"
>

>
>If I run the Samples.exe and then select (from the tree) Date and Time Controls -> Form DataTimeCtrls1, I get error:
>

>Error loading file - record number 5. Datetimepick1 or one of its members. 
>Parent: Error with grdTime - Height: Expression evaluates to an illegal value.
>

>
>Any suggestions?


My bad. Releasing to public for free I was lazy updating the docs. For datetime, date, time picking just use the dtControl and set its ControlType property (and PeriodPicker for a datetime range). DatePick, TimePick, DateTimePick classes are obsolete from my POV and I didn't update them at all.

Here is a sample in code (easy to post, harder to write in fact):

Set Century on 
* Set Seconds Off

Public oForm
oForm = Createobject('testForm')
oForm.Show()

Define Class testForm As Form
	Add Object datetimeCheck As dtPick With Top = 10, Left = 20, controltype=1
	Add Object dateCheck      As dtPick With Top = 40, Left = 20, controltype=2
	Add Object timeCheck     As dtPick With Top = 70, Left = 20, controltype=3

	Add Object btnShow As CommandButton With Top = 110, Left = 20, Caption = "Show Values Selected", AutoSize=.T.

	Procedure btnShow.Click
		Local lcValues
		TEXT to lcValues textmerge noshow
Type: [<< Type('thisform.dateTimeCheck.Value') >>] Value : [<< thisform.dateTimeCheck.Value >>]
Type: [<< Type('thisform.dateCheck.Value') >>] Value : [<< thisform.dateCheck.Value >>]
Type: [<< Type('thisform.timeCheck.Value') >>] Value : [<< thisform.timeCheck.Value >>]
		ENDTEXT

		Messagebox(m.lcValues)
	Endproc

Enddefine

Define Class dtPick As DtControl Of 'd:\FoxyClasses\Classes\DateTimeCtrls.vcx'
Enddefine