Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Кто-нибудь знает как вывести текст вдоль кривой?

Автор: RUS1982 3.5.2006, 14:44

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

буду признателен и за код, если есть пришлите на p_rus@tut.by

Автор: Alexeis 3.5.2006, 15:23

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

Код


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

Автор: Snowy 3.5.2006, 15:26

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

Автор: Girder 4.5.2006, 08:55

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