FiveTech Software tech support forums

... not declared for method: FreeBitMaps( nBitMap )' .\prg\TSBUTTON.PRG(1135) Error E0019 #error: 'Class "TSButton" not declared for method: GetDlgCode( nLastKey )' .\prg\TSBUTTON.PRG(1159) Error E0019 #error: 'Class "TSButton" not declared for method: GetNextClip()' .\prg\TSBUTTON.PRG(1189) ...

... ::FijaClrFestivo() METHOD ColorDia( nDia, aColores ) METHOD Default() METHOD Destroy() METHOD MouseMove( nRow, nCol, nKeyFlags ) METHOD GetDlgCode( nLastKey ) METHOD VerAlSalir() METHOD VerAlEntrar() METHOD PintarBoton(hDC, nColor, nRow, nCol) METHOD KeyChar( nKey, nFlags ) METHOD KeyDown( ...

Cristobal,

Prueba a hacer:

oSincitilla:nDlgCode = DLGC_WANTALLKEYS

Revisa como está implementado el método:

METHOD GetDlgCode( nLastKey ) CLASS TControl

... De dejar tu código ahi, obligarias a redefinir HandleEvent(). No es realmente necesario pero es la forma correcta de hacerlo :-) El método GetDlgCode() es la respuesta a un mensaje que envía Windows para interrogar al control acerca de las teclas que quiere procesar. Al devorlver DLGC_WANTALLKEYS ...

Antonio, Dime si así sería correcto: En la definición de los métodos de la clase: METHOD GetDlgCode( nLastKey ) INLINE DLGC_WANTALLKEYS  Y así el HandleEvent, y ya captura: METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TTreeView   local ...

Antonio,

Ese es el principal problema, al pulsar Intro, se recibe nMsg==135

Que según veo, corresponde al define WM_GETDLGCODE. No recibe ni Keydown ni Char.

No sé como habría que hacerlo correctamente para capturar Return y Esc.

...   846   896   901  1364  2382  2402  2418                   2463  2540  2962 GETDEVICECAPS()        (function  in ?)    WINDOW.PRG      896   901 GETDLGCODE()           (function  in ?)    WINDOW.PRG      614 GETDLGITEM()           (function  in ?)    WINDOW.PRG     1528 GETDRAWITEM()         ...

... 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 ( ! ::oWnd:lValidating .and. ::lCancel ...

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

... 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 GetDlgCode( nLastKey ). Al asignarle un valor a nDlgCode estamos indicando las teclas extraordinarias que queremos. De todas formas he visto que la ...

... los button por btnbmp y ya el dialogo no se cerraba, mi problema estaba en la clase tbutton. solucion, encontre que la clase button el metodo getdlgcode que recientemente se modifico, necesita otra modificacion esta vez mas personal. METHOD GetDlgCode( nLastKey ) CLASS TButton   ::oWnd:nLastKey ...

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

... WS_TABSTOP ) also in Method Initiate(): LOCAL nLastRow, nStyle := nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_CLIPCHILDREN ) 2. Method GetDlgCode() is wrong in Class TComboBox and has to be removed

Fernando, Este pequeño cambio (añadido "TMDICHILD") es necesario en la Clase TGet Metodo GetDlgCode(): METHOD GetDlgCode( nLastKey ) CLASS TGet   if Len( ::oWnd:aControls ) == 1      return DLGC_WANTALLKEYS   endif  ...

Günther, Please make this small change in Class TGet Method GetDlgCode(): METHOD GetDlgCode( nLastKey ) CLASS TGet   if Len( ::oWnd:aControls ) == 1      return DLGC_WANTALLKEYS   endif   ::oWnd:nLastKey ...