Ver Mensaje Individual
  #3  
Antiguo 06-05-2011
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Exacto, la razón es que pintas un rectángulo sólido con lo que tienes que pintar también el texto.

La única pega que se puede poner al buen ejemplo de ecfisa es que el texto se pintarán las líneas desaclopadas. Quizás desplazando un poco a la derecha y abajo el texto...

Código:
  TStringGrid *StrGrd = dynamic_cast<TStringGrid*>(Sender);
  if (ARow!=0) {
    if (ARow%2==0 ){
      StrGrd->Canvas->Brush->Color = clBlue;
      StrGrd->Canvas->Rectangle(Rect);
      StrGrd->Canvas->Font->Style << fsBold;
      StrGrd->Canvas->Font->Color = clWhite;
      InflateRect(&Rect, -2, -2);
      DrawText(StrGrd->Canvas->Handle, StrGrd->Cells[ACol][ARow].c_str(), StrGrd->Cells[ACol][ARow].Length(), &Rect, 0);
    }
  }
Saludos.
Responder Con Cita