[DUG] vertical text in label

[Vikas...]

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/20080212/e53e00bb/attachment.html