Компактный 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

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

не в сети 18 лет

Sergey Filimonoff

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