Изменить цвет ячейки, цвет текста, стиль, шрифт и т.д, добавить значок в ячейку Можно сделать в обработчике TStringGrid(TDrawGrid).onDrawCell:
Примерно так:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With TStringGrid(Sender),TStringGrid(Sender).Canvas Do
Begin
// Очистим клиентскую область ячейки
FillRect(Rect);
// Аттрибуты
Brush.Color:=ClYellow; // цвет ячейки
Font.Color:=ClBlue; // цвет шрифта
Font.Style:=[fsBold]; // стиль шрифта
Font.Size:=14; // размер шрифта
// Добавить картинку можно нарисовав её через метод TCanvas.Draw:
// Draw(Rect.Left + 2, Rect.Top + 2, значок);
// А теперь выведем текст
TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol,ARow]);
End;
end;
|