Devuelve
el valor del color en formato RGB de los objetos y
ventanas de Windows

DECLARE INTEGER GetSysColor IN Win32API
INTEGER nObject

tnObjectNumber = 2  &&
Ventana Activa

 

lnWinCol =
GetSysColor(tnObjectNumber)

lnSq256 = 256 ^ 2

lnRedGrn = MOD( lnWinCol, lnSq256 )

lcBlue = TRANSFORM( INT( lnWinCol/lnSq256 ) )

lcGreen = TRANSFORM( INT( lnRedGrn/256) )

lcRed = TRANSFORM( MOD( lnRedGrn,256) )

? (lcRed + "," + lcGreen + "," +
lcBlue)

Estas
son las constantes para los elementos de Windows y se hace referencia
ellos con la variable tnObjectNumber

1 
Background (Windows Desktop)

2 
Title Bar (Active Window)

3 
Title Bar (Inactive Window)

5 
Window Background

9 
Title Bar Caption Text (Active Window)

19 
Title Bar Caption Text (Inactive Window)

13 
Highlighted Item Background

14 
Highlighted Item Text

17 
Command Button

18  Command Button Text