Компактный ColorPicker и аналоговые часы.

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

Компактный ColorPicker и аналоговые часы.

Часы могут иметь римские цифры и фоновую картинку.
Для коррекции времени можно вызвать: run/n Control "TIMEDATE.cpl"

Для ColorPicker, по левому клику на Image создаются градации данного цвета.
По правому градации случайным образом, движок внизу определяет насыщенность цвета для этого.
Клик по градации делает собственно закраску.
Пример раскраски текущего активного компонента,
в методе Color1.Cset() пишем:

Parameter c
Local o
o=iif(Type('This.Parent.ActiveControl')='O',This.Parent.ActiveControl,This.Parent)
if o.BaseClass='Listbox'
o.ItemBackColor=c
else
o.BackColor=c
endif
Эти классы конечно не предел совершенства и больше для примера.

Автор: Sergey Filimonoff

Автор публикации

не в сети 20 лет

Sergey Filimonoff

Комментарии: 0Публикации: 4Регистрация: 15-01-2003
Вложенные файлы
#
Название
Тип файла
Размер
1 388clock .zip 14,64 КБ
Материалы по теме
Оставить комментарий
//////////////// ///////////////
Авторизация
*
*
Генерация пароля