RxLib中有,很多地方都有下。

解决方案 »

  1.   

    呵呵,为了提高水平,还是自己来创建一个吧,不难的,用memo都可以添加图片呢~~
      

  2.   

    好吧,给你一个memo的例子,richedit同理:用Memo显示图片,你可以自己改改这个控件,处理memo的 WM_Paint消息,画个图片。type 
      TMyMemo = class(TMemo) 
      protected 
        procedure WMPaint(var Message: TWMPaint); message WM_PAINT; 
      end; 
    procedure TMyMemo.WMPaint(var Message: TWMPaint); 
    var 
      MCanvas: TControlCanvas; 
      DrawBounds : TRect; 
    Begin 
      inherited; 
      MCanvas:=TControlCanvas.Create; 
      DrawBounds := ClientRect;  // Work with temporary TRect record. 
      Try 
      MCanvas.Control:=Self; 
      With MCanvas do 
      Begin 
        Brush.Color := clBtnFace; 
        FrameRect( DrawBounds ); 
        InflateRect( DrawBounds, -1, -1); 
        FrameRect( DrawBounds ); 
        FillRect ( DrawBounds ); 
        MoveTo ( 33, 0 ); 
        Brush.Color := clWhite; 
        LineTo ( 33, ClientHeight ); 
        PaintImages;//定义的画图片过程 
      end; 
      finally 
        MCanvas.Free; 
      End; 
    end; procedure TMyMemo.PaintImages; 
    var 
      MCanvas: TControlCanvas; 
      DrawBounds : TRect; 
      i, j : Integer; 
      OriginalRegion : HRGN; 
      ControlDC : HDC; 
    begin 
      MCanvas:=TControlCanvas.Create; 
      DrawBounds := ClientRect;  // Work with temporary TRect record. 
      try 
      MCanvas.Control:=Self; 
      ControlDC := GetDC ( Handle ); 
      MCanvas.Draw(0, 1, Application.Icon); 
      finally 
        MCanvas.Free; 
      end; 
    end; 
      

  3.   

    你给的例子好象在哪见过,照这意思,我还得研究RTF文件格式啦,我晕。:))
    最好是有一个使用riched20.dll(Version 3.0)带源码的Rtf控件来看看了,能够打开含有图片甚至表格的Rtf文件。
      

  4.   

    不用啊,你只要处理richedit的WM_Paint消息,画个图片就行了~~