Ajuda com QuickReport e Imagens dinâmicas

Delphi

23/12/2010

Pessoal,

Estou tendo problemas para utilizar imagens dinâmicas no quickReport (variando de acordo com o registro do vindo do BD).

As bands do  relatório estão assim organizadas:




O códgio para alternância das imagens segue assim:



procedure TfrmRelDemonstrativo.groupAssAfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
   while not dmRelatorio.qrRelDemonstrativo.Eof do
   begin
    if dmRelatorio.qrRelDemonstrativopej_responsavel.Value = 0 then
    begin
      ImageList1.GetBitmap(0,QRImageNN.Picture.Bitmap);
    end
    else
    begin
      ImageList1.GetBitmap(1,QRImageNN.Picture.Bitmap);
    end;
   dmRelatorio.qrRelDemonstrativo.Next;
 end;
end;


Já tentei no after e no before print de todas as bands e do próprio relatório.
Não funcionou em nenhum caso.

Quem puder ajudar eu fico grato.

Sds
Cleidson Franca

Cleidson Franca

Curtidas 0
POSTAR