在canvas中画角的代码是什么?

procedure TextOutAngled ( iCoordX, iCoordY: integer; const sString: string; iAngle, iSize: integer ); 
var 
   oLogFont: TLogFont; 
   SaveFont: TFont; 
begin 
     SaveFont := TFont.Create; 
     SaveFont.Assign( GlobalCanvas.Font); 

     GetObject(SaveFont.Handle, sizeof(TLogFont), @oLogFont); 

     with oLogFont do 
     begin 
          lfHeight := iSize * 2; 
          lfEscapement := iAngle * 10; 
          lfQuality := PROOF_QUALITY; 
          lfPitchAndFamily := DEFAULT_PITCH or FF_DONTCARE; 
     end; 

     with GlobalCanvas do 
     begin 
          Font.Handle := CreateFontIndirect ( oLogFont ); 
          SetBkMode ( Handle, TRANSPARENT ); 
          TextOut(iCoordX, iCoordY, sString ); 
          Font.Assign ( SaveFont ); 
     end; 

     SaveFont.Free; 
end;

转载于:https://www.cnblogs.com/myamanda/articles/1542803.html