Como poner color a filas de un DBGrid

[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.

[ToritoCapo]

ecfisa, funcionó bien el código que me pasate !!!
Lo que no mencioné, es que los datos están en String y no en enteros, ahora tendría que ver la manera de compararlos, pero con los valores convertidos a numéricos.

Una ayudita más y no los molesto por un rato jeje.
Después pongo el código que funcionó bién para que sirva para otros.

Saludos.

[Casimiro Noteví]

Rectifico, mira la contestación completa de ecfisa, ahí tienes la solución.

[ToritoCapo]

Bueno, acá pongo el código final, funciona perfecto para mi caso.

if(StrToFloat(DBGrid->DataSource->DataSet->FieldByName("stock_actual")->Value) <
StrToFloat(DBGrid->DataSource->DataSet->FieldByName("stock_critico")->Value))
   DBGrid->Canvas->Brush->Color = 0xFFAAFF;     //Pinta el fondo de las filas
 
DBGrid->Canvas->FillRect(Rect);
 
DBGrid->Canvas->Font->Color = clBlack;     //Color del texto
 
DBGrid->DefaultDrawColumnCell(Rect, DataCol, Column, State);

Quiero agradecer a ecfisa y a Casimiro Notevi, por la excelente ayuda que me brindaron, y la insistencia por resolver el tema.

Saludos !!!!!

[ecfisa]

Hola ToritoCapo.

Me alegra mucho que hayas podido darle solución.

Pero creo importante aclararte un punto. No es necesaria la función StrToFloat cuando usas la propiedad Value ya que esta es de tipo Variant
y C++ se encarga de evaluar su tipo y hacer las conversiones pertinentes.

Es decir que el código que te puse funciona correctamente sin StrToFloat, que es lo que te dijo Casimiro en su último post.

Esta es una asignación totalmente válida:

  double x= DataSet->FieldByName("stock_actual")->Value;

También podés explicitar el tipo (si lo conoces):

  double y= DataSet->FieldByName("stock_actual")->AsFloat;

Pero con el uso de Value te olvidas de las conversiones.

Un saludo.

[borlandpablo]

Buenas, recupero este hilo porque he encontrado parte de lo que quiero hacer con mi programa. Ahora me gustaría controlar el color con un TEdit, es decir, yo tengo una lista de catálogos con los días que restan para terminar la promoción, entonces si yo escribo 5, que me coloree en rojo los días restantes menor o igual que el número que he puesto en el TEdit. Realmente lo que no sé es coger los valores de una función para pasarla a otra (DBGrid: OnDrawColumnCell -> TEdit: OnChange).

Un saludo.

[Casimiro Noteví]

Por favor, borlandpablo, si participas en el tema iniciado por otro forero, debe ser para ayudarle a solucionar su problema, pero no para que expongas el problema que tienes tú. Gracias por tu comprensión