>I have a client that has a need for printing images on a report. We havce a limited amount of space and unfortunately, the graphics are of varying sizes. We have set the image up to "size to fit" since that will keep the shape. However, if it dosen't fit properly, then there is a grey section for the area that doesn't have any image in it. I have tried many things to get rid of it including making a different application associated with the images. Nothing works.
>
>This is VFP 8 with SP1. I don't know if that is important, but figured I would throw it out there.
I don't see the effect you describe. However I did it like this :
-Created a report named myPicReport. I added an 'Picture/Activex Control' and sized to my taste. Dblclicked it and set :
File : (myPicFile)
Scale picture,retain shape
-Saved and run little test.prg below :
lnGif = ADir(aGIF,'bmps\*.GIF')
lnJPG = ADir(aJPG,'bmps\*.JPG')
lnBMP = ADir(aBMP,'bmps\*.BMP')
Create Cursor myPics (myPicFile m)
For ix=1 to Min(lnGIF,20)
Insert into myPics values (FullPath('bmps\'+aGIF[ix,1]))
endfor
For ix=1 to Min(lnJPG,20)
Insert into myPics values (FullPath('bmps\'+aJPG[ix,1]))
endfor
For ix=1 to Min(lnBMP,20)
Insert into myPics values (FullPath('bmps\'+aBMP[ix,1]))
endfor
Report Form myPicReport preview
Cetin