FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Strange problem in TGET since FwH 9.03
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM

Strange problem in TGET since FwH 9.03

Posted: Thu Apr 02, 2009 09:03 AM
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 (fw): Select all Collapse
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.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM

Re: Strange problem in TGET since FwH 9.03

Posted: Fri Apr 03, 2009 08:42 PM

Antonio,

Have you read my remark on the TGET class ?

Thanks.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM

Re: Strange problem in TGET since FwH 9.03

Posted: Fri Apr 03, 2009 10:03 PM
Hello Driessen...

I tested with this samples and i do not saw diference...
Sample 1
Code (fw): Select all Collapse
#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 (fw): Select all Collapse
#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 (fw): Select all Collapse
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
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Strange problem in TGET since FwH 9.03

Posted: Sun Apr 05, 2009 06:34 PM

Michel,

Have you tested Daniel's examples ?

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM

Re: Strange problem in TGET since FwH 9.03

Posted: Mon Apr 06, 2009 04:11 PM

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.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Continue the discussion

Static archive · New replies & topics via GitHub Discussions