VPF::Кто-нибудь знает как вывести текст вдоль кривой?

RUS1982

Дата 3.5.2006, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.5.2006

Репутация: нет
Всего: нет

Кто-нибудь знает как вывести текст вдоль кривой?

буду признателен и за код, если есть пришлите на [email protected]

Alexeis

Дата 3.5.2006, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Есть пример вывода текста под углом, т.е. каждую букву придется поворачивать отдельно.

Код


var
  LogFont: TLogFont;
begin
  GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
  {Вывести текст 1/10 градуса против часовой стрелки}
  LogFont.lfEscapement := Angle * 10;
  Canvas.Font.Handle := CreateFontIndirect(LogFont);
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Snowy

Дата 3.5.2006, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Выводи по одной буковке при помощи http://vingrad.ru/DELPHI-DLP-001527
X и Y бери согласно кривой. Шаг текста вычисляется при помощи TextWidth.

Girder

Дата 4.5.2006, 08:55 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 2
Всего: 155

http://forum.vingrad.ru/index.php?showtopic=47376

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »