Ribbon - Rbbtn / CANCEL

[MarioG]

Estimados;
En un Dialog tengo botones RBbtn, entre ellos uno para Cerrar el Dialog. Tambien tengo el primer GET con condición de validación.
El punto es que cuando hago clic en boton Cerrar, si el GET no cumple con la validación, el Dlg no se cierra.
O sea, el RbBtn no tiene la cláusula CANCEL.
Cual es la solución?
gracias

[Antonio Linares]

Mario,

oRBtn:lCancel := .T.

[MarioG]

muchas gracias!

[MarioG]

Antonio:
No cierra

Code: Select all  Expand view

#include "fivewin.ch"
#include "ribbon.ch"

procedure Main
local oDlg, ;
      oGet, ;
      oEsc, ;
      cNombres:= Space( 30 )

   SET RESOURCES TO "TstRbBtn.dll"

   DEFINE DIALOG oDlg RESOURCE "dlg_datos"

   REDEFINE GET oGet VAR cNombres ID 101 OF oDlg ;
            ACTION Alert( "Abre Lista existente" ) ;
            VALID if( !Empty( cNombres ), .T., ( Alert( "No cierra desde el boton" ), .f. ) )

   REDEFINE RBBTN oEsc PROMPT "Cerrar" ID 300 OF oDlg TRANSPARENT ;
            ACTION oDlg:End()
   oEsc:lCancel:= .T.

   ACTIVATE DIALOG oDlg

// Fin

RC.

Code: Select all  Expand view

// Test Rnbtn - CANCEL

dlg_datos DIALOG 152, 59, 161, 51
STYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
CAPTION "Datos..."
FONT 11, "Calibri"
{
 EDITTEXT 101, 42, 9, 114, 10
 RTEXT "Nombres:", -1, 7, 10, 33, 8
 LTEXT "", 12, 104, 95, 32, 8
 CONTROL "", 300, "TRBtn", 0 | WS_CHILD | WS_VISIBLE, 62, 29, 36, 18
}
 

Uso FWH 12.04

[cnavarro]

Mario
Modifica la clase TControl

Code: Select all  Expand view

METHOD KillFocus( hCtlFocus ) CLASS TControl

   local oWnd

   if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ;
      ( oWnd := oWndFromhWnd( hCtlFocus ) ) != nil .and. ;
      Upper( oWnd:Classname() ) $ "TBUTTON;TBTNBMP;TBUTTONBMP" .and. ;
      .../...

 

con

Code: Select all  Expand view

METHOD KillFocus( hCtlFocus ) CLASS TControl

   local oWnd

   if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ;
      ( oWnd := oWndFromhWnd( hCtlFocus ) ) != nil .and. ;
      Upper( oWnd:Classname() ) $ "TBUTTON;TBTNBMP;TBUTTONBMP;TRBTN" .and. ;

     .../...

 

Yo lo he probado y funciona (con la version FWH 12.03)

[cnavarro]

Antonio, quizas en la actual habría que añadirlo igual

[MarioG]

Cristobal;
Muchas gracias. Probaré tu propuesta

[Antonio Linares]

Cristobal,

Añadido para FWH 13.09, muchas gracias!