VPF::Delphi - текст, написанный под углом

PillBoX

Дата 8.12.2002, 03:47 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всем привет!

Разрабатывается средних размеров фриверная игрушка. Текст в ней - на первом месте. По замыслу дизайнера, в определенном месте весь выводимый текст должен быть наклонен... как если бы вы смотрели на блокнот, лежащий под углом. Разработка на дельфи.

Большая просьба помочь решить вопрос... В благодарность - упоминание в credits - это все что мы можем сделать

E-mail для связи - [email protected]

Vit

Дата 8.12.2002, 05:05 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Если не обязательно делать это самому то воспользуйтесь компонентами из JVCL - там это есть (Free+Source). Взять JVCL можно с http://jvcl.sourceforge.com.

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Medved

Дата 8.12.2002, 21:15 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

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

Для того чтобы вывести текст под углом, вытянуть или сжать его нужно воспользоваться структурой LOGFONT. Здесь показаны не все ее возможности, но, на мой взгляд, самые интересные.

Код


procedure TForm1.FormPaint(Sender: TObject);
var
  lf: TLogFont;
begin
  FillChar(lf, SizeOf(lf), 0);
  with lf do begin
    // Высота буквы
    lfHeight := 15;

    // Ширина буквы
    lfWidth := 20;

    // Угол наклона в десятых градуса
    lfEscapement := 100;

     // Жирность 0..1000, 0 - по умолчанию
    lfWeight := 1000;

    // Курсив
    lfItalic := 0;

    // Подчеркнут
    lfUnderline := 1;

    // Зачеркнут
    lfStrikeOut := 1;

    // CharSet
    lfCharSet := RUSSIAN_CharSet;

    // Название шрифта
    StrCopy(lfFaceName, 'Arial');
  end;
  with Form1.Canvas do begin
    FillRect(ClipRect);
    Font.Handle := CreateFontIndirect(lf);
    TextOut(0, 100, 'It is a text string');
  end;
end;

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

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

dr.ZmeY

Дата 9.12.2002, 01:36 (ссылка)

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

Загрузка ...

Политолог

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

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

Цитата(Pegas @ 08.12.2002, 13:15)

...
// Высота буквы
lfHeight := 15;
...

Pegas, где ты был раньше, я недели две назад хотел узнать про одну только эту строчку...
Блин, и прогу уже сдал...

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

Мой блог в ЖЖ

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