FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9233
Вход
Компактный ColorPicker и аналоговые часы.

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


 
Прислал: Sergey Filimonoff   Категория: Интерфейс


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

 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.812) Вложение [14.64]kb
Дополнения пользователей
Компактный ColorPicker и аналоговые часы.
[+][?]
_KOT_
18.04.07 19:56:31

Всё красиво и работает. Только при запуске формы стрелки аналоговых часов (кроме секундной) стоят
на месте пока не начнётся новая минута а хотелось бы чтоб они сразу заработали.
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика