Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS