calendario com DTPICKER!

[AOKISANTOS]

Antonio, usando o controle do PELLES (calendario) criei um funcao para calendario, e funcionou bem, a não ser por não estar aceitando a navegação com a teclas <- -> , e superior e inferior...



*************************************************
FUNCTION Calend(dDate,nRow,nCol,oDlg)
*************************************************
LOCAL oDlf,lSel:=.F.,oCalend,dDataCalend:=date()

DEFINE DIALOG oDlf RESOURCE "Calend2" FONT oWnd:oFont ICON OICO color CLR_WHITE,CLR_WHITE

REDEFINE DTPICKER oCalend VAR dDataCalend ID 4001 OF oDlf

REDEFINE BUTTON ID 104 OF oDlf ACTION (lSel:=.T.,dDate:=dDataCalend,oDlf:End())
REDEFINE BUTTON ID 103 OF oDlf ACTION (oDlf:End())
oDlf:lHelpicon :=.F.
ACTIVATE DIALOG oDlf ON INIT(If(ValType( nRow ) != "N",WndCenter( oDlf:hWnd ), ;
oDlf:Move( nRow, nCol ) ),oDlf:Box( 39, 8, 157, 142))

RETURN(dDate)

[Antonio Linares]

Aoki,

Por favor revisa samples\TestDtp.prg. En él funcionan las teclas de dirección perfectamente.