Ver Mensaje Individual
  #3  
Antiguo 13-02-2014
Avatar de macedo_mx
macedo_mx macedo_mx is offline
Registrado
 
Registrado: ene 2008
Ubicación: Mexico
Posts: 5
Reputación: 0
macedo_mx Va por buen camino
Debes programar dentro del evento BeforePrint de la banda que quieres resaltar, he aqui el codigo.

Código Delphi [-]
procedure TFCuentasCobrar.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if QRECuentasCobrar.DataSet.RecNo Mod 2 = 0 then
     Sender.Color:= $00E5E5E5
  Else
     Sender.Color:= clWhite;
end;

posteriormente debes programar en el evento OnPrint de los QrdbText. el codigo es el siguiente

Código Delphi [-]
procedure TFCuentasCobrar.QRDBText1Print(sender: TObject;
  var Value: String);
begin
 if QRECuentasCobrar.DataSet.RecNo Mod 2 = 0 then
     (Sender as TQRDBText).Color:= $00E5E5E5
  Else
     (Sender as TQRDBText).Color:= clWhite;
end;

para q no escribas codigo de mas, puedes hacer referencia al mismo envento por cada qrdbtext en el inspector de objetos. espero te sirva.
Responder Con Cita