Ola Daniel,
Tenho uma função que usa:
ownd:SaveToBmp( cFile )
para capturar la imagen de la pantalla como lo ve el usuario.
porem no WINDOWS SEVEN (com o tema do proprio windows seven) só captura a imagem da window principal do sistema, ou seja, se eu tiver uma DIALOG aberta no WIN 7 não mostra na imagem.
se trocar o tema do windows seven para o tema classico funciona perfeitamente.
Alguma dica do que pode estar acontecendo?
Muito obrigado
#include "FiveWin.ch"
static oWnd, oMenu, oDlg
//----------------------------------------------------------------------------//
function main()
DEFINE WINDOW oWnd from 1,1 TO 30,60 TITLE "Testing SaveToBmp/PrintWindow";
MENU bldMenu()
SET MESSAGE of oWnd to "DIALOG from HELL!!"
ACTIVATE WINDOW oWnd
return NIL
//----------------------------------------------------------------------------//
function bldMenu()
local oMenu
MENU oMenu
MENUITEM "Start dialog box" ;
ACTION startDia()
MENUITEM "&Exit" ;
ACTION oWnd:end()
ENDMENU
return oMenu
//----------------------------------------------------------------------------//
function startDia()
local i,cVar:="lalalalala",cVar1:="hoplalalalala"
DEFINE DIALOG oDlg FROM 1,10 TO 24,60 OF oWnd
for i := 1 to 20
@i,1 SAY "This is a line of text" OF oDlg
next
@ 1, 12 BUTTON "SaveToBmp" OF oDlg ACTION oWnd:SaveToBmp( "SaveToBmp.bmp" )
@ 3, 12 BUTTON "Print window" OF oDlg ACTION SaveToBmp2( oWnd, "PrintWnd.bmp" )
ACTIVATE DIALOG oDlg
return NIL
//----------------------------------------------------------------------------//
Function SaveToBmp2( oWnd, cBmpFile )
local hDeskDC := GetDC( GetDesktopWindow() )
local hDC := CreateCompatibleDC( hDeskDC )
local hOldBmp
local hDib
local hBmp
local arect := GetWndRect( oWnd:hWnd )
hBmp = CreateCompatibleBitmap( hDeskDC, arect[ 4 ] - arect[ 2 ], arect[ 3 ] - arect[ 1 ] )
hOldBmp = SelectObject( hDC, hBmp )
PrintWindow( oWnd:hWnd, hDC )
SelectObject( hDC, hOldBmp )
DeleteDC( hDC )
hDib = DibFromBitmap( hBmp )
DibWrite( cBmpFile, hDib )
GloBalFree( hDib )
DeleteObject( hBmp )
return ( File( cBmpFile ) )
#include "FiveWin.ch"
#define SRCCOPY 0x00CC0020
#define SM_CXSCREEN 0
#define SM_CYSCREEN 1
static oWnd, oMenu, oDlg
//----------------------------------------------------------------------------//
function main()
DEFINE WINDOW oWnd from 1,1 TO 30,60 TITLE "Testing SaveToBmp/PrintWindow";
MENU bldMenu()
SET MESSAGE of oWnd to "DIALOG from HELL!!"
ACTIVATE WINDOW oWnd
return NIL
//----------------------------------------------------------------------------//
function bldMenu()
local oMenu
MENU oMenu
MENUITEM "Start dialog box" ;
ACTION startDia()
MENUITEM "&Exit" ;
ACTION oWnd:end()
ENDMENU
return oMenu
//----------------------------------------------------------------------------//
function startDia()
local i,cVar:="lalalalala",cVar1:="hoplalalalala"
DEFINE DIALOG oDlg FROM 1,10 TO 24,60 OF oWnd
for i := 1 to 20
@i,1 SAY "This is a line of text" OF oDlg
next
@ 1, 12 BUTTON "SaveToBmp" OF oDlg ACTION oWnd:SaveToBmp( "SaveToBmp.bmp" )
@ 3, 12 BUTTON "Print window" OF oDlg ACTION SaveToBmp2( oWnd, "PrintWnd.bmp" )
ACTIVATE DIALOG oDlg
return NIL
//----------------------------------------------------------------------------//
Function SaveToBmp2( oWnd, cBmpFile )
local hDeskDC := GetDC( GetDesktopWindow() )
local hDC := CreateCompatibleDC( hDeskDC )
local hOldBmp
local hDib
local hBmp
local nWidth := GetSysMetrics( SM_CXSCREEN )
local nHeight := GetSysMetrics( SM_CYSCREEN )
hBmp = CreateCompatibleBitmap( hDeskDC, nWidth, nHeight )
hOldBmp = SelectObject( hDC, hBmp )
//PrintWindow( oWnd:hWnd, hDC )
BitBlt( hDC, 0, 0, nWidth, nHeight, hDeskDC, 0, 0, SRCCOPY )
SelectObject( hDC, hOldBmp )
DeleteDC( hDC )
hDib = DibFromBitmap( hBmp )
DibWrite( cBmpFile, hDib )
GloBalFree( hDib )
DeleteObject( hBmp )
return ( File( cBmpFile ) )Daniel,
simplesmente FANTASTICO !!!
Muito obrigado
Daniel, no se si esto se ha mejorado, pero cuando ejecuto el programa el BMP que me genera sale casi todo transparente y solo veo los botones de control de la ventana, como la X de salir. Estoy buscando algo para capturar trozos de pantalla pero que el usuario pueda seleccionar lo que quiere coger, que selecciones un cuadro. Sabes como lo puedo hacer?
Andrés
BitBlt( hDC, aCoors[4]-300, 112, 290, 400, hDeskDC, aCoors[4]-300,112, SRCCOPY )