10]RichEdit另存 为BMP图片

引用CnPack组件 中的 CnRichEdit,

    img1: TImage;shp1: TShape;privateFRender: TCnRichEditRender;
////////////////////////////////////////////////
procedure TFormRender.FormCreate(Sender: TObject);
beginFRender := TCnRichEditRender.Create;
end;procedure TFormRender.FormDestroy(Sender: TObject);
beginFRender.Free;
end;

varBmp: TBitmap;Mem: TMemoryStream;W: Integer;sss: tstringlist;annistring:AnsiString;
beginW := StrToIntDef(editor.Text, 0);FRender.BackgroundColor := shp1.Brush.Color;Mem := TMemoryStream.Create;editor.Lines.SaveToFile('aaa.rtf');sss:=  tstringlist.Create;sss.LoadFromFile('aaa.rtf');annistring:=  sss.Text;Mem.WriteBuffer(Pointer(annistring)^, Length(annistring)*2);Mem.Position := 0;Bmp := FRender.RenderRtfToBitmap(Mem, W);if Bmp <> nil thenbeginimg1.Picture.Assign(Bmp);// ===img1.Picture.SaveToFile('rtf.bmp');//====
    Bmp.Free;end;Mem.Free;sss.Free;
end;