delphi 将RichEdit的内容输出到一个Image图像中


本文整理自网络,侵删。

 Image设为足够大,即可得到RichEdit中的所有内容,然后再
Image1.Picture.SaveToFile输出到一个BMP文件即可:

uses RichEdit;

procedure TForm1.Button1Click(Sender: TObject);
var
Range: TFormatRange;
LastChar, MaxLen, LogX, LogY: Integer;
begin
FillChar(Range, SizeOf(TFormatRange), 0);
with Image1, Range do
begin
LogX := GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
LogY := GetDeviceCaps(Canvas.Handle, LOGPIXELSY);
hdc := Canvas.Handle;
hdcTarget := hdc;
rc.right := Image1.ClientWidth * 1440 div LogX;
rc.bottom := Image1.ClientHeight * 1440 div LogY;
rcPage := rc;
LastChar := 0;
MaxLen := GetTextLen;
chrg.cpMax := -1;
repeat
chrg.cpMin := LastChar;
LastChar := SendMessage(RichEdit1.Handle, EM_FORMATRANGE, 1,
Longint(@Range));
until (LastChar >= MaxLen) or (LastChar = -1);
end;
SendMessage(RichEdit1.Handle, EM_FORMATRANGE, 0, 0);
Image1.Refresh;
end;

相关阅读 >>

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

获取剪贴板文字内容的代码

Delphi调用rest

Delphi xe 枚举指定目录及子目录下的所有文件

md5.pas

Delphi 自带gif控件的动画图片加载和播放

Delphi更新本地时间

Delphi 按字符串长度对tstringlist的元素进行排序

Delphi 检测cpu内核数

Delphi adoquery查询更改用户

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...