FiveTech Software tech support forums

This is a sample:

Code: Select all  Expand view

#include "Fwce.ch"


FUNCTION MAIN()

    LOCAL oWnd

    LOCAL nVar := 123.45

    DEFINE WINDOW oWnd

    @ 1, 1 SAY "Test:  "

    @ 1, 10 GET nVar;
            SIZE 70, 20;
            PICTURE "@E 9999.99";
            RIGHT

    ACTIVATE WINDOW oWnd

    RETURN NIL

EMG

Any news?

EMG

I'm still waiting...

EMG

EnricoMaria wrote:This is a sample:

Code: Select all  Expand view

#include "Fwce.ch"


FUNCTION MAIN()

    LOCAL oWnd

    LOCAL nVar := 123.45

    DEFINE WINDOW oWnd

    @ 1, 1 SAY "Test:  "

    @ 1, 10 GET nVar;
            SIZE 70, 20;
            PICTURE "@E 9999.99";
            RIGHT

    ACTIVATE WINDOW oWnd

    RETURN NIL

EMG

I confirm, and this problem is also in redefine!
The number is not RIGHT!!!!
is possible to solve?
Thank you

The problem comes from the PICTURE. If it is not used, then the ES_RIGHT style is working fine:

Code: Select all  Expand view

    @ 1, 10 GET nVar;
            SIZE 75, 20;
            RIGHT


Antonio Linares wrote:The problem comes from the PICTURE. If it is not used, then the ES_RIGHT style is working fine:

Code: Select all  Expand view

    @ 1, 10 GET nVar;
            SIZE 75, 20;
            RIGHT


Dear Antonio,
it work fine!
I necessity to transform the number with this picture "@E 999,999.99" and i modify with the say:

Code: Select all  Expand view

    REDEFINE SAY oSay PROMPT cVar
       oSay:bGet := {|| Transform( nVar, "@E 999,999.99" ) }

with this solution the number result with gray background and in left position
There are other possibility?

Ugo,

You may use PadL() to add spaces on the left side. is that ok ?