Здравствуйте.
Есть задача: в browse (список документов) необходимо выделять одинаковым цветом строки с документами за одну дату таким образом, чтобы при изменении даты группы документов цвет переключался. Ну что-то такое зеброобразное. Например 5 документов за 06.03.2008 - color:silver, 2 документа за 07.032.2008 color:none? потом перерыв в документах, 3 документа за 09.03.2008 - color:silver и т.д. Чет / нечет даты не годится из-за возможных разрывов, а также из-за стыка месяцев. Особенно неприятно обрабатывать всяческие скроллинги.
Пробовал ли кто-нибудь решить?
CW6.3 ABC
Спасибо
Александр Т.
Раскраска brows
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
-
- Ветеран
- Сообщения: 311
- Зарегистрирован: 08 Июль 2005, 22:04
- Admin
- Администратор
- Сообщения: 4010
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 53 раза
- Поблагодарили: 33 раза
- Контактная информация:
Re: Раскраска brows
типа вот так ... см. пример в атачеlsgsoftware писал(а):Посмотри примеры к клаше(examples).Там такого добра хватает
все очень просто. не учитывается добавление и удаление записей.
- Вложения
-
- demo.zip
- пример гринбара по датам
- (23.12 КБ) 246 скачиваний
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Re: Раскраска brows
Вот как я сделал в 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
...
.
Вроде бы работает
Процедура 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
...
.
Вроде бы работает