Standard Delphi 4 (i think 5 as well) don't support unicodes. If you want
to dispaly unicode you have to create ur own TLabel component by overriding:
procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
Then on the implementation you should do the following:
procedure ...DoDrawText(var Rect: TRect; Flags: Longint);
begin
...
ExtTextOutW(Canvas.Handle, 1,1, ETO_CLIPPED, @Rect,
pWideChar(#9660), Length(#9660), nil);
...
end;
Hope this help.
----- Original Message -----
From: "Robert Martin" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Wednesday, September 26, 2001 1:30 PM
Subject: Re: [DUG]: Unicode
> It is supposed to be a solid downwards pointing arrow (as in the ones
used
> in outlook express). The font may need to be set to arial to get the
> correct result. Although after testing your code on my machine I get a ?
> mas well. The character map shows the character as U+25BC which I assume
> means 25BC Hex and converts to 9660 decimal.
>
>
> Robert Martin
> Software Engineer
> Wild Software Ltd
> ----- Original Message -----
> From: "Nello Sestini" <[EMAIL PROTECTED]>
> To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
> Sent: Wednesday, September 26, 2001 1:07 PM
> Subject: Re: [DUG]: Unicode
>
>
> > > I would like to display a unicode character in a TLabel. I tried
> > > Label.Caption := WideStrToString(#9660) but I get a '?' instead of
> > > the character I am after. Ideas?
> >
> > procedure TForm1.Button3Click(Sender: TObject);
> > const w:widestring = #9660;
> > begin
> > label1.caption:='abc'+w+'def';
> > end;
> >
> > When I do this and display the caption using MSSansSerif
> > I get a heavy dot below the baseline. What is #9660 supposed
> > to convert to?
> >
> > (If I try this with #9662 or #9663 i get "?"s - i.e. they don't
> > have single byte equivalents)
> >
> > -ns
> >
> >
> >
> >
>
> --------------------------------------------------------------------------
> -
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> >
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
