Colorear los registros del DBGrid con un parámetro

[borlandpablo]

Buenas, quiero colorear los registros de un DBGrid pasándole un número de un TEdit y que al pulsar TButton lo coloree automáticamente. El parámetro dependerá es de si el número de días es menor que el que se le pasa por el TEdit es menor o igual que cada uno de los registros.

Os paso lo que tengo hecho con un día específico.

void __fastcall TXVista::DBGrid3DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
   if(DBGrid3->DataSource->DataSet->FieldByName("DiasRestante")->Value <= 5)
   {
      DBGrid3->Canvas->Brush->Color = clRed;     
      DBGrid3->Canvas->FillRect(Rect);
      DBGrid3->Canvas->Font->Color = clBlack;     
      DBGrid3->DefaultDrawColumnCell(Rect, DataCol, Column, State);
   }
}

Lo que he pensado es poner las variables (Rect, DataCol, Column, State) como globales, o en el evento OnClickButton() meter las variables de la función DBGrid3DrarColumnCell().

Un saludo

[ecfisa]

Empezado por borlandpablo

Buenas, quiero colorear los registros de un DBGrid pasándole un número de un TEdit y que al pulsar TButton lo coloree automáticamente. El parámetro dependerá es de si el número de días es menor que el que se le pasa por el TEdit

Hola Pablo.

void __fastcall TForm1::DBGrid3DrawColumnCell(TObject *Sender,
  const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
  int v;

  if(TryStrToInt(Edit1->Text, v))
    if(DBGrid3->DataSource->DataSet->FieldByName("DiasRestante")->Value <= v) {
      DBGrid3->Canvas->Brush->Color = clRed;
      DBGrid3->DefaultDrawColumnCell(Rect,DataCol,Column,State);
    }
}

void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
  DBGrid3->Invalidate();
}

Lo que he pensado es poner las variables (Rect, DataCol, Column, State) como globales...

Mejor no, a menos que desees forzar una excepción no es buena idea.

Saludos.

[borlandpablo]

Muchas gracias ecfisa, que máquina!

Lo he puesto mejor en el OnClick del botón en vez del OnExit.

Saludos.