Delphi - база знаний

       

Bitmap в StringGrid ячейке.


Bitmap в StringGrid ячейке.



Автор: Olivio Moura

В обработчике события OnDrawCell элемента StringGrid поместите следующий код:

     with (Sender as TStringGrid) do 
     with Canvas do 
        begin 
        {...} 
        Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic); 
        {...} 
        end


Используйте метод Draw() или StretchDraw() класса TCanvas. Image1 - это TImage с предварительно загруженным в него bitmap-ом.


Взято с Исходников.ru



Содержание раздела