bb.donnay-software.com

Code: Select all

#include "dcdialog.ch"
#include "dcgra.ch"

Procedure AppSys
return

#define COLOR_BROWN      GraMakeRGBColor( { 127, 127,   0 } )
#define COLOR_YELLOW     GraMakeRGBColor( { 255, 255,   0 } )
#define COLOR_WHITE      GraMakeRGBColor( { 255, 255, 255 } )
#define COLOR_BLACK      GraMakeRGBColor( {   0,   0,   0 } )
#define COLOR_PALEGRAY   GraMakeRGBColor( { 192, 192, 192 } )
#define COLOR_LTBLUE     GraMakeRGBColor( {  30, 187, 255 } )
#define COLOR_LTYELLOW   GraMakeRGBColor( { 128, 128,   0 } )
#define COLOR_SLATEGRAY  GraMakeRGBColor( { 158, 182, 205 } )
#define COLOR_SOFTBLUE   GraMakeRGBColor( { 185, 209, 239 } )
#define COLOR_SOFTYELLOW GraMakeRGBColor( { 255, 250, 205 } )

//=========================================================
Procedure MAIN()
//=========================================================
LOCAL GetList := {}, GetOptions, Var_Login := Space(15), Var_Password := Space(15)
LOCAL oButtonConfig

Dc_BitMapTransparentColor({192,192,192})

oButtonConfig                 := DC_XbpPushButtonXPDefault():new()
//oButtonConfig:isTransparent   := .t.
oButtonConfig:Font            := "10.Arial Bold"
oButtonConfig:fgColor         := COLOR_BLACK
oButtonConfig:bgColor         := COLOR_LTBLUE
oButtonConfig:fgColorMouse    := GraMakeRGBColor({0,0,0})
oButtonConfig:bgColorMouse    := GraMakeRGBColor({245,215,100})
oButtonConfig:bgColorClick    := GraMakeRGBColor({245,215,100})
oButtonConfig:disabledfgcolor := GraMakeRGBColor({150,150,150})
oButtonConfig:disabledbgcolor := GraMakeRGBColor({215,215,215})
oButtonConfig:bordercolor     := GraMakeRGBColor({83,123,173})
oButtonConfig:radius          := 30


DC_PushButtonStyle( oButtonConfig )


@ 165,150 DcSay '   Login' GET Var_Login SAYSIZE 100 GETSIZE 170 GETFONT '12.Courier New Bold' ;
							   GETPRESENTATION {{ XBP_PP_BORDER_CLR, GRA_AS_ANGLE  }} Parent oUser

@ 195,150 DcSay 'Password' GET Var_PassWord  SAYSIZE 100 GETSIZE 170 PASSWORD GETFONT '12.Courier New Bold' Parent oUser

@ 228,260 DCPUSHBUTTONXP ;
CAPTION 'Cancelar' ;
SIZE 80,28 ;
Config oButtonConfig ; //TRANSPARENT ;
ACTION {|| DC_ReadGuiEvent(DCGUI_EXIT_ABORT,GetList) }

@ 228,350 DCPUSHBUTTONXP ;
CAPTION 'Confirmar' ;
SIZE 80,28 ;
Config oButtonConfig ; //TRANSPARENT ;
ACTION {|| DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList) }

@ 150,70 DCPUSHBUTTONXP ;
CAPTION 'EXIT' ;
SIZE 80,80 ;
RADIUS 50 ; // TRANSPARENT ;
COLOR COLOR_BLACK, COLOR_BROWN ;
MOUSECOLOR COLOR_BLACK, COLOR_SOFTYELLOW ;
ACTION {|| DC_ReadGuiEvent(DCGUI_EXIT_ABORT,GetList) }


DCGETOPTIONS NORESIZE PIXEL NOTITLEBAR ;
WINDOWWIDTH 500 ;
WINDOWHEIGHT 310 ;
SAYRIGHT ;
SAYFONT '12.Arial Bold' ;
BITMAP Dc_GetBitMap( 'Login.jpg' ) ;
COLORGETS {{ Nil,COLOR_SOFTYELLOW },{ Nil,COLOR_LTBLUE }}

DCREAD GUI         ;
to OPCAO           ;
TITLE 'Password'   ;
MODAL              ;
OPTIONS GetOptions ;
ENTEREXIT          ;
SETAPPWINDOW

Return