Color a Groupbox Frame

Re: Color a Groupbox Frame

Postby karinha » Mon Jun 12, 2023 12:16 am

WITH BCC55 compila WITH BCC74 NO compila!

Code: Select all  Expand view

@ECHO OFF
C:\BCC74\BIN\BCC32 -D__HARBOUR__ -O2 -c -Ic:\BCC74\include;c:\XHBBCC74\include;c:\fwh1905\include %1
 


Thanks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Color a Groupbox Frame

Postby Cgallegoa » Mon Jun 12, 2023 12:38 am

João,

Full Source TSLINES.PRG, BCPAINT.C, TSLINES.CH, TSLINES.LIB (xHarbour, BORLAND 7.3), TESTLIN3.PRG, TESTLIN3.RC, TESTLIN3.EXE and BATCH's/Script for Lib and Exe.

Here all is working fine.

https://mega.nz/file/RvU0lSwB#8-5ACpCKv5XgLJhGsGGL-Sj8DoW84lrtOc3yYBF2EEw

Regards,
Saludos,

Carlos Gallego

*** FWH-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***
Cgallegoa
 
Posts: 492
Joined: Sun Oct 16, 2005 3:32 am
Location: Quito - Ecuador

Re: Color a Groupbox Frame

Postby karinha » Mon Jun 12, 2023 11:38 am

Carlos, With XHBBCC74 and BCC74 it doesn't work at all. Please see if I made a mistake in modifying your SCRIPT which is terrible. haha ha.

Con XHBBCC74 y BCC74 no funciona en absoluto. Vea si cometí un error al modificar su SCRIPT, lo cual es terrible. jajaja.

CX.BAT

Code: Select all  Expand view

@ECHO OFF

If Exist PRUEBA1.EXE DEL PRUEBA1.EXE /S

SET OLDPATH=%PATH%
SET OLDINCLUDE=%INCLUDE%
SET OLDLIB=%LIB%

REM ---- Change this paths if needed ----
PATH=%PATH%;C:\XHBBCC74\BIN;C:\BCC74\BIN
// NO USO PELLESC
REM SET INCLUDE=C:\FWH1905\INCLUDE;C:\XHBBCC74\INCLUDE;C:\BCC74\INCLUDE;C:\PELLESC\INCLUDE;C:\PELLESC\INCLUDE\WIN;..\INCLUDE

SET INCLUDE=C:\FWH1905\INCLUDE;C:\XHBBCC74\INCLUDE;C:\BCC74\INCLUDE

SET LIB=C:\FWH1905\LIB;C:\XHBBCC74\LIB;C:\BCC74\LIB

REM bldtest pru32b
make -fPrueba.mak

SET PATH=%OLDPATH%
SET INCLUDE=%OLDINCLUDE%
SET LIB=%OLDLIB%
SET OLDPATH=
SET OLDINCLUDE=
SET OLDLIB=
 


Thanks, gracias.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Color a Groupbox Frame

Postby karinha » Mon Jun 12, 2023 11:39 am

PRUEBA.MAK

Code: Select all  Expand view

##############################################################################
# Template make file for FWH and Borland Make tool                           #
##############################################################################

# Win2000 bug ################################################################
# Uncomment next line if you receive any DEL error ###########################
# set DEL=cmd /c del

!if !$d(DEL)
   DEL = del
!endif


# 22-06-2012 Paths principales de la versión de FWH, xHarbour y Borland ######
HARBOUR_DIR  = c:\XHBBCC74
FIVEWIN_DIR  = c:\FWH1905
BORLANDC_DIR = c:\BCC74
MIS_LIB      = C:\LIB
# VIACORAL_LIB = C:\noway  // QUE ES ESTO?
# 22-06-2012 #################################################################


# Make directives ############################################################

.autodepend
.swap
.suffixes: .prg .hrb

# Flags for modules to include: YES | NO (must be UPPERCASE)##################

