QRRichText una fila de cada color

[vivamotos]

Saludos,

Estoy haciendo un quickreport y me preguntaba como se puede hacer para pintar una fila de cada color.

Es decir que la fila 1 del QRRichText1 tenga el color rojo, pero la fila 2 tenga el color azul.

Grácias.

[[Lepe]]

Hace tiempo que no uso los QR, pero en fin.

Puedes usar un DBRichedit y jugar con sus propiedad SelAtributtes. Básicamente modificas esa propiedad y fuente para poner el color azul, ahora todo el texto que añadas usará las propiedades establecidas (subrayado, cursiva, color del texto, sangría de página, etc).

Una vez que tienes el texto como quieres, debes guardarlo en la Base de datos (supongo que como un campo Blob), desde QuickReport, solo tendrías que poner el campo y datasource apropiado.

Si el texto ya lo tienes almacenado y quieres colorearlo al imprimir, no puedo ayudarte.

Saludos

[macedo_mx]

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.