jufer,

Recompilaste la lib con las versiones que tienes?

saludos

Hola William,

Muchas gracias por grande ayuda. Fuie espectacular.

Recompile las lib Tsbrow910 e tsbutt910 com meo proyecto.

Pero hay um pequeno error: Error:
Unresolved external '_HB_FUN_OLEUNINITIALIZE' referenced from C:\FIVETECH\XHARBOUR\LIB\TSBROW910.LIB|TSBROWSE

Puedes ayudar-me?

Saludos,

Jufer

Estou a tentar compilar um exemplo de menu e está dando um erro:

Warning BASE/1004 Message not found: TMENU:L2007 Arguments: () (Quit)
Warning BASE/1004 Message not found: TMENU:L2007 Arguments: ()

Error at ...: TMDIFRAME:DRAWITEM(1133) in Module: .\source\classes\WINDOW.PRG
Called from : TMENU:MSGNOTFOUND(205) in Module: source\rtl\tobject.prg
Called from : TMENU:L2007(0) in Module: source\rtl\tobject.prg
Called from : TMDIFRAME:DRAWITEM(1133) in Module: .\source\classes\WINDOW.PRG
Called from : TMDIFRAME:HANDLEEVENT(0) in Module:
Called from : _FWH(3347) in Module: .\source\classes\WINDOW.PRG
Called from : SHOWWINDOW(0) in Module:
Called from : TMDIFRAME:ACTIVATE(949) in Module: .\source\classes\WINDOW.PRG
Called from : MAIN(67) in Module: C:\FIVETECH\MENUSAT\PRG\TESTMENU.PRG

Não sei como resolver este problema por isso peço a alguém que me ensine como resolver.

Muito obrigado

Jufer

Jufer,

> Estou a tentar compilar um exemplo de menu e está dando um erro

Puedes poner aqui el código fuente para que lo probemos ? gracias

Como pediste junto o código de TESTMENU.PRG, é um exeemplo de Arturo Tomayo:

include "FiveWin.ch"

include "Splitter.ch"

static oWnd, oTree
static oMru1, oMru2, oMru3
Static cColorPan
//----------------------------------------------------------------------------//

function Main()

local oBar, oItem1, oItem2, oImageList, oSplit
local oMenuNew, oSay
Local cClrDegrIni,cClrDegrFin
Local cClrSelIni,cClrSelFin,cClrSelTxt,cClrSelBor
Local cClrMenu,cClrMenuTxt

  cClrDegrFin := LightColor(60,getsysColor(2))
  cClrDegrIni:= LightColor(230,cClrDegrFin)
  cColorPan  := LightColor(150,cClrDegrFin)
  cClrMenu:= CLR_WHITE
  cClrMenuTxt:= CLR_BLACK
  cClrSelFin:= RGB(128,128,192)
  cClrSelIni:= RGB(128,128,192)
  cClrSelTxt:= CLR_BLACK
  cClrSelBor:= CLR_BLACK
  cClrDegrFin := LightColor(60,RGB(160,160,80))
  cClrDegrIni:= LightColor(230,cClrDegrFin)

DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 MDI ;
TITLE " Ejemplo de Menus" // ; MENU BuildMenu()

DEFINE BUTTONBAR oBar SIZE 24, 27 OF oWnd _3D

MENU oMenuNew POPUP ;
COLORMENU cClrMenu,cClrMenuTxt ;
COLORBMP cClrDegrFin,cClrDegrIni;
COLORSELECT cClrSelIni,cClrSelFin,cClrSelTxt ;
COLORSEPARATOR cClrSelBor

  MENUITEM "New &Dialog" RESOURCE "Dialog"
  MENUITEM "New &Bitmap" 
  MENUITEM "New &Bitmap" 
  MENUITEM "New &Bitmap" 
  SEPARATOR
  MENUITEM "New &Icon"   RESOURCE "Icon"

ENDMENU

DEFINE BUTTON OF oBar ;
TOOLTIP "New" NOBORDER RESOURCE "New" MENU oMenuNew

DEFINE BUTTON OF oBar ;
TOOLTIP "Open" NOBORDER RESOURCE "Open"

DEFINE BUTTON OF oBar ;
TOOLTIP "Save" NOBORDER RESOURCE "Save"

DEFINE BUTTON OF oBar GROUP ;
TOOLTIP "Exit" NOBORDER RESOURCE "Exit" ACTION oWnd:End()

SET MESSAGE OF oWnd TO "Ready" NOINSET CLOCK DATE KEYBOARD

ACTIVATE WINDOW oWnd ;
ON INIT ( _colorMenu(ownd:hwnd,cColorPan,.t.) ) ;
VALID MsgYesNo( "Want to end ?" )

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

