如何在TRichMemo（Lazarus lcl）中更改插入符号的颜色

Question

我正在使用暗色作为Color属性。我可以将字体颜色更改为白色，但似乎无法找到将闪烁的插入符号颜色更改为更醒目的方式（请参阅截图。插入符号位于Hello中的2个“l”之间。请注意插入符的颜色是深灰色的，但不是白色的）。

有没有简单的方法来设置TRichMemo的脱字符颜色？

谢谢！

Answer 1

简单吗？很好。

几年前，我有一个类似的问题，我使用的答案是一个自定义光标。

该解决方案适用于Delphi，理论上应该在Lazarus工作（但请参阅http://forum.lazarus.freepascal.org/index.php?topic=32861.0），但无论如何，它可能会帮助您找到最终解决方案。

简而言之过程是：

1）你需要一个光标文件，mycursor.cur。你可能会在'net'上找到一个，在delphi领域，有一个实用工具可以让你创建一个。

2）制作一个像mycursor.rc这样的文本文件（rc是未编译的资源文件）。

3）在这个例子中它将有一行：myCUR CURSOR“mycursor.cur”，所有这些文件应该驻留在程序的主文件夹中。

4）这需要编译成.res（mycursor.res）文件，见http://wiki.freepascal.org/Lazarus_Resources，在Delphi中这个文件是/ was brcc32.exe。上面的链接解释了拉撒路的过程，我没有测试过。

5），那么你需要把线在你的代码，主要形式是好的，是这样的：

{$ R mycursor.res}德尔福风格;（预编译的资源文件）

{$ R mycursor.rc}拉撒路风格（它会/应该为你编译）。几乎完成。

6）现在，在FORMCREATE放：

（DELPHI :) screen.cursors [1]：=使用LoadCursor（HINSTANCE，PChar类型（ 'myCUR'））; （使用你在rc文件中给出的名字，游标idx 1到32000是用户可定义的，但是在这里你必须玩弄拉撒路来处理它有点不同，再次看到上面的链接）。 7）最后，将光标指定给你的控件：Richedit1.Cursor：= 1;

HTH。