[DUG] vertical text in label

[Jeremy Coulter]

Take a look on www.torry.net (or www.torrys.net)  as there are load of
controls and examples around

  _____  

From: delphi-bounces at listserver.123.net.nz
[mailto:delphi-bounces at listserver.123.net.nz] On Behalf Of Vikas...
Sent: 12 February 2008 23:16
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] vertical text in label


Hi
 
I have one query to rotate the text in label in delphi 5
 
anyone have any ideas how to do it
 
i have used to following code  but dint helped me
 


var
  ALogFont: TLogFont;
  hFont: THandle;
begin
   ALogFont.lfHeight := Font.Height;
   ALogFont.lfEscapement := 900;
   ALogFont.lfOrientation := 900;
   hFont := CreateFontIndirect (ALogFont);
   Label1.Canvas.Font.Handle :=hFont;
   Label1.Canvas.TextOut(1,1 ,'hello'); 
regards 
Vikas

-- 
  vikas 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20080213/fd8ed3aa/attachment.html