Page 1 of 1

Bug in TGet [Fixed]

PostPosted: Sat Nov 05, 2016 5:55 pm
by 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
#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

Re: Bug in TGet

PostPosted: Mon Nov 07, 2016 5:14 pm
by Antonio Linares
Enrico,

This seems as a valid temporary solution:
Code: Select all  Expand view
#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

Re: Bug in TGet

PostPosted: Mon Nov 07, 2016 6:02 pm
by Enrico Maria Giordano
Thank you. It's not something that I need to use. I only noticed this problem and reported here. :-)

EMG

Re: Bug in TGet

PostPosted: Mon May 08, 2017 12:18 pm
by Enrico Maria Giordano
This bug is still not fixed.

EMG

Re: Bug in TGet

PostPosted: Mon May 08, 2017 4:53 pm
by Antonio Linares
Enrico,

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

Code: Select all  Expand view
 #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

Re: Bug in TGet

PostPosted: Mon May 08, 2017 5:03 pm
by Antonio Linares
Changes included in FWH 17.05

many thanks

Re: Bug in TGet

PostPosted: Mon May 08, 2017 5:21 pm
by Enrico Maria Giordano
Thank you.

EMG