local oMenu
Local cClrDegrIni,cClrDegrFin
Local cClrSelIni,cClrSelFin,cClrSelTxt,cClrSelBor
Local cClrMenu,cClrMenuTxt
Local cPrompt := " "

  cClrDegrFin := LightColor(60,getsysColor(2))
  cClrDegrIni:= LightColor(230,cClrDegrFin)
  cColorPan  := LightColor(150,cClrDegrFin)
  cClrMenu:= GetSysColor(4) //RGB(224,255,255)
  cClrMenuTxt:= CLR_BLACK
  cClrSelFin:= RGB(255,238,194)
  cClrSelIni:= RGB(255,238,194)
  cClrSelTxt:= CLR_BLACK
  cClrSelBor:= CLR_BLACK

MENU oMenu MENUBAR;
COLORMENU cColorPan,cClrMenuTxt ;
COLORBMP cClrDegrFin,cClrDegrIni;
COLORSELECT cClrDegrIni,cClrDegrFin,cClrSelTxt;
COLORSEPARATOR cClrDegrFin

  MENUITEM "&Archivos" RESOURCE "new"

  MENU ;
    COLORMENU    cClrMenu,cClrMenuTxt;
    COLORBMP     cClrDegrFin,cClrDegrIni; 
    COLORSELECT  cClrSelIni,cClrSelFin,cClrSelTxt;
    COLORSEPARATOR cClrSelBor

     MENUITEM "&Nuevo item Mru"  RESOURCE "new" ;
        ACTION ( MsgGet( "Write something", "Whatever...", @cPrompt ),;
                 oMru1:Save( cPrompt ) )

     MENUITEM "&Open" RESOURCE "Open" ;
        ACTION ( _colorSUbMenu(ownd:hwnd,getsysColor(2)) )

     MENUITEM "&New"  RESOURCE "new" ;
        ACTION ( _colorMenu(ownd:hwnd,RGB(163,194,245),.f.) )

     MENUITEM "&Child"  RESOURCE "new" ;
        ACTION ( child1() )

     MENUITEM "&New"  RESOURCE "new itemmm" DISABLED;


     MRU oMru1 ;
        FILENAME ".\TestMru.ini" ;     // .INI to manipulate. '\.' for local
        SECTION  "MRU-Customer" ;      // The name of the INI section
        ACTION   MsgInfo( cMruItem ) ; // cMruItem is automatically provided
        MESSAGE  "Show this item..." ; // The message for all of them
        SIZE     10

     SEPARATOR

     MENUITEM "&Limpiar la Lista MRU" ACTION oMru1:Clear()

     MENUITEM "&Salve como..." RESOURCE "save"

        cClrDegrFin := RGB(0,128,64) //LightColor(60,getsysColor(2))
        cClrDegrIni:= LightColor(230,cClrDegrFin)
        cClrMenu:= RGB(147,220,171)
        cClrMenuTxt:= CLR_BLACK
        cClrSelIni:= RGB(149,202,255)
        cClrSelFin:= RGB(149,202,255)
        cClrSelTxt:= CLR_BLACK
        cClrSelBor:= CLR_BLACK

        MENU ;
          COLORMENU    cClrMenu,cClrMenuTxt;
          COLORBMP     cClrDegrFin,cClrDegrIni; 
          COLORSELECT  cClrSelIni,cClrSelFin,cClrSelTxt;
          COLORSEPARATOR cClrSelBor

           MENUITEM "&Nuevo item"  RESOURCE "new" ;
               ACTION ( _colorMenu(ownd:hwnd,RGB(163,194,245),.f.) ) //WHEN .F.
           MENUITEM "&Open" RESOURCE "Open" ;
               ACTION ( _colorSUbMenu(ownd:hwnd,getsysColor(2)) )

           MENUITEM "&New hdgjh sdagjhgsda"  RESOURCE "new" 
           SEPARATOR
           MENUITEM "&Nuevo proceso"  
           MENUITEM "&Abri"    
           MENUITEM "&Nuevo" CHECK
           MENUITEM "&Open"    
           SEPARATOR
           MENUITEM "&Salve como..." RESOURCE "save"
        ENDMENU
     SEPARATOR
     MENUITEM "&Salir..." ACTION oWnd:End() RESOURCE "Exit"
  ENDMENU

  MENUITEM "&Editar"

  cClrDegrFin := RGB(96,149,174)
  cClrDegrIni := LightColor(230,cClrDegrFin)
  cClrMenu    := RGB(147,220,171)
  cClrMenuTxt := CLR_BLACK
  cClrSelIni  := RGB(255,238,194)
  cClrSelFin  := RGB(255,238,294)
  cClrSelTxt  := CLR_BLACK
  cClrSelBor  := CLR_BLACK

  MENU ;
        COLORMENU    cClrMenu,cClrMenuTxt;
        COLORBMP     cClrDegrFin,cClrDegrIni; 
        COLORSELECT  cClrSelIni,cClrSelFin,cClrSelTxt;
        COLORSEPARATOR cClrSelBor
     MENUITEM "&Nuevo"  CHECK
     MENUITEM "&Open"    
     MENUITEM "&1" RESOURCE "save"  DISABLED
     MENUITEM "&2"    WHEN .F.
     MENUITEM "&3"    
     MENUITEM "&4"    
     MENUITEM "&5"    
     SEPARATOR
     MENUITEM "&Salve como..." RESOURCE "save" 
  ENDMENU

  MENUITEM "&Modifcar"

  cClrDegrFin := RGB(96,149,174)
  cClrDegrIni := RGB(96,149,174)
  cClrMenu    := CLR_YELLOW
  cClrMenuTxt := CLR_BLACK
  cClrSelIni  := RGB(255,238,194)
  cClrSelFin  := RGB(255,238,294)
  cClrSelTxt  := CLR_BLACK
  cClrSelBor  := CLR_BLACK

  MENU  ;
          COLORMENU    cClrMenu,cClrMenuTxt;
          COLORBMP     cClrDegrFin,cClrDegrIni; 
          COLORSELECT  cClrSelIni,cClrSelFin,cClrSelTxt;
          COLORSEPARATOR cClrSelBor
     MENUITEM "&Nuevo proceso"  
     MENUITEM "&Abri"    
     MENUITEM "&Nuevo" CHECK
     MENUITEM "&Open"    
     SEPARATOR
     MENUITEM "&Nuevo proceso"  
     MENUITEM "&Abri"    
     MENUITEM "&Nuevo" CHECK
     MENUITEM "&Open"    
     SEPARATOR
     MENUITEM "&Salve como..." RESOURCE "save" 
  ENDMENU

  oMenu:AddHelp( "FiveWin Resources Editor", "FiveTech 1993-2000" )

