Its in the Object Library in the Design menu of 4d.
commands is Datepicker
I have a date field with this object method that pop up the calendar when
click in the field:
//T_Utmeldt
C_DATE($OldDate)
Case of
: (Form event=On Getting Focus)
$OldDate:=Self->
If (Self->#!00.00.0000!)
//set default to self-> date
Else
// set default to current date
End if
Self->:=OM_DatoVelger (Self)
If (Self->#$OldDate)
CONFIRM("Skal utmeldt settes til "+String(Self->)+"?")
If (OK=1)
OM_Studium_Utmeldt
Else
Self->:=Old(Self->)
End if
End if
End case
OM_DatoVelger
//kalles fra datofelter
C_POINTER($1) // peker til object
C_DATE($0)
C_LONGINT($Left;$Top;$Right;$Bottom)
OBJECT GET COORDINATES(Self->;$Left;$Top;$Right;$Bottom)
DatePicker RESET DEFAULT VALUES
$0:=DatePicker Display Dialog ($Top;$Right)
Dont forget to set the field to:On Getting Focus.
Hope this helps.
-----
Hilsen
--------------------------------------
Helge Antonsen
4Dialog as
Tel: +47 64 000 164
Mob: +47 90 15 56 19
Web: www.4dialog.no
--
View this message in context:
http://4d.1045681.n5.nabble.com/Pop-up-Calendar-tp5747202p5747205.html
Sent from the 4D Tech mailing list archive at Nabble.com.
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ: http://lists.4d.com/faqnug.html
Archive: http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
