Изображение и RichEdit Опции

[Unconnected]

Допустим, имеется изображение(оно может быть разное) в RichEdit. Как его можно преобразовать в текст, чтобы для каждой картинки был свой "идентефикатор"? Помимо картинки в RichEdite может быть ещё и текст.

Сообщение отредактировано: Unconnected - 11.06.2009 20:39

[Unconnected]

Возникло одно непредвиденное затруднение...
Оформил я, значит, процедуру GetPosition в виде функции, возвращающей координаты курсора, и сделал формирование строки сообщения. Всё это дело висит на событии OnKeyPress РичЭдита. Выглядит вот так:

Function TForm1.GetPosition(Sender:TsRichEdit):TPoint;
var
  iX,iY:Integer;
  TheRichEdit:TsRichEdit;
begin
  iX:=0;iY:=0;
  TheRichEdit:=TsRichEdit(Sender);
  iY:=SendMessage(TheRichEdit.Handle, EM_LINEFROMCHAR, TheRichEdit.SelStart,0);
  iX:=TheRichEdit.SelStart - SendMessage(TheRichEdit.Handle, EM_LINEINDEX,iY, 0);
  result.Y:=(iY+1);result.X:=(iX+1);
end;

procedure TForm1.sRichEdit1KeyPress(Sender: TObject; var Key: Char);
var pt:TPoint;
    ss:string;
begin
  ss:=key;
  if key=#13 then begin
                    button4.click;
                    key:=#0;
                    exit;
                  end;
  pt.X:=getposition(memo1).x;
  pt.y:=getposition(memo1).y;
  if pt.Y=1 then insert(ss,messag,pt.X)
  else insert(ss,messag,(pt.Y*69)+pt.x);
end;

Вот так формируется строка. Если вставляется смайл, то в строку входит блок типа "#&номер_смайла#0". И это даже работает. Проблема в другом, допустим, пользователь набрал сообщение, со смайлом, вдруг увидел опечатку и стёр полмессаджа, в котором и был смайл. Как это можно отразить на формируемой строке? Я не могу придумать именно алгоритм действий. Можно, в принципе, обрабатывать нажатия BackSpace и Delete, но тогда придётся обработать ещё и ситуацию, когда пользователь выделил кусок текста и нажал Delete... Что посоветуете?..

Сообщение отредактировано: Unconnected - 16.06.2009 14:06