Picture template on Resource Get not working.

[byron.hopp]

I am wanting to setup a series of gets on a resource dialog where if the value is 0 (zero) it is blank, any other value to show.
The picture is 3 (three) characters wide.

I tried:

Redefine Get oCop01 var oOb:nCop01 ID 102 of oDlg Picture "@Z 999" // also tried "@Z ###"

My get is a "Tab Stop", "Right" aligned, "Case Insensitive", and "Multiple line".

On the Activate dialog command the oOb:nCop01 has a value of 0.
The get displays " 0" (should be blank), when the get gets focus it is blank, but any other value does not display as well.

Transform( oOb:nCop01,"@Z 999" ) returns " " or space(3) as expected.

Is there a better to do this on a get.

Thanks in advance...

[nageswaragunupudi]

Specifying picture clause as "@Z 999" is right. "@Z ###" and "@Z 999" are same.
Get having focus displays "0" and other Gets not having focus show blank. That is normal behavior.

[byron.hopp]

Kind of, but in my documentation is states that:

# - digits, signs and blank spaces are allowed.
9 - digits, including signs, are allowed.

I thought that because the "@Z" was going to blank out the 0 (zero) then the "#" would work, but it did not seem to matter.

When I enter a number (1 - 9) on lost focus the number is blank.

Does this work for you correctly?

Seems my customer wants the 0 (zero) to be blank regardless of focus.
And at the same time they would like to see whatever number is populated regardless of focus.

Is there a way to do this other than picture?

I thought this was going to be easy.

Thanks,
Byron ...

[nageswaragunupudi]

I am sorry, Gets always show 0.
Let me think of a solution for your requirement

[nageswaragunupudi]

Can you try this program and give your comments

Code: Select all  Expand view  RUN

  local oDlg, oFont, aGet[ 5 ]
   local aNum  := { 0, 0, 0, 0, 0 }
   local aVar  := {}
   local c := "   "

   AEval( aNum, { |n,i| AAdd( aVar, Transform( aNum[ i ], "@Z 999" ) ) } )

   SetGetColorFocus()
   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 300,500 PIXEL TRUEPIXEL FONT oFont

   @  20,50 GET aGet[ 1 ] VAR aVar[ 1 ] SIZE 150,24 PIXEL OF oDlg PICTURE "999" RIGHT
   aGet[ 1 ]:bValid := { |oGet| aNum[ 1 ] := Val( aVar[ 1 ] ), oGet:cText := Transform( aNum[ 1 ], "@Z 999" ), .t. }
   @  55,50 GET aGet[ 2 ] VAR aVar[ 2 ] SIZE 150,24 PIXEL OF oDlg PICTURE "999" RIGHT
   aGet[ 2 ]:bValid := { |oGet| aNum[ 2 ] := Val( aVar[ 2 ] ), oGet:cText := Transform( aNum[ 2 ], "@Z 999" ), .t. }
   @  90,50 GET aGet[ 3 ] VAR aVar[ 3 ] SIZE 150,24 PIXEL OF oDlg PICTURE "999" RIGHT
   aGet[ 3 ]:bValid := { |oGet| aNum[ 3 ] := Val( aVar[ 3 ] ), oGet:cText := Transform( aNum[ 3 ], "@Z 999" ), .t. }
   @ 125,50 GET aGet[ 4 ] VAR aVar[ 4 ] SIZE 150,24 PIXEL OF oDlg PICTURE "999" RIGHT
   aGet[ 4 ]:bValid := { |oGet| aNum[ 4 ] := Val( aVar[ 4 ] ), oGet:cText := Transform( aNum[ 4 ], "@Z 999" ), .t. }
   @ 160,50 GET aGet[ 5 ] VAR aVar[ 5 ] SIZE 150,24 PIXEL OF oDlg PICTURE "999" RIGHT
   aGet[ 5 ]:bValid := { |oGet| aNum[ 5 ] := Val( aVar[ 5 ] ), oGet:cText := Transform( aNum[ 5 ], "@Z 999" ), .t. }

   @ 210,50 BUTTON "OK" SIZE 100,40 PIXEL OF oDlg ACTION oDlg:End()
   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

   XBROWSER aNum