Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

MENUITEM en negrita¿?

https://forum.xailer.com/viewtopic.php?t=5030

Página 1 de 1

MENUITEM en negrita¿?

Publicado: Jue Jul 07, 2005 12:26 pm
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.
--

MENUITEM en negrita¿?

Publicado: Jue Jul 07, 2005 12:45 pm
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.
--

MENUITEM en negrita¿?

Publicado: Jue Jul 07, 2005 12:48 pm
por jfgimenez
Xevi,
MENUITEM ::aIdioma[16,oXevi:nIdioma] DEFAULT ACTION ::DbfBrowse1KeyDown( oSender, VK_RETURN )
--
Un saludo,
José F. Giménez
--

MENUITEM en negrita¿?

Publicado: Jue Jul 07, 2005 2:27 pm
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--

MENUITEM en negrita¿?

Publicado: Dom Jul 10, 2005 11:09 pm
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.
--

MENUITEM en negrita¿?

Publicado: Lun Jul 11, 2005 12:06 am
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

MENUITEM en negrita¿?

Publicado: Lun Jul 11, 2005 8:11 am
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
>

MENUITEM en negrita¿?

Publicado: Lun Jul 11, 2005 9:52 am
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
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España