Alinha QRShape com QRBand QuickReport
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...
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
Curtidas 0
Respostas
Leonardo Xavier
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...
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...
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;
GOSTEI 0