In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

MENUITEM en negrita¿?

Foro de Xailer profesional en español
Responder
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

MENUITEM en negrita¿?

Mensaje por Xevi »

Hola,
Se puede poner una opción de Fuente en Menu...???
Para poner la opción por defecto en negrita... por ej.
METHOD DbfBrowse1ContextMenu( oSender, nPosX, nPosY ) CLASS FrmAgenda
LOCAL oPopup
MENU oPopup POPUP
MENUITEM ::aIdioma[14,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_INSERT )
//Esta opción deberí­a estar en Negrita
MENUITEM ::aIdioma[16,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_RETURN )
//¿Como lo puedo hacer???
MENUITEM ::aIdioma[15,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_DELETE )
SEPARATOR
MENUITEM ::aIdioma[17,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_F3 )
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
RETURN Nil
Un saludo,
Xevi.
--
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9469
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

MENUITEM en negrita¿?

Mensaje por ignacio »

Xevi,
Prueba la cláusula HILITED o DEFAULT.
Saludos
#xcommand MENUITEM [ <oItem> <x: CAPTION,TEXT> ] <cText> [ <action: ACTION, ONCLICK, ON CLICK> <OnClick> ] [ MENU <oSubMenu> ] ;
[ <lDisabled: DISABLED> ] ;
[ <lChecked: CHECKED> ] ;
[ <lGrayed: GRAYED> ] ;
[ <lHilited: HILITED> ] ;
[ <lDefault: DEFAULT> ] ;
[ WHEN <bWhen> ] ;
[ BITMAP <cBitmap> ] ;
[ MESSAGE <cMsg> ] ;
[ <lRight: RIGHT> ] ;
=> ;
[ <oItem> := ] XA_MenuItem( <cText>, [{|oSender,oMenu|<OnClick>}], [<oSubMenu>], ;
!<.lDisabled.>, <.lChecked.>, <.lGrayed.>, <.lHilited.>, ;
<.lDefault.>, [<cBitmap>], [ <{bWhen}> ], [ <cMsg> ], [ <.lRight.> ] )
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:42cd035f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Hola,
Se puede poner una opción de Fuente en Menu...???
Para poner la opción por defecto en negrita... por ej.
METHOD DbfBrowse1ContextMenu( oSender, nPosX, nPosY ) CLASS FrmAgenda
LOCAL oPopup
MENU oPopup POPUP
MENUITEM ::aIdioma[14,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_INSERT )
//Esta opción deberí­a estar en Negrita
MENUITEM ::aIdioma[16,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_RETURN )
//¿Como lo puedo hacer???
MENUITEM ::aIdioma[15,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_DELETE )
SEPARATOR
MENUITEM ::aIdioma[17,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_F3 )
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
RETURN Nil
Un saludo,
Xevi.
--
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

MENUITEM en negrita¿?

Mensaje por jfgimenez »

Xevi,
MENUITEM ::aIdioma[16,oXevi:nIdioma] DEFAULT ACTION ::DbfBrowse1KeyDown( oSender, VK_RETURN )
--
Un saludo,
José F. Giménez
--
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

MENUITEM en negrita¿?

Mensaje por Xevi »

