Delphi - RichEdit缩放代码

Question

如果在richedit中加载一些文本并单击鼠标左键+移动鼠标滚轮，文本将放大或缩小，而不会丢失文本大小格式。

是否有一种简单的方法可以使用一些代码行来实现此功能（放大/缩小）？

谢谢

射线

Answer 1

您可以将EM_SETZOOM发送到富编辑控件以设置缩放比率

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;

Answer 2

在Delphi中，XE6及更高版本TRichEdit具有Zoom属性。将其设置为您想要的缩放百分比。