PICTURE "@Z"

[laritelecom]

Hello friends,

in Clipper I could use @Z in the PICTURE command to have empty field if value is 0.

It seems that in Fivewin it doesn't work. I'm doing something wrong ?

How do you set empty field if value in a GET is 0 ?

Thank you

[Armando]

laritelecom:

I do this way and it's fine

Code: Select all  Expand view

"@Z 999,999,999,999.99"
 

Regards

[Enrico Maria Giordano]

I confirm the problem. This is a sample:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0

    DEFINE DIALOG oDlg

    @ 1, 1 GET cVr1;
           PICTURE "@EZ 9.999,99"

    @ 3, 1 GET cVr2;
           PICTURE "@EZ 9.999,99"

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[nageswaragunupudi]

Yes.
We are looking into this.

[nageswaragunupudi]

Fixed in FWH2001

[karinha]

I always do as Armando indicates and it works well.

Code: Select all  Expand view

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL aGet := ARRAY(5)

    DEFINE DIALOG oDlg

    @ 1, 1 GET aGet[1] VAR cVr1 PICTURE "@Z 9,999,999.99"  SIZE 50,12 OF oDlg

    @ 3, 1 GET aGet[2] VAR cVr2 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg

    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL
 

[nageswaragunupudi]

The standard behaviour of Clipper and (x)Harbour without FWH is that "0.00" is displayed only in the Get having focus. Gets not having focus display blanks only and not digits. But FWH till version 19.12 displays "0.00" in all Gets whether having focus or not. This is fixed in 20.01. Now the behaviour of FWH matches the behaviour of Clipper/(x)Harbour.

For testing we use this program for DOS.

Code: Select all  Expand view

MEMVAR GetList

FUNCTION MAIN()

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL cVr3 := 0

    CLEAR

    @ 1, 1 GET cVr1 PICTURE "@EZ 9,999,999.99"
    @ 3, 1 GET cVr2 PICTURE "@EZ 9,999,999.99"
    @ 5, 1 GET cVr3 PICTURE "@EZ 9,999,999.99"

    READ

RETURN NIL
 

and this program for FWH

Code: Select all  Expand view

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL cVr3 := 0

    SetGetColorFocus()

    DEFINE DIALOG oDlg TITLE FWVERSION

    @ 1,   1 GET cVr1 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT
    @ 2.5, 1 GET cVr2 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT
    @ 4,   1 GET cVr3 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT

    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL
 

In this GIF, you will find that FWH20.01 behaves like Clipper/(x)Harbour but not FWH1912.

[wartiaga]

The standard behaviour of Clipper and (x)Harbour without FWH is that "0.00" is displayed only in the Get having focus. Gets not having focus display blanks only and not digits. But FWH till version 19.12 displays "0.00" in all Gets whether having focus or not. This is fixed in 20.01. Now the behaviour of FWH matches the behaviour of Clipper/(x)Harbour.

For testing we use this program for DOS.

Code: Select all  Expand view

MEMVAR GetList

FUNCTION MAIN()

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL cVr3 := 0

    CLEAR

    @ 1, 1 GET cVr1 PICTURE "@EZ 9,999,999.99"
    @ 3, 1 GET cVr2 PICTURE "@EZ 9,999,999.99"
    @ 5, 1 GET cVr3 PICTURE "@EZ 9,999,999.99"

    READ

RETURN NIL
 

and this program for FWH

Code: Select all  Expand view

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVr1 := 0
    LOCAL cVr2 := 0
    LOCAL cVr3 := 0

    SetGetColorFocus()

    DEFINE DIALOG oDlg TITLE FWVERSION

    @ 1,   1 GET cVr1 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT
    @ 2.5, 1 GET cVr2 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT
    @ 4,   1 GET cVr3 PICTURE "@EZ 9,999,999.99" SIZE 50,12 OF oDlg RIGHT

    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL
 

In this GIF, you will find that FWH20.01 behaves like Clipper/(x)Harbour but not FWH1912.

Hi Mr. Nages. Is possible apply these changes in older fivewin? Thank you!