[DUG] vertical text in label

[Myles Penlington]

I've done this before. From memory you have to use a True type? Font,
else it does not rotate.

Myles.

 

 

From: delphi-bounces at listserver.123.net.nz
[mailto:delphi-bounces at listserver.123.net.nz] On Behalf Of Jeremy
Coulter
Sent: Wednesday, 13 February 2008 7:54 a.m.
To: 'NZ Borland Developers Group - Delphi List'
Subject: RE: [DUG] vertical text in label

 

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 



Attention:
This communication is confidential and may be legally privileged.  If you are not the intended recipient, please do not use, disclose, copy or distribute it, other than to return it to us with your confirmation that it has been deleted from your system.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20080213/e66070f6/attachment.html