VPF::Компонент DBGrid - Форум программистов

SHShadow

Дата 14.12.2004, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 25.11.2004

Репутация: нет
Всего: нет

Подскажите люди, как сделать цвет строки в компоненте TDBGrid определенного цвета в завасимости от условия??? smile

_hunter

Дата 15.12.2004, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98

определи обработчик OnDrawColumnCell и рисуй

--------------------

Tempora mutantur, et nos mutamur in illis...

creater

Дата 20.12.2004, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 20.12.2004

Репутация: нет
Всего: нет

Цитата(SHShadow @ 14.12.2004, 23:07)

Подскажите люди, как сделать цвет строки в компоненте TDBGrid определенного цвета в завасимости от условия??? smile

Попробуй компонент EhLib.

Код


void __fastcall TfmMain::DBGridEh1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumnEh *Column,
      TGridDrawState State)
{

if(DBGridEh1->DataSource->DataSet->RecNo%2)
  {
       DBGridEh1->Canvas->Font->Color = clBlack;
       DBGridEh1->Canvas->Brush->Color = (TColor)0x00F3EEE5;//clInfoBk;
    }

if(State.Contains(gdSelected))
{
DBGridEh1->Canvas->Brush->Color =  (TColor)0x00B98153;
DBGridEh1->Canvas->Font->Color = clWhite;
}

if(DBGridEh1->DataSource->DataSet->RecNo%2)
  {
       DBGridEh1->Canvas->Font->Color = clBlack;
       DBGridEh1->Canvas->Brush->Color = (TColor)0x00F3EEE5;//clInfoBk;
    }

if(State.Contains(gdSelected))
{
DBGridEh1->Canvas->Brush->Color =  (TColor)0x00B98153;
DBGridEh1->Canvas->Font->Color = clWhite;
}

//при значении равным 1 в поле  badlink окрашивает символы текущей ячейки в
// красный цвет

if(Query1->FieldByName("badlink")->Value == 1)
DBGridEh1->Canvas->Font->Color = (TColor)0x0074C278;

if(State.Contains(gdSelected) && DBISAMQuery1->FieldByName("badlink")->Value == 1)
{
DBGridEh1->Canvas->Brush->Color =  (TColor)0x00B98153;
DBGridEh1->Canvas->Font->Color = clWhite;
}

DBGridEh1->DefaultDrawColumnCell(Rect,DataCol,Column,State);

if(State.Contains(gdSelected) && DBISAMQuery1->FieldByName("badlink")->Value == 1)
{
DBGridEh1->Canvas->Brush->Color =  (TColor)0x00B98153;
DBGridEh1->Canvas->Font->Color = clWhite;
}

DBGridEh1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
}

Пример вцелом делает зебру :-) с чередующимися голубоватым и белым цветами

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »