ESTIMADOS,
ALGUIEN SABE COMO HACER UN MENU SIMILAR AL DEL VERCE, CON ICONOS MAYORES Y CON UN BANNER VERTICAL EN EL MARGEN DEL MENÚ ??
#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
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
#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
//----------------------------------------------------------------------------//
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 115 guests