Color a Groupbox Frame

[kapiaba]

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43298&sid=2b62faea5ae2cd784e5472638859f243

 

Regards, saludos.

[kapiaba]

Perfect,

// Testing Groups
	#include "FiveWin.ch"
#include "WColors.ch"
	#Define CLR_ORANGE     nRGB( 255, 165, 000 ) //-> Orange     - Laranja
	//----------------------------------------------------------------------------//
FUNCTION Main()
	    LOCAL oDlg, oBrush, oGroup, oFont, cText := "Hello"
	    // DEFINE BRUSH oBrush FILE "..\bitmaps\bricks.bmp"
    DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE
	    DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 0, -8 BOLD
	    DEFINE DIALOG oDlg NAME "Test" BRUSH oBrush
	    REDEFINE GET cText ID 102 OF oDlg
	    // REDEFINE GROUP oGroup ID 101 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oDlg ;
    //    FONT oFont PROMPT "Modified Group Caption"
	    REDEFINE GROUP oGroup ID 101 COLOR CLR_HBLUE, CLR_ORANGE OF oDlg ;
       FONT oFont PROMPT "Modified Group Caption"
	    REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg:End()
	    ACTIVATE DIALOG oDlg ON INIT ( SetWindowTheme( oGroup:hWnd, "", "" ), .T. )
	    RELEASE BRUSH oBrush
    RELEASE FONT oFont
	RETURN NIL
//----------------------------------------------------------------------------//
	// IN BUILDX.BAT
/*
IF EXIST %1.rc %bcdir%\bin\brc32.exe -r -I%bcdir%\include -I%bcdir%\include\windows\sdk %1
	// MANIFEST DE WINDOWS.
%bcdir%\bin\BRC32.Exe -R XPLOOK.RC
*/

Regards, saludos.