Картинка и текст RxRichEdit

[Pearl777]

Здравствуйте! Я делаю чат и мне понадобилось сделать смайлы для него.

Использую эту функцию:

function BitmapToRTF(pict: TBitmap): string;
var
   bi, bb, rtf: string;
   bis, bbs: Cardinal;
   achar: ShortString;
   hexpict: string;
   I: Integer;
begin
   GetDIBSizes(pict.Handle, bis, bbs);
   SetLength(bi, bis);
   SetLength(bb, bbs);
   GetDIB(pict.Handle, pict.Palette, PChar(bi)^, PChar(bb)^);
   rtf := '{\rtf1 {\pict\dibitmap0 ';
   SetLength(hexpict, (Length(bb) + Length(bi)) * 2);
   I := 2;
   for bis := 1 to Length(bi) do
   begin
     achar := IntToHex(Integer(bi[bis]), 2);
     hexpict[I - 1] := achar[1];
     hexpict[I] := achar[2];
     Inc(I, 2);
   end;
   for bbs := 1 to Length(bb) do
   begin
     achar := IntToHex(Integer(bb[bbs]), 2);
     hexpict[I - 1] := achar[1];
     hexpict[I] := achar[2];
     Inc(I, 2);
   end;
   rtf := rtf + hexpict + ' }}';
   Result := rtf;
end;

для вставки изображения в RxRichEdit.

Смайл вставляется отлично если нету рядом никакого текста. В противном случае вместо картинки выводится подобный текст:

{\rtf1 {\pict\dibitmap0 28000000100000001000000001000100000 00000400000000000000000000000000000 000000000000000000FFFFFF00FF000000F F000000FF000000FF000000FF000000FF00 0000FF000000FF000000FFFF0000FFFF000 0FFFF0000FFFF0000FFFF0000FFFF0000FF FF0000FFFF0000 }}

Смайл вставляю таким способом:

RxRichEdit1.Text:=StringReplace(RxRichEdit1.Text,'=)',BitmapToRTF(image1.Picture.Bitmap),[rfReplaceAll]);

Как можно исправить эту ситуацию?

[Stilet]

А ты перед смайлом попробуй пробел ставить.
Или перевод каретки.

[Pearl777]

Stilet, Спасибо, но это не помогло.

[Stilet]

Тогда не знаю...

[Pearl777]

Нашел рабочий модуль.
Вставляю картинку вот так:

InsertBitmapToRE(RichEdit1.Handle, image1.Picture.Bitmap.Handle);

Но как мне ставить её в нужное мне место?

[Аватар]

Можно Bitmap напрямую в RxRichEdit засунуть и потом сохранить/прочитать в rtf-формате. Нужное место SelStart или без него после курсора

procedure TForm1.Button1Click(Sender: TObject);
var BitMap: TBitmap;
begin
  BitMap:=TBitmap.Create;
  BitMap.LoadFromFile('E:\Delete1.bmp');
  Clipboard.Assign(BitMap);
  RxRichEdit1.SelStart:=1;
  RxRichEdit1.PasteFromClipboard;
  Clipboard.Clear;
  BitMap.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RxRichEdit1.Lines.SaveToFile('e:\uuu.rtf');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  RxRichEdit1.Clear;
  RxRichEdit1.Lines.LoadFromFile('e:\uuu.rtf');
end;

[Pearl777]

Всем спасибо! Проблема решина.