Главная Информер Журнал Форум Wiki DRKB Discuz!ML Помощь проекту


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-ом.