Very Computer

dear group,

how can i write text at an angle on a canvas using textout or any other
way.

will be indebted if anyone can help.

thanx

You'll need to go to the Windows API, and the CreateFontIndirect
routine. Look at the nEscapement and nOrientation fields of the
LOGFONT (TLogFont in Delphi) structure to see how to set up the
rotation.

Note that this generally only works with TrueType fonts.

Good luck.

Kurt

See the Inprise Q&A "Create a rotated font"
http://www.inprise.com/devsupport/delphi/qanda/708.html

efg
_________________________________________
efg's Computer Lab:  http://infomaster.net/external/efg

MedTech Research Corporation, Lenexa, KS  USA

Try this code:

procedure TForm1.AngleTextOut(const sText: String;x, y,angle:integer);
var
  LogFont: TLogFont;
  OldFont,NewFont : hFont;
begin

  with LogFont do
  begin
    lfEscapement:= angle;
    lfQuality:=PROOF_QUALITY;
  end;
  NewFont:=CreateFontIndirect(LogFont);
  OldFont := SelectObject(Canvas.Handle, NewFont);
  SetBkMode(Canvas.Handle, TRANSPARENT);
  Windows.TextOut(Canvas.Handle,x,y, PChar(sText), Length(sText));
  SelectObject(Canvas.Handle, OldFont);
  DeleteObject(NewFont);
end;