Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сетка DBGrid, Событие OnDrawDataCell 
:(
    Опции темы
ura5
Дата 4.5.2007, 10:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Это сетка,чередуются зелениые и голубые полосы(строки).
Проблема:

1.Как сделать,чтобы при перемещении фокуса (прокрутка) по таблице не менялся цвет строк (бывает,что все строки окрашиваются то в зеленый,то в голубой цвет при прокрутке).

2.Как окрасить фокус в определенный цвет.

Спасибо.
*********************
void __fastcall TTel1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
//   ЗЕБРА 
 static TColor ColCol=clSkyBlue;
   if (DataCol == 0)
   {
       if      (ColCol == clSkyBlue) ColCol=clMoneyGreen;
       else ColCol=clSkyBlue;
   }
   DBGrid1->Canvas->Brush->Color=ColCol;
   DBGrid1->Canvas->FillRect(Rect);
   DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);

} 
********************
PM MAIL   Вверх
_hunter
Дата 4.5.2007, 11:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



во-первых: нужно привязываться не к предыдущему цвету а к номеру текущей строки: если он четный -- рисуй одним цветом, иначе другим...
во-вторых: нужно отключить стандартную отрисовку ячек.
ну и тут:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=30485
пара примеров...


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Rodman
Дата 4.5.2007, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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



Код

void __fastcall TTel1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
//   ЗЕБРА 
 static TColor ColCol=clSkyBlue;
   if (DataCol == 0)
       ColCol=clMoneyGreen;
   else 
       ColCol=clSkyBlue;
   DBGrid1->Canvas->Brush->Color=ColCol;
   DBGrid1->Canvas->FillRect(Rect);
   DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
} 

PM MAIL WWW Skype GTalk YIM MSN   Вверх
ura5
Дата 4.5.2007, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Неверно.Окрашивается только 1-й столбец в зеленый цвет,а остальные -голубые.Мне надо,чтобы зебра(которая была раньше ) оставалась на месте т.е. не изменялась при движении курсора. 
PM MAIL   Вверх
Vyacheslav
Дата 4.5.2007, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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



Цитата(ura5 @  4.5.2007,  10:53 Найти цитируемый пост)
2.Как окрасить фокус в определенный цвет.

Код

if(  State.Contains(gdFocused) ) {
   ColCol = ...
}


Добавлено через 11 минут и 29 секунд
Цитата(ura5 @  4.5.2007,  10:53 Найти цитируемый пост)
1.Как сделать,чтобы при перемещении фокуса (прокрутка) по таблице не менялся цвет строк (бывает,что все строки окрашиваются то в зеленый,то в голубой цвет при прокрутке).


Цитата(_hunter @  4.5.2007,  11:09 Найти цитируемый пост)
во-первых: нужно привязываться не к предыдущему цвету а к номеру текущей строки: если он четный -- рисуй одним цветом, иначе другим...



Код


   TColor ColCol =  ((TDBGrid*)Sender)->DataSource->DataSet->RecNo%2?clSkyBlue:clMoneyGreen;
   DBGrid1->Canvas->Brush->Color=ColCol;
   DBGrid1->Canvas->FillRect(Rect);
   DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);





--------------------
С уважением, Вячеслав Ермолаев
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.

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


 




[ Время генерации скрипта: 0.0819 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.