>>>>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
>>>
>>>
>>
>>Cetin,
>>I have copied your above code to myPick.prg, saved it in the directory where DateTimeCtrls.vcx resides and started myPick. It errors : "Classdefinition DTPICK is not found" how to correct?
>>Regards,
>>Koen
>
>Koen,
>In code class location is defined as 'd:\FoxyClasses\Classes\DateTimeCtrls.vcx' in this line:
>
>
>Define Class dtPick As DtControl Of 'd:\FoxyClasses\Classes\DateTimeCtrls.vcx'
>
>
>You don't need to be in the same folder, just correct the path to the vcx.
Cetin,
I forgot to inform you but I had updated the path to my acutal path.
Could it be that there is no DatetimeCheck in my Datetimectrls,vcx?
Regards,
Koen