Código Delphi [-] with TfrmQRShow.Create(nil) do try QuickRep1.Width := Width; QRPreview1.Align:= alClient; QRPreview1.ZoomToWidth; ShowModal; finally Free; end;
with TfrmQRShow.Create(nil) do try QuickRep1.Width := Width; QRPreview1.Align:= alClient; QRPreview1.ZoomToWidth; ShowModal; finally Free; end;