FiveTech Software tech support forums

... GetDisplayColsWidth(), GetPaintCols(), Eval(), SafeEval(), BrwFitSize(), CancelEdit(), CheckSortCbx(), DelRepos(), DrawLine(), EraseData(), GetDlgCode(), HasBorder(), LButtonDown(), LButtonUp(), MouseMove(), LDblClick(), RButtonDown(), MouseWheel(), HorzLine(), MouseAtHeader(), MouseAtFooter ...

... nMResize`**: Numeric value indicating the type of mouse resizing (e.g., RES_NW, RES_N, etc.).
- **`nDlgCode`**: Numeric value returned by `GetDlgCode()` for default behavior.
- **`oJump`**: Reference to the next control to focus after validation.
- **`l97Look`**: Logical flag indicating whether ...

... can be used to recreate the button programmatically.
- **Parameters:**
- `lDlgUnits`: Whether to use dialog units for coordinates.

6. **`GetDlgCode( nLastKey )`**
- **Description:** Determines the dialog code for the button, which controls how the button interacts with keyboard input ...

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

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

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 oItem  &nbsp ...

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.

... function in ?)
WINDOW.PRG 610 611 622 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() (function in ?)
WINDOW.PRG 1496 1504 ...

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

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

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

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

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