QRImage1.Stretch := True;

허지훈 님이 쓰신 글 :
: db안에 이미지 화일은 저장되어 있구요...
: 화면상에는 크기대로 보여지지만 출력물에선 이미지가 작게 나와야하거든요...
: 화면에는 보이는거랑 직접 출력해서 보는거랑 틀리게 할수있나요??
: 
: 소스는 아래와 같습니다...
:  if CDSet1.FieldByName('PHOTO').AsString <> ''  then
:     begin
:      QRImage1.Picture := nil;
:      BStream := CDSet1.CreateBlobStream(CDSet1.FieldByName('PHOTO'),bmRead);
:      MemSize := BStream.Size;
:      Inc(MemSize);
:      Buffer := AllocMem(MemSize);
:     try
:       BStream.Read(Buffer^, MemSize);
:       BStream.Position := 0;
:       aJpeg := TJPEGImage.Create;
:       try
:         aJpeg.LoadFromStream(BStream);
:         QRImage1.Picture.Assign(aJpeg);
:       finally
:         aJpeg.Free;
:       end;
:     finally
:       FreeMem(Buffer, MemSize);
:     end;
:    end
:  else
:     QRImage1.Picture := nil;
: 
: 이렇게 하면 화면보이는거랑 사이즈가 똑같아요...
: 출력할때 사이즈 작게 할려면 어느 부분을 수정해야 할지????
: 디버깅해보니까 memsize는 47520이 나옵니다..
: 
: 고수님들의 답변 부탁드립니다...