Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Цветные ячейки в StringGrid / DBGrid? 
:(
    Опции темы
Alex
Дата 5.11.2004, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



StringGrids / DBGrids с цветными ячейками смотрятся очень красиво, и Вы можете информировать пользователя о важных данных внутри Grid. 

Совместимость: все версии Delphi 

К сожалению, невозможно применить один и тот же метод к StringGrids и к DBGrids. Итак сперва рассмотрим как это сделать в StringGrid: 


1. StringGrid 
============= 
Для раскрашивания будем использовать событие "OnDrawCell". Следующий код показывает, как сделать в Grid красный бэкраунд. Бэкграунд второй колонки будет зелёным. 


Код

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  
  Rect: TRect; State: TGridDrawState);  

Const   //сдесь определяем Ваш цвет. Так же можно использовать  
        //цвета по умолчанию.  
  clPaleGreen = TColor($CCFFCC);  
  clPaleRed =   TColor($CCCCFF);  

begin  

//Если ячейка получает фокус, то нам надо закрасить её другими цветами  
if (gdFocused in State) then begin      
   StringGrid1.Canvas.Brush.Color := clBlack;  
   StringGrid1.Canvas.Font.Color := clWhite;  
end  
else  //Если же ячейка теряет фокус, то закрашиваем её красным и зелёным  

   if ACol = 2   //Вторая колонка будет зелёной , другие - ячейки красными  
    then StringGrid1.Canvas.Brush.color := clPaleGreen  
    else StringGrid1.canvas.brush.Color := clPaleRed;  

//Теперь закрасим ячейки, но только, если ячейка не Title- Row/Column  
//Естевственно это завит от того, есть у Вас title-Row/Columns или нет.  

If (ACol > 0) and (ARow>0) then  
  begin  
      //Закрашиваем бэкграунд  
    StringGrid1.canvas.fillRect(Rect);  

      //Закрашиваем текст (Text). Также здесь можно добавить выравнивание и т.д..  
    StringGrid1.canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]);  
  end;  
end;
  



Если Вы захотите чтобы цвет ячеек менялся в зависимости от значения в них, то можно заменить 3 линии (if Acol = 2 ......) на что-нибуть вроде этого 

Код

if StringGrid1.Cells[ACol, ARow] = 'highlight it' then 
  StringGrid1.Canvas.Brush.color := clPalered 
else 
  StringGrid1.canvas.brush.Color := clwhite;
 




Ну а теперь давайте раскрасим DBGrids: 

2. DBGrid 
========= 
С DBGrids это делается намного проще. Здесь мы будем использовать событие "OnDrawColumnCell". Следующий пример разукрашивает ячейки колонки "Status" когда значение НЕ равно "a". 
Если Вы хотите закрасить целую линию, то достаточно удалить условие "If..." (смотрите ниже) 



Код

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; 
  State: TGridDrawState); 
const 
  clPaleGreen = TColor($CCFFCC); 
  clPaleRed = TColor($CCCCFF); 
begin 

  if Column.FieldName = 'Status' then //Удалите эту линию, если хотете закрасить целую линию 

    if Column.Field.Dataset.FieldbyName('Status').AsString <> 'a' then 
      if (gdFocused in State) {//имеет ли ячейка фокус? } then 
        dbgrid1.canvas.brush.color := clBlack //имеет фокус 
      else 
        dbgrid1.canvas.brush.color := clPaleGreen; //не имеет фокуса 

//Теперь давайте закрасим ячейку используя стандартный метод: 
  dbgrid1.DefaultDrawColumnCell(rect, DataCol, Column, State) 
end;
 

Вот и всё. Не правда ли красиво ? smile 


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


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

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


 




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


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

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