VPF::Текст под углом , по всему desktop-у

краб

Дата 28.1.2011, 13:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть множество примеров, поясняющих возможность получения текста под углом или вращающегося текста -это довольно просто.
А мне надо вращать текст, не привязанный к какой-либо форме, который можно видеть поверх всех открытых окон.
Подскажите, а то этого нет в моей любимой книге "Win32 API.Эффективная разработка приложений"

Poseidon

Дата 28.1.2011, 14:12 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(краб @ 28.1.2011, 13:50

)

А мне надо вращать текст, не привязанный к какой-либо форме, который можно видеть поверх всех открытых окон.

Не правильная постановка вопроса, поэтому ты и найти ничего не можешь. Грубо говоря, тебе нужна прозрачная форма с текстом. Форма - поверх всех окон. Прозрачность будет создавать эффект отсутствия формы. Казаться будет что только текст.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Frees

Дата 28.1.2011, 14:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Цитата(краб @ 28.1.2011, 16:50

)

который можно видеть поверх всех открытых окон

Код


var
  r: TRect;
begin
  r := Rect(100,100,200,150);
  DrawText(GetDC(0), 'тест', -1, r,DT_BOTTOM)

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

Кольцов Виктор Владимирович

краб

Дата 28.1.2011, 20:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Poseidon @ 28.1.2011, 14:12)

Цитата(краб @ 28.1.2011, 13:50

)

А мне надо вращать текст, не привязанный к какой-либо форме, который можно видеть поверх всех открытых окон.

А в чём "не правильность" постановки вопроса?
Мне не нужна какая-либо форма, я могу выводить текст в любом месте с помощью функций Text Out(... или ExtTextOut(... без неё.
Мне нужно этот текст выводить под любым углом.

Цитата(Frees @ 28.1.2011, 14:17)

[code=delphi]
.......

[code=delphi]
.......
Этот код выводит текст, вписанный в прямоугольник.
Мне нужно этот текст выводить под любым углом.

краб

Дата 29.1.2011, 00:01 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Это делается так:

Код


DC := GetWindowDC(GetDesktopWindow);
  SetBkMode (DC, TRANSPARENT);
  selectobject(dc, createfont(72,12, 450, 120, FW_NORMAL,
  0,0,0, DEFAULT_CHARSET, 0, 0, 1, 0, 'Times New Roman'));
  TextOut(DC, 150, 750, 'всё надо делать самостоятельно!', 31);
  ReleaseDC(GetDesktopWindow, DC);

функцией CreateFont задаются все параметры текста, включая угол поворота.
Текст выводится поверх всего.

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