用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);[Page]
    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;