DTPICKER Aberto quando ganhar foco ?

[Joao Cezar]

Olá

Existe algum metodo para abrir o calendario quando o get ganhar foco ?

Exemplo:

#include "dtpicker.ch"

REDEFINE DTPICKER oCalend VAR dDataCalend ID 400 OF oDlgUser

oCalend:bGotFocus := {|| oCalend:Show() }

João Cezar - Goiânia/GO.
joao.cezar@cultura.com.br

[Antonio Linares]

Tal vez pudiésemos enviarle un mensaje WM_LBUTTONDOWN como si se pulsase con el ratón para abrirlo, pero hay que calcular las coordenadas en donde hacerlo.

[Antonio Linares]

Bingo!

Code: Select all  Expand view

   @ 2, 2 DTPICKER oDtp VAR dDate OF oWnd ON CHANGE If( oSay != nil, oSay:Refresh(),)

   oDtp:bGotFocus = { || oDtp:PostMsg( WM_LBUTTONDOWN, 0, nMakeLong( oDtp:nWidth - 5, 3 ) ) }


[Antonio Linares]

Code: Select all  Expand view

   METHOD Open() INLINE ::PostMsg( WM_LBUTTONDOWN, 0, nMakeLong( ::nWidth - 5, 3 ) )


Code: Select all  Expand view

   @ 2, 2 DTPICKER oDtp VAR dDate OF oWnd ON CHANGE If( oSay != nil, oSay:Refresh(),)

   oDtp:bGotFocus = { || oDtp:Open(), nil }


[Joao Cezar]

Gracias Maestro,

Funcionou corretamente, mas apenas abre o calendario se a ultima tecla pressionada foi a tecla TAB, se finalizo o GET anterior com ENTER o calendario não abre, teria como abrir se foi pressionado ENTER ?

João Cezar - Brasil - Goiânia/GO.
joao.cezar@cultura.com.br

[Antonio Linares]

João,

Puedes mostrar un pequeño PRG aqui para que lo probemos ? gracias

[Joao Cezar]

Antonio,

Me desculpe, fui fazer a prova com fwh806 e funcionou corretamente, o problema é que essa alteração eu estava fazendo em um software que é linkado com fwh2.7, pois ainda não pude alterar meus fontes para ultima versão do fwh.