DBGRID DELPHI CAMBIAR COLOR CON UN FDQwery

[ecfisa]

Hola.

Empezado por kainchu3102

ME APARECE ESTE ERROR

Undeclared identifier: 'TDataset'

Agrega DB a uses:

Código Delphi [-]
uses ..., DB;

Saludos

[Neftali [Germán.Estévez]]

Empezado por ecfisa

Agrega DB a uses:

Código Delphi [-]
uses ..., DB;

O creo recordar, segun la versión:

Código Delphi [-]
uses
   ..., Data.DB;

[kainchu3102]

Te agradezco mucho me sirvio de mucho tu ayuda, pero tengo una duda se cambiar de color con la condicion, mi duda es: Como puedo hacer para que vuelva a la normalidad haciendo un click en la fila. y cuando le haga click a otra fila vuelva a ponerse de color. se entendio?

[ecfisa]

Hola.

Podes agregar una columna a tu tabla que sirva para saber si la fila debe ser pintada o no.

Un ejemplo muy simplificado:

Código Delphi [-]
...
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  DS : TDataSet;
begin
  DS := DBGrid1.DataSource.DataSet;
  if  DS.FieldByName( 'BOOL' ).AsInteger = 1  then
    DBGrid1.Canvas.Brush.Color := clRed; // color de tu gusto
  DBGrid1.DefaultDrawColumnCell(Rect, Datacol, Column, State);
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
  DS : TDataSet;
begin
  DS := DBGrid1.DataSource.DataSet;
  DS.Edit;
  if DS.FieldByName( 'BOOL' ).AsInteger = 1  then
    DS.FieldByName( 'BOOL' ).AsInteger := 0
  else
    DS.FieldByName( 'BOOL' ).AsInteger := 1;
end;

...

En este caso al campo agregado lo denominé BOOL y usé el evento OnDblClick.

Salida del ejemplo:


Saludos