FiveTech Support Forums

#include "FiveWin.ch"
#include "metropnl.ch"

Function Main()
   local oDlg, oFont1, oFont2, oC, lOk := .F.
 
   
   Local cUserName := space(30)
   Local cPw := space(30)
   Local oRs 
   Local nX := 1 
   Local nY := 1 
   
   
   DEFINE FONT oFont1 NAME "Segoe UI Light" SIZE 0, -30 BOLD
   DEFINE FONT oFont2 NAME "Segoe UI Light" SIZE 0, -17 BOLD


   DEFINE DIALOG oDlg STYLE nOr( WS_CHILD, WS_POPUP ) ;
          SIZE ScreenWidth()/2, ScreenHeight() / 2 COLOR  CLR_BLUE ,CLR_WHITE

   @ 1.2, 5 SAY "Inserisci le tue creadenziali" FONT oFont1 TRANSPARENT

   @ 4, 9 SAY "UserName:" FONT oFont2 TRANSPARENT
   
 
  @ 4,15 COMBOMETRO oC VAR cUserName ITEMS {'1111111','222222222'}  ;
         OF oDlg   FONT oFont2 SIZE 150, 20 COLOR CLR_WHITE, RGB( 0x33, 0x66, 0xCC )
 
   

   @ 5.8, 9 SAY "Password:" FONT oFont2 TRANSPARENT

   @ 6.7, 15 GET cPw FONT oFont2 SIZE 100, 14 COLOR "N*/W" NOBORDER PASSWORD

   @ 150, ScreenWidth() / 15 + 100 FLATBTN PROMPT "Ok" ;
          SIZE 50, 20 ACTION (   oDlg:End() ) FONT oFont2

   @ 150, ScreenWidth() / 15 + 170 FLATBTN PROMPT "Cancel" ;
          SIZE 50, 20 ACTION oDlg:End() FONT oFont2

   ACTIVATE DIALOG oDlg CENTERED
   
   
   Return nil

   ::nBottom        := ::nTop  + nHeight
   if Upper( oWnd:ClassName() ) == "TPANEL"
      ::nBottom     := ::nTop  + nHeight
   endif
   ::nRight         := ::nLeft + nWidth