Debenu Quick PDF Library - PDF SDK Community Forum : DrawRotatedImage, Centering, FitImage http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 08 May 2026 06:06:39 +0000 Tue, 28 Feb 2006 13:06:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=339 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[DrawRotatedImage, Centering, FitImage : I was attempting to draw an image...]]> http://www.quickpdf.org/forum/drawrotatedimage-centering-fitimage_topic339_post1440.html#1440 Author: PaladinTodd
Subject: 339
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.

]]> Tue, 28 Feb 2006 13:06:38 +0000 http://www.quickpdf.org/forum/drawrotatedimage-centering-fitimage_topic339_post1440.html#1440