|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
05.10.2008, 18:18
|
#1 |
|
Пользователь
Регистрация: 31.08.2007
Сообщений: 37
|
перемещение текста по монитору
Как зделать чтобы сообщения перемещались рандомно по монитору?и как зделать чтобы сообщения выводились на прозрачном фоне,а не на белом..?
|
|
|
|
05.10.2008, 18:26
|
#2 |
|
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
пишу сразу сдесь так что за правильно написания не отвичаю, но найти в сети не составить труда
1. SetWindowLong, EX_STYLE, EX_LAYERED 2. Создаем ( ну для легкости ) TBitmap с PixelFormat = pf32bit. 3. GDI+ ( GDIPAPI.pas ) юзаем контекст для получения из HDC ( TBitmap.Canvas.Handle ) и рисуем текст как угодно 5. Заливаем полученный контекст цветом ARGB = 0, 0, 0, 0 - черный прозрачный полностью 4. Нарисовали что надо и освободили контекст 5. Полученный у TBitmap.Canvas.Handle пихаем для обновления окна UpdateWindowLayer. 6. Все окно прозрачно с текстом, теперь у окна SetBounds и вперед по таймеру юзая Random |
|
|
|
|
05.10.2008, 21:26
|
#3 |
|
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
А если сразу на канве монитора текст писать?
|
|
|
|
|
11.10.2008, 14:35
|
#4 |
|
Пользователь
Регистрация: 31.08.2007
Сообщений: 37
|
спасибо за вариант)
|
|
|
|
|
11.10.2008, 16:20
|
#5 |
|
Форумчанин
Регистрация: 06.09.2007
Сообщений: 239
|
<delete this>
Последний раз редактировалось Ring0Sn; 11.10.2008 в 16:34. Причина: ( |
|
|
|
|
12.10.2008, 17:59
|
#6 |
|
Пользователь
Регистрация: 04.11.2007
Сообщений: 64
|
на скорую руку...
как понял, именно такого рода прога нужна была? |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| перемещение формы | Черничный | Общие вопросы Delphi | 11 | 10.12.2009 11:06 |
| Перемещение данных | Мария100684 | Microsoft Office Access | 6 | 26.09.2008 03:45 |
| Перемещение кнопки? | &RiU | Общие вопросы Delphi | 1 | 28.05.2008 18:13 |
| Перемещение компонентов | _SERGEYX_ | Общие вопросы Delphi | 2 | 10.04.2008 13:33 |
| Перемещение файлов | Nasya | Microsoft Office Excel | 2 | 13.10.2007 20:37 |
