FiveTech Software tech support forums

Posted: **Sat Mar 27, 2021 5:44 pm**

I have an Image create wih FW_DrawImage()
How I can save and print this image ?

Posted: **Sun Mar 28, 2021 4:16 am**

FW_DrawImage() does not create an image. It only displays/prints an image on the screen or printer.

Posted: **Sun Mar 28, 2021 11:21 am**

thanks resolved

Posted: **Sun Mar 28, 2021 1:02 pm**

Silvio,
Would you mind posting how?
Best regards,
Otto

Posted: **Sun Mar 28, 2021 1:31 pm**

Otto wrote:Silvio,
Would you mind posting how?
Best regards,
Otto

I helped Silvio, we used a modified version of TWindow:SaveToBmp( cBmpFile ), SaveToBitmap uses WndBitmap, I modified it to takes a region of window:

Code: Select all | Expand

//---------------------------------------------------------------------------//
// copied from fwh32\source\winapi\wndprint.c
HB_FUNC( WNDBITMAPRECT )  //  hWnd, aRect --> hBitmap
{
    HWND hWnd     = ( HWND ) fw_parH( 1 );
    HDC  hDC      = GetWindowDC( hWnd );
    HDC  hMem     = CreateCompatibleDC( hDC );
    RECT srcRect;
    RECT rct;
    HBITMAP hBmp, hOldBmp;
    srcRect.top    = hb_parvni( 2, 1 );
    srcRect.left   = hb_parvni( 2, 2 );
    srcRect.bottom = hb_parvni( 2, 3 );
    srcRect.right  = hb_parvni( 2, 4 );

    //GetWindowRect( hWnd, &rct );
    rct.left = 0;
    rct.top = 0;
    rct.right = srcRect.right - srcRect.left;
    rct.bottom = srcRect.bottom - srcRect.top;

    hBmp    = CreateCompatibleBitmap( hDC, rct.right, rct.bottom);
    hOldBmp = ( HBITMAP ) SelectObject( hMem, hBmp );

    BitBlt( hMem, 0, 0, rct.right, rct.bottom , hDC, srcRect.left, srcRect.top, SRCCOPY );

    SelectObject( hMem, hOldBmp );
    DeleteDC( hMem );
    ReleaseDC( hWnd, hDC );

    fw_retnll( hBmp );
}
//----------------------------------------------------------------------------//

Posted: **Sun Mar 28, 2021 1:40 pm**

Antonino, thank you for posting the solution.
Best regards,
Otto

Posted: **Sun Mar 28, 2021 2:14 pm**

Not necessary.
There is already a function

Code: Select all | Expand


MakeBkBmpEx( hWnd, top, left, width, height )

that does the same thing.

For the user, it is comfortable to use

Code: Select all | Expand


oWnd:SaveAsImage( anyimagefile, [ { top, left, bottom, right } ] )

Image file can be bmp, jpg, png, etc.
I don't see any need to modify the FWH sources.

Posted: **Sun Mar 28, 2021 6:01 pm**

I am using 18.01, these function are "new"

FiveTech Software tech support forums

Print and save an Image

Print and save an Image

Re: Print and save an Image

Re: Print and save an Image

Re: Print and save an Image

Re: Print and save an Image

Re: Print and save an Image

Re: Print and save an Image

Re: Print and save an Image