TSbutton problem?

[dutch]

Dear All,

Have any one found this TSbutton problem as me? When I use Alt+s for "&Save" the problem is the valid on TGET is skiped. It means any function on TGET Valid do nothing. It is my big problem right now because I use a lot TSbutton in my program.

Example
======
#include 'Fivewin.ch'
#include 'Tsbutton.ch'

Static oDlg

Procedure Main
local oGet, oBtn, cVar
cVar := 0

DEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 TITLE 'Test TSbutton'

@ 1, 1 GET oGet VAR cVar SIZE 30,12 PIXEL Valid (cVar>0)

@ 40,50 SBUTTON oBtn PROMPT '&Test' ;
SIZE 30, 20 ;
PIXEL ;
ACTION MsgInfo(' Test ')

ACTIVATE DIALOG oDlg CENTER

return

[dutch]

Dear All,

If who use this classes and have got the same problem with me. Pls change this line

METHOD GetDlgCode( nLastKey ) CLASS TSBUTTON
// Remark this two lines
* ::SendMsg( FM_CLICK )
// Add this line instead
PostMessage( ::oWnd:oCtlFocus:hWnd, FM_CLICK )
return If( ::lActive, DLGC_WANTALLKEYS, Nil )

Best regards,
Dutch

[Silvio]

Dear Dutch,
I am also another problem to Xp( fwh) 32 bit with this class
IF you recompiled all the samples of sbutton You can see my error
You must see the Function Child3() of Testbtn.prg
this is a mini reservation bus
the button make error on 32 bit but on 16 bit run ok
Can you help me ?