RES_FILE      = YES
LNK_DBFNTX    = YES
LNK_DBFCDX    = YES
LNK_DEBUG     = NO
LNK_ADVANTAGE = YES
LNK_ODBC      = NO
MAP_FILE      = NO

# Application directories & filenames ########################################

APP_NAME         = TESTLIN3  # (Your EXE name without extension)
APP_PRG_DIR      = .
APP_OBJ_DIR      = .  # (create the app\obj directory first)
APP_INCLUDE_DIR  = .
APP_EXE_DIR      = $(APP_PRG_DIR)
APP_RES_DIR      = $(APP_PRG_DIR)

APP_EXE  = $(APP_EXE_DIR)\$(APP_NAME).EXE
APP_RC   = $(APP_RES_DIR)\$(APP_NAME).rc
APP_RES  = $(APP_RES_DIR)\$(APP_NAME).res
APP_MAP  = $(APP_RES_DIR)\$(APP_NAME).map

# Paths for dependent files ##################################################

.path.prg = $(APP_PRG_DIR)
.path.hrb = $(APP_OBJ_DIR)
.path.obj = $(APP_OBJ_DIR)

## 2019-06-04 - OJO: Indispensable para poder usar pCode DLL (DLL con código) con xHarbour 1.2.3(versión 20161218) y Borland 7.0
##                   Aquí se define la ruta, y se adiciona abajo despues de  " $(LIB_BORL05), + "
DEFFILE4PCODE = C:\XHBBCC74\source\vm\BCC.DEF

## *** C.Gallego 2022-10-18 TSButton genera conflicto con TMenu de FWH. Es mejor dejar de usarla poco a poco. Lo mismo con TSBrowse.
## *** C.Gallego 2023-03-07 - Gravísimo: FWH\LIBXBUGS3\BUGS2019_01.lib - En la funct.hb_RegexReplace() no funciona el Filter en ##                            MARIA_bd:Filter cuando se conecta con maria_Connect de FWH.
##                            No hay problema con ADO. Sólo es con MARIADB de FWH

# Application PRG files (your PRG files go here) #############################
APP_PRG_LIST =  \
   TESTLIN3.prg  \
   c:\XHBBCC74\lib\hbZip.lib \
   c:\XHBBCC74\lib\hbcomm.lib \
   c:\XHBBCC74\lib\CodePage.lib \
   c:\XHBBCC74\lib\PCREPOS.lib \
   c:\XHBBCC74\lib\ZLIB.lib \
   c:\XHBBCC74\lib\hbzebra.lib \
   c:\XHBBCC74\lib\hbcurl.lib \
   c:\FWH1905\lib\pgsql.lib            \
   c:\FWH1905\lib\libpq.lib            \
   c:\FWH1905\lib\libmysql.lib         \
   c:\XHBBCC74\lib\libmisc.lib     \
   c:\XHBBCC74\lib\tip.lib         \
   c:\XHBBCC74\lib\pp.lib          \
   c:\XHBBCC74\lib\libharu.lib      \
   c:\XHBBCC74\lib\hbhpdf.lib      \
   TSLines.lib   \

## *** Atención: C:\LIB\fivew_cg\MPREVIEW_DE_FWH\RPREVIEH.lib \  debe estar en APP_PRG_LIST o sino no carga ***
## C:\FWH\LIBXBUGS3\BUGS2019_01.lib  \ Tiene que ir en  APP_PRG_LIST o sino no funciona. Que joda
## 2020-03-10 La Lib.    c:\lib\fivew_cg\Graficos\Grafic32\GraficaH.lib \ genera conflicto CON DOCKPANEL si está en la parte de los PRG
##                       Pero si está aquí en Millennium sale error. Ver si puedo poner mejor la directa de FWH
APP_OTRAS_LIB = \


## ***** Para compilar y linkear C - Se ajusta en tres partes. Ver más abajo las otras dos *****
## *** 2022-10-18 20:00 - Para compilar con c++ seguir la cadena "## ***** Para compilar y linkear C++ *****" en tres sitios
##APP_C_LIST = printdc.c \
APP_C_LIST = \


