Bitmap в StringGrid ячейке.

Previous  Top  Next

    
 

 

Автор: Olivio Moura

 

В обработчике события 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::03762

Взято из http://forum.sources.ru