Fwh 23.10 TGet another problem (UNSOLVED)

Re: Fwh 23.10 TGet another problem

Postby Horizon » Wed Nov 15, 2023 9:43 pm

Hi Mr. Rao, Antonio,

I started doing some research. While Fwh 23.07 version was active, I manually added TGet.prg to the make file of the program. I put a rem at the beginning of the METHOD KeyChar function in TGet.prg, and when I ran the program and pressed the Ğ character while on a get field, I got the value 208 in the nKey variable as follows.
Code: Select all  Expand view
METHOD KeyChar( nKey, nFlags ) CLASS TGet

   local nHi, nLo
   local lAccept
   local bKeyAction := SetKey( nKey )
   local nDefButton
   local nVal, cVal
? nKey, nFlags, FW_SetUnicode()
 

http://www.objekt.com.tr/fwh_test/newtest2.png

Likewise, in the test performed when the fwh 23.10 version was active, the nKey variable returned the value 286, as seen below.
http://www.objekt.com.tr/fwh_test/newtest3.png

In both versions, there is a code snippet like the one below inside the METHOD KeyChar function.
Code: Select all  Expand view
     //
      case nKey > 255
         // reject unicode chars
         SendMessage( ::hWnd, WM_CHAR, ASC( "?" ), 0 )
         return 0
 


In fwh 23.10 version, when the nKey variable is 286, a question mark is printed on the screen as per the action in this code.
As seen in both versions, the FW_Unicode() function Even though it is defined as .F., the nKey variable coming to METHOD KeyChar is different.

I tried both versions in FW_Unicode(.T.) condition. In both cases, the nKey variable is 286.

conclusion : METHOD Which function triggers the KeyChar function?
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1288
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem

Postby nageswaragunupudi » Thu Nov 16, 2023 2:29 am

Very Good.
This is what I was suspecting.

286 (0x011E) is the UTF16LE value of Turkish Chr(208).

Please help us by a little more testing
Instead of
Code: Select all  Expand view
? nKey, nFlags, FW_SetUnicode()

please test
Code: Select all  Expand view
? nKey, FW_SetUnicode(), ::lIsWideChar, IsWindowUnicode( ::hWnd )

Is the result "286, .F., .F., .T." ?

Next, please also check
1)
Code: Select all  Expand view
? HB_StrIsUtf8( cVar )

just before the command @ r,c GET ...

2) Is your Get created by command like @ r,c GET ...
or from RESOURCE like REDEFINE GET
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10248
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Fwh 23.10 TGet another problem

Postby Horizon » Thu Nov 16, 2023 8:36 am

Hi Mr. Rao,

Please ignore, there is a wrong spelling. I found IsWideChar.

Code: Select all  Expand view
Application
===========
   Path and name: C:\PrgW\Icra\IcraW.exe (32 bits)
   Size: ********* bytes
   Compiler version: Harbour 3.2.0dev (r2304211101)
   FiveWin  version: FWH 23.10
   C compiler version: Microsoft Visual C 19.35.32217 (32-bit)
   Windows 10 64 Bits, version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 16/11/2023, 11:33:10
   Error description: Error BASE/1004  Message not found: TGET:LISWIDECHAR
   Args:
     [   1] = O   TGET

Stack Calls
===========
   Called from: ../../../tobject.prg => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TGET:ERROR( 148 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 77 )
   Called from: ../../../tobject.prg => TGET:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TGET:LISWIDECHAR( 142 )
   Called from: .\TGet.prg => TGET:KEYCHAR( 2175 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1861 )
   Called from: .\TGet.prg => TGET:HANDLEEVENT( 1337 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3651 )
   Called from: .\source\classes\DIALOG.PRG => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
   Called from: .\TApplication.prg => TAPPLICATION:LOGIN_USER( 2208 )
   Called from: .\TApplication.prg => TAPPLICATION:LOGIN( 1769 )
   Called from: .\TApplication.prg => TAPPLICATION:ONINIT( 1526 )
   Called from: .\TApplication.prg => (b)TAPPLICATION_ACTIVATE( 1494 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1102 )
   Called from: .\TApplication.prg => TAPPLICATION:ACTIVATE( 1494 )
   Called from: .\Master.prg => MAIN( 410 )

System
======
   CPU type: 12th Gen Intel(R) Core(TM) i7-1255U 2611 Mhz
   Hardware memory: 16017 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 6
      1 ,                                                                                                    
      2 , C:\PrgW\Icra\IcraW.exe                                                                              
      3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.19041.3636_none_a863d7
      4 DDE Server Window, C:\Windows\System32\ole32.dll                                                                      
      5 GDI+ Window (IcraW.exe), C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.19041.3636_none_d94ec9f9e106bb
      6 HideForm, C:\PrgW\Icra\FrSystH.dll                                                                            

