From: nolenj@aol.com (NolenJ)
Subject: Re: Rotating text
Date: 28 Apr 1999 00:00:00 GMT
Message-ID: <19990428161659.27627.00000011@ng-co1.aol.com>
References: <7g7m3h$9oh$1@quince.news.easynet.net>
Organization: AOL http://www.aol.com
Newsgroups: alt.comp.lang.borland-delphi
X-Admin: news@aol.com

I don't know if this will help, but here goes.

DRAWING ANGLED STRINGS:

procedure TForm1.Canvastextoutangle(c:TCanvas; x,y:integer; angle:word;
s:string; acolor:TColor);
var
  Logrec:TLOGFONT;
  OldFontHandle,NewFontHandle:HFONT;
begin
  GetObject(C.Font.Handle,Sizeof(Logrec),Addr(Logrec));
  Logrec.lfEscapement:=angle*10;
  Logrec.lfOrientation:=angle*10;
  NewFontHandle:=CreateFontIndirect(Logrec);
  OldFontHandle:=SelectObject(c.Handle,NewFontHandle);
  c.Brush.Style:=bsClear;
  c.Brush.Color:=acolor;
  c.TextOut(x,y,s);
  NewFontHandle:=SelectObject(c.Handle,OldFontHandle);
  DeleteObject(NewFontHandle);
end;

//note: must be a truetype font for this to work
//call example..
// CanvasTextOutAngle(Form1.Canvas,0,0,45,'Hello',clBlack)