Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Ваши программы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #31  
Старый 06.11.2013, 23:31
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
Радость

Цитата:
Сообщение от Vayrus
Нужно, чтобы он распознавал полноэкранные приложения, как то не хочется наблюдать его при просмотре фильмов, если сам не сможешь задетектить, то я те код подкину

И, при его запуске, чтобы он типа выбегал с произвольного края экрана и забегал аналогично при выключении ПК, т.е. нужно событие завершения работы ПК отслеживать.

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

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

1. Ну допустим, просто дать приоритет полно-экранной проге, и что бы он его не перекрывал - можно попробовать, конечно. Отследили прогу, а паучку сказали, - выключить "поверх всех окон", и аналогично наоборот, нет полно-экранной - включить "поверх всех окон".
Покажи код, отслеживания

2. При запуске - это можно, А вот при выключении - это уже излишки мне кажется.

3. Паутина - ну фиг знает,... надо подумать.

4. Любопытство - это его фишка ни за что не откажусь от этого, он призван мешать работе ну а так, - пни его мышкой, или курсор уведи от текста - паучок сам уползёт.
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #32  
Старый 07.11.2013, 11:44
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

gdi+ хуже отображает png на форме,... остаются следы формы под картинкой...

Слева - Через GraphicEX
Справа - Через GDI+
__________________
Програмистами не рождаются, ими становятся!

Последний раз редактировалось SCrat.ORS, 07.11.2013 в 12:06.
Ответить с цитированием
  #33  
Старый 07.11.2013, 15:47
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Вчерась несколько идей пришло, часть из них уже озвучена. Итак:
1. Ему нежен домик - корзина на рабочем столе самое оно. Итак надо детектить положение корзины и дать ему прятаться за нее.
2. Паутину плести на корзине, но тогда это уже будет скринсейвер.
3. Паучки с цветом должны менять свое поведение. Скажем Желтый-пугливый и любопытный, а вот синий уже хитрый - его не поймать и он сам должен стремится к курсору мышки стараясь его утащить в корзину. Смена цвета и поведения происходит после того как паучек уползет за корзину.
4. При длительном простое, курсор мыши трансформируется в муху которая должна раздражать паука и он должен за ней охотится, но это снова функция скринсейвера.
Вообще, все это мне напомнило французский мультик про Насекомых
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #34  
Старый 09.11.2013, 16:49
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от SCrat.ORS
gdi+ хуже отображает png на форме,... остаются следы формы под картинкой...

Слева - Через GraphicEX
Справа - Через GDI+
у меня все нормально.



Код:
AGpImage: GpImage;
...
GdipLoadImageFromFile('spider.png', AGpImage);
...
var
  AGpGraphics: GpGraphics;
begin
  Canvas.Draw(0, 0, Image1.Picture.Graphic);
  GdipCreateFromHDC(Canvas.Handle, AGpGraphics);
  GdipDrawImageI(AGpGraphics, AGpImage, 0, 0);
  GdipDeleteGraphics(AGpGraphics);
end;
...
GdipDisposeImage(AGpImage);
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #35  
Старый 09.11.2013, 17:58
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

NumLock, не так меня понял. Сделай форму прозрачной под PNG, и получается такой косяк, что под PNG рисунком остаются края формы.
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #36  
Старый 10.11.2013, 10:31
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #37  
Старый 29.11.2013, 12:25
ixilimuse ixilimuse вне форума
Прохожий
 
Регистрация: 14.05.2012
Сообщения: 9
Версия Delphi: 7,2009,XE2
Репутация: 156
Смех

Суперкий пучок!!! Спасибо! Продолжайте развивать!
Ответить с цитированием
  #38  
Старый 01.12.2013, 18:23
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Помню,когда-то была овечка. Бегала по экрану (в т.ч. и по окнам), прыгала, иногда прилетало НЛО и похищало ее. Причем сделать взаимодействие с окнами несложно. Так что с наилучшими пожеланиями
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:48.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter