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

http://delphiworld.narod.ru/

DelphiWorld 6.0