<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2900.3132" name=GENERATOR></HEAD>
<BODY>
<DIV dir=ltr align=left><SPAN class=265235218-12022008><FONT face=Arial
color=#0000ff size=2>Take a look on <A
href="http://www.torry.net">www.torry.net</A> (or <A
href="http://www.torrys.net">www.torrys.net</A>) as there are load of
controls and examples around</FONT></SPAN></DIV><BR>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> delphi-bounces@listserver.123.net.nz
[mailto:delphi-bounces@listserver.123.net.nz] <B>On Behalf Of
</B>Vikas...<BR><B>Sent:</B> 12 February 2008 23:16<BR><B>To:</B> NZ Borland
Developers Group - Delphi List<BR><B>Subject:</B> [DUG] vertical text in
label<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV>Hi</DIV>
<DIV> </DIV>
<DIV>I have one query to rotate the text in label in delphi 5</DIV>
<DIV> </DIV>
<DIV>anyone have any ideas how to do it</DIV>
<DIV> </DIV>
<DIV>i have used to following code but dint helped me</DIV>
<DIV> </DIV><FONT face=Mono3Quark-Regular size=1>
<P></P></FONT><FONT face=Mono3Quark-Regular size=1><FONT
style="BACKGROUND-COLOR: #ffffff"><BR><FONT face=arial,sans-serif
size=2>var<BR> ALogFont: TLogFont;<BR> hFont:
THandle;<BR>begin<BR> ALogFont.lfHeight :=
Font.Height;<BR> ALogFont.lfEscapement := 900;<BR>
ALogFont.lfOrientation := 900;<BR> hFont := CreateFontIndirect
(ALogFont);<BR> Label1.Canvas.Font.Handle :=hFont;<BR>
Label1.Canvas.TextOut(1,1 ,'hello');</FONT></FONT>
<DIV></DIV></FONT>regards
<DIV>Vikas<BR clear=all><BR>-- <BR> vikas </DIV></BODY></HTML>