Q&A

  • TRichEdit 에 Image 를 넣을 수 있나요??
제가 RichEdit 의 텍스트들 사이에 이모티콘처럼 조그만 이미지를 넣었으면 하는데요..

게시판을 검색해보니.. 이미지를 넣을 수 있다는 분도 있고.. 없다는 분도 있는데요..

이미지를 넣을 수 있으면.. 간단한 예제를 부탁드려도 될까요..?

혹시 안된다면.. 그런 효과를 낼 수 있는 다른 컴포넌트 추천 부탁드립니다..
이 게시물을
2  COMMENTS
  • Profile
    최용일 • 2008.04.09 02:58
    많은 방법이 있습니다.

    아래는 그중의 하나입니다. (출처 Delphi3000 )

    Inserting a bitmap into an extended RichEdit or RichTextBox control

    After quite a bit of searching the net, I found that there was no easy way to insert an image into a RichEdit. Inserting a bitmap as an object worked well enough, but the user can still open it up and edit it, and the image had to be an existing file. Using the clipboard worked even better, but wiped out the previous contents. Since my project required that the image was both  reasonably uneditable, and left the clipboard intact, I had to resort to editing the RTF. If you have Rxlib, or use the Microsoft RichTextBox control (comes with VB5+), this may be of some use to you. Please forgive the sloppiness. Any suggestions on how to optimize it would be greatly appreciated, since loading larger images causes a delay I would rather do without.


    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;


    This function returns a snippet of RTF code that can be streamed into an RxRichEdit or RichTextBox selection.

    This seems to work well for me:


    {assume SS is a TStringStream, RE is a TRxRichEdit and BMP is a TBitmap containing a picture.}
    SS := TStringStream.Create(BitmapToRTF(BMP));
    RE.PlainText := False;
    RE.StreamMode := [smSelection];
    RE.Lines.LoadFromStream(SS);
    SS.Free;


    If you don't know what RxRichEdit is, and want to know, you can get it here: http://www.rxlib.com/
    If you don't know what RTF (RichText Format) is, you can read a little about it here:
    http://chesworth.com/pv/file_format/rtf.txt

    {Edit: New version of the function seems to run alot faster.}

    >제가 RichEdit 의 텍스트들 사이에 이모티콘처럼 조그만 이미지를 넣었으면 하는데요..
    >
    >게시판을 검색해보니.. 이미지를 넣을 수 있다는 분도 있고.. 없다는 분도 있는데요..
    >
    >이미지를 넣을 수 있으면.. 간단한 예제를 부탁드려도 될까요..?
    >
    >혹시 안된다면.. 그런 효과를 낼 수 있는 다른 컴포넌트 추천 부탁드립니다..
  • Profile
    김종화 • 2008.04.10 20:47
    답변 감사드립니다.

    RX 설치해서 해보니.. 아주 잘되네요.^^

    그런데. 델파이에서 기본제공하는 TRichEdit 에서는 안되는 건가요?

    왠만하면 기본컴포넌트 위주로 작업을 하고 싶어서요..^^;;
←First Page
129 130 131 132 133 134 135 136 137 138
Last Page→
한델 로그인 하기