[kachkarvv]

Простой пример стрелочных часов. Имеется возможность перетаскивания по экрану левой кнопкой мышки, вызов PopUp-меню ( с 1-м пунктом "отключение" ) правой кнопкой. Круглый циферблат создан функцией
WinAPI создания региона: CreateEllipticRgn.
Исходник на http://kachkarvv.ru/faq/src-delphi/d...alog-clock.htmdelphi-analog-clock.jpg

[KOOL]

неплохо! можно переписать на GDI+, будет еще лучше и быстрее

[urahara]

Сообщение от KOOL

неплохо! можно переписать на GDI+, будет еще лучше и быстрее

GDI+ медленнее чем GDI

[KOOL]

в чем-то медленнее, в чем-то быстрее. GDI+ использует аппаратное ускорение - это уже плюс. Их надо вместе использовать, просто надо знать, что через что реализовывать

[kachkarvv]

Сообщение от KOOL

можно переписать на GDI+

Спасибо. Сделал вариант на GDI+, OLE, WinAPI. Исчезли ступеньки стрелок благодаря ф-и GDI+ graphics.SetSmoothingMode(SmoothingModeAntiAlias). Размер екзешника 27кб.
Скачать EXE (delphi_clock_ole_gdi_res.zip) на http://kachkarvv.ru/download/files-delphi.php
Исходник на http://kachkarvv.ru/faq/src-delphi/d...le-gdi-res.htm
delphi_clock_ole_gdi_res.jpg

[Страдалецъ]

Весьма неплохо.
1. Размер надо-бы изменяемый сделать. Отрисовать подложку можно и без картинки ручками, благо фон несложный.
2. Периодические мигания стрелок, видимо вывод идет не в промежуточный битмап, а напрямую.
3. В какой-то моент вся группа стрелок сдвинулась вверх на несколько пикселей, затем снова вернулась на место.
4. Часы диверсанта получились - бесшумные.
5. Добавить туда-эе календарь в окошке, как это принято в наручных часах.
6. Нет настройки времени из часов.
7. Функцию будильника можно добавить.

[KOOL]

стало гораздо лучше! Но, конечно, есть что подточить. кое-что уже сказано

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

ну и неплохо было бы скины внедрить - стрелки можно тоже картинками сделать, GDI+ может поворачивать их. ну и полноценную прозрачность - через png и UpdateLayeredWindow

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

код для поддержки прозрачности могу подсказать если что

[kachkarvv]

Сообщение от KOOL

.ну число и день недели разве что еще показывать.

Число и день можно добавить
1.на этот же циферблат,
2.удлинить циферблат вверх или вниз и писать там
3.сделать отдельно календарь (этот вариант у меня на сайте есть на C++)

Как лучше?

[KOOL]

1 и 2 можно сделать настройкой скина, если конечно внедрить их. если без скинов, то на том же циферблате поэстетичнее будет смотреться (как в наручных часах)
3-например при нажатии на область с числом и днем открывать календарь в отдельном окне. тут правда подводные камни есть при использовании альфа-канала: такие окна не могут содержать дочерние окна, в т.ч. и кнопки

[kachkarvv]

Сообщение от Страдалецъ

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

Спасибо. Вы правы, но была ещё одна причина: в ф-и InvalidateRect последний параметр был TRUE, поставил FALSE и всё стало в норму.
Екзешник и исходник обновил.

Ещё попробовал дорисовать время и дату (приложил скриншот). Дизайнер с меня далеко не супер, поэтому хотел бы узнать Ваше мнение. Может изменить цвета меток, текста, стрелок и т.д.
Лично мне больше нравится предыдущий вариант (без календаря), думаю из-за того, что в моём календаре что-то лишнее или чего-то нехватает ???
_PROEKT.jpg

[ALexandr555]

а по мойму отлично выглядит, кокрас в тему

[kachkarvv]

Сообщение от KOOL

число и день недели разве что еще показывать

Добавил год, месяц, число, день недели (воскресенье-красным цветом), запоминание местоположения, немного изменил вид стрелок.
Исходник на http://kachkarvv.ru/faq/src-delphi/d...alog-clock.htm
Екзешник ( delphi-gdi-ole-analog-clock.zip ) на http://kachkarvv.ru/download/files-delphi.php
_PROEKT.jpg

Надеюсь, эти рисунки будут получше?

gdi-analog-clock-200-f.zip(левый) и gdi-analog-clock-200.zip(центр) здесь

Извините, поздно вспомнил: Всем спасибо за помощь!

[KOOL]

Немного изменил код. Теперь можно использовать разные фоновые png изображения разных размеров (даже неквадратные) - зачаток скинов.


Exe+Source

З.Ы. Кажется, я сломал иконку

[lmikle]

Ну, у меня не запустились.
просто разпаковал куда-то... и попробовал запустить. ноль внимания, фунт презрения. Как я понял по коду, там есть какая-то привязка к некоторым папкам. вот тут то оно и не срабатывает, бо как разпаковал куда-то, где удобнее было.

[KOOL]

Поправил, дело было в загрузке из ini.