如何在Delphi中模拟在Canvas上选择/取消选择文本?

问题描述:

我想在Canvas上模拟Delphi 7中文本的选择/取消选择(如在TEdit中)。 我使用FillRect更改背景颜色和TextOut以绘制文本。 但我需要知道4色值为:如何在Delphi中模拟在Canvas上选择/取消选择文本?

  • 未选中的文本;

  • 选定的文本;

  • 未选定文本的背景;

  • 选定文本的背景。当用户更改Windows主题,或编辑窗口的外观

这些观念正在转变。 对于Windows XP中的经典主题,值为:clBlack,clWhite,clWhite,clNavy。 也许在Delphi中有cl *常量,或者我必须使用Api函数来获取它们。 有人知道如何...? 谢谢。

+1

您可以使用主题API绘制文本更好。 –

+0

@David Heffernan我也会试试这个,谢谢。 – DavidB

未选择:

clWindow 
clWindowText 

选择:

clHighlight 
clHighlightText 
+0

似乎工作。谢谢。 – DavidB