topic-2731

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

TGet bug
Posted: Tue Apr 18, 2006 09:40 PM

This is the sample. Try to input 1.25 and you'll get 1.30 on lost focus (xHarbour, BCC55):

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL nVar := 0

    DEFINE DIALOG oDlg

    @ 1, 1 GET nVar;
           PICTURE "@EZ 99,999.99";
           RIGHT

    @ 3, 1 BUTTON "&Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    ? nVar

    RETURN NIL

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Manuel Valdenebro

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

TGet bug
Posted: Wed Apr 19, 2006 02:02 AM

Not error for me.

Un saludo

Manuel

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

TGet bug
Posted: Wed Apr 19, 2006 06:30 AM

What FWH build are you using? I'm using April 2006 build.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

TGet bug
Posted: Wed Apr 19, 2006 06:37 AM

And what xHarbour release? I'm using the latest from CVS. I suspect the problem is there...

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

TGet bug
Posted: Wed Apr 19, 2006 07:01 AM

Ok, I found the problem in xHarbour and just reported it to the xHarbour developers mailing list.

This is the sample. Try to input 1.25 and then press F2 twice. You will get
1.30 instead of 1.25.

Code: Select all Collapse

#include "Inkey.ch"


FUNCTION MAIN()

    LOCAL nVar := 0

    PUBLIC GetList := {}

    SET CONFIRM ON

    SET KEY K_F2 TO CHANGEPICTURE

    CLS

    @ 10, 10 GET nVar;
             PICTURE "@EZ 99,999.99"

    READ

    RETURN NIL


STATIC FUNCTION CHANGEPICTURE()

    IF M -> GetList[ 1 ]:Picture = "@EZ 99,999.99"
        M -> GetList[ 1 ]:Picture = "@EZ 99999.99"
    ELSE
        M -> GetList[ 1 ]:Picture = "@EZ 99,999.99"
    ENDIF

    RETURN NIL

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

FiveTech Support Forums

Continue the discussion