Как в ячейке Grid вывести картинку?

[Влажимир]

Как в ячейке Grid (StringGrid или DrawGrid) вывести картинку?

[SNUPY]

Короче говоря в обработчике OnDrawCell можно рисовать на канве StringGrid'a

var
  Form1: TForm1;
  B:TBitmap;
  x, y:Cardinal;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    B:=TBitmap.Create
    else Exit;
  B.LoadFromFile(OpenPictureDialog1.FileName);
  x:=StringGrid1.Col;
  y:=StringGrid1.Row;
  Canvas.StretchDraw(StringGrid1.CellRect(x,y),B);
  StringGrid1.SetFocus;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (b<> nil)  and (ACol=x) and (ARow=Y) then
  StringGrid1.Canvas.StretchDraw(Rect,B);
end;

end.

[Albert2008]

1. Какие компоненты нужно положить начисутю форму (я так понял, что только Image, StringGrid и кнопку).
2. Куда нужно скопиовать приведенный листинг ? (в OnDrawCell в StringGrid или 2 раза щёлкнув на кнопку ?)
3. КАК скопировать этот листинг без столбца с цыфрами с лева ?

[mutabor]

1. TStringGrid, TOpenPictureDialog, TButton
2. Почитайте литературу, что такое обработчик события и как их создавать.
3. В вверхней строке кода кнопочка "view plain"

По второму вопросу: чтобы заработало нужно скопировать этот код заменив им, тот что есть, начиная с var и заканчивая end. Компоненты должны быть уже на форме. Затем в инс. объектов на вкладке Events щелкните дважды в поле OnClick у кнопки, и в поле OnDrawCell у стринггрида. Но литературу все таки почитайте.