如何实现CheckListBox中的几个记录的颜色与其它的不同（标识重点项），欢迎改过此控件的高手提供代码，谢谢！

Question

在它的ondrawitem中写
var
offset: integer
    with (Control as Tchecklistbox).Canvas do
    begin
        FillRect(Rect);
        begin
            Offset := 16;
            case index of
                0:brush.color:=clred;
                1:brush.color:=clyellow;
                //...
            end;
            TextOutRect(Rect,Rect.Left + Offset, Rect.Top + 2, (Control as TCombobox).Items[Index])
        end;
    end;