MENU MAS ATRACTIVO

MENU MAS ATRACTIVO

Postby lafug » Thu Nov 20, 2014 4:42 pm

ESTIMADOS,

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

Image
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
User avatar
lafug
 
Posts: 185
Joined: Thu Nov 17, 2005 12:48 am
Location: Santiago, Chile

Re: MENU MAS ATRACTIVO

Postby hmpaquito » Thu Nov 20, 2014 5:00 pm

hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: MENU MAS ATRACTIVO

Postby lafug » Thu Nov 20, 2014 5:15 pm

GRACIAS POR LA RESPUESTA PERO NO ESTA DISPONIBLE EL LINK :-(
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
User avatar
lafug
 
Posts: 185
Joined: Thu Nov 17, 2005 12:48 am
Location: Santiago, Chile

Re: MENU MAS ATRACTIVO

Postby hmpaquito » Thu Nov 20, 2014 5:23 pm

[url]189.133.252.207./fivewin/index.htm[/url]
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: MENU MAS ATRACTIVO

Postby derpipu » Thu Nov 20, 2014 8:32 pm

Hola, la pagina correcta es asi:

http://189.133.252.207/fivewin/c5menu.htm

Saludos
Luis Fernando Rubio Rubio
derpipu
 
Posts: 94
Joined: Tue Mar 28, 2006 4:09 pm
Location: Tequila, Jalisco Mexico

Re: MENU MAS ATRACTIVO

Postby Antonio Linares » Fri Nov 21, 2014 1:06 pm

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

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

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42203
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MENU MAS ATRACTIVO

Postby karinha » Fri Oct 07, 2022 6:46 pm

Excelente. haciendo pruebas.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: MENU MAS ATRACTIVO

Postby cnavarro » Sat Oct 08, 2022 1:41 am

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

Image
Image
Image
Image
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: MENU MAS ATRACTIVO

Postby TOTOVIOTTI » Wed Oct 19, 2022 1:57 pm

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
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 422
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: MENU MAS ATRACTIVO

Postby TOTOVIOTTI » Thu Oct 20, 2022 8:47 pm

Hola...
se puede o es imposible?

Gracias!
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 422
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: MENU MAS ATRACTIVO

Postby cnavarro » Fri Oct 21, 2022 5:47 am

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
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: MENU MAS ATRACTIVO

Postby TOTOVIOTTI » Fri Oct 21, 2022 10:22 am

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
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 422
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: MENU MAS ATRACTIVO

Postby cmsoft » Fri Oct 21, 2022 12:10 pm

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
 
User avatar
cmsoft
 
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: MENU MAS ATRACTIVO

Postby karinha » Fri Oct 21, 2022 12:34 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: MENU MAS ATRACTIVO

Postby cnavarro » Fri Oct 21, 2022 12:47 pm

TOTOVIOTTI wrote: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
Image
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

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

 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 77 guests