Classe TOutLook2003 como 2007
Classe TOutLook2003 como 2007
Hola a todo el mundo.
Seria posible, modificar la classe TOutLook2003, con los colores de 2007 ?
Muchas gracias.
Seria posible, modificar la classe TOutLook2003, con los colores de 2007 ?
Muchas gracias.
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Classe TOutLook2003 como 2007
Pedro,
Al inicio del código fuente de la clase TOutLook2003 estan estas líneas:
Sólo tienes que modificar esos valores numéricos y recompilar outl2003.prg y enlazarlo como si fuese un PRG más de tu aplicación
Al inicio del código fuente de la clase TOutLook2003 estan estas líneas:
Code: Select all
#define LIGHTBLUE nRGB( 89, 135, 214 )
#define DARKBLUE nRGB( 3, 56, 147 )
#define LIGHTORANGE1 nRGB( 250, 227, 143 )
#define DARKORANGE1 nRGB( 238, 152, 25 )
#define LIGHTCYAN nRGB( 203, 225, 252 )
#define DARKCYAN nRGB( 125, 165, 224 )
#define LIGHTORANGE2 nRGB( 255, 255, 220 )
#define DARKORANGE2 nRGB( 247, 192, 91 )
Re: Classe TOutLook2003 como 2007
Muchas gracias Antonio, ya esta resuelto.
Re: Classe TOutLook2003 como 2007
No solo he modificado valores sino que he modificado la clase con una propiedad l2007.
También he cambiado Gradient por gradientfull.
No esta perfecto pero da el pego.
_ me he mirado la clase "TRBtn"
en la Cabecera añadir
En las propiedades de la Clase (TOutLook2003)
En el Metodo (METHOD Paint() CLASS TOutLook2003)
Declarar variable
Donde
Reemplazar por
En las propiedades de la clase TOutLook2003Group
En el método (METHOD Paint( lOver ) CLASS TOutLook2003Group)
Declarar variables
Donde
Reemplazar por
Espero que también te funcione mas o menos bien.
Gracias.
Pere
También he cambiado Gradient por gradientfull.
No esta perfecto pero da el pego.
_ me he mirado la clase "TRBtn"
en la Cabecera añadir
Code: Select all
#include "Colors.ch"
// Colors Office 2007
#define BLUEBOX0 RGB( 141, 178, 227 )
#define BLUEBOX1 RGB( 197, 210, 223 )
#define BLUEBOX2 RGB( 237, 242, 248 )
#define BLUE0 RGB( 218, 229, 243 )
#define BLUE1 RGB( 199, 216, 237 )
#define BLUE2 RGB( 194, 217, 240 )
#define BLUE3 RGB( 191, 219, 255 )
Code: Select all
DATA l2007 INIT .F.
En el Metodo (METHOD Paint() CLASS TOutLook2003)
Declarar variable
Code: Select all
Local aGrad
Code: Select all
Gradient( ::hDC, { nTop, 0, nTop + 7, ::nWidth() }, DARKBLUE, LIGHTBLUE, .T. )
Code: Select all
If ::l2007
aGrad := { {0.3, BLUE0, BLUE0 }, { 0.7, BLUE1, BLUE0 } }
GradientFill( ::hDC, nTop , 0, nTop + 7, ::nWidth() , aGrad )
Else
Gradient( ::hDC, { nTop, 0, nTop + 7, ::nWidth() }, DARKBLUE, LIGHTBLUE, .T. )
EndIf
Code: Select all
DATA l2007 INIT .F.
Declarar variables
Code: Select all
local aGrad,aGradHigh,aGradOver
Code: Select all
Gradient( hDC := oCon:GetDC(), { nTop, 0, nTop + 30, oCon:nWidth() },;
If( lOver, If( ::lSelected, ::nClrEnd, LIGHTORANGE2 ), ::nClrStart ),;
If( lOver, If( ::lSelected, ::nClrStart, DARKORANGE2 ), ::nClrEnd ), .T. )
Code: Select all
If ::l2007
aGrad := { {0.3, BLUE0, BLUE0 }, { 0.7, BLUE1, BLUE0 } }
aGradHigh := { {1/3, nRGB( 253,212,168 ), nRGB( 251,178,99 ) }, {2/3, nRGB( 250,157,52 ), nRGB( 252,234,163 ) } }
aGradOver := { {1 , nRGB( 255,215,84), nRGB( 255, 253, 222 ) } }
GradientFill( hDC := oCon:GetDC() , nTop, 0, nTop + 30, oCon:nWidth() , If( lOver, aGradOver , If( ::lSelected , aGradHigh , aGrad) ) )
Else
Gradient( hDC := oCon:GetDC(), { nTop, 0, nTop + 30, oCon:nWidth() },;
If( lOver, If( ::lSelected, ::nClrEnd, LIGHTORANGE2 ), ::nClrStart ),;
If( lOver, If( ::lSelected, ::nClrStart, DARKORANGE2 ), ::nClrEnd ), .T. )
EndIf
Espero que también te funcione mas o menos bien.
Gracias.
Pere
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Classe TOutLook2003 como 2007
Hola Antonio,
Aquí tienes una imagen de como ha quedado.
a ver si te parece bien.
Gracias.
Aquí tienes una imagen de como ha quedado.
a ver si te parece bien.
Gracias.
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Classe TOutLook2003 como 2007
Pere,
Gracias por poner la imagen,
si, se ve bien
Gracias por poner la imagen,
si, se ve bien
Re: Classe TOutLook2003 como 2007
Antonio:
¿Y por qué los botones look 2007 no se ven como el azul de esa foto?.
gracias
¿Y por qué los botones look 2007 no se ven como el azul de esa foto?.
gracias
Saludos,
Eduardo
Eduardo
Re: Classe TOutLook2003 como 2007
Muy interesante
Que es mejor que programar? creo que nada
Atropellada pero aqui ando
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Atropellada pero aqui ando
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