Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11

Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11

Postby Antonio Linares » Sat Nov 12, 2011 3:14 pm

* 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() :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42065
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11

Postby Antonio Linares » Sat Nov 12, 2011 5:49 pm

Image

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42065
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11

Postby AIDA » Sun Nov 13, 2011 5:04 pm

Hola Antonio

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

Te mando muchos saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 879
Joined: Fri Jan 12, 2007 8:35 pm

Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11

Postby interwin » Tue Mar 13, 2012 2:10 am

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
interwin
 
Posts: 33
Joined: Wed Jan 25, 2012 9:30 pm

Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11

Postby Antonio Linares » Tue Mar 13, 2012 9:22 am

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42065
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 37 guests