Soporte de AlphaBlend en Windows Mobile y WinCE

[Antonio Linares]

Hemos comprobado que algunas versiones de Windows Mobile y WinCE soportan AlphaBlend().

Para comprobar si esta soportada en vuestra versión, por favor probad el siguiente ejemplo. Un valor cero significa que no esta soportado. Gracias,

test.prg

Code: Select all  Expand view

#include "FWCE.ch"

function Main()

   MsgInfo( Test() )

return nil

#pragma BEGINDUMP


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

LPWSTR AnsiToWide( char * );

HMODULE GetProcAddressW( HMODULE, LPWSTR );

HB_FUNC( TEST )
{
  LPWSTR pW1 = AnsiToWide( "coredll.dll" );
  LPWSTR pW2 = AnsiToWide( "AlphaBlend" );
  HMODULE hDll = LoadLibrary( pW1 );

  hb_retnl( ( LONG ) GetProcAddressW( hDll, pW2 ) );

  hb_xfree( pW1 );
  hb_xfree( pW2 );
  FreeLibrary( hDll );
}

#pragma ENDDUMP
 

[Antonio Linares]

Finalmente hemos conseguido soporte de AlphaBlend sin importar si esta soportado por Windows Mobile ó WinCE!

FWPPC tiene FWH ABPaint() tambien

TestAB.prg

Code: Select all  Expand view

#include "FWCE.ch"

function Main()

   local oWnd, oBmp, oBmp2

   DEFINE BITMAP oBmp FILENAME CurDir() + "\Trash.bmp"

   DEFINE BITMAP oBmp2 FILENAME CurDir() + "\paper2.bmp"
   
   DEFINE WINDOW oWnd
   
   ACTIVATE WINDOW oWnd ;
      ON PAINT ( DrawBitmap( hDC, oBmp2:hBitmap, 0, 0 ), ABPaint( hDC, 10, 10, oBmp:hBitmap, 255 ) )

return nil
 

In Windows Mobile:

In Windows CE: