Показать сообщение отдельно
  #2  
Старый 19.05.2013, 16:15
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

ну как вариант при перетаскивании в ячейке писать циферку (ну или прямо так и писать "история"), а потом
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i: integer;
begin
  with StringGrid1 do
  begin
    for i:=0 to rowcount do
    begin
      if cells[1, i] = '0' {или cells[1, i] = 'история'} then canvas.Draw(cellRect(1,i).Left, cellRect(1,i).Top, Image1.Picture.Graphic); // рисуем че-то из Image1, если в клетке ноль
// и так далее смотря какой рисунок   
    end;
  end;
end;
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием