FiveTech Software tech support forums

... DIALOG oDlg TITLE 'Fattura XML ' + cFile SIZE 830, 600 RESIZABLE @ 40, 0 ACTIVEX oActiveX PROGID "Shell.Explorer" OF oDlg oActiveX:nDlgCode = DLGC_WANTALLKEYS oDlg:oClient = oActiveX oDlg:bStart := < || oDlg:Resize() oActiveX:Navigate( cURL ) oActiveX:StatusBar = .T. ...

... DIALOG oDlg TITLE 'Fattura XML ' + cFile SIZE 830, 600 RESIZABLE @ 40, 0 ACTIVEX oActiveX PROGID "Shell.Explorer" OF oDlg oActiveX:nDlgCode = DLGC_WANTALLKEYS oDlg:oClient = oActiveX oDlg:bStart := <|| oDlg:Resize() oActiveX:Navigate( cURL ) oActiveX:StatusBar = .t. ...

... DIALOG oDlg TITLE 'Fattura XML ' + cFile SIZE 830, 600 RESIZABLE @ 40, 0 ACTIVEX oActiveX PROGID "Shell.Explorer" OF oDlg oActiveX:nDlgCode = DLGC_WANTALLKEYS oDlg:oClient = oActiveX oDlg:bStart := <|| oDlg:Resize() oActiveX:Navigate( cURL ) oActiveX:StatusBar = .t. ...

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 ...

Jimmy,

Use this:

oFolder:nDlgCode = DLGC_WANTALLKEYS

... := cUrl DEFINE DIALOG oDlg TITLE cTitle SIZE 1000, 600 RESIZABLE @ 0, 0 ACTIVEX oActiveX PROGID "Shell.Explorer.2" OF oDlg oActiveX:nDlgCode = DLGC_WANTALLKEYS oDlg:oClient = oActiveX ACTIVATE DIALOG oDlg CENTERED ; ON INIT ( oDlg:Resize(), oActiveX:Silent := .T., oActiveX:Navigate( ...

Cristobal,

Prueba a hacer:

oSincitilla:nDlgCode = DLGC_WANTALLKEYS

Revisa como está implementado el método:

METHOD GetDlgCode( nLastKey ) CLASS TControl

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.

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 ...

Antonio,

Gracias por responder.

Lamentablemente no funciona lo que propones. Además estuve "mirando" la trichedit.prg y no encontré la data nDlgCode.

Saludos.

Rolando

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

...    ::oWnd:nLastKey = nLastKey      else         ::oWnd:nLastKey = 0      endif   endif return If( IsWindowEnabled( ::hWnd ), If( ::nDlgCode != nil, ::nDlgCode, DLGC_WANTALLKEYS ), 0 ) And in your app, simply do: oBrw:nDlgCode = 1 // DLGC_WANTARROWS

... "Cancelar o processamento" ; ACTION ( cContinuaNavega:="-00001" ,; lContinua:=.F. ,; oDlgSitef:End() ) ; LEFT 2007 oLbxLista:nDlgCode := DLGC_WANTALLKEYS oLbxLista:bKeyDown := { | nKey, nFlags | IF (nKey==VK_RETURN, oButtom1:Click(), ),; IF (nKey==VK_ESCAPE, oButtom2:Click(), ...