Помогите со StringGrid'ами...

[pavelslap]

Здравствуйте! Обьясните, пожалуйста новичку, как закрашивать определённые ячейки в StringGrid. Работаю в C++Builder 6. Имеется вот такой код, но он не работает, так как хотелось бы мне.

void __fastcall gridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        TStringGrid *p=(TStringGrid *)Sender;
 
        p->Canvas->Brush->Color = clBlack;
        if (p->Cells[ACol][ARow] != ' ')
                p->Canvas->FillRect(Rect);
...

[Stilet]

как хотелось бы мне.

Телепаты в отпуске, учти.

но он не работает

Вот такой вот:

//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
		  TGridDrawState State)
{
 TStringGrid *p=(TStringGrid*)Sender;
 if (p->Cells[ACol][ARow]==" ") {
  p->Canvas->Brush->Color=clRed;
 } else {
  p->Canvas->Brush->Color=clGreen;
 }
 p->Canvas->FillRect(Rect);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 StringGrid1->Cells[1][2]=" ";
}
//---------------------------------------------------------------------------

Вполне работает.

[pavelslap]

Сообщение от Stilet

Телепаты в отпуске, учти.

Вот такой вот:

//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
		  TGridDrawState State)
{
 TStringGrid *p=(TStringGrid*)Sender;
 if (p->Cells[ACol][ARow]==" ") {
  p->Canvas->Brush->Color=clRed;
 } else {
  p->Canvas->Brush->Color=clGreen;
 }
 p->Canvas->FillRect(Rect);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 StringGrid1->Cells[1][2]=" ";
}
//---------------------------------------------------------------------------

Вполне работает.

Спасибо большое за этот код, но в связи с тем, что все телепаты уже в отпуске, мне ещё надо чтобы поверх закрашенной ячейки можно было вывести текст, и чтобы закрашивалось после нажатия кнопки TButton1

[pavelslap]

Не подскажете?

[pavelslap]

Мне надо чтобы поверх закрашенной ячейки можно было вывести текст, и чтобы закрашивалось после нажатия кнопки TButton1