StringGrid

[miklets]

Здравствуйте. Подскажите, пожалуйста, новичку каким образом можно изменить цвет шрифта в отдельно взятой ячейке StringGrid. Заранее спасибо.

[Drugnir]

StringGrid1->Canvas->Font->Color = clRed;
StringGrid1->Canvas->FillRect(Rect);
StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[aCol] 
[ARow]);

Как-то так

[miklets]

Большое спасибо.

[miklets]

Добрый день. Подскажите, пожалуйста, как должна выглядеть функция принимающая в качестве параметров имя таблицы, номер столбца, номер строки, цвет и перекрашивающая в заданной таблице заданную ячейку в нужный цвет. Спасибо

[Stilet]

Создай обработчик OnDarwCell и увидишь.

перекрашивающая в заданной таблице заданную ячейку в нужный цвет

Надеюсь ты осознаешь что перекраска твоя коту под хвост пойдет после очередного сообщения от винды приложению с командой перерисоваться?

[microbit]

делал так, помечал нужную ячейку

StringGrid1->Objects[x][y]=(TObject*)1;

и во время прорисовки OnDrawCell

if(StringGrid1->Objects[ACol][ARow] == (TObject*)1)
{
    StringGrid1->Canvas->Brush->Color = clRed;
    StringGrid1->Canvas->Font->Color = clYellow;
    StringGrid1->Canvas->FillRect(Rect);
    StringGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,StringGrid1->Cells[ACol][ARow]);
}

[Drugnir]

Установите свойство DefaultDrawing в false, а затем в обработчик события OnDrawCell добавьте следующий код:

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, 
     int Col, int Row, TRect &Rect, TGridDrawState State) 
 { 
      // Если это заголовок
      if (State.Contains(gdFixed)) 
      { 
          StringGrid1->Canvas->Brush->Color = clBtnFace; 
          StringGrid1->Canvas->Font->Color = clWindowText; 
          StringGrid1->Canvas->FillRect(Rect); 
          Frame3D(StringGrid1->Canvas, Rect, 
                  clBtnHighlight, clBtnShadow, 1); 
      }

      // если ячейка выделена
      else if (State.Contains(gdSelected)) 
      { 
          StringGrid1->Canvas->Brush->Color = clHighlight; 
          StringGrid1->Canvas->Font->Color = clHighlightText; 
          StringGrid1->Canvas->FillRect(Rect); 
      }

      // закрашиваем ячейку (2, 2)
      else if (Col == 2 && Row == 2) 
      { 
          StringGrid1->Canvas->Brush->Color = clBlue; 
          StringGrid1->Canvas->Font->Color = clRed; 
          StringGrid1->Canvas->FillRect(Rect); 
      }

      // Для всех остальных ячеек
      else 
      { 
          StringGrid1->Canvas->Brush->Color = StringGrid1->Color; 
          StringGrid1->Canvas->Font->Color = StringGrid1->Font->Color; 
          StringGrid1->Canvas->FillRect(Rect); 
      }

      AnsiString text = StringGrid1->Cells[Col][Row]; 
      StringGrid1->Canvas->TextRect(Rect, Rect.Left, Rect.Top, text); 
 }

[miklets]

всем огромное спасибо.