FW 16.04 and COMBOMETRO

[Maurizio]

Hello

Code: Select all  Expand view

#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

Regard Maurizio

[cnavarro]

Please

In METHOD New

Code: Select all  Expand view

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

 

[Antonio Linares]

Maurizio,

thanks for your feedback

we are reviewing it

[kajot]

in which class add

[Silvio.Falconi]

Maurizio ..mhm cosa sono le "creadenziali" ?

[cnavarro]

in which class add

CLASS TComboMetro in file combom.prg ( folder source\classes )

please wait

[cnavarro]

Fixed in 16.04 Build 2

[Maurizio]

Thanks Navarro

Maurizio
www.nipeservice.com