I use this to make the text print from bottom to top.
Jason
procedure TextUp(MyCanvas: TCanvas; aRect: TRect; aTxt: String);
var LFont: TLogFont; hOldFont, hNewFont: HFont;
begin
GetObject(MyCanvas.Font.Handle,SizeOf(LFont),Addr(LFont));
LFont.lfEscapement := 900;
hNewFont := CreateFontIndirect(LFont);
hOldFont := SelectObject(MyCanvas.Handle,hNewFont);
MyCanvas.TextOut(aRect.Left+2,aRect.Top,aTxt);
hNewFont := SelectObject(MyCanvas.Handle,hOldFont);
DeleteObject(hNewFont);
end;
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Myles Penlington
Sent: Friday, 18 August 2000 10:51 a.m.
To: Multiple recipients of list delphi
Subject: RE: [DUG]: Rotated text
Only True Type fonts can be rotated - any others fail.
> -----Original Message-----
> From: Paul Lowman [SMTP:[EMAIL PROTECTED]]
> Sent: Friday, August 18, 2000 10:51 AM
> To: Multiple recipients of list delphi
> Subject: [DUG]: Rotated text
>
> Hi
>
> I'm trying to draw rotated text on a canvas - I am using the lfEscapement
> /
> lfOrientation values to change the angle and it appears to work as any
> text
> that is a 0 degrees displays fine but any other angle only shows the text
> background rectangle. Tried different colors etc but with no joy - Any
> ideas
> ?
>
> TIA
>
> Paul Lowman
>
> Lowman Consulting Ltd.
> Embedded Systems & Software
>
> --------------------------------------------------------------------------
> -
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
