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 view  RUN

#include "fivewin.ch"

Function main()
LOCAL oWnd, cTitle, oFont
DEFINE 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 view  RUN

#include "Fivewin.ch"

Static oWnd
Static oFontMenu

Function 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 MAXIMIZED

Return 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()

   ENDMENU

Return oMenu

//----------------------------------------------------------------------------//