Page 1 of 1
Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11
Posted: Sat Nov 12, 2011 3:14 pm
by Antonio Linares
* New: Class TWindow Method Gradient( aGradColors )
* New: DEFINE DIALOG oDlg GRADIENT <aGradColors>, in example:
Code: Select all
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()
![Smile :-)](./images/smilies/icon_smile.gif)
Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11
Posted: Sat Nov 12, 2011 5:49 pm
by Antonio Linares
Code: Select all
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
Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11
Posted: Sun Nov 13, 2011 5:04 pm
by AIDA
Hola Antonio
tu como siempre genial en todo
se ve super bonito y moderno
Te mando muchos saluditos
![Wink :wink:](./images/smilies/icon_wink.gif)
Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11
Posted: Tue Mar 13, 2012 2:10 am
by 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
Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11
Posted: Tue Mar 13, 2012 9:22 am
by Antonio Linares
Si, Windows 7 ó tal vez la preview de Windows 8...