Different font


Hi,
is it possible to have differents fonts in a single string ?
I mean, I want Label1.Caption := 'Hello Word'  but with
the 'W', or any other letter in a different font.  Is it possible ???
Thank you.
frdepAsked:
Who is Participating?
 
h_mohsenianConnect With a Mentor Commented:
Use TRichEdit and For An Example of Use See RichEdit Standard Delphi Demo ( In Demo Folder ).

also TRTFLabel that Epsylon said is a RichLable with the same properties of RichEdit.
0
 
kretzschmarCommented:
not with TLabel i guess

but go to

www.torry.ru

gueesing you will find there a free component,
whery this may possible

meikl ;-)
0
 
EpsylonCommented:
Get TjanMarkupLabel from:

http://jansfreeware.com/jfdelphi.htm
0
Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

 
EpsylonCommented:
Or better, TRTFLabel from http://www.tmssoftware.com
0
 
alx512Commented:
You can use this code.
Insert the TPaintBox on the Form and then
write OnPaint event handler:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  X, Y: Integer;
begin
  with PaintBox1.Canvas do
  begin
    Brush.Color := clBtnFace;
    FillRect(ClipRect);
    Font.Name  := 'Tahoma';
    Font.Style := [fsBold];
    Font.Size  := 12;
    X := 1;
    Y := PaintBox1.Height - TextHeight('H');
    TextOut(X, Y, 'H');
    X := X + TextWidth('H');
    Font.Name  := 'Verdana';
    Font.Size  := 10;
    Font.Style := [];
    Y := PaintBox1.Height - TextHeight('ello world!');
    TextOut(X, Y, 'ello world!');
  end;
end;
0
 
EpsylonCommented:
Huh?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.