🚀 go-pugleaf

Cut and paste Unicode characters does not work in VCL, because it uses
CreateWindowA to create edit controls. As such, Windows will try to
convert any Unicode codepoint to Ansi using the System codepage. If the
system codepage does not support it, you'll get a question mark. To cut
and paste Unicode characters, use either RichEdit or your own Edit
controls via CreateWindowW. For an example, you may refer to Troy
Wolbrink's Unicode controls:
http://home.ccci.org/wolbrink/tntmpd/delphi_unicode_controls_project.htm

However, if you get "|", it means that the character was not converted,
but merely, you lack the proper font to display it. But you have to make
sure that you pass correctly the parameters to ExtTextOutW. 

I've been doing this kind of stuff for over two years. My apps (some
written in Delphi) allow display and input of Chinese, Japanese and
Korean characters in English Win9x/NT/2000/XP, in pretty much the same
way Office and IE5.0 do.

Francisco

Christian Sommerhuber wrote:
> 
> Hi Francisco,
> your answer seems promising. However as I can see in Excel, it's still
> Arial. So I used as well Arial. I switched between DEFAULT_CHARSET,
> ANSI_CHARSET, SHIFTJIS_CHARSET, THAI_CHARSET and CHINESEBIG5_CHARSET. When I
> paste the char here: "?" (at least when sending from my PC it shows up as
> Chinese character, although I didn't change the font).
> By the way I found as well an "Arial Unicode MS" and "Multinational Ext"
> font on my PC. They do as well the same as Arial.
> So what font do you think I have to use ?
> 
> Christian
> 
> "FL" <frleong@hotmail.com> wrote in message
> news:3C999693.B068D05@hotmail.com...
> > Christian Sommerhuber wrote:
> > >
> > > I've read the thread "Unicode? Help!" and followed the instructions.
> However
> > > when trying to output a widechar with
> > >
> > > #define UNICODE
> > >
> > > ....
> > >
> > >     wc[0]=21016;
> > >     wc[1]=0;
> > >     Form1->Canvas->TextOutW(30, 130, wc);
> > I don't think you can use TextOutW with VCL...
> >
> > >
> > > I always just get a question mark plotted. The next I tried was
> > >
> > >     HDC hdc = GetDC(0);
> > >     TextOutW(hdc, 30, 230, wc, 1);
> > >     RECT r={ 30, 300, 600, 400 };
> > >     ExtTextOutW (hdc, 30, 330, ETO_OPAQUE | ETO_GLYPH_INDEX , &r, wc, 1,
> 0);
> > >
> > > Both resulted in a bold "|".
> > You're using the wrong font. Select the right font and you'll get the
> > results you want.
> >
> > Francisco