# Contruction of the rest dependency lists ###################################

APP_PRGS = $(APP_PRG_LIST)
APP_HRBS = $(APP_PRG_LIST:.prg=.hrb)
## ***** Para compilar y linkear C *****
## APP_OBJS = $(APP_PRG_LIST:.prg=.obj)
APP_OBJS = $(APP_PRG_LIST:.prg=.obj) $(APP_C_LIST:.c=.obj)
## ***** Para compilar y linkear C++ *****
##APP_OBJS = $(APP_PRG_LIST:.prg=.obj) $(APP_C_LIST:.cpp=.obj)

# Fivewin directories ########################################################

FIVEWIN_INCLUDE_DIR = c:\FWH1905\include
FIVEWIN_LIB_DIR     = c:\FWH1905\lib

# Fivewin libraries ##########################################################

# LIBX??? ERROR! NO ME HACE SENTIDO ESTO.

# FIVE_LIB  = c:\FWH1905\libX\fiveHX.lib
FIVE_LIB  = c:\FWH1905\lib\fiveHX.lib
FIVEC_LIB = $(FIVEWIN_LIB_DIR)\fiveHC.lib

# Harbour directories & flags ################################################

HARBOUR_INCLUDE_DIR = c:\XHBBCC74\include
HARBOUR_EXE_DIR     = c:\XHBBCC74\bin
HARBOUR_LIB_DIR     = c:\XHBBCC74\lib
# HARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -m -w -es2 -gc0
# El par metro -m no deja compilar var. p£blicas - C.Gallego
### Para el ejecutable final, comilar con -l para hacerlo más pequeño al no poner el número de las líneas en el pcode.
### HARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -w -l > comp.log

###HARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -w -D__CONFWH27__> comp.log

HARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -w0 -dFW -P > comp.log

#########HARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -m -w -P > comp.log
## HARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -l -B > comp.log

HARBOUR_EXE         = $(HARBOUR_EXE_DIR)\harbour.exe

# Harbour libraries ##########################################################

## OPT_GUI    = $(HARBOUR_LIB_DIR)\optgui.lib
RTL_LIB    = $(HARBOUR_LIB_DIR)\rtl.lib
VM_LIB     = $(HARBOUR_LIB_DIR)\vm.lib

##GTWIN_LIB  = $(HARBOUR_LIB_DIR)\gtwin.lib
GTWIN_LIB  = $(HARBOUR_LIB_DIR)\gtGui.lib

LANG_LIB   = $(HARBOUR_LIB_DIR)\lang.lib
MACRO_LIB  = $(HARBOUR_LIB_DIR)\macro.lib
RDD_LIB    = $(HARBOUR_LIB_DIR)\rdd.lib
DBFNTX_LIB = $(HARBOUR_LIB_DIR)\dbfntx.lib
DBFCDX_LIB = $(HARBOUR_LIB_DIR)\dbfcdx.lib
DEBUG_LIB  = $(HARBOUR_LIB_DIR)\debug.lib
COMMON_LIB = $(HARBOUR_LIB_DIR)\common.lib
PP_LIB     = $(HARBOUR_LIB_DIR)\pp.lib
CT_LIB     = $(HARBOUR_LIB_DIR)\ct.lib

DBFFPT_LIB = $(HARBOUR_LIB_DIR)\dbffpt.lib
HBSIX_LIB  = $(HARBOUR_LIB_DIR)\hbsix.lib
##PCREP_LIB  = $(HARBOUR_LIB_DIR)\pcrepos.lib

# Advantage libraries ########################################################

RDDADS_LIB = $(HARBOUR_LIB_DIR)\rddads.lib

## ERROR? ACE32.DLL EN EL C:\FWH???
## ACE32_LIB  = $(FIVEWIN_LIB_DIR)\ace32.lib

