Angel.Matilla
07-05-2015, 19:30:03
Tengo un problema con QR en Builder 6 que no sé como solucionar. Tengo un informe en el que las bandas de detalle llevan bastante información y al usuario le doy la opción de sombrear las bandas alternas para distinguir un registro de otro. Para ello tengo este código:
void __fastcall TfIndPer::qIndPerStartPage(TCustomQuickRep *Sender)
{
this->QRGroup1->Color = clWhite;
this->QRBand3->Color = clWhite;
}
//---------------------------------------------------------------------------
void __fastcall TfIndPer::QRBand3BeforePrint(TQRCustomBand *Sender, bool &PrintBand)
{
if (lSombra)
{
if (this->QRBand3->Color == clWhite)
this->QRBand3->Color = 0x00E2E2E2;
else
this->QRBand3->Color = clWhite;
}
}
//---------------------------------------------------------------------------La primera página la hace bien: el primer registro con sombra, el segundo no, etc. Pero al saltar de página lo hace al revés en todas las demás: La primera línea en blanco, la segunda con sombra, etc. He probado poniendo una variable para comprobar si es la primera línea de la página, pero da lo mismo... ˇY ya no se me ocurre que hacer!
void __fastcall TfIndPer::qIndPerStartPage(TCustomQuickRep *Sender)
{
this->QRGroup1->Color = clWhite;
this->QRBand3->Color = clWhite;
}
//---------------------------------------------------------------------------
void __fastcall TfIndPer::QRBand3BeforePrint(TQRCustomBand *Sender, bool &PrintBand)
{
if (lSombra)
{
if (this->QRBand3->Color == clWhite)
this->QRBand3->Color = 0x00E2E2E2;
else
this->QRBand3->Color = clWhite;
}
}
//---------------------------------------------------------------------------La primera página la hace bien: el primer registro con sombra, el segundo no, etc. Pero al saltar de página lo hace al revés en todas las demás: La primera línea en blanco, la segunda con sombra, etc. He probado poniendo una variable para comprobar si es la primera línea de la página, pero da lo mismo... ˇY ya no se me ocurre que hacer!