local oDlg, cHost := Space( 20 ), cUser := Space( 20 ), cPassword := Space( 20 )
local oBtn, bClrGrad := { | lPressed | If( ! lPressed,;
{ { 1, nRGB( 253, 254, 255 ), nRGB( 179, 217, 255 ) } },;
{ { 1, nRGB( 179, 217, 255 ), nRGB( 253, 254, 255 ) } } ) }
DEFINE DIALOG oDlg TITLE "Login" ;
GRADIENT { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }
@ 0.5, 3 SAY "Host:"
@ 0.5, 7 GET cHost
@ 1.5, 3 SAY "User:"
@ 1.7, 7 GET cUser
@ 2.5, 3 SAY "Password:"
@ 2.9, 7 GET cPassword
@ 55, 30 BTNBMP oBtn PROMPT "Ok" FILENAME "..\bitmaps\32x32\yes2.bmp" SIZE 50, 15 ;
LEFT NOBORDER ACTION oDlg:End()
oBtn:bClrGrad = bClrGrad
@ 55, 85 BTNBMP oBtn PROMPT "Cancel" FILENAME "..\bitmaps\32x32\cancel.bmp" SIZE 50, 15 ;
LEFT NOBORDER ACTION oDlg:End()
oBtn:bClrGrad = bClrGrad
ACTIVATE DIALOG oDlg CENTERED