今天在CSDN见到一位网友问及如何用TComboBox模拟TColorBox，一时兴起，写了一些代码。略加注释后发表到文档区，以备将来查询。
TColorBox是VCL中提供的选取颜色的组件，同TComboBox相同，两个组件都继承自TCustomComboBox，有很多相同的属性和方
法，如Style,
ItemHeight，Canvas(这个属性是继承自TCustomCombo组件(TCustomCombo的父类))，TColorBox列出了系
统中定义的颜色字符串，每一项前面有个小方块，填充了该项目所代表的颜色，后面是颜色字符串，这种效果ComboBox中很容易实现。实现方法，就是
ccrun(老妖)所喜欢的自画。通过ComboBox的OnDrawItem方法实现画方块和绘制字符串。可是如何取得系统中定义的颜色字符串列表呢？
答案就是通过GetColorValues函数(类似的更有GetCharsetValues)。这个函数能够了取得系统中定义过的颜色字符串列表，原型
如下：
extern PACKAGE void __fastcall
GetColorValues(Classes::TGetStrProc &Proc);
TGetStrProc的原型：
typedef void __fastcall
(__closure *TGetStrProc)(const AnsiString S);
OK，下面开始写代码做测试。在Form上添加一个ComboBox，再添加一个ColorBox（作对比用）
因为我们的代码中需要动态的指定ComboBox的自画函数，所以在单元文档的.h中，TForm类中声明一下自画函数。当然，您能够通过在Design界面上选择ComboBox的OnDrawItem，然后双击，IDE会自动产生相应的声明和定义代码。
先来看看效果图：
自画函数的声明(.h文档)：
publice: // User declarations
void __fastcall ComboBox1DrawItem(TWinControl
*Control, int Index,
// 本文转自 C
Builder 研究 -
http://www.ccrun.com/article.asp?i=997&d=6rb201
TRect &Rect, TOwnerDrawState State);
自画函数的定义(.cpp文档)：
void __fastcall TForm1::ComboBox1DrawItem(TWinControl
*Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
TComboBox *cbb = (TComboBox *)Control;
String strText =
cbb->Items->Strings[Index];
//
用白色填充当前项目所占的区域
cbb->Canvas->Brush->Color
= clWhite;
cbb->Canvas->FillRect(Rect);
//
假如当前项目处于被选中状态
if(State.Contains(odSelected))
{
//
假如当前项拥有焦点，重画一次虚线框实现虚线框的擦除
if(State.Contains(odFocused))
::DrawFocusRect(cbb->Canvas->Handle,
&Rect);
//
换一种颜色画边框，实现高亮效果
cbb->Canvas->Brush->Color
= TColor(0x00FFB2B5);
cbb->Canvas->Rectangle(Rect.Left,
Rect.Top,
Rect.Right, Rect.Bottom);
}
// by ccrun(老妖) 欢迎光临 C
Builder研究 - http://www.ccrun.com
//
// 取得当前项字符串所代表的颜色
int nColor;
IdentToColor(strText, nColor);
cbb->Canvas->Brush->Color
= TColor(nColor);
// 画边框和文字
cbb->Canvas->Rectangle(Rect.Left 2,
Rect.Top 2, Rect.Left 18, Rect.Top 18);
cbb->Canvas->Font->Color
= clBlack;
cbb->Canvas->Brush->Style
= bsClear;
cbb->Canvas->TextOutA(Rect.Left 20,
Rect.Top 4, strText);
}
以上是ComboBox组件自画项目的实现，我们还需要一些初始化工作，在TForm的构造函数中(当然也能够在Form的OnCreate事件中)：
__fastcall TForm1::TForm1(TComponent*
Owner)
: TForm(Owner)
{
ComboBox1->Items->Clear();
//
通过回调函数获取系统中定义的颜色名称
// 63 63 72 75 6E 2E 63 6F 6D
TGetStrProc AddValue =
(TGetStrProc)&ComboBox1->Items->Add;
GetColorValues(TGetStrProc(AddValue));
//
改变ComboBox的风格使其能自画
ComboBox1->Style = csOwnerDrawFixed;
// ComboBox中每一项的高度
ComboBox1->ItemHeight = 20;
//
指定ComboBox的项目自画事件
ComboBox1->OnDrawItem =
(TDrawItemEvent)&ComboBox1DrawItem;
//
使ComboBox选中第一个项目
ComboBox1->ItemIndex = 0;
}