 |
|  |
 |
Компактный 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
Эти классы конечно не предел совершенства и больше для примера.
|
|
 |
|  |
|