FiveTech Software tech support forums

Antonio Linares wrote:Prueba asi:

oDTPicker:bChange = { || If( oDTPicker:lClosed, oDTPicker:PostMsg( WM_KEYDOWN, VK_RIGHT ),) }

Listo Antonio, funcionando como quiero, para mi, creo es el mas correcto funcionamiento del oDTPicker, gracias por la rapida solucion, feliz dia, saludos...

Prueba asi:

oDTPicker:bChange = { || If( oDTPicker:lClosed, oDTPicker:PostMsg( WM_KEYDOWN, VK_RIGHT ),) }

Jose Luis, Asi parece funcionar como deseas: oDTPicker:bChange = { || oDTPicker:PostMsg( WM_KEYDOWN, VK_RIGHT ) } Antonio, si la entrada de la fecha es manual funciona como quiero, pero si pulso para que aparezca el calendario, al hacer click sobre el dia a escojer, ...

Jose Luis,

Asi parece funcionar como deseas:

oDTPicker:bChange = { || oDTPicker:PostMsg( WM_KEYDOWN, VK_RIGHT ) }

... fAction, cFileBmp, cResName LOCAL cQry, oQry, nL, nEnd IF ! oApp:lMySql && Si es DBF IF !AbreDbf( @cMnuAlias, oSystem:csysmenu, 1 ) oWnd:PostMsg(WM_CLOSE) ENDIF nRec := (cMnuAlias)->( AdsKeyCount( ,,ADS_RESPECTSCOPES ) ) MENU oApp:oMainMenu 2010 FOR i := 1 To nRec IF (cMnuAlias)->FLDSEPARAT ...

... se trata de que tu xBrowse tome el foco para poder decirle que cierre el dialogo cuando lo pierda. Antonio lo solventa muy sabiamente con oBrw:PostMsg( WM_SETFOCUS ). Lo que no veo tan claro es:      oGet:oWnd:bLClicked = { || oDlg:End(), oGet:Cargo := nil }               ...

... hace oScintilla:SetFocus() por defecto se selecciona todo el texto. Asi que he implementado este método en TScintilla: METHOD SetFocus() INLINE ::PostMsg( WM_SETFOCUS ) y ya no hace la selección de todo :-) Ahora lo que ocurre es que aunque tenga el foco no procesa las teclas por defecto. Es decir, ...

Enrico

Nice and very Elegant solution ..

Thank You!
Rick

just curious .. the .ppo resolved (MsgInfo( "click" ),oTest1:PostMsg(WM_SETFOCUS)) to
(MsgInfo( "click" ),oTest1:PostMsg(7)) },, "cTest", )

... fAction, cFileBmp, cResName LOCAL cQry, oQry, nL, nEnd IF ! oApp:lMySql && Si es DBF IF !AbreDbf( @cMnuAlias, oSystem:csysmenu, 1 ) oWnd:PostMsg(WM_CLOSE) ENDIF nRec := (cMnuAlias)->( AdsKeyCount( ,,ADS_RESPECTSCOPES ) ) //nRec := (cMnuAlias)->( LastRec() ) MENU oApp:oMainMenu 2007 ...

... LOCAL nRow := ::oBrw:MouseRowPos(y) LOCAL cData IF nCol > 0 cData := Eval(::oBrw:aCols[ nCol ]:bStrData, ::oBrw ) cData := ::oBrw:PostMsg(WM_CLICK,13,0) ::oSay:VarPut(STR(nCol,3,0) + STR(nRow,3,0) + " " + cData) ::oSay:Refresh() ENDIF RETURN 0 saludos paco

Estimados No aparecen los puntos en los combobox cuando tiene el foco, le he echo de todo hasta aGet[3]:PostMsg( WM_SYSKEYDOWN, 0, 2 ** 29 ), etc esto es solo en win7, 32 y 64bit, winxp funciona perfecto ahora cuando uno se posiciona el mouse en el combobox este cambia de color, ...

... ) ),; aoObjetos[3]:Refresh(), aoObjetos[4]:Refresh(), oDlg:Update(), lCont ) aoObjetos[3]:bKeydown := {|nKey| IF( nKey == VK_F2, aoObjetos[3]:oBtn:PostMsg(WM_CLICK,13,0), )} <- pulsando F2 carga catalogo Te adjunto una imagen y la funcion: http://img710.imageshack.us/img710/9146/jlsdm.th.jpg ...

... presiono los botones de varias manera, pero ninguna me funciona. He usado, SendMessage(oGet,WM_CHAR. . .) SendMessage(oGet,WM_KEYDOWN...) oGET:PostMsg( . . . ) ¿Alguien me puede ayudar? Espero haberme explicado bien. Un Saludo,

To send a single left-click message, I normally code oCtrl:PostMsg(FM_CLICK). What should I send to indicate a double-click?

TIA

... the "@K" feature in clipper I have been adding a bGotfocus codeblock to each get like below. ::oShipCons:bGotFocus := { || ::oShipCons:PostMsg( WM_KEYDOWN, VK_HOME ), ::oShipCons:selectall(), ::oShipCons:PostMsg( WM_KEYUP ) } I think it would be better to have "@K" supported ...