DaniWeb IT Discussion Community - Set Text Angle for a TFont instance

Code Snippets (http://www.daniweb.com/code/)

- delphi (http://www.daniweb.com/code/delphi.html)

- - Set Text Angle for a TFont instance (http://www.daniweb.com/code/snippet476.html)

Lord Soth

delphi syntax
Mar 18th, 2006

Note that the angle is in 1/10 of degrees. Any attempt to manipulate font.size or font.color will reset the angle to zero degrees.

procedure SetTextAngle(F:Tfont; angle: Word); 
var 
  LogRec: TLOGFONT;  
begin 
  GetObject(f.Handle,SizeOf(LogRec),Addr(LogRec)); 
  LogRec.lfEscapement := angle; 
  f.Handle := CreateFontIndirect(LogRec); 
end;