Hi Pritpal, Try with this version: --- #define wapi_par_WNDPROC( n ) ( ( WNDPROC ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_WPARAM( n ) ( ( WPARAM ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_LPARAM( n ) ( ( LPARAM ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HWND( n ) ( ( HWND ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HDC( n ) ( ( HDC ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HANDLE( n ) ( ( HANDLE ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HGDIOBJ( n ) ( ( HGDIOBJ ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HBITMAP( n ) ( ( HBITMAP ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HICON( n ) ( ( HICON ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HIMAGELIST( n ) ( ( HIMAGELIST ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HFONT( n ) ( ( HFONT ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_HINSTANCE( n ) ( ( HINSTANCE ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) ) #define wapi_par_COLORREF( n ) ( ( COLORREF ) ( ISNUM( n ) ? ( HB_PTRDIFF ) hb_parnint( n ) : ( HB_PTRDIFF ) hb_parptr( n ) ) )
#define wapi_par_STRUCT( n ) ( hb_parc( n ) ) #define wapi_par_INT( n ) ( hb_parni( n ) ) #define wapi_par_UINT( n ) ( ( UINT ) hb_parni( n ) ) #define wapi_ret_NI( i ) ( hb_retni( i ) ) #define wapi_ret_L( b ) ( hb_retl( b ) ) #define wapi_ret_HANDLE( h ) ( hb_retptr( ( void * ) h ) ) #define wapi_ret_HRESULT( hr ) ( hb_retptr( ( void * ) hr ) ) #define wapi_ret_COLORREF( cr ) ( hb_retptr( ( void * ) cr ) ) --- Also, there are a few old ones with MSVC, if anybody has an idea how to clean these, please speak up: --- .\win_dll.c(759) : warning C4054: 'type cast' : from function pointer 'FARPROC' to data pointer 'LPVOID' .\win_dll.c(762) : warning C4054: 'type cast' : from function pointer 'FARPROC' to data pointer 'LPVOID' .\win_dll.c(811) : warning C4054: 'type cast' : from function pointer 'FARPROC' to data pointer 'LPVOID' .\win_dll.c(817) : warning C4054: 'type cast' : from function pointer 'FARPROC' to data pointer 'LPVOID' --- Brgds, Viktor On Sun, Feb 15, 2009 at 1:06 AM, Pritpal Bedi <bediprit...@hotmail.com>wrote: > > Hi Viktor > > I did changed hbwapi.h as > > #define wapi_par_WNDPROC( n ) ( ( WNDPROC ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_WPARAM( n ) ( ( WPARAM ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_LPARAM( n ) ( ( LPARAM ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HWND( n ) ( ( HWND ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HDC( n ) ( ( HDC ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HANDLE( n ) ( ( HANDLE ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HGDIOBJ( n ) ( ( HGDIOBJ ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HBITMAP( n ) ( ( HBITMAP ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HICON( n ) ( ( HICON ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HIMAGELIST( n ) ( ( HIMAGELIST ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HFONT( n ) ( ( HFONT ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_HINSTANCE( n ) ( ( HINSTANCE ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > #define wapi_par_COLORREF( n ) ( ( COLORREF ) ( ISNUM( n ) ? ( > HB_PTRDIFF ) hb_parnint( n ) : hb_parptr( n ) ) ) > > #define wapi_par_STRUCT( n ) ( hb_parc( n ) ) > > #define wapi_par_INT( n ) ( hb_parni( n ) ) > #define wapi_par_UINT( n ) ( ( UINT ) hb_parni( n ) ) > > #define wapi_ret_NI( i ) ( hb_retni( i ) ) > #define wapi_ret_L( b ) ( hb_retl( b ) ) > #define wapi_ret_HANDLE( h ) ( hb_retptr( ( HB_PTRDIFF ) h ) ) > #define wapi_ret_HRESULT( hr ) ( hb_retptr( ( HB_PTRDIFF ) hr ) ) > #define wapi_ret_COLORREF( cr ) ( hb_retptr( ( HB_PTRDIFF ) cr ) ) > > And compiled wapi_commctrl.c and I get tons of errors like : > > Error E2349 wapi_commctrl.c 195: Nonportable pointer conversion in function > HB_FUN_WAPI_IMAGELIST_DRAWEX > > and > > Error E2349 wapi_commctrl.c 148: Nonportable pointer conversion in function > HB_FUN_WAPI_IMAGELIST_DRAGLEAVE > > I am sure I am missing something, but what ? > > Regards > Pritpal Bedi > -- > View this message in context: > http://www.nabble.com/SF.net-SVN%3A-harbour-project%3A-10273--trunk-harbour-tp22017357p22018577.html > Sent from the Harbour - Dev mailing list archive at Nabble.com. > > _______________________________________________ > Harbour mailing list > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour >
_______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
