zoukankan      html  css  js  c++  java
  • 在多次改变 RichEdit.Text部份文本的颜色后,出现所有字体都变色的的解决办法

    Procedure TForm1.FormCreate(Sender: TObject);
    Begin
      RichEdit1.Text := '012345678';
    End;

    Procedure TForm1.Button1Click(Sender: TObject);
    Begin
      RichEdit1.SelStart := 0;
      RichEdit1.SelLength := 
    3;
      RichEdit1.SelAttributes.Color := clRed; 
    //012为红色

      RichEdit1.SelStart := 5;
      RichEdit1.SelLength := 
    4;
      RichEdit1.SelAttributes.Color := clBlue; 
    //5678为蓝色

    //RichEdit1.ClearSelection;
    //只是删除最后一个选区(如上面为蓝色的选区)的字符,不是清除 所有选择样式
    End;

    Procedure TForm1.Button2Click(Sender: TObject);
    Begin
      RichEdit1.SelStart := 0//清除 所有选择样式
      RichEdit1.SelLength := Length(RichEdit1.Text);
      RichEdit1.SelAttributes.Color := clBlack;
    End;

  • 相关阅读:
    bless for you...
    Unity3D 热更新方案(集合各位专家的汇总)
    Unity与iOS原生代码之间的相互调用
    unity android相互调用
    unity3d资源打包总结
    Unity3D热更新LuaFramework入门实战
    unity插件开发
    Unity3D性能优化总结
    正确释放Vector的内存
    CCLuaObjcBridge
  • 原文地址:https://www.cnblogs.com/tulater/p/1409928.html
Copyright © 2011-2022 走看看