DrawRotatedImage, Centering, FitImage

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I was attempting to draw an image rotated and centered onto a PDF. The actual image would vary and was not under my control - the user can upload any size image. I went through a lot of brain damage trying to make FitImage work, but could not do it. I ended up using DrawRotatedImage and got it to work with a little bit of trouble. Here's the code in case anyone gets stuck with the same problem (Visual FoxPro code). 
    PRIVATE lMaxHeight, lMaxWidth, lWidth, lHeight, lAdj
    lMaxHeight = 45
    lMaxWidth = 90
    lWidth = opdfedit.o.ImageWidth
    lHeight = opdfedit.o.ImageHeight
    lAdj = 0

    IF lHeight > lMaxHeight
     lAdj = lMaxHeight / lHeight
     lHeight = lHeight * lAdj
     lWidth = lWidth * lAdj
    ENDIF

    IF lWidth > lMaxWidth
     lAdj = lMaxWidth / lWidth
     lHeight = lHeight * lAdj
     lWidth = lWidth * lAdj
    endif

    lReturn = opdfedit.o.DrawRotatedImage(lpdfx + lHeight, lpdfy + (lWidth / 2), lWidth, lHeight, 90)

lPDFX = the left edge of the image. LPDFY = the mid-point where you want things to center around. 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
PaladinTodd Members Profile Find Members Posts Beginner Joined: 28 Feb 06 Status: Offline Points: 4	Post Options Post Reply Quote PaladinTodd Report Post Thanks(0) Quote Reply Topic: DrawRotatedImage, Centering, FitImage Posted: 28 Feb 06 at 1:06PM
	I was attempting to draw an image rotated and centered onto a PDF. The actual image would vary and was not under my control - the user can upload any size image. I went through a lot of brain damage trying to make FitImage work, but could not do it. I ended up using DrawRotatedImage and got it to work with a little bit of trouble. Here's the code in case anyone gets stuck with the same problem (Visual FoxPro code). PRIVATE lMaxHeight, lMaxWidth, lWidth, lHeight, lAdj lMaxHeight = 45 lMaxWidth = 90 lWidth = opdfedit.o.ImageWidth lHeight = opdfedit.o.ImageHeight lAdj = 0 IF lHeight > lMaxHeight lAdj = lMaxHeight / lHeight lHeight = lHeight * lAdj lWidth = lWidth * lAdj ENDIF IF lWidth > lMaxWidth lAdj = lMaxWidth / lWidth lHeight = lHeight * lAdj lWidth = lWidth * lAdj endif lReturn = opdfedit.o.DrawRotatedImage(lpdfx + lHeight, lpdfy + (lWidth / 2), lWidth, lHeight, 90) lPDFX = the left edge of the image. LPDFY = the mid-point where you want things to center around.