Recent changes to bugs

#208 Warnings Hwgui Windows OS

Itamar M. Lins Jr. — Fri, 05 Dec 2025 18:02:41 -0000

Hi!
Disregard this post.
Something went wrong here.

Perhaps a cross-compilation. Now it's okay.

Best regards,
Itamar M. Lins Jr.

and key not work to skip a get -> While use a TAB page in other TAB. page

Itamar M. Lins Jr. — Thu, 04 Dec 2025 20:23:37 -0000

Hi!

The <enter> and <tab> keys do not work when using a TAB object inside another TAB object.</tab></enter>

The example demonstrates the problem.

This behavior is working correctly in Hwgui version 2.17.

#include "hwgui.ch"
FUNCTION main()

  LOCAL oDlg,  oPage1, oPage2, oEdit1, oEdit2, oEdit3, oEdit4

  LOCAL  vEdit1 := "" , vEdit2 := "", vEdit3 := "" , vEdit4 := ""

  INIT DIALOG oDlg TITLE "Form1" AT 0, 0 SIZE 800,600 CLIPPER  NOEXIT

   @ 6,5 TAB oPage1 ITEMS {} SIZE 1479,554
    BEGIN PAGE 'Page 1' OF oPage1

    @ 40,73 GET oEdit1 VAR vEdit1 SIZE 80,24 of oPage1
    @ 47,124 GET oEdit2 VAR vEdit2 SIZE 80,24 of oPage1

    END PAGE OF oPage1

    BEGIN PAGE 'Page 2' OF oPage1
       @ 5,29 TAB oPage2 ITEMS {} SIZE 640,480

       BEGIN PAGE 'Page 1' OF oPage2
       @ 40,73 GET oEdit3 VAR vEdit3 SIZE 80,24 of oPage2
       @ 47,124 GET oEdit4 VAR vEdit4 SIZE 80,24 of oPage2

       END PAGE OF oPage2
    END PAGE OF oPage1

   ACTIVATE DIALOG oDlg

RETURN .T.

Best regards,
Itamar M. Lins Jr.

Warnings Hwgui Windows OS

Itamar M. Lins Jr. — Mon, 01 Dec 2025 17:05:18 -0000

Hi!

