Ну как бы то нибыло вот что получилось, щас сделаю версию уже с "ручной" проверкой, надо ли перерисовывать стрелки.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| klem4 |
Сообщение
#1
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Решил сделать часы на паскале, никогда не делал, ну не знаю просто захотелось) вот только мне кажется в одном месте я прощитался, решив использовать задержку, наверняка ведь на многих машинах Delay(1000) не будет = 1с.
Ну как бы то нибыло вот что получилось, щас сделаю версию уже с "ручной" проверкой, надо ли перерисовывать стрелки. Прикрепленные файлы
clock_beta1.pas ( 4.14 килобайт )
Кол-во скачиваний: 599-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
| Bokul |
Сообщение
#2
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11 |
Цитата Могу... При добавлении иконки в трей делается CallBack-функция, так? Ну, что-то вроде оконной функции приложения, которая, к примеру, отслеживает нажатие на иконку в трее, чтобы восстановить окно... А если в ней перехватить WM_MOUSEMOVE, как ты думаешь, что произойдет? Когда сработает обработчик этого события?. Ну это понятно. Интересует как и куда ты планируешь выводить часы по наведению на иконку. Цитата А есть способ сделать так, чтобы сообщение "прошло ниже", как будто нашего окна вообще нет на экране... -------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
klem4 Простые часы 4.02.2007 22:02
volvo Андрей, а слабО переписать это под Windows, и испо… 4.02.2007 22:20
volvo Вот небольшой набросок тех же самых часов, написан… 5.02.2007 16:28
Bokul
У меня есть. :) Я за API, только почему без ООП… 6.02.2007 4:17
volvo Потому, что идеология работы с WinAPI подразумевае… 6.02.2007 4:28
Archon Очень интересно! Надеюсь тема не заглохнет.
P… 6.02.2007 5:18
Bokul
Ну да, там все просто.
"Пропускает… 6.02.2007 5:30
volvo :yes2: Именно не обрабатывает... Просто не реагир… 6.02.2007 5:45
volvo Интересует как и куда ты планируешь выводить часы … 6.02.2007 6:30
Bokul
Ну чтобы так просто, я не вижу, не знаю способа… 6.02.2007 6:39
volvo :blink: :blink: Bokul, выдыхай... И больше эту тр… 6.02.2007 6:42
Bokul
English version please.. :) 6.02.2007 6:45
volvo SetWindowRgn
"Is that better?" © … 6.02.2007 6:47
Altair Хочу такие часы на рабочий стол себе. Что бы прямо… 6.02.2007 14:00![]() ![]() |
|
Текстовая версия | 23.11.2025 8:06 |