RichText do QuickRepor

14/05/2003

1

Tenho 3 forms, com um QuickRep em cada um e na banda de detalhes de cada um deles, um TQRRichText.
Antes de mais nada, limpo cada um deles, coloco uma linha em branco e uma linha com um número de :

Form1.QRRichText.Lines.Clear;
Form1.QRRichText.Lines.Add(´ ´);
Form1.QRRichText.Lines.Add(´Página 1´);
Form2.QRTexto.Lines.Clear;
Form2.QRTexto.Lines.Add(´ ´);
Form2.QrTexto.Lines.Add´Página 2´);
........
Meu software gera textos aleatoriamente, os quais são colocados em uma função que os coloca nos devidos TQRRichText e, quando o contador de linhas ultrapassa o limite que eu coloquei de 47 linhas, coloca no próximo TQRRichText e assim por diante :

function TForm1.ColocaTexto(Texto: String): String;
var
P : Integer;
begin
Case F1 of
0 : begin
if Form1.QRTexto.Lines.Count <= 47 then
begin
Form1.QRTexto.Lines.Add(Texto);
if Form1.QRTexto.Lines.Count > 47 then
begin
for P := 48 to Form1.QRTexto.Lines.Count -1 do
begin
Form2.QRTexto.Lines.Add(Form1.QRTexto.Lines[P]);
end;
F1 := 1;
end;
end;
exit;
end;
1 : begin
if Form2.QRTexto.Lines.Count <= 47 then
begin
Form2.QRTexto.Lines.Add(Texto);
[Form2.QRTexto.Lines.Count]);
if Form2.QRTexto.Lines.Count > 47 then
begin
for P := 48 to Form2.QRTexto.Lines.Count -1 do
begin
Form3.QRTexto.Lines.Add(Form2.QRTexto.Lines[P]);
end;
F1 := 2;
end;
end;
exit;
end;
.....

O problema é que, quando mando executar o preview dos diversos relatórios, apenas o primeiro TQRRichText mostra a numeração de página e o texto, os demais mostram apenas a numeração de página.
Já criei ShowMessages para confirmar se os textos estão sendo enviados aos demais QRRichText e eles estão sendo enviados.
O que está acontecendo ???? Alguém pode me ajudar. Desde já agradeço... Um abraço


Responder