RichEdit 的字体怎么改？

natrium11 2001-04-23 05:40:00

一定要先Select才能改吗？那岂不是会闪一下吗？
或者可否改选中色？不要告诉我要改系统调色板。

...全文

137 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

hp1200 2001-07-29

打赏
举报

hp1200 2001-07-29

打赏
举报

natrium11 2001-04-24

打赏
举报

大家不会是还没看我的问题就回答了吧？
还是我没说清楚？
我要做一个语法制导的Editor,现在的问题是：
不论我要改变还是判断一个字符串的字体属性，我都要先选中他，改完后再取消选定，这样屏幕上就会闪一下，我想知道怎样解决。

当然若能先把选中色改为背景色也可避免这一问题。

natrium11 2001-04-24

打赏
举报

假如没有好的方法，也请告诉我一声嘛！

natrium11 2001-04-24

打赏
举报

WuHeHai 2001-04-23

打赏
举报

//设置9号粗斜宋体
RichEdit1.SelAttributes.Name := '宋体';
RichEdit1.SelAttributes.Size := 9;
RichEdit1.SelAttributes.Style :=RichEdit.SelAttributes.Style+[fsBold] + [fsItatic];

hnshujian 2001-04-23

打赏
举报

font 是不是有一个color属性。你可以试试。

王集鹄 2001-04-23

打赏
举报

procedure ZsRichEditAppend(mRichEdit: TRichEdit; mText: string; mFont: TFont);
{ 添加一个RTF字符串 }
var
I, L: Integer;
vText: string;
begin
vText := mRichEdit.Lines.Text;
I := Length(vText);
L := 0;
while (I > 0) and (L < 2) and (vText[I] in [#13, #10]) do begin
Inc(L);
Dec(I);
end;

mRichEdit.SelStart := I;
mRichEdit.SelLength := L;
mRichEdit.SelAttributes.Assign(mFont);
mRichEdit.SelText := mText;
end; { ZsRichEditAppend }