Al usar TCanvas perdi la selección !!!

[lmpadron]

hola amigos

Estoy usando un DBGrid y al realizar la consulta pues coloreo las filas pares para que resalten, sucede que las filas coloreadas al ser seleccionadas(en el momento en que se le da click encima) pierden la visualizacion (el valor que estan mostrando) y no se ponen del tipico color azul (como casi todo lo que se selecciona en windows).

posteo el codigo que estoy usando para que me lo revisen y si existe alguna solucion estare muy agradecido

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
        //dibujando filas pares en grid 1
        TCanvas *Temp = ((TDBGrid *) Sender)->Canvas;

        if (ADOQuery1->RecNo % 2)
        {
                Temp->Brush->Color = StringToColor("0x00f7fbfd");
        }

        Temp->FillRect(Rect);
        Temp->TextOut(Rect.Left, Rect.Top, Column->Field->AsString);
}

[ecfisa]

Hola Impadron.

Probá de este modo:

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect,
   int DataCol, TColumn *Column, TGridDrawState State)
{
   if (ADOQuery1->RecNo % 2) {
     DBGrid1->Canvas->Brush->Color = clMoneyGreen;
     DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
   }
}

Saludos.

[lmpadron]

La celda coloreada aun sigue sin cambair de color y las letras se muestran en blanco, con el clMoneyGreen no hay problema porque se ve bien pero con el StringToColor("0x00f7fbfd") que es un crema un tanto mas claro me hace falta que al estar seleccionado las letras de la fuente me salgan en negro o que se señale en Azul como es normalmente para que las letras del fondo al ser blancas se puedan distinguir.
saludos

[[Chris]]

Lo que sucede es que estás utilizando un color constante para todos los estados de la celda. El estado de una celda (si está seleccionada o no) es indicado en el parámetro State de tipo TGridDrawState.

El color constante que estás utilizando es "0x00f7fbfd". Debes utilizar una condicional que pruebe el estado de la celda, y utilizar el color clHotlight cuando la celda esté seleccionada.

Saludos,
Chris

[lmpadron]

y como accedo a los valores de State, lo que he hecho es esto

if (State == NO ENCUENTRO QUE PONER)
     {
       DBGrid1->Canvas->Brush->Color = clHotLight;
     }
     else
     {
       if (ADOQuery1->RecNo % 2)
       {
        DBGrid1->Canvas->Brush->Color = StringToColor("0x002899d2");
        DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
       }
     }

es algo asi no ???

[[Chris]]

En C++ no sé cómo sería el código, no escribo en ese lenguage. Pero en Delphi tu código más o menos debería ser así:

Código Delphi [-]
if (ADOQuey.RecNo mod 2) then
begin
  if not (gdsSelected in State) then
      DBGrid1.Canvas.Brush.Color := { tu color para líneas impares };
end;

DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);

[ecfisa]

Hola Impadrón.

No había probado con el color que pusiste por lo que no veía el problema.
En realidad no perdes la selección. El texto, que en la selección esta en color blanco, se confunde con el color '0x002899d2' ya que es muy similar.

Yo lo resolví así:

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
  DBGrid1->Canvas->Font->Color = clBlack; /* Texto en negro */
  if (ADOQuery1->RecNo % 2){
   DBGrid1->Canvas->Brush->Color =  0x00f7fbfd;
   DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
  }
}

Saludos.

[ecfisa]

Hola.

Te agrego un ejemplo más completo, en el cuál seleccionás los colores de fondo y fuente en ambos casos (par/impar):

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
  if (ADOQuery1->RecNo % 2) {
   DBGrid1->Canvas->Font->Color = clBlack;  /* letra negra */
   DBGrid1->Canvas->Brush->Color =  clLime; /* fondo claro */
  }
  else{
   DBGrid1->Canvas->Font->Color = clWhite;  /* letra blanca */
   DBGrid1->Canvas->Brush->Color =  clNavy; /* fondo oscuro */
  }
  DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
}

Saludos.

[lmpadron]

Gracias amigos ecfisa y Chris

Estaba probando el codigo que Chris habia escrito en Pascal y pues no puedo convertirlo a C++, ahora voy a probar con tu solucion ecfisa de todas formas si alguien puede convertir el codigo del amigo Chris seria excelente.

Saludos