Здравствуйте.
Есть задача: в 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 который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- 
				lsgsoftware
 - Ветеран
 - Сообщения: 311
 - Зарегистрирован: 08 Июль 2005, 22:04
 
- Admin
 - Администратор
 - Сообщения: 4022
 - Зарегистрирован: 05 Июль 2005, 15:59
 - Откуда: Хабаровск
 - Благодарил (а): 59 раз
 - Поблагодарили: 42 раза
 - Контактная информация:
 
Re: Раскраска brows
типа вот так ... см. пример в атачеlsgsoftware писал(а):Посмотри примеры к клаше(examples).Там такого добра хватает
все очень просто. не учитывается добавление и удаление записей.
- Вложения
 - 
			
		
		
				
- demo.zip
 - пример гринбара по датам
 - (23.12 КБ) 276 скачиваний
 
 
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
			
						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
...
.
Вроде бы работает
