Fórum Criar Banda/Draw em tempo de Execucao #44277
13/05/2004
0
caros, abaixo está o código.
procedure TfrmPrintOferta.RLDetailGrid1AfterPrint(Sender: TObject);
var Caixa : TRLDraw;
Banda : TRLBand;
begin
if RLDetailGrid1.RowIndex = 5 then begin
Banda := TRLBand.Create(RLReport1);
Banda.Parent := re
Banda.BandType := btFooter
Banda.Borders.Sides := sdAll;
Banda.Left := 11;
Banda.Height := 36;
Banda.Top := 249;
Banda.Width := 772;
Banda.Color := clRed;
=> Preciso criar uma banda em tempo de execucao.
=> o cursor tá entrando no IF perfeitamente, só que nao visualizo a banda no relatorio (preview), o que tá errado ?
No aguardo...
procedure TfrmPrintOferta.RLDetailGrid1AfterPrint(Sender: TObject);
var Caixa : TRLDraw;
Banda : TRLBand;
begin
if RLDetailGrid1.RowIndex = 5 then begin
Banda := TRLBand.Create(RLReport1);
Banda.Parent := re
Banda.BandType := btFooter
Banda.Borders.Sides := sdAll;
Banda.Left := 11;
Banda.Height := 36;
Banda.Top := 249;
Banda.Width := 772;
Banda.Color := clRed;
=> Preciso criar uma banda em tempo de execucao.
=> o cursor tá entrando no IF perfeitamente, só que nao visualizo a banda no relatorio (preview), o que tá errado ?
No aguardo...
Pedih
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)