Вертикальный текст

@Teapot1488 · Регистрация: 10.03.2013

Author24 — интернет-сервис помощи студентам

Как повернуть текст на 90 градусов влево (например для написания размера на чертеже). Какой компонент поддается такому вращению? Есть ли какой нибудь дополнительный / родной компонент делфи 7 с такой возможностью?

28.03.2013, 12:54

Использовать функцию CreateFontIndirect. В данной функции в качестве параметра используется структура типа TLogFont, одно из полей которой отвечает за угол наклона. Указанный угол, к примеру 90, затем умножается на 10.

Delphi

var
  LogFont: TLogFont;
begin
...
  LogFont.lfEscapement := Angle * 10;
...
  CreateFontIndirect(LogFont);
...
end;

@Teapot1488 3 / 3 / 1 Регистрация: 10.03.2013 Сообщений: 125
		1
	Вертикальный текст 28.03.2013, 06:01. Показов 2916. Ответов 1 Метки нет (Все метки) Как повернуть текст на 90 градусов влево (например для написания размера на чертеже). Какой компонент поддается такому вращению? Есть ли какой нибудь дополнительный / родной компонент делфи 7 с такой возможностью? 0

	28.03.2013, 12:54

Вертикальный текст

Решение