Alguna novedad con parentcapture() + winxp

[Lautaro]

Pues eso, ya que ahi es donde esta el problema con trbgroup cuando se usa en un dialogo en windows xp, tambien pasa con los trbtn transparentes en winxp sobre un dialogo.


Atte.,

Lautaro Moreira

FWH9.08+harbour+msvc

[Daniel Garcia-Gil]

Lautaro...

prueba con estos cambios y nos comentas para incluirlos en la proxima version

agrega esta funcion al final de tu PRG principal

Code: Select all  Expand view

#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>

HBITMAP MakeBkBmpEx( HWND hWnd, int iTop, int iLeft, int iWidth, int iHeight  )
{
   HDC hDC   = GetDC( hWnd );
   HDC hDC2;
   HBITMAP hBmp, hBmpOld;

   hDC2    = CreateCompatibleDC( hDC );
   hBmp    = CreateCompatibleBitmap( hDC, iWidth, iHeight );
   hBmpOld = ( HBITMAP ) SelectObject( hDC2, hBmp );

   BitBlt( hDC2, 0, 0, iWidth, iHeight, hDC, iLeft, iTop,  SRCCOPY );
   
   SelectObject( hDC2, hBmpOld );
   
   DeleteDC( hDC );
   DeleteDC( hDC2 );
   
   return hBmp;
}
   
HB_FUNC( MAKEBKBMPEX )// hWnd, nTop, nLeft, nWidth, nHeight --> hBmp
{
   hb_retnl( ( LONG ) MakeBkBmpEx( ( HWND ) hb_parnl( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ), hb_parni( 5 ) ) ) ;
}

#pragma ENDDUMP
 

substituye la llamada a ParentCapture en las clases trbgroup y trbtn

por esta linea

Code: Select all  Expand view

hCapture = MakeBkBmpEx( ::hWnd, aRect[ 1 ], aRect[ 2 ], ::nWidth, ::nHeight )

[Lautaro]

Daniel,

Muchas gracias, funciona perfectamente en : Windows 2000, windows xp ( profesional ), windows vista ( bussines ), windows 7 ( ultimate )


Como siempre feliz de poder ayudar con las pruebas,

Lautaro Moreira
Osorno
Chile

[Daniel Garcia-Gil]

Lautaro...

Ya ha sido incluida la modificacion en la proxima version de FWH 9.09

Gracias por el feedback