Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11

[Antonio Linares]

* New: Class TWindow Method Gradient( aGradColors )

* New: DEFINE DIALOG oDlg GRADIENT <aGradColors>, in example:

Code: Select all  Expand view

     DEFINE DIALOG oDlg TITLE "Test" ;
        GRADIENT { { 0.25, nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ) },;
                   { 0.75, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } }

     ACTIVATE DIALOG oDlg CENTERED
 

Se acabó el tener que llamr a GradBrush()

[Antonio Linares]

Code: Select all  Expand view

   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

[AIDA]

Hola Antonio

tu como siempre genial en todo
se ve super bonito y moderno

Te mando muchos saluditos

[interwin]

Antonio.

¿como hiciste para cambiar el color del marco de la ventana y poner el borde blanco difuminado en el titulo de la ventana?. ¿es windows?

Saludos

[Antonio Linares]

Si, Windows 7 ó tal vez la preview de Windows 8...