void __fastcall TForm2::ListView1AdvancedCustomDrawSubItem(TCustomListView *Sender, TListItem *Item, int SubItem,
      TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw)
{
    int SubItemIndex    =3;

    TRect         rt = Item->DisplayRect(drBounds);
    TListColumn *sItem ;

    if(SubItem == 2)
    {
        for(int i = 0; i <= SubItemIndex; i++)
        {
            sItem= ListView1->Column[i];
            if(i < SubItem) rt.left += sItem->Width;
            if(i == SubItem) rt.right = rt.left+sItem->Width;
        }

        rt.left;
        rt.right;
        rt.top++;
        rt.bottom;


        ListView1->Canvas->Brush->Color    = clGray;
        ListView1->Canvas->FillRect(rt);

        ListView1->Canvas->Pen->Color    = clBlack;
        ListView1->Canvas->Rectangle(rt.left, rt.top, rt.right, rt.bottom);
    }
    else
    {
        ListView1->Canvas->Pen->Color    = clBlack;
        ListView1->Canvas->Brush->Color    = clWhite;
    }
}

이런 식으로 했습니다. 그런데, 해당 칼럼이 회색으로 다 채워지네요..

ListView1->Canvas->Brush->Color = clGray; 이게 들어가서 그런것 같은데, 프로그래스바 안에만 색을 채우고 싶거든요.. 어떻게 하면 될까요?