ENDMENU

return oMenu

//----------------------------------------------------------------------------//

function Child1()

local oWndChild, oDlg, oBtn
local cName := "Testing..."
Local cAlias := "A"+ALLTRIM(cTempFile())
LOCAl oBar

DEFINE WINDOW oWndChild MDI; // OF oWnd ;
MENU BuildMenu() ;

DEFINE BUTTONBAR oBar OF oWndChild SIZE 24,26 3D

DEFINE BUTTON OF oBar TOOLTIP "Salir";
MESSAGE "Ventana de MDI" ACTION oWndChild:End()

// oWndChild:bKeyDown := {|nkey,nFlag| IIF(nKey == 27, oWndChild:End(), .T.)}

ACTIVATE WINDOW oWndChild ;
ON INIT ( _colorMenu(owndChild:hwnd,cColorPan,.t.) );
valiD(msgyesno("¨Salimos?"))

return nil

//----------------------------------------------------------------------------//
procedure AppSys // Xbase++ requirement

return

//----------------------------------------------------------------------------//

Muchas gracias

Saludos

Jufer FWH9.10

Jufer,

No tienes un ejemplo que use el menu estandard de FWH ? gracias

Não tenho um exemplo standard de FWH. Podes enviar-me??
Não posso usar este exemplo do TESTMENU.PRG??

Saludos

Jufer

FWH9.10

Jufer,

Aqui tienes ese ejemplo modificado para usar la claúsula 2007 de los menus en FWH:

Está dando um erro:

C:\FIVETECH\MENUSAT\PRG\TESTMENU.PRG(35) Error E0022 Invalid lvalue: 'Numeric'

Saludos

Jufer

FWH9.10

Jufer,

Comprueba que estés usando menu.ch de FWH y no otro distinto.

Aqui funciona bien y se ve así:

Gracias por contestarme.

Coloquei:

include "MENU.CH" (dá o mesmo erro)

"MENUS.CH" não existe em \FWH\include

Saludos

Jufer

Perdoname.

Agora está a dar um warning:

C:\FIVETECH\MENUSAT\PRG\TESTMENU.PRG(86) Warning W0001 Ambiguous reference: 'MENUBAR'

Saludos

Jufer

Jufer,

Faltaban unos cambios en el ejemplo. Ahora esta correcto:

Agora compila correctamente e sem erro, simplesmente quando executa abre e fecha o programa sem fixar (mostrar) o display.

Saludos

Jufer

Jufer,

Usa FWH\samples\buildx.bat para construirlo. Aqui se construye el EXE bien y funciona correctamente: