2009/12/31 Przemysław Czerpak <[email protected]>:

> Euro sign has unicode value: U+20AC
> ...
> Without knowledge
> what _exactly_ you have modified in Harbour what _exactly_ you set
> as HVM and GT CPs in your programs and how it's configured your system
> (used locale) I cannot give you precise answer what has happened.

Many thanks for the answer.

Now I've reset all the changes and my tree is based on  * $Id:
ChangeLog 13372 2009-12-22 21:00:36Z vszakats $

I use the test below.

If I change cpitso.c with:

#define HB_CP_INFO      "Italian ISO-8859-15"
#define HB_CP_UNITB     HB_UNITB_8859_15

I see the Euro as a square in a get but I can get all the accented I need.
Using oocalc myiso.dbf I need to choose "Western Europe
(Windows-1252/WinLatin1)" to see the Euro symbol while If I choose
"Western Europe (ISO-8859-15/EURO) I see only squares

If I change cpitso.c with:

#define HB_CP_INFO      "Italian ISO-8859-1B"
#define HB_CP_UNITB     HB_UNITB_8859_1B

I see CORRECTLY the Euro symbol in the get but I lost many accented
chars while oocalc myiso.dbf is hte same as above.

So the best thing would be to have ISO-8859-15 with the Euro as in ISO-8859-1B.

To do the tests I'm changing the keyboard layout using the gnome
Keyboard Indicator.

best regards,
Lorenzo

// myiso.prg

REQUEST HB_CODEPAGE_ITISO
REQUEST HB_UTF8TOSTR

procedure main

local cString := space( 20 )

HB_SETCODEPAGE( "ITISO" )
HB_SETTERMCP( "ITISO", "ITISO", .f. )

clear

? chr( 128 )
? chr( 164 )

@ 10,10 get cString
read

? cString
wait

dbcreate( "myiso.dbf", { { "CSTRING", "C", 20, 0 } } )
use myiso.dbf exclusive
dbappend()
replace myiso->cstring with cString
use

return

// end of prg
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to