Re: Error con los aceleradores del menú
Posted: Wed Apr 17, 2013 12:49 am
Antonio ¿alguna noticia sobre este punto?
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=26074
#include "FiveWin.ch"
function main()
local oWnd, oMenu
menu oMenu
menuItem "Diálogo" action verVentana() accelerator ACC_ALT + ACC_CONTROL, asc( "V" )
endMenu
define window oWnd mdi menu oMenu menuInfo 7
// oWnd:bGotFocus = { || msgBeep(), oWnd:oMenu:oAccTable:Activate() }
oWnd:oWndActive:bGotFocus = { || msgBeep(), oWnd:oMenu:oAccTable:Activate() }
activate window oWnd
return nil
function verVentana
local oMenu, oDlg
menu oMenu
menuItem "Hola" action msgInfo( "hola" ) accelerator ACC_NORMAL,VK_F5
endMenu
define dialog oDlg
activate dialog oDlg nowait
oDlg:setMenu( oMenu )
return nil
Application
===========
Path and name: d:\quiquesoft\ide\hbmk2\ejemplo2.exe (32 bits)
Size: 1,652,224 bytes
Compiler version: Harbour 3.2.0dev (r1304100110)
FiveWin Version: FWH 12.03
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/17/13, 13:49:00
Error description: Error BASE/1005 No exported variable: BGOTFOCUS
Args:
[ 1] = U
[ 2] = B {|| ... }
Stack Calls
===========
Called from: => _BGOTFOCUS( 0 )
Called from: ejemplo2.prg => MAIN( 12 )
#include "FiveWin.ch"
function main()
local oWnd, oMenu
menu oMenu
menuItem "Ventana" action ventana( oWnd )
menuItem "Diálogo" action verVentana() accelerator ACC_ALT + ACC_CONTROL, asc( "V" )
endMenu
define window oWnd mdi menu oMenu menuInfo 7
oWnd:bGotFocus = { || msgBeep(), oWnd:oMenu:oAccTable:Activate() }
activate window oWnd
return nil
function verVentana
local oMenu, oDlg
menu oMenu
menuItem "Hola" action msgInfo( "hola" ) accelerator ACC_NORMAL,VK_F5
endMenu
define dialog oDlg
activate dialog oDlg nowait
oDlg:setMenu( oMenu )
return nil
function ventana( oWnd )
local oMdi
define window oMdi mdichild of oWnd
activate window oMdi
oWnd:oWndActive:bGotFocus = { || msgBeep(), oWnd:oMenu:oAccTable:Activate() }
return nil
#include "FiveWin.ch"
function main()
local oWnd, oMenu
menu oMenu
menuItem "Ventana" action ventana( oWnd )
menuItem "Diálogo" action verVentana() accelerator ACC_NORMAL,VK_F5
endMenu
define window oWnd mdi menu oMenu menuInfo 7
oWnd:oWndClient:bGotFocus = { || msgBeep(), oWnd:oMenu:oAccTable:Activate() }
activate window oWnd
return nil
function verVentana
local oMenu, oDlg
menu oMenu
menuItem "Hola" action msgInfo( "hola" ) accelerator ACC_NORMAL,VK_F5
endMenu
define dialog oDlg
activate dialog oDlg nowait
oDlg:SetMenu( oMenu )
WndMain():oWndClient:SetFocus()
oDlg:SetFocus()
return nil
function ventana( oWnd )
local oMdi
define window oMdi mdichild of oWnd
activate window oMdi
return nil
menuItem hIdioma:mnuImprimir action ::oWnd:print() //ACCELERATOR ACC_CONTROL, asc( "P" )
menuItem hIdioma:mnuConfImp action printerSetup() //ACCELERATOR ACC_ALTCTRL, asc( "P" )