FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour TGet class PICTURE '@!' Problem
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
TGet class PICTURE '@!' Problem
Posted: Sat Apr 23, 2016 04:19 PM
Hi Antonio,

I started to use this code to use my national characters set.

Code (fw): Select all Collapse
REQUEST HB_CODEPAGE_TRWIN
HB_CDPSELECT( "TRWIN" )



After this change, I have another problem with TGet(). I have some get variables that has picture "@!". It should be uppercase all characters in get.

All character is working good except our national character "İ". "İ" is the uppercase of "i".

When I press the upper "İ", there is no problem, but lower "i" is converted to "I" (without dot).

1. I have tried to build my application with TGet.prg after delete all my obj files. The result is same.

2. I have searched the picture "@!" in TGet.prg and found in line 1203.
Code:
Code (fw): Select all Collapse
nKey = Asc( CharUpper( nKey ) )


I have searched CharUpper function info but there is not in fwh source directory. I dont know harbours is.

I have changed this line like that.

Code (fw): Select all Collapse
nKey = Asc(Upper(Chr(nKey)))


It is long way but It is working GOOD.

I dont want to changed fwh source in my application. Should I always us like this.

Any opinion?

Thanks.
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TGet class PICTURE '@!' Problem
Posted: Sun Apr 24, 2016 08:49 AM
Hakan,

Very good fix, many thanks

Included for next FWH version :-)

* Enhancement: Class TGet now uses Harbour Upper() instead of CharUpper():

viewtopic.php?p=189613#p189613

many thanks to Hakan!
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion