To Manuel (TSbutton), still problem.

[dutch]

Dear Manuel,

I got strange behavior. For SButton with When condition, In some dialog I can use tab or enter to change the focus to next control and to SBUTTON but some dialog, it skip SBUTTON to the begining control (SBUTTON for Save and Cancel).

If It has not WHEN condition, it works perfectly. I look in .RC file, it is the same properties. I don't know why?

Regards,
Dutch

[mmercado]

Hello Dutch:

I got strange behavior. For SButton with When condition, In some dialog I can use tab or enter to change the focus to next control and to SBUTTON but some dialog, it skip SBUTTON to the begining control (SBUTTON for Save and Cancel).

If It has not WHEN condition, it works perfectly. I look in .RC file, it is the same properties. I don't know why?

Would you please to post an small self-contained sample to reproduce the situation?

Best regards.

[dutch]

Dear Manuel,

Code: Select all  Expand view

#include 'fivewin.ch'
#include 'tsbutton.ch'

*-------------*
Function Main
local odlg, oget[2], obtn
local cStamp := '', n
local cName := space(50)
local cTitle := space(50)

DEFINE DIALOG oDlg FROM 0, 0 TO 500, 600 TITLE 'Test' PIXEL

   @  10, 10 GET oGet[1] VAR cName OF oDlg SIZE 50,12 PIXEL
   @  25, 10 GET oGet[2] VAR cTitle  OF oDlg SIZE 50, 12 PIXEL

   @  50, 10 SBUTTON oBtn PROMPT 'Test' OF oDlg ;
        SIZE 40, 30 ;
        PIXEL ;
        WHEN !empty(cName) ;
        ACTION MsgInfo( cName )

ACTIVATE DIALOG oDlg CENTER
return nil
 

Regards,
Dutch

[dutch]

Dear Manuel,

I used TSBUTTON 6.3

Regards,
Dutch

[mmercado]

Hello Dutch:

I used TSBUTTON 6.3

I just uploaded a revised TSButton.zip V.7.0 with that bug and others already fixed.

Here the link:
http://www.box.net/shared/9vyw4zeo0k

See \TSButton\Setup.txt to install it.

Best Regards.

[dutch]

Dear Manuel,

Thanks, I will try it now.

Regards,
Dutch

[dutch]

Dear Manuel,

It has a problem now, the VALID cluase in the last control before SBUTTON will be ignore. In the sample, the VALID of the 2nd GET is will be skip (ignore).

Code: Select all  Expand view

#include 'fivewin.ch'
#include 'tsbutton.ch'

*-------------*
Function Main
local odlg, oget[2], obtn
local cStamp := '', n
local cName := space(50)
local cTitle := space(50)

DEFINE DIALOG oDlg FROM 0, 0 TO 500, 600 TITLE 'Test' PIXEL

   @  10, 10 GET oGet[1] VAR cName OF oDlg SIZE 50,12 PIXEL ;
             VALID (msginfo('test 1'), .T. )
   @  25, 10 GET oGet[2] VAR cTitle  OF oDlg SIZE 50, 12 PIXEL ;
             VALID (msginfo('test 2'), .T. )

   @  50, 10 SBUTTON oBtn PROMPT 'Test' OF oDlg ;
        SIZE 40, 30 ;
        PIXEL ;
        WHEN !empty(cName) ;
        ACTION MsgInfo( cName )

ACTIVATE DIALOG oDlg CENTER
return nil
 

Regards,
Dutch

[dutch]

Dear Manuel,

The lastest SBUTTON.70 is still problem with VALID in last get as the sample below.

Dear Manuel,

It has a problem now, the VALID cluase in the last control before SBUTTON will be ignore. In the sample, the VALID of the 2nd GET is will be skip (ignore).

Code: Select all  Expand view

#include 'fivewin.ch'
#include 'tsbutton.ch'

*-------------*
Function Main
local odlg, oget[2], obtn
local cStamp := '', n
local cName := space(50)
local cTitle := space(50)

DEFINE DIALOG oDlg FROM 0, 0 TO 500, 600 TITLE 'Test' PIXEL

   @  10, 10 GET oGet[1] VAR cName OF oDlg SIZE 50,12 PIXEL ;
             VALID (msginfo('test 1'), .T. )
   @  25, 10 GET oGet[2] VAR cTitle  OF oDlg SIZE 50, 12 PIXEL ;
             VALID (msginfo('test 2'), .T. )

   @  50, 10 SBUTTON oBtn PROMPT 'Test' OF oDlg ;
        SIZE 40, 30 ;
        PIXEL ;
        WHEN !empty(cName) ;
        ACTION MsgInfo( cName )

ACTIVATE DIALOG oDlg CENTER
return nil
 

Regards,
Dutch

Regards
Dutch