Thanks for your detailed response...it may get me in the right direction....for now they will use the English version!
>Not directly - will Korean do? ;-)
>
>I had a problem recently trying to get the program to work correctly. Its now fine.
>
>There were 4 reasons it didn't work correctly:
>
>1. You have to use the correct font - I got this code from Microsoft
>
>Create a program and paste this into it. It determines which font to use from looking at the system info. It then sets the FontName to use:
>
>#define DEFAULT_CHARSET 1
>#define SYMBOL_CHARSET 2
>#define SHIFTJIS_CHARSET 128
>#define HANGEUL_CHARSET 129
>#define CHINESEBIG5_CHARSET 136
>#define CHINESESIMPLIFIED_CHARSET 134
>
>define class LocalInfo as custom
>
> Charset = 0
> fontname = ""
> fontsize = 0
>
> proc init
>
> declare integer GetUserDefaultLCID in "kernel32"
>
> lnLCID = GetUserDefaultLCID()
>
> do case
> case lnLCID = 1028 && Traditional Chinese
> this.Charset = CHINESEBIG5_CHARSET
> *this.FontName = ChrW(&H65B0) + ChrW(&H7D30) + ChrW(&H660E) + ChrW(&H9AD4) 'New Ming-Li
> * New Ming-Li
> this.fontname = chr( 101 ) + chr( 176 ) + chr( 125 ) + chr( 48 ) + chr( 102 ) + chr( 14 ) + chr( 154 ) + chr( 212 )
> this.fontsize = 9
>
> case lnLCID = 1041 && Japan
> this.Charset = SHIFTJIS_CHARSET
> *this.FontName = ChrW(&HFF2D) + ChrW(&HFF33) + ChrW(&H20) + ChrW(&HFF30) + ChrW(&H30B4) + ChrW(&H30B7) + ChrW(&H30C3) + ChrW(&H30AF)
> this.fontname = chr( 255 ) + chr( 45 ) + chr( 255 ) + chr( 51 ) + chr( 0 ) + chr( 32 ) +;
> chr( 255 ) + chr( 48 ) + chr( 48 ) + chr( 180 ) + chr( 48 ) + chr( 183 ) + ;
> chr( 48 ) + chr( 195 ) + chr( 48 ) + chr( 175 )
> this.fontsize = 9
>
> case lnLCID = 1042 &&Korea UserLCID
> this.Charset = HANGEUL_CHARSET
> *this.FontName = ChrW(&HAD74) + ChrW(&HB9BC)
> this.fontname = chr( 173 ) + chr( 116 ) + chr( 185 ) + chr( 188 )
> this.fontsize = 9
>
> case lnLCID = 2052 && Simplified Chinese
> this.Charset = CHINESESIMPLIFIED_CHARSET
> *this.FontName = ChrW(&H5B8B) + ChrW(&H4F53)
> this.fontname = chr( 91 ) + chr( 139 ) + chr( 79 ) + chr( 83 )
> this.fontsize = 9
>
> otherwise && The other countries
> this.Charset = DEFAULT_CHARSET
> this.fontname = "Arial" && Get the default UI font.
> this.fontsize = 9
>
> endcase
>
>endproc
>
>enddefine
>
>...then place the following in your start up code.
>
> public oLocalMnger
> set proc to Korean additive
> oLocalMnger = create( "LocalInfo" )
>
>* PUBLIC! *
>Well it has to be available anywhere and everywhere through your system. An alternative is use _screen.AddObject.
>
>Then in the init of all your base classes, use:
>
> this.FontName = oLocalMnger.FontName
>
>Job Done!
>
>2. The software will support DoubleByte characters as long as you use the supporting functions. These are ATC, LEFTC, RIGHTC, RATC, etc. They will all need changing. I have the code to run through the project and correct it, if you would like.
>
>3. SQL statements no longer perform joins. The collaction sequence is set to local - it must be machine for the SQL to work.
>
>4. Finally, watch out for special symbols, such as the 'degree circle'. These can not be displayed, and must be substituted with alternative abbrieviations.
>
>Hope this helps ;-)
>
>Give us a shout if I can be of any further help
>
>Jason
>
>
>
>>Does anyone have any experience doing this? or have any input on what I need to do?
>>
>>TIA, J
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only