MENU MAS ATRACTIVO

[lafug]

ESTIMADOS,

ALGUIEN SABE COMO HACER UN MENU SIMILAR AL DEL VERCE, CON ICONOS MAYORES Y CON UN BANNER VERTICAL EN EL MARGEN DEL MENÚ ??

[hmpaquito]

http://incos...net/fivewin/c5menu.htm

[lafug]

GRACIAS POR LA RESPUESTA PERO NO ESTA DISPONIBLE EL LINK

[hmpaquito]

[url]189.133.252.207./fivewin/index.htm[/url]

[derpipu]

Hola, la pagina correcta es asi:

http://189.133.252.207/fivewin/c5menu.htm

Saludos

[Antonio Linares]

La copiamos a nuestro repositorio de utilidades en bitbucket para que no se pierda

https://bitbucket.org/fivetech/fivewin-contributions/downloads/c5menu12.zip

[karinha]

Excelente. haciendo pruebas.

Regards, saludos.

[cnavarro]

Fivewin contempla todo tipo de menús
.\samples\mnu01.prg

[TOTOVIOTTI]

Hola, buenos días gente!

se podrá hacer con FW una window del estilo de la imagen?

https://drive.google.com/file/d/1E1FJl_aj-M3jC1O98GbgIyNZ4YwLmknG/view?usp=sharing

Pongo como ejemplo esa imagen de la página del VS Code... pero algo así digo...

Saludos
Roberto

[TOTOVIOTTI]

Hola...
se puede o es imposible?

Gracias!

[cnavarro]

Nada es imposible con Fivewin.
Quizás el único problema sea darle apariencia de botones a las opciones que aparecen a la derecha del menu
( Me estoy refiriendo a la ventana principal, claro )
Si empiezas de alguna forma, podemos ir viendo como adaptarlo

[TOTOVIOTTI]

Gracias Cristóbal!
Manos a la obra entonces!!

Por ahí mi primer traba es como pintar la pantalla negra y completa, para darle la apariencia principal.
Luego iré añadiendo botones y colores y tipografía de letras...

Pero cuando hago un define window siempre me queda más o menos con el mismo formato... no puedo salir de ahí...

Muchas gracias! Cualquier idea, bienvenida será!
Roberto

[cmsoft]

Una pantalla negra sin titulos, puedes ver la clase TMetro, que tiene el estilo que buscas.

Code: Select all | Expand

#include "fivewin.ch"Function main()LOCAL oWnd, cTitle, oFontDEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, -52 cTitle := "Mi Pantalla"DEFINE WINDOW oWnd STYLE nOr( WS_POPUP, WS_VISIBLE ) ;      COLOR CLR_WHITE, CLR_BLACK   ACTIVATE WINDOW oWnd MAXIMIZED   ON PAINT ( oWnd:Say( 3, 16, cTitle,,, oFont,, .T. ))RETURN nil 

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=42318&start=15&sid=bd4fb45aeb55f0268cbd80e232856fa0

Regards, saludos.

[cnavarro]

Gracias Cristóbal!
Manos a la obra entonces!!

Por ahí mi primer traba es como pintar la pantalla negra y completa, para darle la apariencia principal.
Luego iré añadiendo botones y colores y tipografía de letras...

Pero cuando hago un define window siempre me queda más o menos con el mismo formato... no puedo salir de ahí...

Muchas gracias! Cualquier idea, bienvenida será!
Roberto

Ok, aqui tienes un comienzo que quizás te pueda ser útil

Code: Select all | Expand

#include "Fivewin.ch"Static oWndStatic oFontMenuFunction Main()   MyWindow()Return nil//----------------------------------------------------------------------------//Function MyWindow()   local oBar      DEFINE FONT oFontMenu NAME "Segoe UI" SIZE 0, -16   DEFINE WINDOW oWnd MENU MyMenu() STYLE WS_POPUP      oWnd:SetColor( CLR_WHITE, Rgb( 44, 44, 44 ) )      DEFINE BUTTONBAR oBar OF oWnd NOBORDER         oBar:Setcolor( CLR_GRAY, Rgb( 36, 36, 36 ) )         oBar:bRClicked := { || nil }      ACTIVATE WINDOW oWnd MAXIMIZEDReturn nil//----------------------------------------------------------------------------//Function MyMenu()   local oMenu      MENU oMenu 2013 ;      FONT oFontMenu ;      HEIGHT -2 ;      COLORMENU Rgb( 44, 44, 44 ), CLR_GRAY ;      COLORSELECT CLR_WHITE, CLR_WHITE, Rgb( 100, 100, 100 ) ;      COLORLINEBOTTOM Rgb( 44, 44, 44 )         MENUITEM FILE "..\bitmaps\VSCode48.png"         MENUITEM "Docs"         MENUITEM "Update"         MENUITEM "BLog"         MENUITEM "Api"         MENUITEM "Extensions"         MENUITEM "FAQ"         MENUITEM "Learn"         MENUITEM "Salir" ACTION oWnd:End()   ENDMENUReturn oMenu//----------------------------------------------------------------------------//