Variables in use
================
   Procedure     Type   Value
   ==========================
   __ERRRT_SBASE
     Param   1:    O    Class: ERROR
   TGET:ERROR
     Param   1:    N    13
     Param   2:    N    1004
     Param   3:    C    "Message not found"
     Param   4:    C    "TGET:LISWIDECHAR"
     Param   5:    N    1
     Param   6:    O    Class: TGET
     Local   1:    U    
     Local   2:    U    
   (b)HBOBJECT
     Param   1:    C    "Message not found"
     Param   2:    C    "TGET"
     Param   3:    C    "LISWIDECHAR"
     Param   4:    N    1004
   TGET:MSGNOTFOUND
     Param   1:    O    Class: TGET
     Param   2:    C    "LISWIDECHAR"
   TGET:LISWIDECHAR
     Param   1:    C    "LISWIDECHAR"
   TGET:KEYCHAR
   TWINDOW:HANDLEEVENT
     Param   1:    N    49
     Param   2:    N    131073
     Local   1:    U    
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    S    @WQOUT()
     Local   8:    U    
     Local   9:    N    49
     Local  10:    L    .F.
   TCONTROL:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    49
     Param   3:    N    131073
   TGET:HANDLEEVENT
     Param   1:    N    258
     Param   2:    N    49
     Param   3:    N    131073
     Local   1:    U    
   _FWH
     Param   1:    N    258
     Param   2:    N    49
     Param   3:    N    131073
     Local   1:    U    
     Local   2:    U    
   DIALOGBOXINDIRECT
     Param   1:    N    131073
     Param   2:    N    258
     Param   3:    N    49
     Param   4:    N    131073
     Param   5:    N    185
     Local   1:    O    Class: TGET
   TDIALOG:ACTIVATE
     Param   1:    N    6356992
     Param   2:    C    "€ À€    
   — Ú     L o g i n       P        — ‹ T X I M A G E            P    
 ‹  S T A T I C   O B J E K T   0C R A   T a k i p   P r o g r a m 1      P     •  -
B U T T O N        P    2 ¶ [ B U T T O N   K u l l a n 1c 1  A d 1  S a k l a          P    
 ž I  S T A T I C   K u l l a n 1c 1  A d 1         P    
 ¬ 2 S T A T I C   P a r o l a     € P    2 œ Z E D I T   a                                                               € P    2 ª Z E D I T                                                 P     Ä 7  T B T N B M P     & G i r i _  Y a p           P    P Ä 2  T B T N B M P     & Ç 1k 1_        "

     Param   3:    N    1183040
     Param   4:    O    Class: TDIALOG
   TAPPLICATION:LOGIN_USER
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    L    .F.
     Param  13:    O    Class: TDIALOG
     Param  14:    U    
     Local   1:    N    1183040
     Local   2:    S    @_NRESULT()
     Local   3:    O    Class: TDIALOG
   TAPPLICATION:LOGIN
     Param   1:    O    Class: TWINDOW
     Local   1:    O    Class: TDIALOG
     Local   2:    C    "a                             "
     Local   3:    C    "                    "
     Local   4:    L    .F.
     Local   5:    O    Class: TGET
     Local   6:    O    Class: TGET
     Local   7:    L    .T.
     Local   8:    N    158
     Local   9:    N    1
     Local  10:    U    
     Local  11:    O    Class: TAPPLICATION
   TAPPLICATION:ONINIT
     Param   1:    O    Class: TWINDOW
     Local   1:    U    
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    O    Class: TWINDOW
     Local   6:    U    
     Local   7:    S    @LOGIN_USER()
   (b)TAPPLICATION_ACTIVATE
   TWINDOW:ACTIVATE
     Param   1:    O    Class: TWINDOW
   TAPPLICATION:ACTIVATE
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    B    {|| ... }
     Param   6:    U    
     Param   7:    B    {|| ... }
     Param   8:    B    {|| ... }
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Param  20:    L    .F.
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    O    Class: TAPPLICATION
     Local   2:    N    10526880
     Local   3:    O    Class: TFONT
     Local   4:    C    ""
     Local   5:    N    1360
     Local   6:    N    711
     Local   7:    N    1600
     Local   8:    N    900
 


ps. I downloaded the latest version from the fwh website in case there was a new version.
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1288
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem

Postby Horizon » Thu Nov 16, 2023 9:10 am

nageswaragunupudi wrote:Is the result "286, .F., .F., .T." ?

Yes.
nageswaragunupudi wrote:Next, please also check
1)
Code: Select all  Expand view
? HB_StrIsUtf8( cVar )


.F.
nageswaragunupudi wrote:just before the command @ r,c GET ...

Yes
nageswaragunupudi wrote:2) Is your Get created by command like @ r,c GET ...
or from RESOURCE like REDEFINE GET

No
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1288
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem

Postby Horizon » Thu Nov 16, 2023 6:40 pm

Mr. Rao,

any progress?
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1288
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem

Postby nageswaragunupudi » Fri Nov 17, 2023 5:14 am

Please give me more time.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10248
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Fwh 23.10 TGet another problem

Postby Antonio Linares » Fri Nov 17, 2023 8:58 am

Dear Hakan,

Please download FWH 23.10 again

