Problemas en StringGrid

[ecfisa]

Hola eennzzoo.

Te falta "reescribir" el texto:

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
  if (State.Contains(gdFixed)) {
    TCanvas *CV = static_cast <TCanvas*> (StringGrid1->Canvas);
    CV->Brush->Color = (TColor)(RGB(255,155,0));
    CV->Font->Style = TFontStyles() << fsBold;
    CV->FillRect(Rect);
    CV->TextOut(Rect.Left+1,Rect.top+1,StringGrid1->Cells[ACol][ARow]);
  }
}

Saludos

[eennzzoo]

Empezado por ecfisa

Hola eennzzoo.

Te falta "reescribir" el texto:

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
  if (State.Contains(gdFixed)) {
    TCanvas *CV = static_cast <TCanvas*> (StringGrid1->Canvas);
    CV->Brush->Color = (TColor)(RGB(255,155,0));
    CV->Font->Style = TFontStyles() << fsBold;
    CV->FillRect(Rect);
    CV->TextOut(Rect.Left+1,Rect.top+1,StringGrid1->Cells[ACol][ARow]); // <- aqui
  }
}

Saludos

Gracias faltaba el canvas antes del textout.