F�rum Alinha QRShape com QRBand QuickReport #385863

08/09/2010

Precisava saber como alinhar a altura de um QRShape com a altura do meu QRSubDetail em tempo de execu��o... for Cont := 0 to qrSubEntradaAud.ControlCount - 1 do begin
    if qrSubEntradaAud.Controls[Cont] is TQRShape then begin
      TQRShape(qrSubEntradaAud.Controls[Cont]).Height := Round(qrSubEntradaAud.Size.Height);
    end;
end; Onde ...qrSubEntradaAud � o meu QrSubDetail....dai todos os qrshapes verticais nessa banda, devem se alinhar com a banda em si....mas eles est�o ficando maior do que deviam...

Leandro Costa

Curtir t�pico

+ 0

Responder

Posts

09/09/2010

Leonardo Xavier

tente assim:

//colocar no evento onpreview
var
a:integer;
begin
 for Cont := 0 to qrSubEntradaAud.ControlCount - 1 do begin
    a:=round(qrSubEntradaAud.Size.Height);
   
 if qrSubEntradaAud.Controls[Cont] is TQRShape then begin
      
TQRShape(qrSubEntradaAud.Controls[Cont]).Height := a;
    end;
  end;

Responder

Gostei + 0