Page 2 of 2
Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 7:36 pm
by Compuin
karinha wrote:/w0 /p -> generate pre-processed output (.ppo)
Code: Select all | Expand
xHarbour
1.2.3 Intl.
(SimpLex
) (Build
20170215)Copyright
1999-2017, http:
//www.xharbour.org http://www.harbour-project.org/Syntax: C:\XHBBCC72\bin\harbour.exe <file
[s
][.prg
]>
[options
]Options: /a automatic memvar declaration
/b debug info
/build
display detailed version info
/credits
display credits
/d<id>
[=<val>
] #define <id>
/es
[<level>
] set exit severity
/ex create
public function list
(.xbx
) /g<type> output type generated is <type>
(see below
) /gc
[<type>
] output type:
C source
(.c
) (default) <type>:
0=compact
1=
normal 2=verbose
(default) 3=generate real C code
/go output type:
Platform dependant object module
/gh output type:
Harbour Portable Object
(.hrb
) /i<path>
#include file search path
/j
[<file>
] output i18n support
[to <file>
] to .hil
/k compilation mode
(type -k?
for more
data) /l suppress line number information
/m compile module only
/n
[<type>
] no implicit starting procedure
(default) <type>:
0=no implicit starting procedure
1=no starting procedure
at all
2=force application starting procedure
/o<path> object file drive and/or path
/p
[o<path>
] generate pre-processed output
(.ppo
) file in <path>
/
pt[o<path>
] generate pre-processor trace
(.ppt
) file in <path>
/q quiet
/q0 quiet and don
't display program header
/s syntax check only
/u[[+]<file>] use command def set in <file> (or none)
/undef:<id> #undef <id>
/v variables are assumed M->
/vd external functions are assumed as dynamic functions
/w[<level>] set warning level number (0..3, default 1)
/x[<prefix>] set symbol init function name prefix (for .c only)
/z suppress shortcutting (.and. & .or.)
@<file> compile list of modules in <file>
Saludos.
Muchas gracias
Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 7:39 pm
by cnavarro
Y ya que nos ponemos
Si quieres mantener la compatibilidad con el codigo que tienes para no modificarlo, modifica PDMENU.PRG asi ( lo que está en negrita )
oMenuP := LastMenu()
if !empty( oMenuP )
if !lSystem
if Valtype( l2007 ) != "L"
DEFAULT l2007 := .F.
endif
if Valtype( l2010 ) != "L"
DEFAULT l2010 := .F.
endif
if Valtype( l2015 ) != "L"
DEFAULT l2015 := .F.
endif
if Valtype( l2013 ) != "L"
DEFAULT l2013 := .F.
endif
if Valtype( lColors ) != "L"
DEFAULT lColors := .F.
endif
if Valtype( lVert ) != "L"
DEFAULT lVert := .F.
endif
.../...
Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 7:41 pm
by Compuin
cnavarro wrote:Y ya que nos ponemos
Si quieres mantener la compatibilidad con el codigo que tienes para no modificarlo, modifica PDMENU.PRG asi ( lo que está en negrita )
oMenuP := LastMenu()
if !empty( oMenuP )
if !lSystem
if Valtype( l2007 ) != "L"
DEFAULT l2007 := .F.
endif
if Valtype( l2010 ) != "L"
DEFAULT l2010 := .F.
endif
if Valtype( l2015 ) != "L"
DEFAULT l2015 := .F.
endif
if Valtype( l2013 ) != "L"
DEFAULT l2013 := .F.
endif
if Valtype( lColors ) != "L"
DEFAULT lColors := .F.
endif
if Valtype( lVert ) != "L"
DEFAULT lVert := .F.
endif
.../...
Luego que haga esto, pdmenu.prg debe ser compilado junto a mi proyecto para que tome efecto?
Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 7:42 pm
by cnavarro
Si claro
Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 7:48 pm
by Compuin
cnavarro wrote:Si claro
Cool!
Gracias
Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 7:49 pm
by cnavarro
Cuando lo pruebes dime si te funciona correctamente
Re: Problema menu con MenuBegin()
Posted: Tue Nov 06, 2018 8:49 pm
by Compuin
cnavarro wrote:Cuando lo pruebes dime si te funciona correctamente
Cristobal,
Funciono perfectamente
No tuve que cambiar nada a mi codigo para que se genere el menu
Mil gracias!