Bitmap в StringGrid ячейке |
Previous Top Next |
В обработчике события OnDrawCell элемента StringGrid поместите следующий код:
Code: |
with (Sender as TStringGrid) do with Canvas do begin {...} Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic); {...} end; |
Используйте метод Draw() или StretchDraw() класса TCanvas. Image1 - это TImage с предварительно загруженным в него bitmap-ом.
©Drkb::01039
DelphiWorld 6.0