Quick Report - Linha mais forte a cada 5 registros...
Saudações a todos.
Uso Delphi7 e Firebird 1.5. Tenho um relatório bem simples que pega registros de um dataset segundo instruções SQL que passo.
O relatório tem 3 bands: title, collumn header e detail.
Preciso que na band detail saia uma linha mais forte a cada 5 registros que ela apresentar. Ou então que seja algo parecido, alguma coisa que destaque o fim de cada bloco de 5 registros.
Desde já obrigado pela colaboração.
Uso Delphi7 e Firebird 1.5. Tenho um relatório bem simples que pega registros de um dataset segundo instruções SQL que passo.
O relatório tem 3 bands: title, collumn header e detail.
Preciso que na band detail saia uma linha mais forte a cada 5 registros que ela apresentar. Ou então que seja algo parecido, alguma coisa que destaque o fim de cada bloco de 5 registros.
Desde já obrigado pela colaboração.
Horus
Curtidas 0
Respostas
Anfm
01/03/2005
Crie uma variável no private desta unit do seu relatório e no evento Before print da sua banda detail coloque o seguinte código:
if numlinhas = 5 then
begin
numlinhas := 0;
DetailBand1.Color := not DetailBand1.Color;
end
else
DetailBand1.Color := clWhite;
numlinhas := numlinhas + 1;
Espero ter ajudado.
André
if numlinhas = 5 then
begin
numlinhas := 0;
DetailBand1.Color := not DetailBand1.Color;
end
else
DetailBand1.Color := clWhite;
numlinhas := numlinhas + 1;
Espero ter ajudado.
André
GOSTEI 0
Horus
01/03/2005
Muito obrigado.
Deu certo.
Deu certo.
GOSTEI 0