🚀 go-pugleaf

Ken Halter wrote:
> "NowItsWhatever" <nospam@nospam.com> wrote in message 
> news:_zk1i.5127$3B5.1994@trnddc08...
>> In a VB6 application, I want to perform a bitblt on the rendered PDF 
>> image. The AcroPDF activex properties do not include a handle to a device 
>> context (hDC) property.  Is there a "back door" way I can derive the hDC?
> 
> This /seems/ to work. I have nothing to test it with...
> '=====================
> Option Explicit
> 
> Private Type RECT
>    left As Long
>    top As Long
>    right As Long
>    bottom As Long
> End Type
> 
> Private Type POINTAPI
>    x As Long
>    y As Long
> End Type
> 
> Private Declare Function WindowFromPoint _
>    Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
> 
> Private Declare Function GetWindowRect _
>    Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
> 
> Private Declare Function GetDC _
>    Lib "user32.dll" (ByVal hwnd As Long) As Long
> 
> Private Declare Function ReleaseDC _
>    Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long) As Long
> 
> Private Sub Command1_Click()
> 
>    Call AcroPDF1.LoadFile("C:\Temp\Temp.pdf")
> 
> End Sub
> 
> Private Sub Command2_Click()
>    Dim tRect As RECT
>    Dim tPoint As POINTAPI
>    Dim lAcroHwnd As Long
>    Dim lDC As Long
>    Static bHereB4 As Boolean
> 
>    Me.ScaleMode = vbPixels
> 
>    'Find the form's abs coordinates
>    Call GetWindowRect(Me.hwnd, tRect)
> 
>    'Offset to the middle of the acrobat control
>    With tPoint
>       .x = tRect.left + ((AcroPDF1.top + AcroPDF1.Height) / 2)
>       .y = tRect.top + ((AcroPDF1.left + AcroPDF1.Width) / 2)
>    End With
> 
>    'Get it's hWnd
>    lAcroHwnd = WindowFromPoint(tPoint.x, tPoint.y)
> 
>    'Get it's DC (seems to be valid only after second call)
>    lDC = GetDC(lAcroHwnd)
> 
>    'Show the DC
>    Debug.Print lDC, right$("0000000" & Hex$(lDC), 8)
> 
>    'Release it
>    Call ReleaseDC(lAcroHwnd, lDC)
> 
>    Me.ScaleMode = vbTwips
> 
> End Sub
> '=====================
> 

That seems to work for me.  I am using the DC for that window to BITBLT to another DC.  That other DC has some annotations on it. I calculate the source width and height by performing Call GetWindowRect(lAcroHwnd, tRect) to get top, bottom, left, and right of the rendered PDF image, and the pass them in to BITBLT.  I need guidance about 2 things.

How can I scale up the image when BITBLT'ing to the destination DC?  Also, the AcroPDF window clips the rendered image, and all I get when I BITBLT to the destination DC is the what's visible, not the entire page.  Is there a way of getting the entire page?  Thanks.