Page 1 of 1
Bug in TGet [Fixed]
Posted: 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
#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
Posted: Mon Nov 07, 2016 5:14 pm
by Antonio Linares
Enrico,
This seems as a valid temporary solution:
Code: Select all
#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
Posted: 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
Posted: Mon May 08, 2017 12:18 pm
by Enrico Maria Giordano
This bug is still not fixed.
EMG
Re: Bug in TGet
Posted: 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
#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
Posted: Mon May 08, 2017 5:03 pm
by Antonio Linares
Changes included in FWH 17.05
many thanks
Re: Bug in TGet
Posted: Mon May 08, 2017 5:21 pm
by Enrico Maria Giordano
Thank you.
EMG