Many warnings for freeimage and others, ZIG compiler CLANG compiler.
Compiler: LLVM/Clang C 21.1 (https://github.com/ziglang/zig-bootstrap 1b08653ddc0b2770f51

Harbour 3.2.0dev (r2510231945)
Copyright (c) 1999-2025, https://harbour.github.io/
source/winapi/animat.c:18:11: warning: cast to 'HMENU' (aka 'struct HMENU__ *') from smaller integer type 'LONG'
      (aka 'long') [-Wint-to-pointer-cast]
   18 |    hwnd = Animate_Create( ( HWND ) HB_PARHANDLE( 1 ), ( LONG ) hb_parnl( 2 ),
      |           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   19 |          ( LONG ) hb_parnl( 3 ), GetModuleHandle( NULL ) );
      |          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\dev\zig016\lib\libc\include\any-windows-any/commctrl.h:4426:106: note: expanded from macro 'Animate_Create'
 4426 |   ...CreateWindow(ANIMATE_CLASS,NULL,dwStyle,0,0,0,0,hwndP,(HMENU)(id),hInstance,NULL)
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\dev\zig016\lib\libc\include\any-windows-any/winuser.h:2206:199: note: expanded from macro 'CreateWindowA'
 2206 |   ...CreateWindowExA((DWORD)0,lpClassName,lpWindowName,dwStyle,x,y,nWidth,nHeight,hWndParent,hMenu,hInstance,lpParam)
      |                                                                                              ^~~~~
1 warning generated.
source/winapi/dialog.c:222:9: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'LPWORD'
      (aka 'unsigned short *') [-Wpointer-to-int-cast]
  222 |    ul = ( ULONG ) lpIn;
      |         ^~~~~~~~~~~~~~
source/winapi/dialog.c:227:11: warning: cast to 'LPWORD' (aka 'unsigned short *') from smaller integer type 'ULONG'
      (aka 'unsigned long') [-Wint-to-pointer-cast]
  227 |    return ( LPWORD ) ul;
      |           ^~~~~~~~~~~~~
source/winapi/dialog.c:380:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'LPDLGTEMPLATE'
      (aka 'DLGTEMPLATE *') [-Wpointer-to-int-cast]
  380 |    hb_retnl( ( LONG ) s_CreateDlgTemplate( hb_param( 1, HB_IT_OBJECT ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  381 |                hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ), hb_parni( 5 ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  382 |                ( ULONG ) hb_parnd( 6 ) ) );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/dialog.c:387:26: warning: cast to 'LPDLGTEMPLATE' (aka 'DLGTEMPLATE *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  387 |    s_ReleaseDlgTemplate( ( LPDLGTEMPLATE ) hb_parnl( 1 ) );
      |                          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/dialog.c:415:22: warning: cast from 'LRESULT (*)(HWND, UINT, LPPROPSHEETPAGEA) __attribute__((stdcall))'
      (aka 'long long (*)(struct HWND__ *, unsigned int, struct _PROPSHEETPAGEA *)') to 'LPFNPSPCALLBACKA' (aka
      'unsigned int (*)(struct HWND__ *, unsigned int, struct _PROPSHEETPAGEA *)') converts to incompatible function
      type [-Wcast-function-type-mismatch]
  415 |    psp.pfnCallback = ( LPFNPSPCALLBACK ) s_PSPProcRelease;
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/dialog.c:448:22: warning: cast to 'LPDLGTEMPLATE' (aka 'DLGTEMPLATE *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  448 |       pdlgtemplate = ( LPDLGTEMPLATE ) hb_parnl( 2 );
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/dialog.c:484:16: warning: cast to 'HPROPSHEETPAGE' (aka 'struct _PSP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  484 |       psp[i] = ( HPROPSHEETPAGE ) hb_arrayGetNL( pArr, i + 1 );
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
: warning: cast to 'LPDLGTEMPLATE' (aka 'DLGTEMPLATE *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  520 |       pdlgtemplate = ( LPDLGTEMPLATE ) hb_parnl( 8 );
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
8 warnings generated.
source/winapi/draw.c:202:18: warning: cast to smaller integer type 'BOOL' (aka 'int') from 'WINBOOL *' (aka 'int *')
      [-Wpointer-to-int-cast]
  202 |    BOOL fErase = ( BOOL ) ( &pps->fErase );
      |                  ^~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/draw.c:660:60: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  660 |          HB_ISPOINTER( 6 ) ? ( HBRUSH )HB_PARHANDLE( 6 ) : ( HBRUSH )hb_parnl(6) );
      |                                                            ^~~~~~~~~~~~~~~~~~~~~
source/winapi/draw.c:740:13: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'int'
      [-Wint-to-pointer-cast]
  740 |             ( HBRUSH ) ( ( ( iType & 2 ) ? COLOR_3DSHADOW : COLOR_3DHILIGHT )
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  741 |                   + 1 ) );
      |                   ~~~~~
source/winapi/draw.c:745:13: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'int'
      [-Wint-to-pointer-cast]
  745 |             ( HBRUSH ) ( ( ( iType & 2 ) ? COLOR_3DHILIGHT : ( iType & 4 ) ?
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  746 |                         COLOR_3DDKSHADOW : COLOR_3DSHADOW ) + 1 ) );
      |                         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/draw.c:752:16: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'int'
      [-Wint-to-pointer-cast]
  752 |                ( HBRUSH ) ( ( ( iType & 2 ) ? COLOR_3DSHADOW : COLOR_3DLIGHT )
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  753 |                      + 1 ) );
      |                      ~~~~~
source/winapi/draw.c:757:16: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'int'
      [-Wint-to-pointer-cast]
  757 |                ( HBRUSH ) ( ( ( iType & 2 ) ? COLOR_3DLIGHT : COLOR_3DSHADOW )
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  758 |                      + 1 ) );
      |                      ~~~~~
source/winapi/draw.c:812:71: warning: cast to 'HINSTANCE' (aka 'struct HINSTANCE__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  812 |    HB_RETHANDLE( LoadImage( HB_ISNIL( 1 ) ? GetModuleHandle( NULL ) : ( HINSTANCE ) hb_parnl( 1 ),      // handle o...
      |                                                                       ^~~~~~~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:61: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                             ^
source/winapi/draw.c:1163:10: warning: cast to smaller integer type 'long' from 'HANDLE' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
 1163 |    if( ( ( long int ) hfbm ) <= 0 )
      |          ^~~~~~~~~~~~~~~~~
source/winapi/draw.c:1406:4: warning: cast to 'void *' from smaller integer type 'int' [-Wint-to-void-pointer-cast]
 1406 |    HB_RETHANDLE( ReleaseDC( ( HWND ) HB_PARHANDLE( 1 ),
      |    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1407 |                ( HDC ) HB_PARHANDLE( 2 ) ) );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:48: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                ^~~~~~~~~~~~~~~~
source/winapi/draw.c:1445:31: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HWND'
      (aka 'struct HWND__ *') [-Wpointer-to-int-cast]
 1445 |    temp = hb_itemPutNL( NULL, ( LONG ) lpdis->hwndItem );
      |                               ^~~~~~~~~~~~~~~~~~~~~~~~
10 warnings generated.
source/winapi/freeimg.c:242:46: warning: cast from 'FREEIMAGE_UNLOAD' (aka 'void (*)(struct FIBITMAP *)') to 'FARPROC'
      (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  242 |          ( FREEIMAGE_UNLOAD ) s_getFunction( ( FARPROC ) pUnload,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:246:16: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  246 |       pUnload( ( FIBITMAP * ) hb_parnl( 1 ) );
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:252:44: warning: cast from 'FREEIMAGE_LOAD' (aka 'struct FIBITMAP *(*)(int, const char *, int)')
      to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  252 |          ( FREEIMAGE_LOAD ) s_getFunction( ( FARPROC ) pLoad,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:255:58: warning: cast from 'FREEIMAGE_GETFIFFROMFILENAME' (aka 'int (*)(const char *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  255 |          ( FREEIMAGE_GETFIFFROMFILENAME ) s_getFunction( ( FARPROC )
      |                                                          ^~~~~~~~~~~
  256 |          pGetfiffromfile, "_FreeImage_GetFIFFromFilename@4" );
      |          ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:261:17: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  261 |       hb_retnl( ( ULONG ) pLoad( pGetfiffromfile( name ), name,
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  262 |                   ( hb_pcount(  ) > 1 ) ? hb_parni( 2 ) : 0 ) );
      |                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:274:44: warning: cast from 'FREEIMAGE_LOAD' (aka 'struct FIBITMAP *(*)(int, const char *, int)')
      to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  274 |          ( FREEIMAGE_LOAD ) s_getFunction( ( FARPROC ) pLoad,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:280:17: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  280 |       hb_retnl( ( ULONG ) pLoad( ( enum FREE_IMAGE_FORMAT ) hb_parni( 1 ),
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  281 |                   name, ( hb_pcount(  ) > 2 ) ? hb_parni( 3 ) : 0 ) );
      |                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:290:44: warning: cast from 'FREEIMAGE_SAVE' (aka 'int (*)(int, struct FIBITMAP *, const char *,
      int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  290 |          ( FREEIMAGE_SAVE ) s_getFunction( ( FARPROC ) pSave,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:293:58: warning: cast from 'FREEIMAGE_GETFIFFROMFILENAME' (aka 'int (*)(const char *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  293 |          ( FREEIMAGE_GETFIFFROMFILENAME ) s_getFunction( ( FARPROC )
      |                                                          ^~~~~~~~~~~
  294 |          pGetfiffromfile, "_FreeImage_GetFIFFromFilename@4" );
      |          ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:300:19: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  300 |                   ( FIBITMAP * ) hb_parnl( 1 ), name,
      |                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:313:44: warning: cast from 'FREEIMAGE_SAVE' (aka 'int (*)(int, struct FIBITMAP *, const char *,
      int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  313 |          ( FREEIMAGE_SAVE ) s_getFunction( ( FARPROC ) pSave,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:320:19: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  320 |                   ( FIBITMAP * ) hb_parnl( 2 ), name,
      |                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:330:48: warning: cast from 'FREEIMAGE_GETWIDTH' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  330 |          ( FREEIMAGE_GETWIDTH ) s_getFunction( ( FARPROC ) pGetwidth,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:333:41: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  333 |    hb_retnl( ( pGetwidth ) ? pGetwidth( ( FIBITMAP * ) hb_parnl( 1 ) ) : 0 );
      |                                         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:339:49: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  339 |          ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:342:43: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  342 |    hb_retnl( ( pGetheight ) ? pGetheight( ( FIBITMAP * ) hb_parnl( 1 ) ) :
      |                                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:349:46: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  349 |          ( FREEIMAGE_GETBPP ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:352:37: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  352 |    hb_retnl( ( pGetBPP ) ? pGetBPP( ( FIBITMAP * ) hb_parnl( 1 ) ) : 0 );
      |                                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:358:52: warning: cast from 'FREEIMAGE_GETIMAGETYPE' (aka 'short (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  358 |          ( FREEIMAGE_GETIMAGETYPE ) s_getFunction( ( FARPROC ) pGetImageType,
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~~~~
(aka 'struct FIBITMAP *') from smaller integer type 'long' *' [1/1] Linking
      [-Wint-to-pointer-cast]
  361 |    hb_retnl( ( pGetImageType ) ? pGetImageType( ( FIBITMAP * ) hb_parnl( 1 ) )
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:367:20: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  367 |    FIBITMAP *dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:371:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  371 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:374:47: warning: cast from 'FREEIMAGE_GETINFO' (aka 'struct tagBITMAPINFO *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  374 |          ( FREEIMAGE_GETINFO ) s_getFunction( ( FARPROC ) pGetinfo,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:377:53: warning: cast from 'FREEIMAGE_GETINFOHEADER' (aka 'struct tagBITMAPINFOHEADER
      *(*)(struct FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  377 |          ( FREEIMAGE_GETINFOHEADER ) s_getFunction( ( FARPROC ) pGetinfoHead,
      |                                                     ^~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:380:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HBITMAP'
      (aka 'struct HBITMAP__ *') [-Wpointer-to-int-cast]
  380 |    hb_retnl( ( LONG ) CreateDIBitmap( hDC, pGetinfoHead( dib ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  381 |                CBM_INIT, pGetbits( dib ), pGetinfo( dib ), DIB_RGB_COLORS ) );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:467:20: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  467 |    FIBITMAP *dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:471:48: warning: cast from 'FREEIMAGE_GETWIDTH' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  471 |          ( FREEIMAGE_GETWIDTH ) s_getFunction( ( FARPROC ) pGetwidth,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:474:49: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  474 |          ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:477:46: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  477 |          ( FREEIMAGE_GETBPP ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:480:48: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  480 |          ( FREEIMAGE_GETPITCH ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                                ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:483:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  483 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
 (aka 'void *')reeimg.c:496:17: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HANDLE'[1/1] Linking
      [-Wvoid-pointer-to-int-cast]
  496 |       hb_retnl( ( LONG ) hdib );
      |                 ^~~~~~~~~~~~~
source/winapi/freeimg.c:511:52: warning: cast from 'FREEIMAGE_GETIMAGETYPE' (aka 'short (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  511 |          ( FREEIMAGE_GETIMAGETYPE ) s_getFunction( ( FARPROC ) pGetImageType,
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:521:21: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  521 |    FIBITMAP *_dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:525:53: warning: cast from 'FREEIMAGE_GETCOLORSUSED' (aka 'unsigned int (*)(struct FIBITMAP *)')
      to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  525 |          ( FREEIMAGE_GETCOLORSUSED ) s_getFunction( ( FARPROC )
      |                                                     ^~~~~~~~~~~
  526 |          pGetColorsUsed, "_FreeImage_GetColorsUsed@4" );
      |          ~~~~~~~~~~~~~~
source/winapi/freeimg.c:528:48: warning: cast from 'FREEIMAGE_GETWIDTH' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  528 |          ( FREEIMAGE_GETWIDTH ) s_getFunction( ( FARPROC ) pGetwidth,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:531:49: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  531 |          ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:534:46: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  534 |          ( FREEIMAGE_GETBPP ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:537:48: warning: cast from 'FREEIMAGE_GETPITCH' (aka 'unsigned int (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  537 |          ( FREEIMAGE_GETPITCH ) s_getFunction( ( FARPROC ) pGetPitch,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:540:53: warning: cast from 'FREEIMAGE_GETINFOHEADER' (aka 'struct tagBITMAPINFOHEADER
      *(*)(struct FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  540 |          ( FREEIMAGE_GETINFOHEADER ) s_getFunction( ( FARPROC ) pGetinfoHead,
      |                                                     ^~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:543:47: warning: cast from 'FREEIMAGE_GETINFO' (aka 'struct tagBITMAPINFO *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  543 |          ( FREEIMAGE_GETINFO ) s_getFunction( ( FARPROC ) pGetinfo,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:546:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  546 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:549:50: warning: cast from 'FREEIMAGE_GETPALETTE' (aka 'struct tagRGBQUAD *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  549 |          ( FREEIMAGE_GETPALETTE ) s_getFunction( ( FARPROC ) pGetPalette,
      |                                                  ^~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:552:52: warning: cast from 'FREEIMAGE_GETIMAGETYPE' (aka 'short (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
pGetImageType,   ( FREEIMAGE_GETIMAGETYPE ) s_getFunction( ( FARPROC ) [1/1] Linking
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:598:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HANDLE' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
  598 |    hb_retnl( ( LONG ) hMem );
      |              ^~~~~~~~~~~~~
source/winapi/freeimg.c:603:20: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  603 |    FIBITMAP *dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:633:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  633 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:636:47: warning: cast from 'FREEIMAGE_GETINFO' (aka 'struct tagBITMAPINFO *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  636 |          ( FREEIMAGE_GETINFO ) s_getFunction( ( FARPROC ) pGetinfo,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:658:51: warning: cast from 'FREEIMAGE_ALLOCATE' (aka 'struct FIBITMAP *(*)(int, int, int,
      unsigned int, unsigned int, unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function
      type [-Wcast-function-type-mismatch]
  658 |             ( FREEIMAGE_ALLOCATE ) s_getFunction( ( FARPROC ) pAllocate,
      |                                                   ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:661:50: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  661 |             ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                                  ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:664:50: warning: cast from 'FREEIMAGE_GETINFO' (aka 'struct tagBITMAPINFO *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  664 |             ( FREEIMAGE_GETINFO ) s_getFunction( ( FARPROC ) pGetinfo,
      |                                                  ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:667:52: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  667 |             ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:679:20: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  679 |          hb_retnl( ( LONG ) dib );
      |                    ^~~~~~~~~~~~
source/winapi/freeimg.c:729:18: warning: cast to 'HANDLE' (aka 'void *') from smaller integer type 'long'
      [-Wint-to-void-pointer-cast]
  729 |    HANDLE hdib = ( HANDLE ) hb_parnl( 1 );
      |                  ^~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:738:61: warning: cast from 'FREEIMAGE_CONVERTFROMRAWBITS' (aka 'struct FIBITMAP *(*)(unsigned
      char *, int, int, int, unsigned int, unsigned int, unsigned int, unsigned int, int)') to 'FARPROC'
      (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  738 |             ( FREEIMAGE_CONVERTFROMRAWBITS ) s_getFunction( ( FARPROC )
      |                                                             ^~~~~~~~~~~
  739 |             pConvertFromRawBits, "_FreeImage_ConvertFromRawBits@36" );
      |             ~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:741:53: warning: cast from 'FREEIMAGE_GETPALETTE' (aka 'struct tagRGBQUAD *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  741 |             ( FREEIMAGE_GETPALETTE ) s_getFunction( ( FARPROC ) pGetPalette,
      |                                                     ^~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:744:49: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  744 |             ( FREEIMAGE_GETBPP ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                                 ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:779:20: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  779 |          hb_retnl( ( LONG ) dib );
      |                    ^~~~~~~~~~~~
source/winapi/freeimg.c:794:47: warning: cast from 'FREEIMAGE_RESCALE' (aka 'struct FIBITMAP *(*)(struct FIBITMAP *,
      int, int, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  794 |          ( FREEIMAGE_RESCALE ) s_getFunction( ( FARPROC ) pRescale,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:797:48: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  797 |    hb_retnl( ( pRescale ) ? ( LONG ) pRescale( ( FIBITMAP * ) hb_parnl( 1 ),
      |                                                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:797:29: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  797 |    hb_retnl( ( pRescale ) ? ( LONG ) pRescale( ( FIBITMAP * ) hb_parnl( 1 ),
      |                             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  798 |                hb_parnl( 2 ), hb_parnl( 3 ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  799 |                ( FREE_IMAGE_FILTER ) hb_parni( 4 ) ) : 0 );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:805:20: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  805 |    FIBITMAP *dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:809:48: warning: cast from 'FREEIMAGE_ALLOCATE' (aka 'struct FIBITMAP *(*)(int, int, int,
      unsigned int, unsigned int, unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function
      type [-Wcast-function-type-mismatch]
  809 |          ( FREEIMAGE_ALLOCATE ) s_getFunction( ( FARPROC ) pAllocate,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:812:48: warning: cast from 'FREEIMAGE_GETWIDTH' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  812 |          ( FREEIMAGE_GETWIDTH ) s_getFunction( ( FARPROC ) pGetwidth,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:815:49: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  815 |          ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:818:50: warning: cast from 'FREEIMAGE_SETCHANNEL' (aka 'int (*)(struct FIBITMAP *, struct
      FIBITMAP *, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  818 |          ( FREEIMAGE_SETCHANNEL ) s_getFunction( ( FARPROC ) pSetChannel,
      |                                                  ^~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:821:46: warning: cast from 'FREEIMAGE_UNLOAD' (aka 'void (*)(struct FIBITMAP *)') to 'FARPROC'
      (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  821 |          ( FREEIMAGE_UNLOAD ) s_getFunction( ( FARPROC ) pUnload,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:883:13: warning: cast to smaller integer type 'long' from 'fi_handle' (aka 'void *')
[-Wvoid-pointer-to-int-cast]
  883 |    return ( ( long int ) g_load_address - ( long int ) handle );
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:883:43: warning: cast to smaller integer type 'long' from 'fi_handle' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
  883 |    return ( ( long int ) g_load_address - ( long int ) handle );
      |                                           ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:889:54: warning: cast from 'FREEIMAGE_LOADFROMHANDLE' (aka 'struct FIBITMAP *(*)(int, struct
      FreeImageIO *, void *, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  889 |          ( FREEIMAGE_LOADFROMHANDLE ) s_getFunction( ( FARPROC )
      |                                                      ^~~~~~~~~~~
  890 |          pLoadFromHandle, "_FreeImage_LoadFromHandle@16" );
      |          ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:922:17: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  922 |       hb_retnl( ( LONG ) pLoadFromHandle( fif, &io, ( fi_handle ) image,
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  923 |                   ( hb_pcount(  ) > 2 ) ? hb_parni( 3 ) : 0 ) );
      |                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:932:53: warning: cast from 'FREEIMAGE_ROTATECLASSIC' (aka 'struct FIBITMAP *(*)(struct FIBITMAP
      *, double)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  932 |          ( FREEIMAGE_ROTATECLASSIC ) s_getFunction( ( FARPROC )
      |                                                     ^~~~~~~~~~~
  933 |          pRotateClassic, "_FreeImage_RotateClassic@12" );
      |          ~~~~~~~~~~~~~~
source/winapi/freeimg.c:935:60: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  935 |    hb_retnl( ( pRotateClassic ) ? ( LONG ) pRotateClassic( ( FIBITMAP * )
      |                                                            ^~~~~~~~~~~~~~
  936 |                hb_parnl( 1 ), hb_parnd( 2 ) ) : 0 );
      |                ~~~~~~~~~~~~~
source/winapi/freeimg.c:935:35: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  935 |    hb_retnl( ( pRotateClassic ) ? ( LONG ) pRotateClassic( ( FIBITMAP * )
      |                                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  936 |                hb_parnl( 1 ), hb_parnd( 2 ) ) : 0 );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:942:56: warning: cast from 'FREEIMAGE_GETDOTSPERMETERX' (aka
      'unsigned int (*)(struct FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  942 |          ( FREEIMAGE_GETDOTSPERMETERX ) s_getFunction( ( FARPROC )
      |                                                        ^~~~~~~~~~~
  943 |          pGetDotsPerMeterX, "_FreeImage_GetDotsPerMeterX@4" );
      |          ~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:945:57: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  945 |    hb_retnl( ( pGetDotsPerMeterX ) ? pGetDotsPerMeterX( ( FIBITMAP * )
      |                                                         ^~~~~~~~~~~~~~
  946 |                hb_parnl( 1 ) ) : 0 );
      |                ~~~~~~~~~~~~~
source/winapi/freeimg.c:952:56: warning: cast from 'FREEIMAGE_GETDOTSPERMETERY' (aka
      'unsigned int (*)(struct FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  952 |          ( FREEIMAGE_GETDOTSPERMETERY ) s_getFunction( ( FARPROC )
      |                                                        ^~~~~~~~~~~
  953 |          pGetDotsPerMeterY, "_FreeImage_GetDotsPerMeterY@4" );
      |          ~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:955:57: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  955 |    hb_retnl( ( pGetDotsPerMeterY ) ? pGetDotsPerMeterY( ( FIBITMAP * )
      |                                                         ^~~~~~~~~~~~~~
  956 |                hb_parnl( 1 ) ) : 0 );
      |                ~~~~~~~~~~~~~
source/winapi/freeimg.c:962:56: warning: cast from 'FREEIMAGE_SETDOTSPERMETERX' (aka 'void (*)(struct FIBITMAP *,
      unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  962 |          ( FREEIMAGE_SETDOTSPERMETERX ) s_getFunction( ( FARPROC )
      |                                                        ^~~~~~~~~~~
  963 |          pSetDotsPerMeterX, "_FreeImage_SetDotsPerMeterX@8" );
      |          ~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:966:26: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  966 |       pSetDotsPerMeterX( ( FIBITMAP * ) hb_parnl( 1 ), hb_parnl( 2 ) );
      |                          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:974:56: warning: cast from 'FREEIMAGE_SETDOTSPERMETERY' (aka 'void (*)(struct FIBITMAP *,
      unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  974 |          ( FREEIMAGE_SETDOTSPERMETERY ) s_getFunction( ( FARPROC )
      |                                                        ^~~~~~~~~~~
  975 |          pSetDotsPerMeterY, "_FreeImage_SetDotsPerMeterY@8" );
      |          ~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:978:26: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  978 |       pSetDotsPerMeterY( ( FIBITMAP * ) hb_parnl( 1 ), hb_parnl( 2 ) );
      |                          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:988:48: warning: cast from 'FREEIMAGE_ALLOCATE' (aka 'struct FIBITMAP *(*)(int, int, int,
      unsigned int, unsigned int, unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function
      type [-Wcast-function-type-mismatch]
  988 |          ( FREEIMAGE_ALLOCATE ) s_getFunction( ( FARPROC ) pAllocate,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:992:14: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  992 |    hb_retnl( ( ULONG ) pAllocate( hb_parnl( 1 ), hb_parnl( 2 ), hb_parnl( 3 ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  993 |                0, 0, 0 ) );
      |                ~~~~~~~~~
source/winapi/freeimg.c:1001:45: warning: cast from 'FREEIMAGE_PASTE' (aka 'int (*)(struct FIBITMAP *, struct FIBITMAP
      *, int, int, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1001 |          ( FREEIMAGE_PASTE ) s_getFunction( ( FARPROC ) pPaste,
      |                                             ^~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1004:21: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1004 |    hb_retl( pPaste( ( FIBITMAP * ) hb_parnl( 1 ),       // dest
      |                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1005:16: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
'long' [-Wint-to-pointer-cast]
 1005 |                ( FIBITMAP * ) hb_parnl( 2 ),    // src
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1014:44: warning: cast from 'FREEIMAGE_COPY' (aka 'struct FIBITMAP *(*)(struct FIBITMAP *, int,
      int, int, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1014 |          ( FREEIMAGE_COPY ) s_getFunction( ( FARPROC ) pCopy,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1017:31: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1017 |    hb_retnl( ( ULONG ) pCopy( ( FIBITMAP * ) hb_parnl( 1 ),     // dib
      |                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1017:14: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
 1017 |    hb_retnl( ( ULONG ) pCopy( ( FIBITMAP * ) hb_parnl( 1 ),     // dib
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1018 |                hb_parnl( 2 ),   // left
      |                ~~~~~~~~~~~~~~~~~~~~~~~~
 1019 |                hb_parnl( 3 ),   // top
      |                ~~~~~~~~~~~~~~~~~~~~~~~
 1020 |                hb_parnl( 4 ),   // right
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~
 1021 |                hb_parnl( 5 ) ) );       // bottom
      |                ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1030:58: warning: cast from 'FREEIMAGE_SETBACKGROUNDCOLOR' (aka 'int (*)(struct FIBITMAP *,
      struct tagRGBQUAD *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1030 |          ( FREEIMAGE_SETBACKGROUNDCOLOR ) s_getFunction( ( FARPROC )
      |                                                          ^~~~~~~~~~~
 1031 |          pSetBackgroundColor, "_FreeImage_SetBackgroundColor@8" );
      |          ~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1033:34: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1033 |    hb_retl( pSetBackgroundColor( ( FIBITMAP * ) hb_parnl( 1 ), &rgbquad ) );
      |                                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1039:46: warning: cast from 'FREEIMAGE_INVERT' (aka 'int (*)(struct FIBITMAP *)') to 'FARPROC'
      (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
 1039 |          ( FREEIMAGE_INVERT ) s_getFunction( ( FARPROC ) pInvert,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1042:22: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1042 |    hb_retl( pInvert( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1048:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
 1048 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1051:25: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1051 |    hb_retptr( pGetbits( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |                         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1057:54: warning: cast from 'FREEIMAGE_CONVERTTO8BITS' (aka 'struct FIBITMAP *(*)(struct
      FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1057 |          ( FREEIMAGE_CONVERTTO8BITS ) s_getFunction( ( FARPROC )
      |                                                      ^~~~~~~~~~~
 1058 |          pConvertTo8Bits, "_FreeImage_ConvertTo8Bits@4" );
      |          ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1060:40: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1060 |    hb_retnl( ( LONG ) pConvertTo8Bits( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |                                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1060:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
 1060 |    hb_retnl( ( LONG ) pConvertTo8Bits( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1066:58: warning: cast from 'FREEIMAGE_CONVERTTOGREYSCALE' (aka 'struct FIBITMAP *(*)(struct
      FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1066 |          ( FREEIMAGE_CONVERTTOGREYSCALE ) s_getFunction( ( FARPROC )
      |                                                          ^~~~~~~~~~~
 1067 |          pConvertToGreyscale, "_FreeImage_ConvertToGreyscale@4" );
      |          ~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1069:44: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1069 |    hb_retnl( ( LONG ) pConvertToGreyscale( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |                                            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1069:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
 1069 |    hb_retnl( ( LONG ) pConvertToGreyscale( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1075:49: warning: cast from 'FREEIMAGE_THRESHOLD' (aka 'struct FIBITMAP *(*)(struct FIBITMAP *,
      unsigned char)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1075 |          ( FREEIMAGE_THRESHOLD ) s_getFunction( ( FARPROC ) pThreshold,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1078:35: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1078 |    hb_retnl( ( LONG ) pThreshold( ( FIBITMAP * ) hb_parnl( 1 ),
      |                                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1078:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
 1078 |    hb_retnl( ( LONG ) pThreshold( ( FIBITMAP * ) hb_parnl( 1 ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1079 |                ( BYTE ) hb_parnl( 2 ) ) );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1085:52: warning: cast from 'FREEIMAGE_FLIPVERTICAL' (aka 'int (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
 1085 |          ( FREEIMAGE_FLIPVERTICAL ) s_getFunction( ( FARPROC ) pFlipVertical,
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1088:28: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 hb_parnl( 1 ) ) ); pFlipVertical( ( FIBITMAP * )[1/1] Linking
      |                            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1096:53: warning: cast from 'FREEIMAGE_GETPIXELINDEX' (aka 'int (*)(struct FIBITMAP *, unsigned
      int, unsigned int, unsigned char *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1096 |          ( FREEIMAGE_GETPIXELINDEX ) s_getFunction( ( FARPROC )
      |                                                     ^~~~~~~~~~~
 1097 |          pGetPixelIndex, "_FreeImage_GetPixelIndex@16" );
      |          ~~~~~~~~~~~~~~
source/winapi/freeimg.c:1099:27: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1099 |    lRes = pGetPixelIndex( ( FIBITMAP * ) hb_parnl( 1 ), hb_parni( 2 ),
      |                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1112:53: warning: cast from 'FREEIMAGE_SETPIXELINDEX' (aka 'int (*)(struct FIBITMAP *, unsigned
      int, unsigned int, unsigned char *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1112 |          ( FREEIMAGE_SETPIXELINDEX ) s_getFunction( ( FARPROC )
      |                                                     ^~~~~~~~~~~
 1113 |          pSetPixelIndex, "_FreeImage_SetPixelIndex@16" );
      |          ~~~~~~~~~~~~~~
source/winapi/freeimg.c:1115:29: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1115 |    hb_retl( pSetPixelIndex( ( FIBITMAP * ) hb_parnl( 1 ), hb_parni( 2 ),
      |                             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
111 warnings generated.
source/winapi/misc.c:73:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HWND'
      (aka 'struct HWND__ *') [-Wpointer-to-int-cast]
   73 |    hb_retnl( ( LONG ) SetCapture( ( HWND ) HB_PARHANDLE( 1 ) ) );
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/misc.c:117:16: warning: cast to 'HWND' (aka 'struct HWND__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  117 |    HWND hWnd = ( HWND ) hb_parnl( 1 );
      |                ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/misc.c:507:18: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HANDLE' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
  507 |    HB_RETHANDLE( ( LONG ) ( ( ( HELPINFO FAR * ) HB_PARHANDLE( 1 ) )->hItemHandle ) );
      |    ~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:61: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                             ^
source/winapi/misc.c:507:4: warning: cast to 'void *' from smaller integer type 'LONG' (aka 'long')
      [-Wint-to-void-pointer-cast]
  507 |    HB_RETHANDLE( ( LONG ) ( ( ( HELPINFO FAR * ) HB_PARHANDLE( 1 ) )->hItemHandle ) );
      |    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:48: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                ^~~~~~~~~~~~~~~~
source/winapi/misc.c:789:17: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HGDIOBJ' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
  789 |       hb_retnl( ( LONG ) GetStockObject( HOLLOW_BRUSH ) );
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
5 warnings generated.
source/winapi/nice.c:172:56: warning: cast to 'HRGN' (aka 'struct HRGN__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  172 |    hb_retni( SetWindowRgn( ( HWND ) HB_PARHANDLE( 1 ), ( HRGN ) hb_parnl( 2 ),
      |                                                        ^~~~~~~~~~~~~~~~~~~~~~
1 warning generated.
source/winapi/registry.c:11:9: warning: '_WIN32_WINNT' macro redefined [-Wmacro-redefined]
   11 | #define _WIN32_WINNT 0x0400
      |         ^
<command line>:3:9: note: previous definition is here
    3 | #define _WIN32_WINNT 0x0a00
      |         ^
source/winapi/registry.c:32:24: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   32 |    if( RegCreateKeyEx( (HKEY) hb_parnl(1), hb_parc(2), 0, NULL, 0, KEY_ALL_ACCESS,
      |                        ^~~~~~~~~~~~~~~~~~
source/winapi/registry.c:35:17: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'HKEY'
      (aka 'struct HKEY__ *') [-Wpointer-to-int-cast]
   35 |       hb_retnl( (ULONG) hkResult );
      |                 ^~~~~~~~~~~~~~~~
source/winapi/registry.c:49:22: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   49 |    if( RegOpenKeyEx( (HKEY)hb_parnl(1), hb_parc(2), 0, KEY_ALL_ACCESS,
      |                      ^~~~~~~~~~~~~~~~~
source/winapi/registry.c:52:17: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'HKEY'
      (aka 'struct HKEY__ *') [-Wpointer-to-int-cast]
   52 |       hb_retnl( (ULONG) hkResult );
      |                 ^~~~~~~~~~~~~~~~
source/winapi/registry.c:64:21: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   64 |    if( RegCloseKey( (HKEY) hb_parnl(1) ) == ERROR_SUCCESS )
      |                     ^~~~~~~~~~~~~~~~~~
source/winapi/registry.c:80:23: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   80 |    if( RegSetValueEx( (HKEY)hb_parnl(1), hb_parc(2), 0, REG_SZ,
      |                       ^~~~~~~~~~~~~~~~~
source/winapi/registry.c:89:23: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   89 |    if( RegSetValueEx( (HKEY)hb_parnl(1), hb_parc(2), 0, REG_BINARY,
      |                       ^~~~~~~~~~~~~~~~~
source/winapi/registry.c:98:16: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   98 |    HKEY hKey = (HKEY)hb_parnl(1);
      |                ^~~~~~~~~~~~~~~~~
9 warnings generated.
source/winapi/resource.c:28:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HMODULE'
      (aka 'struct HINSTANCE__ *') [-Wpointer-to-int-cast]
   28 |    hb_retnl( ( LONG ) hModule );
      |              ^~~~~~~~~~~~~~~~
1 warning generated.
source/winapi/richedit.c:520:18: warning: cast to smaller integer type 'DWORD' (aka 'unsigned long') from 'HANDLE'
      (aka 'void *') [-Wvoid-pointer-to-int-cast]
  520 |    es.dwCookie = ( DWORD ) hFile;
      |                  ^~~~~~~~~~~~~~~
1 warning generated.
source/winapi/shellapi.c:158:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HINSTANCE'
      (aka 'struct HINSTANCE__ *') [-Wpointer-to-int-cast]
  158 |    hb_retnl( ( LONG ) ShellExecute( GetActiveWindow(  ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  159 |                HB_PARSTRDEF( 2, &hOperation, NULL ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  160 |                HB_PARSTR( 1, &hFile, NULL ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  161 |                HB_PARSTR( 3, &hParameters, NULL ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SHOWNORMAL ) );        lpDirectory, HB_ISNUM( 5 ) ? hb_parni( 5 ) : SW_[1/1] Linking
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 warning generated.
source/winapi/window.c:122:13: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  122 |             ( HBRUSH ) hb_parnl( 6 ) ) ) : ( HBRUSH ) ( COLOR_WINDOW + 1 );
      |             ^~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/window.c:701:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HMODULE'
      (aka 'struct HINSTANCE__ *') [-Wpointer-to-int-cast]
  701 |    hb_retnl( ( LONG ) GetModuleHandle( NULL ) );
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2 warnings generated.
source/winapi/wprint.c:448:4: warning: cast to 'void *' from smaller integer type 'LONG' (aka 'long')
      [-Wint-to-void-pointer-cast]
  448 |    HB_RETHANDLE( ( LONG ) DeleteEnhMetaFile( ( HENHMETAFILE )
      |    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  449 |                HB_PARHANDLE( 1 ) ) );
      |                ~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:48: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                ^~~~~~~~~~~~~~~~
source/winapi/wprint.c:645:28: warning: cast to smaller integer type 'BOOL' (aka 'int') from 'HDC'
      (aka 'struct HDC__ *') [-Wpointer-to-int-cast]
  645 |                   Result = ( BOOL ) ResetDC( hDC, pDevMode );
      |                            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2 warnings generated.

C:\dev\hwgui>hbmk2 procmisc.hbp
hbmk2: Processando opções do ambiente: -LC:\msys64\clang64\lib -comp=zig
       -cpu=x86_64
Harbour 3.2.0dev (r2510231945)
Copyright (c) 1999-2025, https://harbour.github.io/
source/common/editor/hcedit_w.c:58:9: warning: '_WIN32_WINNT' macro redefined [-Wmacro-redefined]
   58 | #define _WIN32_WINNT 0x400
      |         ^
<command line>:3:9: note: previous definition is here
    3 | #define _WIN32_WINNT 0x0a00
      |         ^
1 warning generated.

C:\dev\hwgui>hbmk2 hbxml.hbp
hbmk2: Processando opções do ambiente: -LC:\msys64\clang64\lib -comp=zig
       -cpu=x86_64
Harbour 3.2.0dev (r2510231945)
Copyright (c) 1999-2025, https://harbour.github.io/

C:\dev\hwgui>hbmk2 hwgdebug.hbp
hbmk2: Processando opções do ambiente: -LC:\msys64\clang64\lib -comp=zig
       -cpu=x86_64
Harbour 3.2.0dev (r2510231945)
Copyright (c) 1999-2025, https://harbour.github.io/

C:\dev\hwgui>cd contrib\ext_controls

C:\dev\hwgui\contrib\ext_controls>copy \dev\hbrowsex.prg /y
        1 arquivo(s) copiado(s).

C:\dev\hwgui\contrib\ext_controls>cd ..

C:\dev\hwgui\contrib>hbmk2 hwg_extctrl.hbp
hbmk2: Processando opções do ambiente: -LC:\msys64\clang64\lib -comp=zig
       -cpu=x86_64
hbmk2: Harbour: Compilando módulos...
ext_controls\hbrowsex.prg(3400) Warning W0032  Variable 'NSKIP' is assigned but not used in function 'HBROWSEEX_WHEN(3393)'

No code generated.
hbmk2[hwg_extctrl]: Error: Running Harbour compiler (built-in). 1
(C:\hbzig\bin\harbour.exe) -n1 ext_controls\hbrowsex.prg ext_controls\hcomboex.prg ext_controls\hctrlex.prg ext_controls\hgridex.prg ext_controls\hrectex.prg -n -q0 -w3 -es2 -o..\lib\.hbmk\win\zig\ -iC:\hbzig\include -i..\include

Best regards,
Itamar M. Lins Jr.

#207 Bus with printing using a printer script.

Wilfried Brunken — Tue, 23 Sep 2025 08:09:25 -0000

Hello Alain,
i am very busy at this , so i will look for this ticket as soon as possible, SRI.
If you have any ideas, i will check it prompt.
Here i appended a file with some reports of analyising the problem on Windows,
because there no contents appeared.

With regards

MNI TNX, 73 es 55 de

Wilfried, DF7BE

#207 Bus with printing using a printer script.

Aupeix Alain — Wed, 27 Aug 2025 13:13:59 -0000

Hi Wilfried,

oPrinter:LoadScript(cScript+".out")
The internal HWGUI print preview apears,
but all pages are not in landscape.

That's exactly the problem I have. The first page is in portrait, which is not ok, but the others are in landscape as desired. But I say that printing just when creating the script, all the pages are in landscape.
For the pdf creation, I think it's a problem Windows. Under Linux, no problem.

A+

#207 Bus with printing using a printer script.

Wilfried Brunken — Wed, 27 Aug 2025 08:44:41 -0000

Hello Alain,
for experiment i added (Ubuntu)
oPrinter:Preview()
after
oPrinter:LoadScript(cScript+".out")
The internal HWGUI print preview apears,
but all pages are not in landscape.
So i must understand,
how the script feature works.
For next step i will check differences in
hprinter.prg for GTK and Windows,
before continuing bugfixing.
On Windows, i added temporary
an new method:

METHOD StartDoc2() CLASS HPrinter
LOCAL nRes
::hDC := ::hDCPrn

nRes := Hwg_StartDoc( ::hDC, "HwGUIPrint" )

RETURN nRes

Before
LoadScript()
i added
oprinter:StartDoc2()

The query for PDF file name and the preview
apears, but no data are printed out, only boxes
and hear. also the PDF left empty again.

With this post i will inform you
about the recent state.

With regards

MNI TNX, 73 es 55 de

Wilfried, DF7BE

#207 Bus with printing using a printer script.

Wilfried Brunken — Tue, 26 Aug 2025 12:31:26 -0000

Hello Alain,
now continue the discussing:

Have you tried under linux ?
I tried both, Windows (with Microsoft Print2Pdf) and Ubuntu, but
the EndDoc() method does not start the printout on Windows,
LINUX starts, but with your reported format bug on the first page.
Why are you trying to use WINPRN class ?
The WINPRN class works also correct on Windows,
see sample program WINPRN.PRG, so i want to check.
See hwinprn.prg:
METHOD New()
...
::oPrinter := HPrinter():New( cPrinter, .F., nFormType )
==> So the WINPRN class creates a HPRINTER object.
After the printer dialog appeared, the print starts with
the query to ask for the name of the PDF as target for
the printout.
INIT PRINTER oPrinter
Does this use WINPRN Class ?
No, see guilib.ch:

#xcommand INIT PRINTER <oprinter> ;
[ NAME <cprinter> ]</cprinter> ;
[ <lpixel: pixel=""> ]</lpixel:> ;
=> ;
<oprinter> := HPrinter():New( <cprinter>,!<.lPixel.> )</cprinter></oprinter></oprinter>

If I have time, not for now, I will create a test program.
I will wait for your new or modified sample program.

But i cannot detect the setmode(2,2) method (for example in NEW() method or
alpha.out), please explain.

I'll continue looking for the bus while waiting for your
answer.

With regards

MNI TNX, 73 es 55 de

Wilfried, DF7BE

#207 Bus with printing using a printer script.

Aupeix Alain — Mon, 25 Aug 2025 19:22:12 -0000

Hi Wilfried,

alpha.out has been created using hwgui, so I don't understand why you are not able to use it. For me, there is no problem, except the problem with script landscape, where the first page is in portrait.
The problem is not a pdf problem, but an hwgui problem, as it occurs when printing in a pdf, or on the printer.
Have you tried under linux ?
Why are you trying to use WINPRN class ?
INIT PRINTER oPrinter"
Does this use WINPRN Class ?

I think, the information of "alpha.out" is processed by the printer driver.
* Probably, but when creating the script, it opens the print window, and if printing, there is not the default.
* It occurs only when opening the script that we save with hwgui.

If I have time, not for now, I will create a test program.

A+

#207 Bus with printing using a printer script.

Wilfried Brunken — Mon, 25 Aug 2025 15:59:54 -0000

Hello Alain,
i need some info about the format of the scipt file "alpha.out".
First i thought, it is Post Script, i installed the GhostWriter and try to open the file.
but only the pure text is displayed.

Can you send more info (or some links in the Internet) ?
Or another idea ?

On Windows, i had no success to display the printout with Print2PDF.

With the WinPRN sample the printout appears OK, but
the WINPRN class has no method "LoadScript".
By calling the method "StartDoc(), file dialog for the PDF file
appeared and the PDF is created in the current directory.

I think, the information of "alpha.out" is processed by the printer driver.

With regards

MNI TNX, 73 es 55 de

Wilfried, DF7BE

#207 Bus with printing using a printer script.

Aupeix Alain — Tue, 19 Aug 2025 18:50:05 -0000

Hi, Wilfried,
I try your ticket, but it doesn't open the printer.

If I comment the line : oPrinter:lpreview := .T., it opens the printer, and I can print on the laser, or print in a pdf. But, obviously, the bug concerning the first page in portrait mode instead of landscape is always here.

There is a long time I haven't used Windows, and I don't know if it's possible, as under Linux, to print in a pdf. But the bug is always present when printing on a real printer, and I suppose and hope that with HwGUI Windows you're able to print this script on a printer. In this case you're perhaps able to see the bug, if it's the same as under linux.

Thanks
A+