![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать цветные строки в 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;