ACE32_LIB = $(HARBOUR_LIB_DIR)\rddads.lib

# Borlanc directories & flags ################################################

BORLANDC_INCLUDE_DIR = c:\BCC74\include
BORLANDC_EXE_DIR     = c:\BCC74\bin
BORLANDC_LIB_DIR     = c:\BCC74\lib

## http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34946&hilit=gif+dialog
## C.Gallego - 2019-09-07 - Para compilar en modo "C++" se debe agregar el switch "-P". Si no se pone, compila en modo "C"
## ***** Para compilar y linkear C++ *****
## BORLANDC_COMP_FLAGS  = -c -O2 -P -I$(HARBOUR_INCLUDE_DIR);$(BORLANDC_INCLUDE_DIR)
BORLANDC_COMP_FLAGS  = -c -O2 -I$(HARBOUR_INCLUDE_DIR);$(BORLANDC_INCLUDE_DIR)

#### BORLANDC_COMP_FLAGS  = -DHB_FM_STATISTICS_OFF -c -O2 -I$(HARBOUR_INCLUDE_DIR);$(BORLANDC_INCLUDE_DIR)

BORLANDC_COMP_EXE    = $(BORLANDC_EXE_DIR)\bcc32.exe

##if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc

BORLANDC_LINK_FLAGS  = -Gn -aa -Tpe -s -v -I$(APP_OBJ_DIR) > link1.log

## ***** Para debbugear
## BORLANDC_LINK_FLAGS  = -Gn -Tpe -s -I$(APP_OBJ_DIR) > link1.log
BORLANDC_LINK_EXE    = $(BORLANDC_EXE_DIR)\ilink32.exe

BORLANDC_RES_EXE     = $(BORLANDC_EXE_DIR)\brc32.exe

## NO USO PELLESC
## BORLANDC_RES_EXE     = C:\PELLESC\BIN\PORC.EXE -iC:\PellesC\include;C:\PellesC\include\win

!if $(MAP_FILE) != YES
   BORLANDC_LINK_FLAGS = $(BORLANDC_LINK_FLAGS) -x
!endif

# Borland libraries & files ##################################################

STARTUP_OBJ  = $(BORLANDC_LIB_DIR)\c0w32.obj
CW32_LIB     = $(BORLANDC_LIB_DIR)\cw32.lib
IMPORT32_LIB = $(BORLANDC_LIB_DIR)\import32.lib
ODBC32_LIB   = $(BORLANDC_LIB_DIR)\psdk\odbc32.lib

LIB_BORL01   = $(BORLANDC_LIB_DIR)\psdk\rasapi32.lib
LIB_BORL02   = $(BORLANDC_LIB_DIR)\psdk\nddeapi.lib
LIB_BORL03   = $(BORLANDC_LIB_DIR)\psdk\msimg32.lib
LIB_BORL04   = $(BORLANDC_LIB_DIR)\psdk\iphlpapi.lib
LIB_BORL05   = $(BORLANDC_LIB_DIR)\psdk\psapi.lib

LIB_UUID     = $(BORLANDC_LIB_DIR)\PSDK\uuid.lib
LIB_WS232    = $(BORLANDC_LIB_DIR)\PSDK\ws2_32.lib
LIB_GDIPLUS  = $(BORLANDC_LIB_DIR)\psdk\gdiplus.lib
LIB_SHELL32  = $(BORLANDC_LIB_DIR)\psdk\shell32.lib

# Dependencies ###############################################################

all: $(APP_OBJS) $(APP_HRBS) $(APP_EXE)

!if $(RES_FILE) == YES
all: $(APP_RES)
!endif

# Implicit Rules #############################################################

.prg.hrb:
   $(HARBOUR_EXE) $(HARBOUR_FLAGS) $** -o$@

.hrb.obj:
   $(BORLANDC_COMP_EXE) $(BORLANDC_COMP_FLAGS) -o$@ $**

