FiveTech Software tech support forums

hi Antonio, oFolder:nDlgCode = DLGC_WANTALLKEYS no luck ... still can´t use TAB-Key to change Control i have reduce CLASS to only 1 Method to set Bitmap (depend on Drive Type) METHOD SetDriveIcon(cPath,nOption) CLASS TFolderDXELOCAL aDrives, cDrive, nPosi, cIconLOCAL acItem, acBitmapsDEFAULT...

Jimmy,

Use this:

oFolder:nDlgCode = DLGC_WANTALLKEYS

No comprendo porque no funciona con el sitio de CMSOFT?? #Include "FiveWin.ch" FUNCTION Main() // FUNCIONA PERFECTO // LOCAL cURL := "http://forums.fivetechsupport.com/index.php?sid=11ea51a82e1ce30643d2156006fbcb76" // NO FUNCIONA. No comprendo ??? LOCAL cUrl := "https://app...

Y la clase // ----------------------------------------------------------------------- CLASS TMiCalendario FROM TControl // ----------------------------------------------------------------------- DATA lContinuar AS LOGICAL INIT .T. DATA lConFoco AS LOGICAL INIT .T. DATA oFont DATA lFont AS LOGICAL IN...

Cristobal,

Prueba a hacer:

oSincitilla:nDlgCode = DLGC_WANTALLKEYS

Revisa como está implementado el método:

METHOD GetDlgCode( nLastKey ) CLASS TControl

Joaquín, Todo ok, lo único que cambiaria es esto:      case nMsg == WM_KEYDOWN                       return ::KeyDown( nWParam, nLParam )   De esta forma el código queda más estructurado y además una clase que derivase de esta podría facilmente redefinir la funcionalidad del método KeyDown()...

Expongo una diferencia entre las versiones 4 y 7 en el segundo return (x) cambia version 7 *************************************************************************************** METHOD GetDlgCode( nLastKey ) CLASS TSButton If nLastKey > 0 .and. nLastKey == ::nWakeup ::nWakeup := 0 EndIf If ( ! :...

Falta añadir este método en la Clase TRichEdit:

Code: Select all  Expand view

  METHOD GetDlgCode( nLastKey ) INLINE ::nDlgCode

y esta línea en nuestro código:

#define DLGC_WANTCHARS 0x0080

oRich:nDlgCode = DLGC_WANTALLKEYS

aún asi, sigue sin comportarse como debiera.

Rolando, Buscando en google he encontrado que se trata de un error de los controles RichEdit, ya que si se devuelve el valor DLGC_WANTALLKEYS desde el Método GetDlgCode() de TRichEdit, Windows no debería darle el foco a otro control. La solución usada para saltarse esta limitación es interceptar el ...

De momento con el ejemplo de FWH testrich.prg de la carpeta samples, añadiendo estas dos líneas:

oRich:bKeyDown = { | nKey | MsgInfo( nKey ) }
oRich:nDlgCode = DLGC_WANTALLKEYS

sigue sin detectar la tecla de tabulación...

Rolando, La Clase TRichEdit, como todos los demás controles, deriva de la Clase TControl y es TControl quien implementa la DATA nDlgCode. Windows le pregunta a nuestros controles que teclas quieren procesar, y el control solicita las que desea. El método que responde a esta petición es Method GetDlg...

Rolando,

Una vez hagas REDEFINE RICHEDIT ... a continuación haz:

#define DLGC_WANTTAB 0x0002

oRichEdit:nDlgCode = DLGC_WANTTAB

You could also try with:

oBrw:nDlgCode = 0x0080 // DLGC_WANTCHARS

Otto, This little change would be required on Class TXBrowse: METHOD GetDlgCode( nLastKey ) CLASS TXBrowse    if .not. ::oWnd:lValidating      if nLastKey == VK_UP .or. nLastKey == VK_DOWN ;         .or. nLastKey == VK_RETURN .or. nLastKey == VK_TAB         ::oWnd:nLastKey = nLastKey      el...

Carlos, El método GetDlgCode() es donde se procesa y se responde al mensaje de Windows WM_GETDLGCODE: http://msdn.microsoft.com/en-us/library/windows/desktop/ms645425(v=vs.85).aspx devolver nil en FiveWin es solicitar la acción por defecto del API de Windows. Devolver DLGC_WANTAL...