Bitmap в StringGrid ячейке
Falk0ner, вс, 06/07/2008 - 15:34.
Bitmap в StringGrid ячейке В обработчике события OnDrawCell элемента StringGrid поместите следующий код:
with (Sender as TStringGrid) do
with Canvas do
begin
{...}
Draw(Rect.Left, Rect., Image1.Picture.Graphic);
{...}
end;
with Canvas do
begin
{...}
Draw(Rect.Left, Rect., Image1.Picture.Graphic);
{...}
end;
Используйте метод Draw() или StretchDraw() класса TCanvas. Image1 - это TImage с предварительно загруженным в него bitmap-ом.
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий