编写一个可以高亮显示关键字的richedit
用for循环取每一行的文件,判断是否为关键字,true的话就把这一行的文字全部更改颜色. 我不知道如何设置RichEdit指定行号字体颜色,如果用
richedit.selstart 和 richedit.sellength
然后再通过richedit.selattributes.color 来设置 richedit.seltext 的内容,方法好象显得有些怪怪的,还有别的办法吗?谢谢
用for循环取每一行的文件,判断是否为关键字,true的话就把这一行的文字全部更改颜色. 我不知道如何设置RichEdit指定行号字体颜色,如果用
richedit.selstart 和 richedit.sellength
然后再通过richedit.selattributes.color 来设置 richedit.seltext 的内容,方法好象显得有些怪怪的,还有别的办法吗?谢谢
解决方案 »
- delphi 客户端执行存储过程
- TChart的几个问题请教:1,bar类型的,为什么bar的头上也有横坐标的值呢(横坐标为时间,纵坐标为产量)
- 请问可以让DBNavigator上面的‘+’,‘-’换成其它文字吗?
- async的Domen 看不懂,谁有用async发传真的例程吗?请帮帮菜鸟小妹吧。
- 请教一个对象间通知的问题
- 如何在程序中自动获取 本机的机器名和ip地址
- 在Tadoquery中使用 update mytable set name='b' where name='a' 语句是否有问题?
- 请问Insert键的ASCII是什么?我只有25分了!
- 如何在外部用程序读出FOXMAIL写邮件窗口的邮件正文信息。
- 有个未知类型数组指针,如何能取出数组中的数据
- 请问如何用delphi将RGB图像转为灰度图像啊~~~!!! 谢谢各位高手了 越详细越好~~~!!
- dll相互调用的问题
procedure TfrmOptSet.ShowBGround(const intIndex: integer);
var
strCode:string;
begin
ReDemo.Lines.Clear;
case intIndex of
mConstIndexZero:// =0; //默认
begin
ReDemo.Color:=clWhite;
end;
mConstIndexOne:// =1; //微亮
begin
ReDemo.Color:=clblack;
end;
mConstIndexTwo:// =2; //古典
begin
ReDemo.Color:=clNavy;
end;
mConstIndexThree:// =3; //浅蓝
begin
ReDemo.Color:=claqua;
end;
end; ReDemo.Font.Size:=12;
ReDemo.Lines.Add('main()');
ReDemo.SelStart:=0;
ReDemo.SelLength:=Length('main()');
ReDemo.SelAttributes.Color:=clRed;
strCode:='{'
+#13#10
+#9+'Fun()'
+#13#10
+#9+'{'
+#13#10
+#9+'}'
+#13#10
+'}';
ReDemo.Lines.Add(strCode);
ReDemo.SelStart:=Length('main()');
ReDemo.SelLength:=Length('main()')+Length(strCode);
ReDemo.SelAttributes.Color:=clGreen;
end;//ReDemo为richedit控件// 这是我的做的一个例子,希望对你有帮助