FiveTech Software tech support forums

this run Perfectly

procedure DisableX2(ODLG)
local hMenu
hMenu := GetSystemMenu(oDlg:hWnd,.f.)
RemoveMenu( hMenu, 6, MF_BYPOSITION)
return

You don't need to call SHCreateMenuBar() as FWPPC does it automatically. It seems as something has changed in Windows CE 6. We are testing this now: https://social.msdn.microsoft.com/Forums/expression/en-US/54f8233f-fc57-48eb-a7e1-3405ec4266dc/shcreatemenubar-fails-in-windows-mobile-...

METHOD SelItem( nPos ) INLINE MenuSelItem( ::hMenu, ::aItems[ nPos ]:hMenuItem )

HB_FUNC( MENUSELITEM )
{
gtk_menu_shell_select_item( ( GtkMenuShell * ) hb_parnl( 1 ), ( GtkWidget * ) hb_parnl( 2 ) );
}

Cristobal, some compiler Errors in menudraw.c: You must calculate the error-linenumber -9 as i compile with #pragma begindump! Warnung W8004 C:\\prg_allgemein\\menudraw.prg 1699: 'nPos' wurde ein Wert zugewiesen, der nie verwendet wird in Funktion FwSelectedItem(tagDRAWITEMSTRUCT *,HMENU__ *,int,lon...

... ) METHOD incrustar_calculadora( ocontainer ) METHOD Incrustar( hwnd ) METHOD liberar_programa( hwnd ) METHOD GetMenu( hwnd ) METHOD DeleteMenu( hmenu, nposition, wflags ) METHOD GetMenuItemCount( hmenu ) METHOD DrawMenuBar( hwnd ) METHOD GetWindowLong( hwnd, nindex ) METHOD SetWindowLong( hwnd, ...

Solução encontrada pelo Sr. Cristobal, problema solucionado!

Muito obrigado!

Prueba lo siguiente:

Linea 1136 - MENU.PRG



ADD line:

if IsThemeActive()
MITemsFw( ::hMenu, 0, aHBmps, ::lSysMenu )
endif

... FILE .\obj\oops FILE .\obj\browse FILE .\obj\euro FILE .\obj\budget FILE .\obj\html FILE .\obj\div1 FILE .\obj\div2 FILE .\obj\div3 FILE .\obj\hmenu FILE .\obj\kostpr FILE .\obj\snelcalc FILE .\obj\prbudget FILE .\obj\brutow FILE .\obj\monsters FILE .\obj\alloc FILE .\obj\pr_overz FILE .\obj\vis ...

... properly initializing l2007 and l2010 for submenus, so this is the right code: static function ResBuild( oMenu ) ... if ( hSubMenu := GetSubMenu( hMenu, n - 1 ) ) != 0 oSubMenu = TMenu() oSubMenu:l2007 = oMenu:l2007 // new oSubMenu:l2010 = oMenu:l2010 // new oSubMenu:hMenu = hSubMenu oSubMenu:lSysMenu ...

Hello, is it possible to reactivate a menu-item after it is disabled using RemoveMenu( ... ? The system-exit-button is disabled using : hMenu := GetSystemMenu( oWinDlg:hWnd, .F. ) nCount := GetMItemCount( hMenu ) RemoveMenu( hMenu, nCount-1, nOR( 1024 ) ) how to activate X again at runtime ...

...  2387  3300  3304  3311  3312G 3314  3314  3359                   3359  3368 HICON                  WINDOW.PRG      750   835   952  1183  2920 HMENU                  WINDOW.PRG      840  1188  1510  1516  1735  1735  1767 HORIZONTAL              WINDOW.PRG     1199 HPALETTE                WINDOW.PRG ...

... en la creación del ::aKeyCon, y no lo muestro como código porque no se muestra el mensaje function menuPrincipal    local /*oMenu, */xMenu, nLen, hMenu, cCont    local self := qSelf()    ::aKeyCon := { ;       // Lista de funciones programables "TIPO" => " " , "x"- ...

Gracias, pero no me ayudó

aItems tiene las opciones del menú, pero no se si todas caben en un solo renglón y hMenu no me dio la información wndHeight(), supongo que es porque no es ventana.

A ver si esto te sirve

TMenu
Menu Class
DATA
hMenu The Windows handle of the Menu
aItems An array of MenuItems

Saludos

Cleber,

TrackPopupMenuEx() returns a BOOL (logical) value. From Windows API:

BOOL
WINAPI
TrackPopupMenuEx(
HMENU hmenu,
UINT uFlags,
int x,
int y,
HWND hwnd,
LPTPMPARAMS lptpm);

so FWPPC returns a logical value using hb_retl()

... 0, -29651874, 522, 0, 0, hInst, 0); HWND hCtrl0_0 = CreateWindowEx(0, ("TxBrowse"), (""), 0x50010000, 15, 21, 545, 174, hwnd, (HMENU)700, hInst, 0); SendMessage(hCtrl0_0, WM_SETFONT, (WPARAM)hfont0, FALSE); HWND hCtrl0_1 = CreateWindowEx(0, WC_BUTTON, (""), WS_VISIBLE ...