This is a multi-part message in MIME format.
------=_NextPart_000_0017_01C58300.138D8E90
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0018_01C58300.138D8E90"
------=_NextPart_001_0018_01C58300.138D8E90
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Jose,
Y el tema de im=E1gen el los Menus???
Lo he probado de las dos formas...
MENUITEM ::aIdioma[16,oXevi:nIdioma] + TAB +"<Del>" ACTION =
::DbfBrowse1KeyDown( oSender, VK_RETURN ) DEFAULT BITMAP "Index2.Bmp"
y...
TMenuItem():Create( oPopup,,, "Prova",, {|| Nil},, "Index2.Bmp" )
Y SIEMPRE me lanza el error del cual adjunto el archivo, al darle al =
bot=F3n derecho...
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:42cd035f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Hola,
Se puede poner una opci=F3n de Fuente en Menu...???
Para poner la opci=F3n por defecto en negrita... por ej.
METHOD DbfBrowse1ContextMenu( oSender, nPosX, nPosY ) CLASS FrmAgenda
LOCAL oPopup
MENU oPopup POPUP
MENUITEM ::aIdioma[14,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( =
oSender, VK_INSERT )
//Esta opci=F3n deber=EDa estar en Negrita
MENUITEM ::aIdioma[16,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( =
oSender, VK_RETURN )
//=BFComo lo puedo hacer???
MENUITEM ::aIdioma[15,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( =
oSender, VK_DELETE )
SEPARATOR
MENUITEM ::aIdioma[17,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( =
oSender, VK_F3 )
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
RETURN Nil
Un saludo,
Xevi.
------=_NextPart_001_0018_01C58300.138D8E90
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2668" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Jose,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Y el tema de im=E1gen el los =
Menus???</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Lo he probado de las dos =
formas...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>MENUITEM ::aIdioma[16,oXevi:nIdioma] + =
TAB=20
+"<Del>"ÂÂ ACTION ::DbfBrowse1KeyDown( oSender, =
VK_RETURN )=20
DEFAULT BITMAP "Index2.Bmp"<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>y...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV></FONT>
<DIV><FONT face=3DArial size=3D2>TMenuItem():Create( oPopup,,, "Prova",, =
{|| Nil},,=20
"Index2.Bmp" )<BR></DIV></FONT>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Y SIEMPRE me lanza el error del cual =
adjunto el=20
archivo, al darle al bot=F3n derecho...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:42cd035f$1@ozsrvnegro.ozlan.local">news:42cd035f$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Hola,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D1>
<DIV><FONT face=3DArial size=3D2>Se puede poner una opci=F3n de Fuente =
en=20
Menu...???</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Para poner la opci=F3n por =
defectoÂen=20
negrita... por ej.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV></FONT></DIV>
<DIV><FONT face=3DArial size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D1>METHOD DbfBrowse1ContextMenu( =
oSender, nPosX,=20
nPosY ) CLASS FrmAgenda<BR>ÂÂ LOCAL oPopup</FONT></DIV>
<DIV><FONT face=3DArial size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D1>ÂÂ MENU oPopup=20
POPUP<BR>ÂÂÂÂÂ MENUITEM =
::aIdioma[14,oXevi:nIdioma]=20
ACTION ::DbfBrowse1KeyDown( oSender, VK_INSERT )</FONT></DIV>
<DIV><FONT face=3DArial size=3D1><FONT=20
color=3D#ff0000>ÂÂÂÂÂ //EstaÂopci=F3n =
deber=EDa estar=20
en Negrita<BR></FONT>ÂÂÂÂÂ MENUITEM=20
::aIdioma[16,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, =
VK_RETURN=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D1><FONT=20
color=3D#ff0000>ÂÂÂÂÂ //=BFComo lo puedo=20
hacer???<BR></FONT>ÂÂÂÂÂ MENUITEM=20
::aIdioma[15,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, =
VK_DELETE=20
)<BR>ÂÂÂÂÂ=20
SEPARATOR<BR>ÂÂÂÂÂ MENUITEM=20
::aIdioma[17,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_F3 =
)<BR>ÂÂ ENDMENU</FONT></DIV>
<DIV><FONT face=3DArial size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D1>ÂÂ oSender:ShowPopupMenu( =
oPopup,=20
nPosX, nPosY )</FONT></DIV>
<DIV><FONT face=3DArial size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D1>RETURN Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2>Xevi.</FONT></DIV></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0018_01C58300.138D8E90--
------=_NextPart_000_0017_01C58300.138D8E90
Content-Type: application/octet-stream;
name="Error.log"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="Error.log"
***************************** Registro de errores =
*****************************
Fecha: 07/07/2005
Hora: 14:26:19
Memoria libre: 223068
Area actual: 1
------------------------- Informaci=F3n del compilador =
--------------------------
Versi=F3n Xailer: Xailer 0.99.3 Pre-release 3a
Compilador: xHarbour build 0.99.41 Intl. (SimpLex) PCode Version: =
5
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Informaci=F3n detallada del error =
-----------------------
Subsistema: BASE
C=F3digo de error: 1004
Estado: .F.
Descripci=F3n: Class: 'NIL' has no exported method
Operaci=F3n: FINDITEM
Argumentos: [ 1] =3D Tipo: N Valor: 1009
Fichero:=20
C=F3digo error SO: 0
Pila de llamadas:
FINDITEM (0)
TDBFBROWSE:WMMEASUREITEM (0)
TRACKPOPUPMENU (0)
TDBFBROWSE:SHOWPOPUPMENU (803)
FRMAGENDA:DBFBROWSE1CONTEXTMENU (435)
TDBFBROWSE:ONCONTEXTMENU (0)
TDBFBROWSE:WMCONTEXTMENU (981)
RUNFORM (0)
TAPPLICATION:RUN (156)
MAIN (11)
------------------ Informaci=F3n detallada de =E1reas de trabajo =
------------------
Area: 1
Alias: AGENDA
Registro: 9
Filtro:=20
Relaci=F3n:=20
Orden del =EDndice: 1
Clave activa: 1
------=_NextPart_000_0017_01C58300.138D8E90--
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

MENUITEM en negrita¿?

Mensaje por Xevi »

¿alguna respuesta?
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:42cd1fd1$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Jose,
Y el tema de imágen el los Menus???
Lo he probado de las dos formas...
MENUITEM ::aIdioma[16,oXevi:nIdioma] + TAB +"<Del>" ACTION ::DbfBrowse1KeyDown( oSender, VK_RETURN ) DEFAULT BITMAP "Index2.Bmp"
y...
TMenuItem():Create( oPopup,,, "Prova",, {|| Nil},, "Index2.Bmp" )
Y SIEMPRE me lanza el error del cual adjunto el archivo, al darle al botón derecho...
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:42cd035f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Hola,
Se puede poner una opción de Fuente en Menu...???
Para poner la opción por defecto en negrita... por ej.
METHOD DbfBrowse1ContextMenu( oSender, nPosX, nPosY ) CLASS FrmAgenda
LOCAL oPopup
MENU oPopup POPUP
MENUITEM ::aIdioma[14,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_INSERT )
//Esta opción deberí­a estar en Negrita
MENUITEM ::aIdioma[16,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_RETURN )
//¿Como lo puedo hacer???
MENUITEM ::aIdioma[15,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_DELETE )
SEPARATOR
MENUITEM ::aIdioma[17,oXevi:nIdioma] ACTION ::DbfBrowse1KeyDown( oSender, VK_F3 )
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
RETURN Nil
Un saludo,
Xevi.
--
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

MENUITEM en negrita¿?

Mensaje por jfgimenez »

Xevi,
perdona que no te haya contestado antes. Ya está corregido y estará
disponible en la próxima versión.
--
Un saludo,
José F. Giménez
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

MENUITEM en negrita¿?

Mensaje por Xevi »

Perfecto!!!.
y... nada a perdonar... que al ritmo que vais, se supone que algun que otro
olvido debeis tener... pero aqui estamos para el recuerdo o <F5> "refresco
de Pantalla"
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:42d19bd7$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Xevi,
>
> perdona que no te haya contestado antes. Ya está corregido y estará
> disponible en la próxima versión.
>
> --
> Un saludo,
>
> José F. Giménez
>
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

MENUITEM en negrita¿?

Mensaje por jfgimenez »

Xevi,
> y... nada a perdonar... que al ritmo que vais, se supone que algun que
> otro olvido debeis tener... pero aqui estamos para el recuerdo o <F5>
> "refresco de Pantalla"
Gracias.
Y por cierto... en varias ocasiones lo que hemos hecho ha sido publicar aquí
el .obj correspondiente a la corrección. Llevamos algún tiempo que no lo
hacemos por una razón: nosotros estamos usando xHarbour beta 1.5 desde hace
tiempo para probarlo y estar seguros de que funciona bien con Xailer, y me
temo que los .obj que tenemos nosotros no funcionan con la actual versión
oficial de Xailer debido a los cambios en el pcode.
No obstante, vamos a publicar una nueva release muy pronto, y a partir de
entonces y mientras no se vuelva a dar una situación parecida intentaremos
publicar los "parches" directamente.
--
Un saludo,
José F. Giménez
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Responder

Volver a “Xailer Pro Spanish”