FoxClub Forums > Visual Foxpro, Foxpro for DOS > Как разукрасить ячейки в Gride ::

• Войти

Как разукрасить ячейки в Gride
Наташа Автор	Наташа 24.03.05 04:41:21 Всем привет! У меня такой вопрос.Есть грид,в котором ячейки заполнены числами. Можно ли в зависимости от значения ячейки,выделить число другим цветом,или другой фон. Например 1-желтый 2-красный. Если кто-нибудь знает буду благодарна за помощь. А то сама уже мозги сломала Заранее спасибо за ответ)))

Наташа
Автор

Наташа

24.03.05 04:41:21

Всем привет!
У меня такой вопрос.Есть грид,в котором ячейки заполнены числами.
Можно ли в зависимости от значения ячейки,выделить число другим цветом,или другой фон.
Например 1-желтый
2-красный.
Если кто-нибудь знает буду благодарна за помощь.
А то сама уже мозги сломала

Заранее спасибо за ответ)))

Re: Как разукрасить ячейки в Gride
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 24.03.05 04:53:25 В гриде пишешь где-нибудь в ините Thisform.Grid.Columns[X].DynamicForeColor="BKC()" Пишешь процедуру, только у меня пример с датой ** BKC.PRG DO case Case Day(date)=1 Return Rgb(255,0,0) Case Day(date)=2 Return Rgb(255,255,0) Case Day(date)=3 Return Rgb(255,0,255) Case Day(date)=4 Return Rgb(0,255,0) Otherwise Return Rgb(0,0,0) EndCase Отредактировано (24.03.05 07:56) ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Как разукрасить ячейки в Gride

piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004

piva

24.03.05 04:53:25

В гриде пишешь где-нибудь в ините


Thisform.Grid.Columns[X].DynamicForeColor="BKC()"

Пишешь процедуру, только у меня пример с датой


** BKC.PRG
DO case
Case Day(date)=1
    Return Rgb(255,0,0)
Case Day(date)=2
    Return Rgb(255,255,0)
Case Day(date)=3
    Return Rgb(255,0,255)
Case Day(date)=4
    Return Rgb(0,255,0)
Otherwise
    Return Rgb(0,0,0)
EndCase

Отредактировано (24.03.05 07:56)

------------------
Часто бывает так, что есть над чем задуматься, а нечем.

Re: Как разукрасить ячейки в Gride
krosh Сообщений: 478 Откуда: Нижний Новгород Дата регистрации: 24.01.2002	krosh 24.03.05 06:52:19 если раскраска простая, можно обойтись без удф() Thisform.Grid.Columns[X].DynamicForeColor="iif(t1.f1=1,Rgb(255,0,255) ,iif(t1.f1=2,Rgb(0,255,0) ,Rgb(255,0,0) ))" где t1.f1 controlSource колонки

Re: Как разукрасить ячейки в Gride
Наташа Автор	Наташа 24.03.05 10:43:23 Большое спасибо за ответы. Оказывается,все очень просто))))

Re: Как разукрасить ячейки в Gride
Петров Андрей Сообщений: 2506 Откуда: Химки (М.О.) Дата регистрации: 17.04.2002	Петров Андрей 24.03.05 11:18:06 И есть еще другой вариант который мне нравится больше. Потому что так можно настраивать цвета. Делаете таблицу вида Id_Color, Red, Green, Blue Заполняете ее а потом в Thisform.Grid.Columns[X].DynamicForeColor="rgb(query.red, query.green, query.blue)" Ессно эту таблицу нужно присобачить к вашему курсору который на гриде через Left Outer Join А вместо полей ставить NVL(table1.red,red_для_тех_кто_не_вошел_в_таблицу)... ИМХО такой вариант удобнее для дальнейшего использования... ------------------ PS Недочитал тему до конца...

Re: Как разукрасить ячейки в Gride

Петров Андрей

Сообщений: 2506
Откуда: Химки (М.О.)
Дата регистрации: 17.04.2002

Петров Андрей

24.03.05 11:18:06

И есть еще другой вариант который мне нравится больше. Потому что так можно настраивать цвета.

Делаете таблицу вида
Id_Color, Red, Green, Blue

Заполняете ее а потом в Thisform.Grid.Columns[X].DynamicForeColor="rgb(query.red, query.green, query.blue)"

Ессно эту таблицу нужно присобачить к вашему курсору который на гриде через Left Outer Join А вместо полей ставить NVL(table1.red,red_для_тех_кто_не_вошел_в_таблицу)...

ИМХО такой вариант удобнее для дальнейшего использования...

------------------
PS Недочитал тему до конца...

Re: Как разукрасить ячейки в Gride
Петров Андрей Сообщений: 2506 Откуда: Химки (М.О.) Дата регистрации: 17.04.2002	Петров Андрей 24.03.05 11:19:13 Да но тут минус один надо потом курсор как то синхронизировать с таблицей. Я то просто в гриде редко чего редактирую вот и написал не задумываясь. ------------------ PS Недочитал тему до конца...

Re: Как разукрасить ячейки в Gride
zgogilava Сообщений: 120 Откуда: Georgia Дата регистрации: 30.06.2004	zgogilava 24.03.05 11:43:25 если пишеш в 9-ой версс там есть фуекция ICASE( lCondition1, eResult1 [, lCondition2, eResult2] ... , eOtherwiseResult]) ее удобней использовать вместо IIF(lExpression, eExpression1, eExpression2)

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 27 alexzima (Гостей: 26)