## ***** Para compilar y linkear C *****
.c.obj:
## ***** Para compilar y linkear C++ *****
##.cpp.obj:
   $(BORLANDC_COMP_EXE) $(BORLANDC_COMP_FLAGS) $** -o$@
##    BCC32 -c -D__HARBOUR__;HB_API_MACROS -I.;%INCLUDE%C:\FWH1905\INCLUDEpip pruebaenc.c

# Explicit Rules #############################################################

!if $(RES_FILE) == YES
$(APP_RES) : $(APP_RC)
   $(BORLANDC_RES_EXE) -r $**

$(APP_EXE) :: $(APP_RES)
   @if exist $(APP_EXE) $(DEL) $(APP_EXE) > nul
!endif

$(APP_EXE) :: $(APP_OBJS)
   $(BORLANDC_LINK_EXE) $(BORLANDC_LINK_FLAGS) @&&|
   $(STARTUP_OBJ) +
   $(**), +
   $(APP_EXE), +
   $(APP_MAP), +
   $(FIVE_LIB) +
   $(FIVEC_LIB) +
   $(RTL_LIB) +
   $(VM_LIB) +
   $(GTWIN_LIB) +
   $(LANG_LIB) +
   $(MACRO_LIB) +
   $(RDD_LIB) +
!if $(LNK_DBFNTX) == YES
   $(DBFNTX_LIB) +
!endif
!if $(LNK_DBFCDX) == YES
   $(DBFCDX_LIB) +
!endif
   $(DBFFPT_LIB) +
   $(HBSIX_LIB) +
   $(CT_LIB) +
   $(APP_OTRAS_LIB) +
!if $(LNK_DEBUG) == YES
   $(DEBUG_LIB) +
!endif
   $(COMMON_LIB) +
   $(PP_LIB) +
###   $(PCREP_LIB) +
!if $(LNK_ADVANTAGE) == YES
   $(RDDADS_LIB) +
   $(ACE32_LIB) +
!endif
!if $(LNK_ODBC) == YES
   $(ODBC32_LIB) +
!endif
   $(CW32_LIB)     +
   $(IMPORT32_LIB) +
   $(LIB_UUID)     +
   $(LIB_WS232)    +
   $(ODBC32_LIB)   +
   $(LIB_BORL01)   +
   $(LIB_BORL02)   +
   $(LIB_BORL03)   +
   $(LIB_BORL05)   +
   $(LIB_GDIPLUS)  +
   $(LIB_BORL04)   +
   $(LIB_SHELL32), +
   $(DEFFILE4PCODE)  +
!if $(RES_FILE) == YES
   ,$(APP_RES) +
!endif
|
   @$(DEL) $(APP_EXE_DIR)\*.tds
   @$(DEL) $(APP_EXE_DIR)\*.hrb
   @$(DEL) $(APP_EXE_DIR)\*.obj
   @$(DEL) $(APP_EXE_DIR)\*.ppo
 


Thanks, gracias.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Color a Groupbox Frame

Postby karinha » Mon Jun 12, 2023 1:20 pm

Improvements / Mejoras:

Code: Select all  Expand view

// C:\FWH..\SAMPLES\TESTGRP.PRG Modified by Joao Santos. 12/06/2023.

// Testing Groups

#include "FiveWin.ch"
#include "WColors.ch"

STATIC oDlg

