Delphi - RichEdit Zoom 代码
Delphi - RichEdit Zoom with code
如果您在richedit中加载一些文本并单击鼠标左键+移动鼠标滚轮,文本将放大或缩小,而不会丢失文本大小格式。
是否有一种简单的方法可以通过几行代码实现此功能(缩放 in/out)?
谢谢
光线
可以发送EM_SETZOOM给rich edit控件设置缩放比例
procedure SetZoom(const RichEdit: TCustomRichEdit; const Value: Integer);
const
EM_SETZOOM = (WM_USER + 225);
begin
SendMessage(RichEdit.Handle, EM_SETZOOM, Value, 100);
end;
procedure TForm26.btn1Click(Sender: TObject);
begin
SetZoom(RichEdit1, 200);
end;
在Delphi XE6 和更高版本TRichEdit
中有一个Zoom
属性。将此设置为您想要的缩放百分比。
如果您在richedit中加载一些文本并单击鼠标左键+移动鼠标滚轮,文本将放大或缩小,而不会丢失文本大小格式。
是否有一种简单的方法可以通过几行代码实现此功能(缩放 in/out)?
谢谢
光线
可以发送EM_SETZOOM给rich edit控件设置缩放比例
procedure SetZoom(const RichEdit: TCustomRichEdit; const Value: Integer);
const
EM_SETZOOM = (WM_USER + 225);
begin
SendMessage(RichEdit.Handle, EM_SETZOOM, Value, 100);
end;
procedure TForm26.btn1Click(Sender: TObject);
begin
SetZoom(RichEdit1, 200);
end;
在Delphi XE6 和更高版本TRichEdit
中有一个Zoom
属性。将此设置为您想要的缩放百分比。