RichEdit 的字体怎么改?

natrium11 2001-04-23 05:40:00
一定要先Select才能改吗?那岂不是会闪一下吗?
或者可否改选中色?不要告诉我要改系统调色板。
...全文
136 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
hp1200 2001-07-29
  • 打赏
  • 举报
回复
up
hp1200 2001-07-29
  • 打赏
  • 举报
回复
up
natrium11 2001-04-24
  • 打赏
  • 举报
回复
大家不会是还没看我的问题就回答了吧?
还是我没说清楚?
我要做一个语法制导的Editor,现在的问题是:
不论我要改变还是判断一个字符串的字体属性,我都要先选中他,改完后再取消选定,这样屏幕上就会闪一下,我想知道怎样解决。

当然若能先把选中色改为背景色也可避免这一问题。
natrium11 2001-04-24
  • 打赏
  • 举报
回复
假如没有好的方法,也请告诉我一声嘛!
natrium11 2001-04-24
  • 打赏
  • 举报
回复
大家不会是还没看我的问题就回答了吧?
还是我没说清楚?
我要做一个语法制导的Editor,现在的问题是:
不论我要改变还是判断一个字符串的字体属性,我都要先选中他,改完后再取消选定,这样屏幕上就会闪一下,我想知道怎样解决。

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

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 }
Apollo47 2001-04-23
  • 打赏
  • 举报
回复
还是认真回答吧。
修改它的 Font 属性就行了。
natrium11 2001-04-23
  • 打赏
  • 举报
回复
唔。。。
natrium11 2001-04-23
  • 打赏
  • 举报
回复
不是吧?
natrium11 2001-04-23
  • 打赏
  • 举报
回复
是不是题目太白痴了?

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