Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Foxpro/Clipper/Dbase > Подсветка записей в Grid-е

Автор: IVM 16.12.2003, 08:02

Забыл как в Grid сделать, чтобы фон записей изменялся по какому либо условию.
Например, помеченные на удаление записи имели красный фон.
Куда запихать BackColor? не могу вспомнить, подскажите плз...

Надо чтото типа, наверное в BeforeRowColChange:

if delete()
thisform.Grid1.Columns(1).BackColor = RGB(255,0,0)
else
thisform.Grid1.Columns(1).BackColor = RGB(255,0,0)
endif

только не столбцы, а строки.

Автор: Cashey 16.12.2003, 10:44

Код

WITH this 
	.SetAll("DynamicBackColor",;
	'IIF(buhbook.tip = 1 and buhbook.iskl2, RGB(138,138,74), IIF(buhbook.tip = 2 and buhbook.iskl2, RGB(138,138,138), IIF(buhbook.tip = 1 and !buhbook.iskl2, RGB(255,230,255), IIF(buhbook.tip = 2 and !buhbook.iskl2, RGB(147,201,255), RGB(255,255,255)))))', 'Column')
	.coLUMN7.DynamicCurrentControl = [IIF(buhbook.tip = 2,'text1','label1')]
	.coLUMN6.DynamicCurrentControl = [IIF(buhbook.tip = 1,'text1','label1')]
ENDWITH

Автор: IVM 16.12.2003, 11:19

Спасибо, только зачем так много написал?

Можно было бы и покороче:
ThisForm.Grid1.SetAll("DynamicBackColor", "iif(delete(), RGB(255,0,0), RGB(255,255,255))", "Column")

Автор: Cashey 16.12.2003, 23:35

Да не зачем, конечно, я просто кусок из рефреша грида уже готовой проги выдернул, корректировать ломало