Soporte de AlphaBlend en Windows Mobile y WinCE

Soporte de AlphaBlend en Windows Mobile y WinCE

Postby Antonio Linares » Sat Apr 11, 2009 9:49 am

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
 
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Soporte de AlphaBlend en Windows Mobile y WinCE

Postby Antonio Linares » Sat Apr 11, 2009 1:49 pm

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:
Image
In Windows CE:
Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 5 guests