Выделение ячейки
В обработчике события OnDrawColumnCell следующий код:
if(Column->Field->AsInteger < 0)
{
Column->Color = clRed;
}else{
Column->Color = clWhite;
}
Но, красным цветом выделяется ячейка которая следует непосредственно за ячейкой в которой введено отрицательное значение. Подскажите пожалуйста, как сделать так, что бы выделялась именно нужная ячейка.
Спасибо
if(Column->Field->AsInteger < 0)
{
Column->Color = clRed;
}else{
Column->Color = clWhite;
}
Но, красным цветом выделяется ячейка которая следует непосредственно за ячейкой в которой введено отрицательное значение. Подскажите пожалуйста, как сделать так, что бы выделялась именно нужная ячейка.
Спасибо
Цитата:
Originally posted by Marisha
В обработчике события OnDrawColumnCell следующий код:
if(Column->Field->AsInteger < 0)
{
Column->Color = clRed;
}else{
Column->Color = clWhite;
}
Но, красным цветом выделяется ячейка которая следует непосредственно за ячейкой в которой введено отрицательное значение. Подскажите пожалуйста, как сделать так, что бы выделялась именно нужная ячейка.
Спасибо
В обработчике события OnDrawColumnCell следующий код:
if(Column->Field->AsInteger < 0)
{
Column->Color = clRed;
}else{
Column->Color = clWhite;
}
Но, красным цветом выделяется ячейка которая следует непосредственно за ячейкой в которой введено отрицательное значение. Подскажите пожалуйста, как сделать так, что бы выделялась именно нужная ячейка.
Спасибо
if (Column->Field->AsInteger < 0)
{
DBGrid1->Canvas->Brush->Color=clGreen;
DBGrid1->Canvas->Font->Color=clWhite;
DBGrid1->Canvas->FillRect(Rect);
DBGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,Column->Field->Text);
}
Попробуй так.
Цитата:
Originally posted by Saris
if (Column->Field->AsInteger < 0)
{
DBGrid1->Canvas->Brush->Color=clGreen;
DBGrid1->Canvas->Font->Color=clWhite;
DBGrid1->Canvas->FillRect(Rect);
DBGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,Column->Field->Text);
}
Попробуй так.
if (Column->Field->AsInteger < 0)
{
DBGrid1->Canvas->Brush->Color=clGreen;
DBGrid1->Canvas->Font->Color=clWhite;
DBGrid1->Canvas->FillRect(Rect);
DBGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,Column->Field->Text);
}
Попробуй так.
Спасибо большое