Bug in TGet [Fixed]

Bug in TGet [Fixed]

Postby Enrico Maria Giordano » Sat Nov 05, 2016 5:55 pm

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
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Bug in TGet

Postby Antonio Linares » Mon Nov 07, 2016 5:14 pm

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Bug in TGet

Postby Enrico Maria Giordano » Mon Nov 07, 2016 6:02 pm

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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Bug in TGet

Postby Enrico Maria Giordano » Mon May 08, 2017 12:18 pm

This bug is still not fixed.

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Bug in TGet

Postby Antonio Linares » Mon May 08, 2017 4:53 pm

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Bug in TGet

Postby Antonio Linares » Mon May 08, 2017 5:03 pm

Changes included in FWH 17.05

many thanks
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain



Return to Bugs report & fixes / Informe de errores y arreglos

Who is online

Users browsing this forum: No registered users and 4 guests