Page 1 of 1
PICTURE "@Z"
Posted: Fri Dec 27, 2019 3:55 pm
by 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
Re: PICTURE "@Z"
Posted: Fri Dec 27, 2019 4:07 pm
by Armando
laritelecom:
I do this way and it's fine
Regards
Re: PICTURE "@Z"
Posted: Fri Dec 27, 2019 6:33 pm
by Enrico Maria Giordano
I confirm the problem. This is a sample:
Code: Select all
#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
Re: PICTURE "@Z"
Posted: Sun Dec 29, 2019 1:33 pm
by nageswaragunupudi
Yes.
We are looking into this.
Re: PICTURE "@Z"
Posted: Thu Jan 02, 2020 3:27 pm
by nageswaragunupudi
Fixed in FWH2001
Re: PICTURE "@Z"
Posted: Thu Jan 02, 2020 5:36 pm
by karinha
I always do as Armando indicates and it works well.
Code: Select all
#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
Re: PICTURE "@Z"
Posted: Fri Jan 03, 2020 4:03 am
by 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
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
#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.
Re: PICTURE "@Z"
Posted: Fri Jan 03, 2020 4:42 pm
by wartiaga
nageswaragunupudi wrote: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
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
#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!