Ver Mensaje Individual
  #1  
Antiguo 07-07-2021
kainchu3102 kainchu3102 is offline
Miembro
 
Registrado: jul 2021
Posts: 79
Reputación: 3
kainchu3102 Va por buen camino
DBGRID DELPHI CAMBIAR COLOR CON UN FDQwery

Hola,buenas gente, queria hacerle una consulta sobre el DBGRID en Delphi
Mi consulta es la siguiente como puedo hacer para que cambien de color las Filas pero segun la consulta que haga con un FDQUERY
Osea con el Drawn Column Perfecto pero cuando voy a hacer una consulta con el FDQUERY las Coloreada vuelve a los colores normales
Código Delphi [-]
procedure TFORMRESULTADOS.DBGRESULTADOSDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataModule1.FDTRESULTADOS.FieldByName('int_res').AsString <> ''  then
  begin
  DBGRESULTADOS.Canvas.Brush.Color := clMoneyGreen;
   DBGRESULTADOS.Canvas.Font.Color := clWhite;
    DBGRESULTADOS.DefaultDrawColumnCell(Rect, DataCol, Column, State);



Ese el codigo pero veo que estoy utilizando un FDTABLE pero como podria cambiar para que sea un QUERY POR EJEMPLO:
Código Delphi [-]
if DataModule1.FDQBUSQUEDA.FieldByName('int_res').AsString <> ''  then

PERO ME SALE EL ERROR FDTRESULTADOS: field 'int_res' not found

Última edición por Neftali [Germán.Estévez] fecha: 07-07-2021 a las 09:46:59. Razón: Añadir TAGs al código
Responder Con Cita