FiveTech Support Forums

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

at last ,changed to :

DEFINE DIALOG odlg FROM 0,0 TO 145,265 PIXEL STYLE nor( WS_POPUP,WS_VISIBLE,WS_BORDER)

@-10,-10 CALENDAR oCal VAR date1 OF odlg PIXEL DAYSTATE SIZE 150,89 DBLCLICK (lok:=.t.,odlg:end())

Regards !
Shuming Wang