/* * $Id$ */ /* * Video subsystem for Win32 using GUI windows instead of Console * with multiple windows support * Copyright 2004 Budyanto Dj. * gtwvw menu Functions * GTWVW is initially created based on: * * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Win32 using GUI windows instead of Console * Copyright 2003 Peter Rees * Rees Software & Systems Ltd * based on * Bcc ConIO Video subsystem by * Copyright 2002 Marek Paliwoda * Copyright 2002 Przemysław Czerpak * Video subsystem for Win32 compilers * Copyright 1999-2000 Paul Tucker * Copyright 2002 Przemysław Czerpak * * The following parts are Copyright of the individual authors. * www - http://harbour-project.org * * * Copyright 1999 David G. Holm * hb_gt_wvw_Tone() * * See doc/license.txt for licensing terms. * * www - http://harbour-project.org * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2, or (at your option ) * any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this software; see the file COPYING. If not, write to * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/ ). * * As a special exception, the Harbour Project gives permission for * additional uses of the text contained in its release of Harbour. * * The exception is that, if you link the Harbour libraries with other * files to produce an executable, this does not by itself cause the * resulting executable to be covered by the GNU General Public License. * Your use of that executable is in no way restricted on account of * linking the Harbour library code into it. * * This exception does not however invalidate any other reasons why * the executable file might be covered by the GNU General Public License. * * This exception applies only to the code released by the Harbour * Project under the name Harbour. If you copy code from other * Harbour Project or Free Software Foundation releases into a copy of * Harbour, as the General Public License permits, the exception does * not apply to the code that you add in this way. To avoid misleading * anyone as to the status of such modified files, you must delete * this exception notice from them. * * If you write modifications of your own for Harbour, it is your choice * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. * */ #include "hbgtwvw.h" /*-------------------------------------------------------------------*/ /*-------------------------------------------------------------------*/ /*-------------------------------------------------------------------*/ /* */ /* Peter Rees */ /* */ /*-------------------------------------------------------------------*/ /*-------------------------------------------------------------------*/ /*-------------------------------------------------------------------*/ HB_FUNC( WVW_SETMENU ) { UINT usWinNum = WVW_WHICH_WINDOW; WIN_DATA * pWinData = hb_gt_wvw_GetWindowsData( usWinNum ); SetMenu( pWinData->hWnd, ( HMENU ) HB_PARHANDLE( 2 ) ) ; hb_gt_wvwResetWindow( usWinNum ); } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_SETPOPUPMENU ) { UINT usWinNum = WVW_WHICH_WINDOW; WIN_DATA * pWinData = hb_gt_wvw_GetWindowsData( usWinNum ); HMENU hPopup = pWinData->hPopup ; pWinData->hPopup = ( HMENU ) HB_PARHANDLE( 2 ); /* if ( hPopup ) */ { HB_RETHANDLE( hPopup ); } } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_CREATEMENU ) { HB_RETHANDLE( CreateMenu() ) ; } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_CREATEPOPUPMENU ) { HB_RETHANDLE( CreatePopupMenu() ) ; } /*-------------------------------------------------------------------*/ /* WVW_APPENDMENU( hMenu, nFlags, nMenuItemId, cCaption ) */ HB_FUNC( WVW_APPENDMENU ) { char ucBuf[ 256 ]; int i,iLen ; LPCTSTR lpszCaption; if ( !(hb_parni(2) & (MF_SEPARATOR|MF_POPUP)) && (hb_parni(3) >= WVW_ID_BASE_PUSHBUTTON ) ) { MessageBox( NULL, TEXT( "Menu Command Id too high. Potential conflict with pushbutton" ), hb_gt_wvw_GetAppName(), MB_ICONERROR ); hb_retl( FALSE ); return; } if ( ISCHAR( 4 ) ) { iLen = hb_parclen( 4 ); if ( iLen > 0 && iLen < 256 ) { lpszCaption = hb_parcx( 4 ) ; for ( i=0; i< iLen ; i++ ) { ucBuf[ i ] = ( *lpszCaption == '~' ) ? '&' : *lpszCaption ; lpszCaption++; } ucBuf[ iLen ]= '\0'; lpszCaption = ucBuf ; } else { lpszCaption = hb_parcx( 4 ) ; } } else { lpszCaption = ( LPCTSTR ) hb_parni( 4 ) ; } hb_retl( AppendMenu( ( HMENU ) HB_PARHANDLE( 1 ), ( UINT ) hb_parni( 2 ), ( UINT_PTR ) hb_parni( 3 ),( LPCTSTR ) lpszCaption ) ) ; } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_DELETEMENU ) { hb_retl( DeleteMenu( ( HMENU ) HB_PARHANDLE( 1 ), ( UINT ) hb_parni( 2 ), ( UINT ) hb_parni( 3 ) ) ); } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_DESTROYMENU ) { hb_retl( DestroyMenu( ( HMENU ) HB_PARHANDLE( 1 ) ) ); } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_ENABLEMENUITEM ) { hb_retni( EnableMenuItem( ( HMENU ) HB_PARHANDLE( 1 ), ( UINT ) hb_parni( 2 ), ( UINT ) hb_parni( 3 ) ) ); } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_GETLASTMENUEVENT ) { UINT usWinNum = WVW_WHICH_WINDOW; hb_retni( hb_gt_wvwGetLastMenuEvent( usWinNum ) ) ; } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_SETLASTMENUEVENT ) { UINT usWinNum = WVW_WHICH_WINDOW; hb_retni( hb_gt_wvwSetLastMenuEvent( usWinNum, hb_parni(2) ) ); } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_SETMENUKEYEVENT ) { UINT usWinNum = WVW_WHICH_WINDOW; int iEvent = 0; if ( ISNUM( 2 ) ) { iEvent = hb_parnl( 2 ) ; } hb_retni( hb_gt_wvwSetMenuKeyEvent( usWinNum, iEvent ) ) ; } // WVW_MENUITEM_SETBITMAPS( // hMenu, // nIDEnableItem, // nPosition, // ncBitmapUnchecked, // ncBimapChecked ) // HB_FUNC ( WVW_MENUITEM_SETBITMAPS ) { HBITMAP hBitmapUnchecked = NULL; HBITMAP hBitmapChecked = NULL; char szResname[_MAX_PATH+1]; int iWidth, iHeight; if ( !ISNIL(4) ) { if ( ISNUM(4) ) { sprintf( szResname, "?%u", hb_parni(4) ); hBitmapUnchecked = FindBitmapHandle(szResname, &iWidth, &iHeight); if (!hBitmapUnchecked) { hBitmapUnchecked = (HBITMAP)LoadImage(hb_getWvwData()->hInstance,(LPCTSTR) MAKEINTRESOURCE( (WORD) hb_parni(4) ),IMAGE_BITMAP,0,0, LR_DEFAULTCOLOR); AddBitmapHandle(szResname, hBitmapUnchecked, iWidth, iHeight); } } else { hBitmapUnchecked = FindBitmapHandle(hb_parcx(4), &iWidth, &iHeight); if (!hBitmapUnchecked) { hBitmapUnchecked = (HBITMAP)LoadImage(hb_getWvwData()->hInstance, hb_parcx(4), IMAGE_BITMAP,0,0, LR_DEFAULTCOLOR); AddBitmapHandle(hb_parcx(4), hBitmapUnchecked , iWidth, iHeight); } } } if ( !ISNIL(5) ) { if ( ISNUM(5) ) { sprintf( szResname, "?%u", hb_parni(5) ); hBitmapChecked = FindBitmapHandle(szResname, &iWidth, &iHeight); if (!hBitmapChecked) { hBitmapChecked = (HBITMAP)LoadImage(hb_getWvwData()->hInstance,(LPCTSTR) MAKEINTRESOURCE( (WORD) hb_parni(5) ),IMAGE_BITMAP,0,0, LR_DEFAULTCOLOR); AddBitmapHandle(szResname, hBitmapChecked, iWidth, iHeight); } } else { hBitmapChecked = FindBitmapHandle(hb_parcx(5), &iWidth, &iHeight); if (!hBitmapChecked) { hBitmapChecked = (HBITMAP)LoadImage(hb_getWvwData()->hInstance, hb_parcx(5), IMAGE_BITMAP,0,0, LR_DEFAULTCOLOR); AddBitmapHandle(hb_parcx(5), hBitmapChecked , iWidth, iHeight); } } } if ( !ISNIL(2) ) { SetMenuItemBitmaps( (HMENU) HB_PARHANDLE(1) , hb_parni(2), MF_BYCOMMAND , (HBITMAP) hBitmapUnchecked, (HBITMAP) hBitmapChecked ) ; } else { SetMenuItemBitmaps( (HMENU) HB_PARHANDLE(1) , hb_parni(3), MF_BYPOSITION , (HBITMAP) hBitmapUnchecked, (HBITMAP) hBitmapChecked ) ; } } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_DRAWMENUBAR ) { UINT usWinNum = WVW_WHICH_WINDOW; WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum ); DrawMenuBar( pWindowData->hWnd ) ; } /*-------------------------------------------------------------------*/ HB_FUNC( WVW_ENDMENU ) { hb_retl( EndMenu() ) ; } /* WVW_GetMenu([nWinNum]) */ HB_FUNC( WVW_GETMENU ) { UINT usWinNum = WVW_WHICH_WINDOW; WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum ); HB_RETHANDLE( GetMenu( pWindowData->hWnd ) ); } /* WVW_TrackPopupMenu([nWinNum], n) */ HB_FUNC( WVW_TRACKPOPUPMENU ) { UINT usWinNum = WVW_WHICH_WINDOW; WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum ); POINT xy = { 0 }; GetCursorPos( &xy ); hb_retnl( TrackPopupMenu( ( HMENU ) HB_PARHANDLE( 2 ) , TPM_CENTERALIGN | TPM_RETURNCMD | TPM_RECURSE, xy.x , xy.y , 0 , pWindowData->hWnd , NULL ) ); } HB_FUNC( WIN_SETMENU ) { SetMenu( ( HWND ) HB_PARHANDLE( 1 ), ( HMENU ) HB_PARHANDLE( 2 ) ) ; } /* *WVW_NOSYSMENU( [nWinNum], lRemoveClose ) *removes System Menu of a window *if lRemoveClose is .t., also removes the 'Close' command and 'X' button * *no return value */ HB_FUNC( WVW_NOSYSMENU ) { UINT usWinNum = WVW_WHICH_WINDOW; BOOL lRemoveClose = ISNIL(2) ? FALSE : hb_parl(2); WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum ); HMENU hMenu = GetSystemMenu(pWindowData->hWnd, FALSE); if (hMenu) { DeleteMenu( hMenu, SC_MAXIMIZE, MF_BYCOMMAND ); DeleteMenu( hMenu, SC_MINIMIZE, MF_BYCOMMAND ); DeleteMenu( hMenu, SC_SIZE, MF_BYCOMMAND ); DeleteMenu( hMenu, SC_MOVE, MF_BYCOMMAND ); DeleteMenu( hMenu, SC_RESTORE, MF_BYCOMMAND ); DeleteMenu( hMenu, SC_NEXTWINDOW, MF_BYCOMMAND ); if (lRemoveClose) { DeleteMenu( hMenu, SC_CLOSE, MF_BYCOMMAND ); DeleteMenu( hMenu, 0, MF_BYPOSITION ); } DrawMenuBar( pWindowData->hWnd ); } } /* WVW_GetSystemMenu( [nWinNum], lReset ) *returns the System Menu of a window *if lRemoveClose is .t., also removes the 'Close' command and 'X' button */ HB_FUNC( WVW_GETSYSTEMMENU ) { UINT usWinNum = WVW_WHICH_WINDOW; WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum ); BOOL lReset = ISNIL(2) ? FALSE : hb_parl(2); hb_retnl( ( ULONG ) GetSystemMenu( pWindowData->hWnd, lReset ) ); }