FiveTech Software tech support forums

Code: Select all  Expand view

#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

Code: Select all  Expand view

#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

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