calendar shows empty?
Posted: Fri May 06, 2011 3:40 am
Hi,
FUNCTION cal( )
LOCAL odlg, oCal,date1:=date()
LOCAL lOk := .f.
DEFINE DIALOG odlg RESOURCE "cal"
REDEFINE CALENDAR oCal VAR date1 ID 101 OF odlg DBLCLICK (lok:=.t.,odlg:end())
oCal:bKeyDown := {|nkey| IF( nKey = 13 .OR. nKey = 32, odlg:end(), ) }
odlg:oClient := oCal
ACTIVATE DIALOG odlg
RETURN NIL
.rc
cal DIALOG 132, 63, 275, 131
STYLE WS_POPUP | WS_VISIBLE | WS_DLGFRAME
FONT 8, "MS Sans Serif"
{
CONTROL "", 101, "tcalendar", 0 | WS_CHILD | WS_VISIBLE, 3, 4, 268, 123
}
Best regard!
Shuming Wang
FUNCTION cal( )
LOCAL odlg, oCal,date1:=date()
LOCAL lOk := .f.
DEFINE DIALOG odlg RESOURCE "cal"
REDEFINE CALENDAR oCal VAR date1 ID 101 OF odlg DBLCLICK (lok:=.t.,odlg:end())
oCal:bKeyDown := {|nkey| IF( nKey = 13 .OR. nKey = 32, odlg:end(), ) }
odlg:oClient := oCal
ACTIVATE DIALOG odlg
RETURN NIL
.rc
cal DIALOG 132, 63, 275, 131
STYLE WS_POPUP | WS_VISIBLE | WS_DLGFRAME
FONT 8, "MS Sans Serif"
{
CONTROL "", 101, "tcalendar", 0 | WS_CHILD | WS_VISIBLE, 3, 4, 268, 123
}
Best regard!
Shuming Wang