Не получается закрасить ячейку StringGrid с++ Builder

[Mat Bourn]

Добрый день. Не получается изменить цвет шрифта ячейки в StringGrid.
В событии OnDrawCell пишу код:

if ( StringGrid1->Cells[0][0] == "1" )
{

}
 else
{
 StringGrid1->Canvas->Font->Color = clRed;
 StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);
}

Но изменяется цвет всей строки . Как это исправить ?

[Stilet]

Перекинуть код из ветки else в ветку if

[Mat Bourn]

Зачем ? Или это вы так шутите ?

[koljsch]

Нет, не шутят.
У Вас изменение цвета происходит при вызове метода OnDrawCell для всех ячеек, кроме тех у которых ячейка [0,0] равна 1.

[Mat Bourn]

Все равно, все красится. Еще остаются какие то пятна ? Изменять цвет шрифта всех ячеек одним цветом мне не надо. Нужно как то изменить цвет шрифта определенной ячейки ?

[koljsch]

Попробуйте в методе OnDrawCell написать:

if(ACol==0 && ARow==0){
   StringGrid1->Canvas->Font->Color = clRed;
   StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);
}

Код не проверял, но должна закрашиваться только первая ячейка.

[Mat Bourn]

Да, наконец то. Целый день потерял, что бы вместо этого делать что нибудь другое. koljsch большое спасибо.

[koljsch]

Спасибо многоуважаемому Stilet, а я лишь довел его мысль до конца.
Если что - пишите, поможем.

[Mat Bourn]

Ну и Stilet тоже большое спасибо .

[Mat Bourn]

Все сделал, потратив на это целый день. Цвет шрифта определенной ячейки изменяется в зависимости от условия: если ячейка == 1, то тогда изменить цвет ее шрифта на черный, если != 1 то тогда на красный !

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
 for ( a = 0; a <= dlina; a++ )
{

 if( ACol == a && ARow == 0 && StringGrid1->Cells[a][0] == "1")

{
 StringGrid1->Canvas->Font->Color = clBlack;
 StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);
}
 if( ACol == a && ARow == 0 && StringGrid1->Cells[a][0] != "1")
{
 StringGrid1->Canvas->Font->Color = clRed;
 StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);
}

}

}

Но одно но ? Появляются какие то небольшие пятна от краски. Как их убрать ?