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.

Como montar um MENU ESTILO WINDOWS XP ???

Foro público de Xailer en español
Rene Flores
Posts: 620
Joined: Thu Mar 23, 2006 2:39 am

Como montar um MENU ESTILO WINDOWS XP ???

Postby Rene Flores » Tue Oct 21, 2008 7:02 pm

claudio:
Incorrecto:
> ::oMenu:nStyle := msOFFICEXP
> ::oMenu := TMenu():Create( Self, .t. )
Correcto:
::oMenu := TMenu():Create( Self, .t. )
::oMenu:nStyle := msOFFICEXP
Saludos
Rene Flores
http://www.ciber-tec.com
jrcpoli
Posts: 240
Joined: Wed Oct 25, 2006 8:55 pm

Como montar um MENU ESTILO WINDOWS XP ???

Postby jrcpoli » Tue Oct 21, 2008 7:05 pm

Saludos:
Una forma de hacerlo:
WITH OBJECT ::oMenu1 := TMenu():New( Self )
:nStyle := msOFFICEXP
:Create()
WITH OBJECT :AddItem( "&Ficheros" )
WITH OBJECT :AddMenu()
::oImportEnceste := :AddItem( "Importar Enceste" )
::oImportResultados := :AddItem( "Importar Resultados" )
:AddSeparator()
::oExportEnceste := :AddItem( "Exportar Enceste" )
::oExportResultados := :AddItem( "Exportar Resultados" )
END
END
WITH OBJECT :AddItem( "&Listados" )
WITH OBJECT :AddMenu()
WITH OBJECT ::oListEnceste := :AddItem( "Listado de Enceste" )
:OnClick := "ListEncesteClick"
END
WITH OBJECT ::oListResultados := :AddItem( "Listado de
Resultados" )
:OnClick := "ListResultadosClick"
END
END
END
:AddItem( "&Salir","Cerrar el formulario y salir." ):OnClick := {||
::oForm:Close() }
:SetMenu()
END
Otra forma de hacerlo:
METHOD InicializaForm( oSender ) CLASS TForm
Local oMenu
Menu oMenu
oMenu:nStyle := msOFFICEXP
MenuItem "0"
Menu
MenuItem "aaaa"
MenuItem "bbbb"
EndMenu
MenuItem "1"
Menu
EndMenu
MenuItem "2"
Menu
EndMenu
ENDMENU
::oMenu := oMenu
RETURN Nil
José Ramón Castro.
"claudio" <santos@transbank.com.br> escribió en el mensaje de noticias
news:48fe02c3@ozsrv2.ozlan.local...
>O que é que estoo fazendo de errado, preciso montar Via Códigos um Menu
>estilio XP,
>
> MENU ::oMenu
> MenuItem "0"
> Menu
> MenuItem "aaaa"
> MenuItem "bbbb"
> EndMenu
> MenuItem "1"
> Menu
> EndMenu
> MenuItem "2"
> Menu
> EndMenu
> ENDMENU
> ::oMenu:nStyle := msOFFICEXP
> ::oMenu := TMenu():Create( Self, .t. )
>
>
José Ramón Castro.

Return to “Spanish”