TGet RIGHT clause is not working

[Enrico Maria Giordano]

This is a sample:

Code: Select all  Expand view  RUN

#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

[Enrico Maria Giordano]

Any news?

EMG

[Enrico Maria Giordano]

I'm still waiting...

EMG

[Ugo]

This is a sample:

Code: Select all  Expand view  RUN

#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

[Antonio Linares]

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

Code: Select all  Expand view  RUN

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


[Ugo]

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

Code: Select all  Expand view  RUN

    @ 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  RUN

    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?

[Antonio Linares]

Ugo,

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