Power Builder - Color Button Face

Hola otra vez!
¿Alquien sabe como obtener el RGB del color Button Face de Windows mediante alguna funcion?
Gracias por sus respuestas

Hola Nirvana,

Puedes utilizar la función GetSysColor de las APIs de Windows. Esta función tiene un parámetro numérico (long), para especificar el color de sistema que quieres obtener. Para el Button Face, el valor que debes pasar a la función es 15.

Ejemplo:

// Declarar GetSysColor en el apartado de funciones externas
Function ulong GetSysColor (long pvl_indice) Library "USER32.DLL"

// Después en tu script:
Constant long COLOR_BTNFACE = 15 // Constante para el color Button
ulong lul_color

// Recuperar el color y mostrarlo por pantalla.
lul_color = GetSysColor(COLOR_BTNFACE)
Messagebox("Color botón", string(lul_color))

// También puedes poner directamente:
lul_color = GetSysColor(15)

Aquí tienes los valores disponibles para pasar a la función GetSysColor:
SCROLLBAR = 0 // The Scrollbar colour
BACKGROUND = 1 // Colour of the background with no wallpaper
ACTIVECAPTION = 2 // Caption of Active Window
INACTIVECAPTION = 3 // Caption of Inactive window
MENU = 4 // Menu
WINDOW = 5 // Windows background
WINDOWFRAME = 6 // Window frame
MENUTEXT = 7 // Window Text
WINDOWTEXT = 8 // 3D dark shadow (Win95)
CAPTIONTEXT = 9 // Text in window caption
ACTIVEBORDER = 10 // Border of active window
INACTIVEBORDER = 11 // Border of inactive window
APPWORKSPACE = 12 // Background of MDI desktop
HIGHLIGHT = 13 // Selected item background
HIGHLIGHTTEXT = 14 // Selected menu item
BTNFACE = 15 // Button
BTNSHADOW = 16 // 3D shading of button
GRAYTEXT = 17 // Grey text, of zero if dithering is used.
BTNTEXT = 18 // Button text
INACTIVECAPTIONTEXT = 19 // Text of inactive window
BTNHIGHLIGHT = 20 // 3D highlight of button
2NDACTIVECAPTION = 27 // Win98 only: 2nd active window color
2NDINACTIVECAPTION = 28 // Win98 only: 2nd inactive window color

Gracias Pedro
un beso!