e7d2031895
* contrib/make_b32_all.bat
* contrib/make_vc_all.bat
* contrib/Makefile
- contrib/telepath
+ contrib/hbtpathy
* contrib/hbtpathy/common.mak
* contrib/hbtpathy/Makefile
- contrib/what32
+ contrib/hbwhat32
- contrib/win32
+ contrib/hbw32
* contrib/hbw32/common.mak
* contrib/hbw32/Makefile
- contrib/adordd
+ contrib/hbrddado
- contrib/gtwvg
+ contrib/hbgtwvg
- contrib/rdd_ads
+ contrib/hbrddads
- contrib/tip
+ contrib/hbtip
* contrib/hbtip/common.mak
* contrib/hbtip/Makefile
- contrib/bmdbfcdx
+ contrib/hbbmcdx
* contrib/hbct/Makefile
* contrib/hbct/common.mak
* contrib/hbgt/common.mak
* contrib/hbgt/Makefile
* contrib/hbnf/common.mak
* contrib/hbnf/Makefile
* Contrib lib rename finished.
; Please report build (or other) problems.
395 lines
9.9 KiB
C
395 lines
9.9 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
|
|
// Menu functions
|
|
|
|
|
|
#define _WIN32_WINNT 0x0400
|
|
|
|
#include <windows.h>
|
|
#include <shlobj.h>
|
|
//#include <commctrl.h>
|
|
|
|
#include "hbapi.h"
|
|
#include "hbvm.h"
|
|
#include "hbstack.h"
|
|
#include "hbapiitm.h"
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( APPENDMENU )
|
|
{
|
|
hb_retl( AppendMenu( (HMENU) hb_parnl(1), hb_parni(2), hb_parni(3), hb_parcx(4)) ) ;
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( CHECKMENUITEM )
|
|
{
|
|
hb_retnl( CheckMenuItem((HMENU) hb_parnl(1), hb_parni(2), hb_parni(3)) ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( CREATEMENU )
|
|
{
|
|
hb_retnl( (LONG) CreateMenu() ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( CREATEPOPUPMENU )
|
|
{
|
|
hb_retnl( (LONG) CreatePopupMenu() ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( DELETEMENU )
|
|
{
|
|
hb_retl( DeleteMenu( (HMENU) hb_parnl(1), hb_parni(2), hb_parni(3) ) );
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( DESTROYMENU )
|
|
|
|
{
|
|
hb_retl( DestroyMenu( (HMENU) hb_parnl(1) ) ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( GETMENU )
|
|
|
|
{
|
|
hb_retnl( (LONG) GetMenu( (HWND) hb_parnl(1) ) ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( GETMENUITEMID )
|
|
{
|
|
hb_retni( GetMenuItemID(
|
|
(HMENU) hb_parnl( 1 ), // handle to menu
|
|
(int) hb_parni( 2 ) // position of menu item
|
|
) ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( DRAWMENUBAR )
|
|
{
|
|
hb_retl( DrawMenuBar( (HWND) hb_parnl(1))) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( ENABLEMENUITEM )
|
|
{
|
|
hb_retl( EnableMenuItem( (HMENU) hb_parnl(1), hb_parni(2), hb_parni(3) ) ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( GETMENUSTATE )
|
|
{
|
|
hb_retni( GetMenuState( (HMENU) hb_parnl(1), hb_parni(2), hb_parni(3)) ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( GETMENUSTRING )
|
|
{
|
|
char cText[MAX_PATH+1] ={0};
|
|
|
|
GetMenuString( (HMENU) hb_parnl(1), hb_parni(2),(LPSTR) cText, MAX_PATH, hb_parni(3) );
|
|
|
|
hb_retc( cText );
|
|
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( HILITEMENUITEM )
|
|
{
|
|
hb_retl( HiliteMenuItem( (HWND) hb_parnl(1), (HMENU) hb_parnl(2), hb_parni(3), hb_parni(4)) ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( INSERTMENU )
|
|
{
|
|
hb_retl( InsertMenu( (HMENU) hb_parnl(1), hb_parni(2), hb_parni(3), hb_parni(4), hb_parcx(5)) );
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( SETMENUITEMBITMAPS )
|
|
{
|
|
hb_retl( SetMenuItemBitmaps( (HMENU) hb_parnl(1), hb_parni(2), hb_parni(3), (HBITMAP) hb_parnl(4), (HBITMAP) hb_parnl(5)) );
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( GETMENUITEMCOUNT )
|
|
{
|
|
hb_retni( GetMenuItemCount( (HMENU) hb_parnl(1) )) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( SETMENU )
|
|
{
|
|
hb_retl( SetMenu ((HWND) hb_parnl(1), (HMENU) hb_parnl(2) ) );
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( GETSUBMENU )
|
|
{
|
|
hb_retnl( (LONG) GetSubMenu( (HMENU) hb_parnl(1), hb_parni(2)) );
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( TRACKPOPUPMENU )
|
|
{
|
|
RECT rc ;
|
|
|
|
if (!ISNIL(7)) {
|
|
rc.left = hb_parni(7,1);
|
|
rc.top = hb_parni(7,2);
|
|
rc.right = hb_parni(7,3);
|
|
rc.bottom = hb_parni(7,4);
|
|
}
|
|
hb_retnl( TrackPopupMenu((HMENU) hb_parnl(1), hb_parni(2), hb_parni(3), hb_parni(4),
|
|
hb_parni(5), (HWND) hb_parnl(6), (ISNIL(7) ? NULL : &rc) ) ) ;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
HB_FUNC( GETSYSTEMMENU )
|
|
{
|
|
hb_retnl( (LONG) GetSystemMenu( (HWND) hb_parnl(1), hb_parl(2) ) );
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI HMENU WINAPI LoadMenuA( IN HINSTANCE hInstance, IN LPCSTR lpMenuName);
|
|
|
|
|
|
HB_FUNC( LOADMENU )
|
|
{
|
|
hb_retnl( (LONG) LoadMenu( (HINSTANCE) hb_parnl( 1 ), (LPCSTR) hb_parcx( 2 ) ) ) ;
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
// WINUSERAPI HMENU WINAPI LoadMenuIndirectA( IN CONST MENUTEMPLATEA *lpMenuTemplate);
|
|
|
|
HB_FUNC( LOADMENUINDIRECT )
|
|
{
|
|
MENUTEMPLATE *mt =(MENUTEMPLATE * ) hb_parc( 1 ); //hb_param( 1, HB_IT_STRING )->item.asString.value;
|
|
|
|
hb_retnl( (LONG) LoadMenuIndirect( mt ) ) ;
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI ChangeMenuA( IN HMENU hMenu, IN UINT cmd, IN LPCSTR lpszNewItem, IN UINT cmdInsert, IN UINT flags);
|
|
|
|
HB_FUNC( CHANGEMENU )
|
|
{
|
|
hb_retl( ChangeMenu( (HMENU) hb_parnl( 1 ),
|
|
(UINT) hb_parni( 2 ) ,
|
|
(LPCSTR) hb_parcx( 3 ),
|
|
(UINT) hb_parni( 4 ) ,
|
|
(UINT) hb_parni( 5 )
|
|
) ) ;
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI RemoveMenu( IN HMENU hMenu, IN UINT uPosition, IN UINT uFlags);
|
|
|
|
HB_FUNC( REMOVEMENU )
|
|
{
|
|
hb_retl( RemoveMenu( (HMENU) hb_parnl( 1 ),
|
|
(UINT) hb_parni( 2 ) ,
|
|
(UINT) hb_parni( 3 )
|
|
) ) ;
|
|
}
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI LONG WINAPI GetMenuCheckMarkDimensions( VOID);
|
|
|
|
|
|
HB_FUNC( GETMENUCHECKMARKDIMENSIONS )
|
|
{
|
|
hb_retnl( (LONG) GetMenuCheckMarkDimensions( ) ) ;
|
|
}
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI ModifyMenuA( IN HMENU hMnu, IN UINT uPosition, IN UINT uFlags, IN UINT_PTR uIDNewItem, IN LPCSTR lpNewItem );
|
|
|
|
/*
|
|
|
|
HB_FUNC( MODIFYMENU )
|
|
{
|
|
UINT_PTR uIDNewItem ;
|
|
|
|
// Your code goes here
|
|
|
|
hb_retl( ModifyMenu( (HMENU) hb_parnl( 1 ),
|
|
(UINT) hb_parni( 2 ) ,
|
|
(UINT) hb_parni( 3 ) ,
|
|
uIDNewItem ,
|
|
(LPCSTR) hb_parcx( 5 )
|
|
) ) ;
|
|
}
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI GetMenuInfo( IN HMENU, OUT LPMENUINFO);
|
|
|
|
/*
|
|
|
|
HB_FUNC( GETMENUINFO )
|
|
{
|
|
LPMENUINFO lpmenuInfo ;
|
|
|
|
// Your code goes here
|
|
|
|
hb_retl( GetMenuInfo( (HMENU) hb_parnl( 1 ), lpmenuInfo ) ) ;
|
|
}
|
|
|
|
*/
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI SetMenuInfo( IN HMENU, IN LPCMENUINFO);
|
|
|
|
|
|
/*
|
|
HB_FUNC( SETMENUINFO )
|
|
{
|
|
LPCMENUINFO lpcmenuInfo =(LPCMENUINFO) hb_param( 2, HB_IT_STRING )->item.asString.value;
|
|
hb_retl( SetMenuInfo( (HMENU) hb_parnl( 1 ), lpcmenuInfo ) ) ;
|
|
}
|
|
*/
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI EndMenu( VOID);
|
|
|
|
#if (WINVER >=0x0500)
|
|
HB_FUNC( ENDMENU )
|
|
{
|
|
hb_retl( EndMenu() ) ;
|
|
}
|
|
#endif
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI InsertMenuItemA( IN HMENU, IN UINT, IN BOOL, IN LPCMENUITEMINFOA );
|
|
|
|
|
|
|
|
HB_FUNC( INSERTMENUITEM )
|
|
{
|
|
LPCMENUITEMINFOA lpcmenuitemInfoa =(LPCMENUITEMINFOA) hb_parc( 4 ); //hb_param( 4, HB_IT_STRING )->item.asString.value;
|
|
|
|
hb_retl( InsertMenuItem( (HMENU) hb_parnl( 1 ),
|
|
(UINT) hb_parni( 2 ) ,
|
|
hb_parl( 3 ) ,
|
|
lpcmenuitemInfoa
|
|
) ) ;
|
|
}
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI GetMenuItemInfoA( IN HMENU, IN UINT, IN BOOL, IN OUT LPMENUITEMINFOA );
|
|
|
|
|
|
|
|
HB_FUNC( GETMENUITEMINFO )
|
|
{
|
|
LPCMENUITEMINFOA lpcmenuitemInfoa =(LPCMENUITEMINFOA) hb_parc( 4 ); //hb_param( 4, HB_IT_STRING )->item.asString.value;
|
|
hb_retl( GetMenuItemInfo( (HMENU) hb_parnl( 1 ),
|
|
(UINT) hb_parni( 2 ) ,
|
|
hb_parl( 3 ) ,
|
|
( struct tagMENUITEMINFOA * ) lpcmenuitemInfoa
|
|
) ) ;
|
|
}
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI SetMenuItemInfoA( IN HMENU, IN UINT, IN BOOL, IN LPCMENUITEMINFOA );
|
|
|
|
|
|
|
|
HB_FUNC( SETMENUITEMINFO )
|
|
{
|
|
LPCMENUITEMINFOA lpcmenuitemInfoa =(LPCMENUITEMINFOA) hb_parc( 4 ); //hb_param( 4, HB_IT_STRING )->item.asString.value;
|
|
hb_retl( SetMenuItemInfo( (HMENU) hb_parnl( 1 ),
|
|
(UINT) hb_parni( 2 ) ,
|
|
hb_parl( 3 ) ,
|
|
lpcmenuitemInfoa
|
|
) ) ;
|
|
}
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// WINUSERAPI BOOL WINAPI GetMenuBarInfo( IN HWND hwnd, IN LONG idObject, IN LONG idItem, OUT PMENUBARINFO pmbi );
|
|
|
|
/*
|
|
|
|
HB_FUNC( GETMENUBARINFO )
|
|
{
|
|
PMENUBARINFO pmbi ;
|
|
|
|
// Your code goes here
|
|
|
|
hb_retl( GetMenuBarInfo( (HWND) hb_parnl( 1 ),
|
|
hb_parnl( 2 ) ,
|
|
hb_parnl( 3 ) ,
|
|
pmbi
|
|
) ) ;
|
|
}
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
//BOOL CheckMenuRadioItem( HMENU hmenu, UINT idFirst, UINT idLast, UINT idCheck, UINT uFlags );
|
|
|
|
HB_FUNC( CHECKMENURADIOITEM )
|
|
{
|
|
hb_retl( CheckMenuRadioItem( (HMENU) hb_parnl( 1 ), (UINT) hb_parni(2),
|
|
(UINT) hb_parni(3), (UINT) hb_parni(4), (UINT) hb_parni(5) ) ) ;
|
|
}
|
|
|
|
HB_FUNC( ISMENU )
|
|
{
|
|
hb_retl( IsMenu((HMENU) hb_parnl(1) ) );
|
|
}
|
|
|