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