Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от -[БуШ]-

бональная проблема со StringGrid. задача: разукрасить определённую ячейку и написать в ней текст. проблема: ячейка успешно разукрашивается, но текст в ней писаться отказывается
обработчик Drawcell

Нужно вручную прорисовывать текст с помощью TextOut на канве StringGrid'а.

Код:

if (ACol == 4 && ARow == 3)
{
  StringGrid1->Canvas->Brush->Color = clLime;
  StringGrid1->Canvas->FillRect(Rect);
  StringGrid1->Canvas->Font->Color = clBlack;
  StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top,
    StringGrid1->Cells[ACol][ARow]);
}