Печать повернутого текста

procedure
 AngleTextOut(CV: TCanvas; const
 sText:
  string
; x, y, angle: integer);
var

  LogFont: TLogFont;
  SaveFont: TFont;
begin

  SaveFont := TFont.Create;
  SaveFont.Assign(CV.Font);
  GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
  with
 LogFont do

  begin

    lfEscapement := angle * 10;
    lfPitchAndFamily := FIXED_PITCH or
 FF_DONTCARE;
  end
; {with}
  CV.Font.Handle := CreateFontIndirect(LogFont);
  SetBkMode(CV.Handle, TRANSPARENT);
  CV.TextOut(x, y, sText);
  CV.Font.Assign(SaveFont);
  SaveFont.Free;
end
;

Другое по теме:

• TCanvas и освобождение дескрипторов
• Алгоритм градиентной заливки
• Вертикальный текст