FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Alguna novedad con parentcapture() + winxp
Posts: 337
Joined: Fri Oct 07, 2005 02:44 PM
Alguna novedad con parentcapture() + winxp
Posted: Mon Sep 21, 2009 07:25 PM

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

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Alguna novedad con parentcapture() + winxp
Posted: Mon Sep 21, 2009 08:57 PM
Lautaro...

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

agrega esta funcion al final de tu PRG principal
Code (fw): Select all Collapse
#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 (fw): Select all Collapse
hCapture = MakeBkBmpEx( ::hWnd, aRect[ 1 ], aRect[ 2 ], ::nWidth, ::nHeight )
Posts: 337
Joined: Fri Oct 07, 2005 02:44 PM
Re: Alguna novedad con parentcapture() + winxp
Posted: Mon Sep 21, 2009 11:32 PM

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

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Alguna novedad con parentcapture() + winxp
Posted: Tue Sep 22, 2009 01:15 AM

Lautaro...

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

Gracias por el feedback

Continue the discussion