文章目录
richedit中内容存放到bmp文件
提示:这里可以添加技术概要
核心源码
procedure OutputRTFToBmp(RichHolder: TRichEdit; ImageHolder: TBitmap; itemwidth, itemheight: real);
var
Range: TFormatRange;
TextBoundary: TRect;
begin
{设置输出内容的高度和宽度}
ImageHolder.width := round(itemwidth * screen.PixelsPerInch);
ImageHolder.height := round(itemheight * screen.PixelsPerInch);
{设置Richedit的大小}
textboundary := rect(0, 0, round(itemwidth * 1440), round(itemheight * 1440));
{设置记录范围}
range.hdc := ImageHolder.Canvas.handle;
range.hdctarget := ImageHolder.Canvas.handle;
range.rc := textboundary;
range.rcpage := textboundary;
{以0字符开始}
range.chrg.cpMin := 0;
{显示所有字符}
range.chrg.cpMax :&#