Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать цветные строки в StringGrid? [D7, XP]


i2e ©   (2014-07-10 10:53:00) 

Если это, конечно, в принципе предусмотрено. В DrawGrid, отрисовывая ячейки, можно. Но хотелось как-то попроще. Есть возможность?


i2e   (2014-07-10 11:20:00) [1]

Однако, Canvas.
Что ж меня переклинило.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
   if ACol = 2 then //Вторая колонка будет зелёной, другие - красными
     StringGrid1.Canvas.Brush.color := clGreen
   else
     StringGrid1.canvas.brush.Color := clRed;

   //Закрашиваем бэкграунд
   StringGrid1.Canvas.FillRect(Rect);
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо