|
|
![]() |
![]() |
![]() |
Bitmap
в StringGrid ячейке.
Совместимость: Delphi 3.x (или выше)
В обработчике события
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-ом.
Автор: Olivio Moura
(olivio.moura@teknoland.com)
Источник: http://www.sources.ru/delphi/
|
| Copyright ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
| Источник получения информации: http://www.delphimaster.ru
|
|
