Thanks for your help. I decided that if I needed to modify my label
component just for one character I would be better looking at alternatives.
I found the same symbol in standard wingdings3 so Ive used that in another
label beside the existing one. Not elegant but much less effort / time
reqd.
Robert Martin
Software Engineer
Wild Software Ltd
----- Original Message -----
From: "Allan Vergara" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Wednesday, September 26, 2001 1:38 PM
Subject: Re: [DUG]: Unicode
> 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/
>
---------------------------------------------------------------------------
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/
