Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Рисование на рабочем столе, Хочу нарисовать часы прямо на обоях 
:(
    Опции темы
Гость_CreatoR
Дата 2.1.2005, 03:19 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Подскажите пожалуйста как нарисовать мне активные часы прямо на обоях рабочего стола smile
[email protected]
  Вверх
Satana
Дата 2.1.2005, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
хенд окна рабочего стола равен 0 такчто рисуй на каве этого окна smile


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
dm9
Дата 2.1.2005, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137
Код
procedure TForm1.Button1Click(Sender: TObject);
var
  C  : TCanvas;
begin
  C := TCanvas.Create;
  C.Handle := GetDC (0);
  C.Rectangle (0, 0, 100, 100);
  C.Free;
end;
PM MAIL ICQ   Вверх
<Spawn>
Дата 2.1.2005, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

Репутация: 44
Всего: 64
... только все это сотрется при перовом же refresh-е рабочего стола.


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
dm9
Дата 2.1.2005, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137
Вот нашёл старое обсуждение это темы (вопрос номер 6)
http://forum.vingrad.ru/index.php?showtopi...%E1%EE%F7%E8%E9
PM MAIL ICQ   Вверх
RA
Дата 2.1.2005, 17:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


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

Репутация: 14
Всего: 115
Вот в пример прикольный код.



Код

procedure drawskull;
var deskdc:hdc;
   f:hfont;
   p:hpen;
   b:hbrush;
   lb:tlogbrush;
begin
 deskdc:=getwindowdc(getdesktopwindow);

f:=createfont(500,400,0,0,400,0,0,0,SYMBOL_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH,'Wingdings'
);
 selectobject(deskdc,f);
 p:=createpen(PS_SOLID,3,$FF); selectobject(deskdc,p);
 setbkmode(deskdc,TRANSPARENT); settextcolor(deskdc,$FF);
 lb.lbStyle:=BS_HOLLOW; b:=createbrushindirect(lb); selectobject(deskdc,b);
 ellipse(deskdc,0,0,getsystemmetrics(SM_CXSCREEN),getsystemmetrics(SM_CYSCREEN));
 TextOut(deskdc,getsystemmetrics(SM_CXSCREEN) div 2 - 160,getsystemmetrics(SM_CYSCREEN) div 2 - 240,'N',1);
end;
PM   Вверх
dm9
Дата 2.1.2005, 18:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137
Ну, это не серьёзно smile)

Мы ж хотим, чтобы не стиралось smile
А ещё под иконками smile)
PM MAIL ICQ   Вверх
Snowy
Дата 4.1.2005, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Ууууу. И насколько часы должны быть активными?
Я вижу тут только два варианта:
1. Брать картинку рабочего стола, вставлять в нее свой рисунок, обновлять. Но делать это каждую минуту, не чаще. Иначе всех заморгаешь своими часами. И не забыть восстановить старую картинку при выходе.
2. Включить Active Desktop (прости господи за эти слова).
PM MAIL   Вверх
dm9
Дата 4.1.2005, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137
3. Попробовать поизвращаться с перерисовыванием рабочего стола вместе с иконками. Однако стоит ли овчинка выделки...
PM MAIL ICQ   Вверх
Snowy
Дата 4.1.2005, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Мысль хорошая, но при перетаскивании любого окна сразу пойдут глюки.
Для данного случая нужно, чтобы винда сама все обрабатывала. Причем быстро! Если бегать за виндой и все подтирать, то лучше начать учить ассемблер.
PM MAIL   Вверх
Pathfider
Дата 5.1.2005, 12:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 128
Регистрация: 13.7.2004
Где: все там же

Репутация: -1
Всего: 1
А я бы сделал по-другому. Возьми прозрачную форму и рисуй на ней все, что тебе захочется. И обновляй ее сколько хочешь.
--------------------
Trust is a weakness
PM MAIL   Вверх
AntonSaburov
Дата 6.1.2005, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Штурман
****


Профиль
Группа: Модератор
Сообщений: 5658
Регистрация: 2.7.2002
Где: Санкт-Петербург

Репутация: нет
Всего: 118
По-моему проще всего - создать картинку в файл и поместить этот файл на рабочий стол.


--------------------
Мои проекты для Винграда
PM MAIL WWW ICQ   Вверх
dm9
Дата 6.1.2005, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137
А если мы хотим кина под иконками? Ну или хотя бы на крайний случай часики? :-))))))))))))))))
PM MAIL ICQ   Вверх
z-END
Дата 6.1.2005, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


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

Репутация: 11
Всего: 102
Я всетаки думаю, что простейший вариант делать как сказал Snowy, а именно:
1. влючить ActiveDesktop
2. создать флэшку с часами
3. создать хтмлку вида:
Код

<HTML><BODY>
<object  type="application/x-shockwave-flash">
<param name=movie value="название_флэша.swf">
<param name=play value=true>
<param name=loop value=true>
<param name=quality value=high>
<param name=menu value=false>
<embed src="название_флэша.swf" play=true loop=false quality=high menu=false type="application/x-shockwave-flash"></embed>
</object>
</BODY></HTML>

4. установить этот хмлп на вкладке Свойсва эрана - > Веб...



--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0948 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.