Yeah I think we might do that.
Robert Martin
Software Engineer
Wild Software Ltd
----- Original Message -----
From: "Stacey Verner" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Wednesday, September 26, 2001 2:36 PM
Subject: RE: [DUG]: Unicode
> What about using an image?
>
> Then you don't have to rely on the font being there.
>
> Stacey
>
> > -----Original Message-----
> > From: Robert Martin [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, 26 September 2001 2:25 p.m.
> > To: Multiple recipients of list delphi
> > Subject: Re: [DUG]: Unicode
> >
> >
> > 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/
> --------------------------------------------------------------------------
-
> 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/
