[ALexandr555]

Доброго времени суток, нарыв в интернете код как вставлять картинку в RxRichEdit

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

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\dibitmap ';  SetLength(hexpict,(Length(bb) + Length(bi)) * 2);  I := 2;  for bis := 1 to Length(bi) do  begin    achar := Format('%x',[Integer(bi[bis])]);    if Length(achar) = 1 then      achar := '0' + achar;    hexpict[I-1] := achar[1];    hexpict[i] := achar[2];    Inc(I,2);  end;  for bbs := 1 to Length(bb) do  begin    achar := Format('%x',[Integer(bb[bbs])]);    if Length(achar) = 1 then      achar := '0' + achar;    hexpict[I-1] := achar[1];    hexpict[i] := achar[2];    Inc(I,2);  end;  rtf := rtf + hexpict + ' }}';  Result := rtf; end;         procedure TForm1.Button6Click(Sender: TObject); var SS: TStringStream; BMP: TBitmap; begin SS := TStringStream.Create(BitmapToRTF(BMP)); RichEdit1.PlainText := False; RichEdit1.StreamMode := [smSelection]; RichEdit1.Lines.LoadFromStream(SS); SS.Free; end;

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

[lmikle]

Ну у тебя же там и код и пример его использования. Вот это:

Код:

1	procedure TForm1.Button6Click(Sender: TObject);

обработчик нажатия на кнопку, который и есть пример использования.

[Страдалецъ]

Ему наверное вот что надо:

Код:

1 2 3 4 5

... BMP := TBitmap.Create; BMP.LoadFromFile('c:\user.bmp'); SS := TStringStream.Create(BitmapToRTF(BMP)); ...

[ALexandr555]

Страдалецъ благодарю именно это=)