Possible to define a Area for Func. < SaveToBmp > ?

[ukoenig]

Hello,

To save a complete Window or Dialog to a BMP, ( Screen-Capture ) SaveToBmp is used.
Is it possible , to define : TOP, LEFT, BOTTOM and RIGHT to save only a Screen-Area ?

Best Regards
Uwe

[Antonio Linares]

Uwe,

SaveToBmp() uses the function WndBitmap() to create a bitmap using the whole area of the provided hWnd.

You could modify it this way:

Code: Select all  Expand view

HB_FUNC( WNDBITMAP )  //  hWnd [, nTop, nLeft, nBottom, nRight ] --> hBitmap
{
   HWND hWnd     = ( HWND ) hb_parnl( 1 );
   HDC  hDC      = GetWindowDC( hWnd );
   HDC  hMem     = CreateCompatibleDC( hDC );
   RECT rct;
   HBITMAP hBmp, hOldBmp;

   if( hb_pcount() == 1 )
      GetWindowRect( hWnd, &rct );
   else
   {
      rct.top = hb_parnl( 2 );
      rct.left = hb_parnl( 3 );
      rct.bottom = hb_parnl( 4 );
      rct.right = hb_parnl( 5 );
   }

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

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

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

   hb_retnl( ( LONG ) hBmp );
}
 

[ukoenig]

Antonio,

I would like to save a painted VTitle ( Screen-Section ) from the Dialog-Preview.

I tested something like oVTitle5:SaveToBmp( "Test.bmp" ),
but returns only a black BMP.
I think, maybe I can use Your Harbour-function, because I know Values : TOP, LEFT, BOTTOM, RIGHT
Do You have a small example, how to use it this way ?
It would be nice, the user can paint a VTitle and save it with a defined Size.

Optional :
hBmp = ResizeImg( aBmpPal[ 1 ], nWidth, nHeight )
DeleteObject( aBmpPal[ 1 ] )
or :
oBitmap:SetSize( nHORZ, nVERT )

As well I could use it for the Browser-Previews.
For the moment, I capture the Screen and cut off the no needed area.

The Screenshot explains, what I want to do



Thank You

Best Regards
Uwe

[nageswaragunupudi]

I tested something like oVTitle5:SaveToBmp( "Test.bmp" ),
but returns only a black BMP.

Probably I could not exactly understand your problem. I am able to save full title's image with oTitle:SaveToBmp( <filename> ).

For example I could save oTitle5 in \fwh\samples\testtitl.prg as:


Is this not what you wanted? What else you are looking for? Can you please explain?

[ukoenig]

Thank You for the Response,

that is exactly, what I want to do.
Inside my Application, it returns a wrong Area.

As a test, I did some changes in FWH/samples/Testtitle.prg
I moved the VTitles to a Dialog and called on Button-Action < oTitle3:SaveToBmp( "Test.bmp" ) >
the saved BMP was OK. The same, like Your Test, but from inside a Dialog.



The problem I noticed from inside my Application.
The Vtitle itself moves to different TOP / LEFT - Position,
the complete Capture-size is the Size of the VTitle.

I have to find out, where the difference comes from.



Best Regards
Uwe

[nageswaragunupudi]

For me it is working with dialogs also. Please try this sample code.

Code: Select all  Expand view

#include 'fivewin.ch'
#include 'ttitle.ch'

function main()

   local oDlg, oTitle

   DEFINE DIALOG oDlg SIZE 600,200 PIXEL
   @ 05,05 TITLE oTitle SIZE 290,32 OF oDlg ;
      SHADOW BOTTOMRIGHT SHADOWSIZE 5

   @ 10,10 TITLEIMG OF oTitle BITMAP '\fwh\bitmaps\fivetech.bmp' SIZE 48,48

   ACTIVATE DIALOG oDlg CENTERED ON RIGHT CLICK oTitle:SaveToBmp( 'C:\T.BMP' )

return nil
 

This is the saved image.

Is this not what you are looking for?

if this is working in this sample, but not from your code, I think you need to review your code again.

[ukoenig]

It seems to work.

The problem : my Application is very nested, that might be the Reason, the different Results come from.
Window => Dialog => Folder => call of another Dialog with VTitle => Capture.

My test with the changed FWH - Testtitl.prg : Window => Dialog with Vtitle => Capture works.

I will look, where the difference comes from.

Best Regards
Uwe

[Silvio]

I think Uwe want show a bitmap into a window
then select an area of this bitmap with the mouse making a box dotted and the have the possibilty to save the area saved into a new file or insert on xbrowse field

I have the same problem only I create the bitmap from webcam :
I must save the head of a man to insert it on a badge

it ìis possible ?
Someone can make a small sample ?

[ukoenig]

Hello Silvio,

I found a Solution, works fine for me :

The user can select between 2 Styles of capture :
1. only the VTitle
2. VTitle with Background
I need the Screenshot, to show a Preview inside a xBrowse.
The Screenshot shows a Full-Screen-Capture
I select a capture. Next I open MSPaint with the captured Image.
The Option : Full Screen
oDlg:SaveToBmp( c_path + c_SET + "\P_000.BMP" )
I open the Capture with MSpaint :
WAITRUN( "MsPaint.exe " + c_path + c_SET + "\P_000.BMP" )
c_SET : saves the Capture on different Places ( Subdirectory /Set1 - 4 )
Now I can resize, convert to different Format, what ever I want....
For the Capture I use a given Name of P_000.bmp

Maybe it is a Solution for You as well.



Best Regards
Uwe

[Silvio]

NO
we can create it often external application
I 'm seeinf a class Tselectarea for scan class
this use mouse and create a box ( AREA) and save only this area...
this need to us

[Silvio]

Uwe I found a class called Class SeleArea for Tscan but I think we can converte for use it to select an area of bmp or jpg
Only there are some functions Region xxxx I not Know How Create they