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

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(), ...

...         ::PostMsg( WM_LBUTTONUP, 1, 1 )  por tratarse de un dialogo debes asignarle DLGC_WANTALLKEYS a la data nDlgCode, sino esas pulsaciones no llegaran al control oBtnAnade:nDlgCode = DLGC_WANTALLKEYS todo lo demas queda igual te dejo el ejecutable... http://www.sitasoft.net/fivewin/samples/testtri.zip

Ariel This change is required: METHOD ShowBtnList( nKey ) CLASS TXBrwColumn IF ::oBrw:oWnd:IsKindOf( "TDIALOG" ) ::oEditLbx:nDlgCode = DLGC_WANTALLKEYS ::oEditLbx:bKeyDown := {|k| ::oEditLbx:nLastKey := k, nil } ELSE ::oEditLbx:bKeyDown := {|k| ::oEditLbx:nLastKey := k, ; If( k ...

Ariel Este cambio es necesario en: METHOD ShowBtnList( nKey ) CLASS TXBrwColumn IF ::oBrw:oWnd:IsKindOf( "TDIALOG" ) ::oEditLbx:nDlgCode = DLGC_WANTALLKEYS ::oEditLbx:bKeyDown := {|k| ::oEditLbx:nLastKey := k, nil } ELSE ::oEditLbx:bKeyDown := {|k| ::oEditLbx:nLastKey := k, ; If( ...