Как поместить изображение в ячейку таблицы StringGrid

Компонент StringGrid может размещать в своих ячейках не только текст, но и графику. Поместить рисунок или другое изображение в ячейку таблицы StringGrid позволяет свойство Canvas компонента StringGrid.

Свойство Canvas имеет метод для вывода графики в заданный своими координатами прямоугольник:

Canvas.StretchDrav (const Rect: TRect; Graphic: TGraphic);

Этот метод «подгоняет» размеры рисунка под размеры прямоугольника, растягивает или сжимает его и по горизонтали и по вертикали, причём не обязательно пропорционально. Если размеры прямоугольника и размеры изображения не подобны, то рисунок будет искажён.

Значит, для вывода изображения в ячейку, предварительно нужно:

• 1. сделать размеры ячейки-адресата ячейки равными или пропорциональными размерам изображения;
• 2. определить прямоугольник вывода, то есть задать его координаты.

В компоненте StringGrid определено событие, обработчик которого специально приспособлен как раз для этих целей.

Определяя адрес ячейки (ACol, ARow) таблицы, мы тем самым задаём определённый в обработчике OnDrawCell прямоугольник Rect вывода изображения. А узнать размеры изображения, чтобы подстроить под него размеры ячейки, можно загрузив изображение вначале в специально созданный контейнер — объект типа TPicture:

Если для загрузки предполагается изображение формата JPEG, то в список uses нужно подключить модуль JPEG.