TGet class PICTURE '@!' Problem

TGet class PICTURE '@!' Problem

Postby Horizon » Sat Apr 23, 2016 4:19 pm

Hi Antonio,

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

Code: Select all  Expand view
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: Select all  Expand view
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: Select all  Expand view
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.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm

Re: TGet class PICTURE '@!' Problem

Postby Antonio Linares » Sun Apr 24, 2016 8: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 44 guests