Как выдать текст под наклоном?

Страница 1 из 4

Чтобы вывести под любым углом текст необходимо использовать TrueType Fonts (например "Arial"). Например:

Code:

var

LogFont : TLogFont;

...

GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);

{ Вывести текст 1/10 градуса против часовой стрелки }

LogFont.lfEscapement := Angle*10;

Canvas.Font.Handle := CreateFontIndirect(LogFont);

Code:

{ Эта процедура устанавливает угол вывода текста

для указанного Canvas, угол в градусах

Шрифт должен быть TrueType }

procedure CanvasSetTextAngle(c: TCanvas; d: single);

var

LogRec: TLOGFONT; { Информация о шрифте }

begin

{Читаем текущюю инф. о шрифте }

GetObject(c.Font.Handle,SizeOf(LogRec) ,Addr(LogRec) );

{ Изменяем угол }

LogRec.lfEscapement := round(d*10);

{ Устанавливаем новые параметры }

c.Font.Handle := CreateFontIndirect(LogRec);

end;

Новые статьи