Bitmap в StringGrid ячейке.
Автор: Olivio Moura
Совместимость: Delphi 3.x (или выше)
В обработчике события OnDrawCell элемента StringGrid поместите следующий код:
Листинг 1 (Собственно пример)
with (Sender as TStringGrid) do
with Canvas do
begin
{…}
Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
{…}
end;
Используйте метод Draw() или StretchDraw() класса TCanvas. Image1 — это TImage с предварительно загруженным в него bitmap-ом.