cancel clause with tsbutton still fires valid

[Gale FORd]

I have run across a problem with tsbutton, latest FWH, and Xharbour builder.

I create a dialog with some gets with valids and tsbutton with cancel clause. When I press the button it still executes the valid on the get that has focus at the time.

Is anyone else having this problem?
Do you need for me to create sample?

[toya]

I use:

Code: Select all  Expand view  RUN

////////////////
function teste()
////////////////

local lButton:=.f.

....
....
REDEFINE GET aoGets[01] VAR aDados[01] ID 101 OF oDlg PICTURE '99999' ;
        VALID lButton(@lButton) .and. VerDados( @aDados, aoGets, 1, 5, '99999' )
....
....
REDEFINE SBUTTON aoBtn[02] ID 510 OF oDlg RESOURCE 'EXIT' ACTION ( lButton:=.t., oDlg:end() )
....
....
ACTIVATE DIALOG oDlg CENTERED
return nil


///////////////////////////
function lButton( lButton )
///////////////////////////
local lOk:=.t.
if lButton
       lOk:=.f.
endif
lButton:=.f.
return lOk


[Ruben Fernandez]

Gale:

Try this: In Control.prg Method KillFocus() add TSBUTTON like this line

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;TSBUTTON" .and. ;

Tell me what about.

Regards
Ruben Fernandez.