[RebeccaGL]

Como podira pasar este codigo a una QuantumGrid.

Código Delphi [-]
 
procedure TForm_BeEMPPRJ.DBGrid_GANPERDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field = Query_GANPER.FieldByName('Concepto')) and
     (copy(Query_GANPER.FieldByName('FIND_Concepto').AsString,
      pos('_', Query_GANPER.FieldByName('FIND_Concepto').AsString) + 1, 2) = 'TI') or
     (Column.Field = Query_GANPER.FieldByName('Concepto')) and
     (copy(Query_GANPER.FieldByName('Concepto').AsString, 1, 1) = '*') then
  begin
    DBGrid_GANPER.Canvas.Font.Style := [fsBold];
    DBGrid_GANPER.Canvas.Font.Color := clBlack;
    if (gdSelected in State) and
       (DBGrid_GANPER.Focused) then
      DBGrid_GANPER.Canvas.Font.Color := clWhite;
  end;
  // Continue
  DBGrid_GANPER.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;