www.FiveTechSoft.com
http://forums.fivetechsoft.com/
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 )
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.
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.
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
