[英]How to change background color of margins in RichEdit?
我使用以下代码向RichEdit添加页边距。 如何更改其背景颜色?
procedure TForm1.Button1Click(Sender: TObject);
var
LRect: TRect;
begin
LRect := RichEdit1.ClientRect;
InflateRect(LRect, -25, -25);
RichEdit1.Perform(EM_SETRECT, 0, Integer(@LRect));
end;
EM_SETRECT
仅仅告诉RichEdit矩形允许在哪里渲染其文本。 若要更改保留空间的边距的背景颜色,必须将RichEdit子类WM_PAINT
直接处理WM_PAINT
消息,然后可以在该空间中绘制任何内容。
我不确定这是否行得通,但是您可以发送EM_SETEDITSTYLE消息来设置SES_EXTENDBACKCOLOR,这是我过去使用过的-这会导致背景颜色扩展到页边距。 有关更多详细信息,请参见此MSDN页面 。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.