Печать повернутого текста 4 Delphi , Графика и Игры , Canvas
Печать повернутого текста 4
Приведенное выше решение (1) очень медленно, так как требует рисования текста
и содержит, на мой взгляд, неэффективный метод вращения. Попробуйте взамен
это:
procedure TForm1.TextUp(aRect:tRect;aTxt:String );
var
LFont: TLogFont;
hOldFont, hNewFont: HFont;
begin
GetObject(Canvas.Font.Handle,SizeOf(LFont),Addr(LFont));
LFont.lfEscapement := 900;
hNewFont := CreateFontIndirect(LFont);
hOldFont := SelectObject(Canvas.Handle,hNewFont);
Canvas.TextOut(aRect.Left+2,aRect.Top,aTxt);
hNewFont := SelectObject(Canvas.Handle,hOldFont);
DeleteObject(hNewFont);
end ;
Статья Печать повернутого текста 4 раздела Графика и Игры Canvas может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
:: Главная :: Canvas ::
