Page 3 of 9
Re: Fwh 23.10 TGet another problem
Posted: Wed Nov 15, 2023 9:43 pm
by Horizon
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
METHOD KeyChar( nKey, nFlags ) CLASS TGet
local nHi, nLo
local lAccept
local bKeyAction := SetKey( nKey )
local nDefButton
local nVal, cVal
? nKey, nFlags, FW_SetUnicode()
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
//
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?
Re: Fwh 23.10 TGet another problem
Posted: Thu Nov 16, 2023 2:29 am
by nageswaragunupudi
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
please test
Code: Select all | Expand
? nKey, FW_SetUnicode(), ::lIsWideChar, IsWindowUnicode( ::hWnd )
Next, please also check
1)
just before the command @ r,c GET ...
2) Is your Get created by command like @ r,c GET ...
or from RESOURCE like REDEFINE GET
Re: Fwh 23.10 TGet another problem
Posted: Thu Nov 16, 2023 8:36 am
by Horizon
Hi Mr. Rao,
Please ignore, there is a wrong spelling. I found IsWideChar.
Code: Select all | Expand
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.
Re: Fwh 23.10 TGet another problem
Posted: Thu Nov 16, 2023 9:10 am
by Horizon
nageswaragunupudi wrote:
Is the result "286, .F., .F., .T." ?
Yes.
nageswaragunupudi wrote:
Next, please also check
1)
.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
Re: Fwh 23.10 TGet another problem
Posted: Thu Nov 16, 2023 6:40 pm
by Horizon
Mr. Rao,
any progress?
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 5:14 am
by nageswaragunupudi
Please give me more time.
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 8:58 am
by Antonio Linares
Dear Hakan,
Please download FWH 23.10 again
It should be ok now
many thanks
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 5:37 pm
by Rick Lipkin
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
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 6:26 pm
by Horizon
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
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 )
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 6:52 pm
by Horizon
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
DATA cName, nAscent, nDescent, nInternalLeading, nExternalLeading
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 6:54 pm
by Antonio Linares
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
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 7:09 pm
by Antonio Linares
Dear Hakan,
Please modify Class TFont line 243 this way:
::cFaceName = aInfo[ 4 ]
and try it again
many thanks
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 7:23 pm
by Horizon
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
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 )
Re: Fwh 23.10 TGet another problem
Posted: Fri Nov 17, 2023 7:37 pm
by Antonio Linares
Dear Hakan,
Please download FWH.exe again
We apologize for these errors
thanks so much for your help
Re: Fwh 23.10 TGet another problem (SOLVED)
Posted: Fri Nov 17, 2023 8:39 pm
by Horizon
Hi Mr. Rao, Antonio,
It's working great right now.Thank you.