It should be ok now

many thanks
regards, saludos

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

Re: Fwh 23.10 TGet another problem

Postby Rick Lipkin » Fri Nov 17, 2023 5:37 pm

Antonio

I have been able to download all the 2310 updates until today .. my FTDN must have just run out ... could you add a couple more days so I can get the latest 2310 ??

Thanks
Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2617
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Fwh 23.10 TGet another problem

Postby Horizon » Fri Nov 17, 2023 6:26 pm

Antonio Linares wrote:Dear Hakan,

Please download FWH 23.10 again

It should be ok now

many thanks


Thank you Antonio,

But It gives new error. I think there are missing data variable.
Code: Select all  Expand view
Application
===========
   Path and name: C:\PrgW\Icra\IcraW.exe (32 bits)
   Size: ********* bytes
   Compiler version: Harbour 3.2.0dev (r2304211101)
   FiveWin  version: FWH 23.10
   C compiler version: Microsoft Visual C 19.35.32217 (32-bit)
   Windows 10 64 Bits, version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 4 secs
   Error occurred at: 17/11/2023, 21:18:52
   Error description: Error BASE/1005  Message not found: TFONT:_CNAME
   Args:
     [   1] = O   TFONT

Stack Calls
===========
   Called from: ../../../tobject.prg => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TFONT:ERROR( 148 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 77 )
   Called from: ../../../tobject.prg => TFONT:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TFONT:_CNAME( 142 )
   Called from: .\source\classes\FONT.PRG => TFONT:NEW( 243 )
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:NEW( 310 )
   Called from: .\Master.prg => DEFINE_RIBBON( 2767 )
   Called from: .\Master.prg => (b)MAIN( 352 )
   Called from: .\TApplication.prg => TAPPLICATION:ACTIVATE( 1341 )
   Called from: .\Master.prg => MAIN( 410 )
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1288
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem

Postby Horizon » Fri Nov 17, 2023 6:52 pm

Hi Antonio,

I think some additions have started to be made to the TFont class, but I think some data variables have not been written. When I added the following line to TFont.prg, the problem disappeared.
Code: Select all  Expand view
     DATA   cName, nAscent, nDescent, nInternalLeading, nExternalLeading
 
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1288
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem

Postby Antonio Linares » Fri Nov 17, 2023 6:54 pm

Rick Lipkin wrote:Antonio

I have been able to download all the 2310 updates until today .. my FTDN must have just run out ... could you add a couple more days so I can get the latest 2310 ??

Thanks
Rick Lipkin


Dear Rick,

could you please try it again ? We haven't modified anything, it should work

many thanks
regards, saludos

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

Re: Fwh 23.10 TGet another problem

Postby Antonio Linares » Fri Nov 17, 2023 7:09 pm

Dear Hakan,

Please modify Class TFont line 243 this way:

::cFaceName = aInfo[ 4 ]

and try it again

many thanks
regards, saludos

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

Re: Fwh 23.10 TGet another problem

Postby Horizon » Fri Nov 17, 2023 7:23 pm

Antonio Linares wrote:Dear Hakan,

Please modify Class TFont line 243 this way:

::cFaceName = aInfo[ 4 ]

and try it again

many thanks


I deleted the line I added and the error after making the change you mentioned
Code: Select all  Expand view
Application
===========
   Path and name: C:\PrgW\Icra\IcraW.exe (32 bits)
   Size: ********* bytes
   Compiler version: Harbour 3.2.0dev (r2304211101)
   FiveWin  version: FWH 23.10
   C compiler version: Microsoft Visual C 19.35.32217 (32-bit)
   Windows 10 64 Bits, version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 4 secs
   Error occurred at: 17/11/2023, 22:21:51
   Error description: Error BASE/1005  Message not found: TFONT:_NASCENT
   Args:
     [   1] = O   TFONT

Stack Calls
===========
   Called from: ../../../tobject.prg => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TFONT:ERROR( 148 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 77 )
   Called from: ../../../tobject.prg => TFONT:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TFONT:_NASCENT( 142 )
   Called from: C:\fwH\source\classes\font.prg => TFONT:NEW( 244 )
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:NEW( 310 )
   Called from: .\Master.prg => DEFINE_RIBBON( 2767 )
   Called from: .\Master.prg => (b)MAIN( 352 )
   Called from: .\TApplication.prg => TAPPLICATION:ACTIVATE( 1341 )
   Called from: .\Master.prg => MAIN( 410 )
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1288
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem

Postby Antonio Linares » Fri Nov 17, 2023 7:37 pm

Dear Hakan,

Please download FWH.exe again

We apologize for these errors

thanks so much for your help :-)
regards, saludos

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

Re: Fwh 23.10 TGet another problem (SOLVED)

Postby Horizon » Fri Nov 17, 2023 8:39 pm

Hi Mr. Rao, Antonio,

It's working great right now.Thank you.
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1288
Joined: Fri May 23, 2008 1:33 pm

PreviousNext

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Silvio.Falconi and 91 guests