FUNCTION Main()

   LOCAL oBrush, oGroup, oFont, oFnt, cText := "Hello Group", cText2 := ""
   LOCAL aGet := ARRAY(5), oPen

   // DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp"

   DEFINE PEN oPen WIDTH 2 COLOR CLR_HBLUE

   DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 00, -14 BOLD
   DEFINE FONT oFnt  NAME "Ms Sans Serif" SIZE 00, -48 BOLD

   DEFINE DIALOG oDlg NAME "Test" FONT oFont COLORS CLR_BLACK, CLR_WHITE     ;
      TRANSPARENT

   oDlg:lHelpIcon := .F.

   REDEFINE GROUP oGroup ID 101 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oDlg ;
      FONT oFont PROMPT "Modified Group Caption"

   REDEFINE GET aGet[1] VAR cText ID 102 OF oDlg ;
      COLORS CLR_CYAN, CLR_WHITE UPDATE

   REDEFINE GET aGet[2] VAR cText2 ID 502 OF oDlg ; // COLOR IN FRAME
      COLOR CLR_WHITE, CLR_BLACK UPDATE

   REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg:End()

   //  L   C  ALT  LARG
   // 16, 15, 144, 246
   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT( WndBoxClr( hDC, 16, 15, 144, 246, oPen:hPen ) )

//    ON PAINT( aGet[1]:Hide(), aGet[2]:Hide(), WndBoxClr( hDC, 16, 15, 144, 246, oPen:hPen ) )

   // RELEASE BRUSH oBrush
   RELEASE FONT oFont
   RELEASE FONT oFnt

   oPen:End()

RETURN NIL

// TESTGRP.RC:

/*
#include ".\..\include\WinApi.ch"

Test DIALOG 239, 97, 173, 130
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Testeando el TGroup"
FONT 8, "MS Sans Serif"
{
 GROUPBOX "Mensaje desde RECURSO", 101, 10, 6, 156, 82, BS_GROUPBOX | WS_GROUP
 EDITTEXT 502, 13, 15, 149, 69, ES_CENTER | ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER
 EDITTEXT 102, 46, 43, 80, 12
 PUSHBUTTON "&Ok", 103, 106, 107, 50, 14
}
*/


// FIN / END - kapiabafwh@gmail.com
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Color a Groupbox Frame

Postby Cgallegoa » Mon Jun 12, 2023 9:23 pm

I don't use BCC55. I use BCC 7.3.

*** FWH-20.07, xHarbour 1.2.3 Build 20190603, Borland C++7.30, PellesC ***

With your scripts (making adjustments to my paths) it compiles and works perfect.

Maybe it's something in your path.

Could you indicate what compile/linking error you have ?

Regards,
Saludos,

Carlos Gallego

*** FWH-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***
Cgallegoa
 
Posts: 492
Joined: Sun Oct 16, 2005 3:32 am
Location: Quito - Ecuador

Re: Color a Groupbox Frame

Postby Rick Lipkin » Tue Jun 13, 2023 1:02 pm

To All

Antonio sent me this simple FW solution ...

ACTIVATE DIALOG oDlg ON INIT ( SetWindowTheme( oGroupBox:hWnd, "", "" ), .T. )

Just substitute your oGroupbox variable into the above code ..

Many thanks to Antonio !

Rick Lipkin

ps .. this code presumes that you are using the Windows Manifest ...
User avatar
Rick Lipkin
 
Posts: 2665
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Color a Groupbox Frame

Postby karinha » Tue Jun 13, 2023 2:02 pm

Cgallegoa wrote:I don't use BCC55. I use BCC 7.3.

*** FWH-20.07, xHarbour 1.2.3 Build 20190603, Borland C++7.30, PellesC ***

With your scripts (making adjustments to my paths) it compiles and works perfect.

Maybe it's something in your path.

Could you indicate what compile/linking error you have ?

Regards,


Carlos, thanks for your attention. As mister Rick Lipkin said it solved the problem and I don't intend to use third party classes. I terminate my participation. Although I was very curious to know why BPAINT.C doesn't compile with my version of BCC74. Thank you very much.

Carlos, gracias por tu atención. Como dijo el señor Rick Lipkin, resolvió el problema y no tengo la intención de utilizar clases de terceros. Doy por terminada mi participación. Aunque tenía mucha curiosidad por saber por qué BPAINT.C no compila con mi versión de BCC74. Muchas gracias.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Color a Groupbox Frame

Postby karinha » Tue Jun 13, 2023 4:49 pm

Perfect,

Code: Select all  Expand view

// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 91 guests