Раскраска brows

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
SSTA
Бывалый
Сообщения: 52
Зарегистрирован: 03 Февраль 2006, 5:41
Откуда: Хабаровск

Раскраска brows

Сообщение SSTA »

Здравствуйте.
Есть задача: в browse (список документов) необходимо выделять одинаковым цветом строки с документами за одну дату таким образом, чтобы при изменении даты группы документов цвет переключался. Ну что-то такое зеброобразное. Например 5 документов за 06.03.2008 - color:silver, 2 документа за 07.032.2008 color:none? потом перерыв в документах, 3 документа за 09.03.2008 - color:silver и т.д. Чет / нечет даты не годится из-за возможных разрывов, а также из-за стыка месяцев. Особенно неприятно обрабатывать всяческие скроллинги.
Пробовал ли кто-нибудь решить?
CW6.3 ABC
Спасибо
Александр Т.
C уважением, Александр Т.
lsgsoftware
Ветеран
Сообщения: 311
Зарегистрирован: 08 Июль 2005, 22:04

Re: Раскраска brows

Сообщение lsgsoftware »

Посмотри примеры к клаше(examples).Там такого добра хватает
Аватара пользователя
Admin
Администратор
Сообщения: 4010
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 53 раза
Поблагодарили: 33 раза
Контактная информация:

Re: Раскраска brows

Сообщение Admin »

lsgsoftware писал(а):Посмотри примеры к клаше(examples).Там такого добра хватает
типа вот так ... см. пример в атаче
все очень просто. не учитывается добавление и удаление записей.
Вложения
demo.zip
пример гринбара по датам
(23.12 КБ) 246 скачиваний
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Apron63
Новичок
Сообщения: 14
Зарегистрирован: 21 Октябрь 2007, 16:42
Откуда: Самара

Re: Раскраска brows

Сообщение Apron63 »

Вот как я сделал в CW 6.3 9056 ABC

Процедура Browse
Embeds -> Local Objects -> ABC Objects -> Browse on Table Using ?Browse:1 (BrowseClass) -> SetQueueRecord -> Code -> Parent Call -> Sounce (Priority 8000)
И тама пишем условие раскраски, например
if MAI:RLast=2
SELF.Q.ART:DisplayName_NormalFG = CSS:TzFore
----------------- ^ Это название поля
SELF.Q.ART:DisplayName_NormalBG = CSS:TzBack
--------------------------------^ а здесь автоматически добавляемые цветовые атрибуты Browse
SELF.Q.ART:DisplayName_SelectedFG = CSS:TzForeSel
---------------------------------------------------^ ну а здесь набор цветов из таблицы
SELF.Q.ART:DisplayName_SelectedBG = CSS:TzBackSel
... Такой же код и для всех других полей

Else
...
.

Вроде бы работает
Ответить