Teclas del cursor

Teclas del cursor

Postby Salvador » Tue Nov 10, 2009 8:19 pm

Hola.
Necesito procesar la pulsación de las teclas del cursor de una PDA con WMB6 .
He probado con los eventos bKeyDown y bKeyChar del dialogo pero no consigo detectar su pulsación.
¿Puede alguien echarme un cable?. :(

Gracias.
Saludos
Salvador
Salvador
 
Posts: 144
Joined: Sun Dec 18, 2005 3:18 pm
Location: España

Re: Teclas del cursor

Postby Mauricio » Wed Nov 11, 2009 1:19 am

Hola Salvador,

que browse utilizas?
User avatar
Mauricio
 
Posts: 199
Joined: Thu Oct 06, 2005 9:07 pm
Location: San Diego, CA

Re: Teclas del cursor

Postby Salvador » Wed Nov 11, 2009 10:57 am

No es un browse es un dialogo con botones.
Pretendo que al pulsar las teclas del cursor se activen determinados botones del dialogo.
Pero al parecer el dialogo no procesa las teclas del cursor en el evento bKeyDown del dialogo.
Probado en el emulador.
Saludos
Salvador
Salvador
 
Posts: 144
Joined: Sun Dec 18, 2005 3:18 pm
Location: España

Re: Teclas del cursor

Postby Mauricio » Thu Nov 12, 2009 9:00 am

Hola Chava:

que emulador es, estoy probando con el emulador de Microsoft y funciona perfecto.

Code: Select all  Expand view

   DEFINE DIALOG oDlg RESOURCE 'Vender2' TITLE "Catalogo de Clientes"
   oDlg:bKeyDown := { | nKey, nFlags | msginfo(nKey)}




   REDEFINE LISTBOX oLbx FIELDS substr(clientes->Nombre,1,20), transform(clientes->Saldo,'999,999.99'),;
        clientes->Direccion, str(clientes->Codigo,6);
        HEADERS "Nombre","Saldo", "Dirección","Código" ID 100 OF oDlg FONT oFont2


   oLbx:bKeyChar := { | nKey, nFlags | Search(nKey), oLbx:Refresh()}
   oLbx:aJustify := {.f., .t., .f., .f.}
   oLbx:nClrBackFocus := {|| rgb(100,170,208) }

   ACTIVATE DIALOG oDlg CENTERED
 


podes probar con ese y confirmanos si funciona, seria bueno saber que emulador tenes, para ver si alguien del foro lo esta usando y puede probar.

si gustas, pasame tu codigo y lo pruebo en una Hand held Dolphin 7600 y podemos ver si funciona.

si gustas, pasame tu msn y lo revisamos

saludos,
Mauricio
User avatar
Mauricio
 
Posts: 199
Joined: Thu Oct 06, 2005 9:07 pm
Location: San Diego, CA

Re: Teclas del cursor

Postby Salvador » Thu Nov 12, 2009 12:12 pm

Mauricio,

Este código prbado en el emulador de Windows Mobile 6 profesional no procesa las teclas del cursor:
Code: Select all  Expand view
#include "FWCE.ch"


function Main()

   local oDlg

   DEFINE DIALOG oDlg TITLE "Inkey test" ;
      SIZE 200, 100 COLOR "N/G"
   
    oDlg:bKeyDown := {| nKey, nFlag| Msginfo(nKey) }
   
   @ 1.8, 6 BUTTON "End" ACTION oDlg:End() SIZE 30, 10

   ACTIVATE DIALOG oDlg CENTERED ;
 
   
return nil


Gracias por tu atención.
Saludos
Salvador
Salvador
 
Posts: 144
Joined: Sun Dec 18, 2005 3:18 pm
Location: España


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 28 guests