Thank you for your reply, but I unfortunately don't understand. what I am trying to do is use the following program:
DEFINE CLASS comdate AS combobox
FontSize = 8
BoundColumn = 2
ColumnCount = 2
ColumnWidths = "175,80"
RowSourceType = 1
RowSource = "No Date, / / "
Value = "/ /"
Style = 2
BoundTo = .T.
StatusBarText = "Select the appropriate date from the pop-up calendar."
ToolTipText = "Right-Click to blank date."
Width = 110
Name = "comdate"
PROCEDURE value_assign
LPARAMETERS ldDate
This.RowSource=Iif(Empty(ldDate),"No Date",Left(CDow(ldDate),3)+" "+;
Left(CMonth(ldDate),3)+;
Str(Day(ldDate),3)+Str(Year(ldDate),5))+","+DToC(ldDate)
THIS.VALUE = DToC(ldDate)
ENDPROC
PROCEDURE value_access
RETURN CToD(This.Value)
ENDPROC
PROCEDURE RightClick
This.Value={}
NoDefault
ENDPROC
PROCEDURE MouseDown
LParameters lnButton, lnShift, lnXCoord, lnYCoord
Local laMousePos(4)
If lnButton<>2.And.AMouseObj(laMousePos)=4.And.;
Between(laMousePos(3),This.Left+This.Width-20,This.Left+This.Width)
Local loFrm
loFrm=CreateObject("frmCalendar")
loFrm.UPSetup(This)
loFrm.Show
loFrm=""
Release loFrm
This.Refresh
This.UPValid && calls the User defined valid method
NoDefault && prevents the drop down list from showing
EndIf
ENDPROC
ENDDEFINE
This is from a universal thread faq, and it is supposed to provide a calendar when a person cliks on the drop down. If I add the following code to the beginning of the program:
create classlib new_lib
create class comdate of new_lib as combobox
it creates a class library with a combobox in it, but when I add it to the form directly, nothing happens when I run the form and click on the combo box. Am I doing something wrong, or is the program incorrect for the calendar? Thanks again for your help.
Paul
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only