[Kaktuz]

Еще есть одна небольшая загвоздка. Как бы так, хорошо бы было если бы в ячейках еще был и текст (0-9). Но тут тогда получается нужно использовать другую таблицу, а там видимо загрузить все в одну ячейку будет сложнее.
Хм... добавить то добавил, но вот только текст получился за картинкой, а нужно наоборот.

[angvelem]

Значит неправильно отрисовку делаешь. Обычно делается так, выводится сначала картинка, затем правее от неё текст.

[Kaktuz]

Сообщение от angvelem

Значит неправильно отрисовку делаешь. Обычно делается так, выводится сначала картинка, затем правее от неё текст.

Так текст должен быть поверх изображения. А если мы его в бок сместим, так тогда получится... Получится что картинка сожмется, а этого не нужно.

[angvelem]

Сообщение от Kaktuz

... Получится что картинка сожмется, а этого не нужно.

Это как выводить, но в любом случае, текст нужно вывести последним.

[Kaktuz]

Делал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,1] := 'Text';
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid) do
  with Canvas do
    begin
      Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
    end;
end;

При запуске в каждой ячейке загружена картинка и после жмем кнопку которая грузит текст и текст остается на заднем плане относительно картинки.

[angvelem]

Так ведь ты текст не вывел. То что ты его присвоил ячейке не означает, что он выведется на передний план.

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid).Canvas do
  begin
    Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
    TextOut(Rect.Left + Font.Size, Rect.Top + 2, 'Owner Drawn text');
  end;
end;

точнее так:

Код:

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid), Canvas do
  begin
    Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
    Brush.Style := bsClear;
    if Cells[ACol, ARow] <> '' then
      TextOut(Rect.Left + Font.Size, Rect.Top + 2, Cells[ACol, ARow]);
  end;
end;

[Kaktuz]

А.. Его нужно через обработчик вместе с картинкой кидать. Ясно. Будем пробовать.

[Kaktuz]

Начудил что-то, одна хохма получилась
Добавляется, но не стирается. Ах! Да! Плюс что можно выделить несколько клеток сразу, это конечно хорошо, но вот не уверен в том что данные корректно записываются.
А возможно поправить одинарный клик на двойной?

[angvelem]

В чём начудил? Пиши понятнее.

[Kaktuz]

Ну как начудил... Просто данные не сохраняются отдельно и грузятся во всю таблицу сразу.
Вот интересует

Код:

if Button = mbLeft then
with (Sender as TDrawGrid), Canvas do
  begin
  (Sender as TStringGrid).MouseToCell(X, Y, aCol, aRow);
  StatusBar1.Panels.Items[1].Text := Format('Y = %d', [aRow]);
  StatusBar1.Panels.Items[2].Text := Format('X = %d', [aCol]);
  end;

Что бы был двойной клик в место одинарного. Возможно?

[angvelem]

Ну так опиши этот код не на OnMouseDown, а на OnDblClick.

[Kaktuz]

Ругается

Код:

(Sender as TStringGrid).MouseToCell(X, Y, aCol, aRow);

[angvelem]

Конечно ругается, X и Y нет во входных параметрах.
p.s. Не к этой теме, посмотри это.