Strange problem in TGET since FwH 9.03

[driessen]

Hello,

I noticed a strange problem in the TGET-class since the latest version 9.03 of FwH.

If I go to a numeric GET, using the ENTER-key, everything is OK.

But if I select the number in the same GET, using the mouse, nothing happens if I want to type another number. It looks just like my NumLock has been put off. If I press the HOME-button first, I can type another number.

If I go back one GET and I go back to the numeric GET, using the ENTER-key, I can type another number again.

This is the code I use for my numeric field :

Code: Select all  Expand view

REDEFINE GET oGET VAR cPRAANTKOP ID 120 OF PreDlg PICTURE "99999"
oGET:bGotFocus := {|| SYSREFRESH(),oGET:Assign(),oGET:SelectAll()}

Until FwH 9.02, everything is OK.

Does anyone know what the reason is for this behaviour in FwH 9.03 ?

Thanks a lot in advance.

[driessen]

Antonio,

Have you read my remark on the TGET class ?

Thanks.

[Daniel Garcia-Gil]

Hello Driessen...

I tested with this samples and i do not saw diference...
Sample 1

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

local oDlg
local cVar1, cVar2, cVar3, cVar4
local nVar1 := 1234567
local oGet

cVar1 := cVar2 := cVar3 := cVar4 := Space( 20 )

DEFINE DIALOG ODLG SIZE 240,225 PIXEL

@ 10,10 GET cVar1 SIZE 100,12 PIXEL OF oDlg
@ 25,10 GET cVar1 SIZE 100,12 PIXEL OF oDlg
@ 40,10 GET oGet VAR nVar1 PICTURE "9999999" SIZE 60,12 PIXEL OF oDlg RIGHT
@ 55,10 GET cVar1 SIZE 100,12 PIXEL OF oDlg
@ 70,10 GET cVar1 SIZE 100,12 PIXEL OF oDlg

oGET:bGotFocus := {|| SYSREFRESH(),oGET:Assign(),oGET:SelectAll()}


@ 90,70 BUTTON "Close" SIZE 40,14 PIXEL OF oDlg ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

Sample 2

Code: Select all  Expand view

#include "fivewin.ch"

function main()

   local oDlg
   local oGet, oGet2, oGet3, oGet4
   local cVar1, cVar2, cVar3, cVar4
   local lActive := .f.
   
   cVar1 := 123456789
   cVar2 := 0
   cVar3 := 0
   cVar4 := 0
   
   
   define dialog oDlg resource "fromres"

   redefine get oGet var cVar1 id 100 of oDlg  
   oGET:bGotFocus := {|| SYSREFRESH(),oGET:Assign(),oGET:SelectAll()}  
   
   redefine get oGet2 var cVar2 id 101 of oDlg
   redefine get oGet3 var cVar3 id 102 of oDlg
   redefine get oGet4 var cVar4 id 103 of oDlg
   
   activate dialog oDlg centered
 
return nil  

Resource sample2

Code: Select all  Expand view

FROMRES DIALOG 0, 0, 150, 150
STYLE DS_MODALFRAME | WS_BORDER | WS_DLGFRAME | WS_POPUP | WS_SYSMENU
FONT 8, "MS Sans Serif"
CAPTION "Dialog"
BEGIN
    EDITTEXT        100, 11, 10, 80, 15, ES_AUTOHSCROLL
    EDITTEXT        101, 10, 40, 80, 15, ES_AUTOHSCROLL
    EDITTEXT        102, 9, 70, 129, 17, ES_AUTOHSCROLL
    EDITTEXT        103, 10, 100, 130, 14, ES_AUTOHSCROLL
END

[Antonio Linares]

Michel,

Have you tested Daniel's examples ?

Could you provide a small and self contained example to reproduce it ? thanks

[driessen]

Daniel,
Antonio,

I did test the 2 examples which were put into this topic by Daniel.

No problem in this example,

Antonio,

It's rather difficult to produce an working example. I'll wait for Fwh 9.04 and use the TGET of 9.02 until then. That one doesn't have the problem.

Thanks anyway for your help.