FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour To Manuel (TSbutton), still problem.
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
To Manuel (TSbutton), still problem.
Posted: Fri Oct 30, 2009 08:59 AM

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

Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: To Manuel (TSbutton)
Posted: Fri Oct 30, 2009 10:31 AM
Hello Dutch:
dutch wrote: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.
manuelmercado at prodigy dot net dot mx
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: To Manuel (TSbutton)
Posted: Fri Oct 30, 2009 11:47 AM
Dear Manuel,

Code (fw): Select all Collapse
#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
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: To Manuel (TSbutton 6.3)
Posted: Sat Oct 31, 2009 03:45 PM

Dear Manuel,

I used TSBUTTON 6.3

Regards,
Dutch

Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: To Manuel (TSbutton 6.3)
Posted: Sat Oct 31, 2009 04:57 PM
Hello Dutch:
dutch wrote: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.
manuelmercado at prodigy dot net dot mx
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: To Manuel (TSbutton)
Posted: Sat Oct 31, 2009 05:39 PM

Dear Manuel,

Thanks, I will try it now.

Regards,
Dutch

Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: To Manuel (TSbutton)
Posted: Sun Nov 01, 2009 12:07 AM
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 (fw): Select all Collapse
#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



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: To Manuel (TSbutton)
Posted: Fri Nov 06, 2009 12:42 PM
Dear Manuel,

The lastest SBUTTON.70 is still problem with VALID in last get as the sample below.
dutch wrote: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 (fw): Select all Collapse
#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
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

Continue the discussion