Como poner color a filas de un DBGrid

[ToritoCapo]

Hola amigos !!!

Hago la siguiente consulta desde mi programa en C++ Builder a Postgres en SQL :
"select * from mprimas where stock_actual < stock_minimo";

Estos resultados se muestran en un DBGrid donde figuran 4 columnas:
Nombre, Stock_Actual, Stock_Minimo y Stock_Critico

Lo que quiero hacer es, donde el stock_actual es inferior al stock_critico, pintar las filas de un color cualquiera asi resaltan del resto que no tienen color.

Espero que se entienda.
Saludos.

[Casimiro Noteví]

Al final de esta página tienes varios enlaces sobre ese tema, también puedes hacer una búsqueda en clubdelphi, se ha tratado infinidad de veces ese asunto.

[ToritoCapo]

Si, ya busque por todos lados, pero ninguno está expresado para C++ Builder.

Ya lo logré hacer en un StringGrid, pero no puedo todavia en un DBGrid.
Lo que más me dificulta es poder comparar 2 filas del DBGrid, como puse en el ejemplo anterior.

Si alguien puede pasarme alguno de estos ejemplos en C++ se lo agradecería muchisimo.

Saludos.

[Casimiro Noteví]

Pon el código que lo veamos.

[ecfisa]

Hola ToritoCapo.

Probá este código:

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
  if(DBGrid1->DataSource->DataSet->FieldByName("STOCK_ACTUAL")->Value <
     DBGrid1->DataSource->DataSet->FieldByName("STOCK_CRITICO")->Value) {
    DBGrid1->Canvas->Brush->Color = clRed;
    DBGrid1->Canvas->Font->Color = clWhite;
    DBGrid1->DefaultDrawColumnCell(Rect, DataCol, Column, State);
  };
}

Un saludo.

[ToritoCapo]

Esto seria muy parecido a lo que necesito hacer, pero en C++
Se están comparando dos columnas como yo necesito.

Saludos.

Código Delphi [-]
procedure TFMntInventario.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
iDif : Extended;
iFile: Extended;
begin
// Cambia color a Existencia por debajo del minimo
if ( Dt1.TInventario.FieldByName('ExistAct').AsInteger <
Dt1.TInventario.FieldByName('ExistMin').AsInteger ) then begin
DBGrid1.Canvas.Font.Color := clRed;
end;

[Casimiro Noteví]

Añade la línea indicado por ecfisa, te la he copiado:

Código Delphi [-]
procedure TFMntInventario.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
  iDif : Extended; 
  iFile: Extended; 
begin // Cambia color a Existencia por debajo del minimo 
  if ( Dt1.TInventario.FieldByName('ExistAct').AsInteger < Dt1.TInventario.FieldByName('ExistMin').AsInteger ) then 
  begin 
    DBGrid1.Canvas.Font.Color := clRed; 
  end;

  DBGrid1->DefaultDrawColumnCell(Rect, DataCol, Column, State);  // <- añade esta línea.