Bug in TGet [Fixed]

[Enrico Maria Giordano]

In the following sample, please change the number and press TAB. The new number doesn't properly align to right.

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cCli := 23

    DEFINE DIALOG oDlg

    @ 1, 1 GET cCli SIZE 100, 13 RIGHT

    @ 3, 1 BUTTON "Chiudi";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

This seems as a valid temporary solution:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oGet

    LOCAL cCli := 23

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cCli SIZE 100, 13 RIGHT ;
       VALID ( oGet:Refresh(), .T. )

    @ 3, 1 BUTTON "Chiudi";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg

    RETURN NIL

[Enrico Maria Giordano]

Thank you. It's not something that I need to use. I only noticed this problem and reported here.

EMG

[Enrico Maria Giordano]

This bug is still not fixed.

EMG

[Antonio Linares]

Enrico,

Please add these lines at the end of Class TGet Method KeyChar()

Code: Select all  Expand view  RUN

 #ifndef __CLIPPER__
               if nKey == VK_RETURN  // Execute DEFPUSHBUTTON Action
                  ::Super:KeyChar( nKey, nFlags )
               endif
           #endif

           if lAnd( ::nStyle, ES_RIGHT )  // new
              ::Refresh()                 // new
           endif                          // new

           return 0

[Antonio Linares]

Changes included in FWH 17.05

many thanks

[Enrico Maria Giordano]

Thank you.

EMG