Color a Groupbox Frame

[Rick Lipkin]

To All ...

I believe I have asked this question many years ago .. when I have a resource and use a group box .. is there a way to add a color to the box frame itself .. the group box frame just gets washed out with the dialog background ?? I am using a Windows manifest file and remember that component may be an issue ??

Thanks
Rick Lipkin

[Jimmy]

hi Rick,

I am using a Windows manifest file and remember that component may be an issue ??

try to disable "visual Style"

Code: Select all  Expand view  RUN

  SetWindowTheme( oObj:hWnd, "", "" )

[karinha]

https://forums.fivetechsoft.com/viewtopic.php?t=39744


Regards, saludos.

[Marc Venken]

I think that this will color the title only ?

I have the same issue as Rick, but not using resources

[Rick Lipkin]

Unfortunately this example did not work

https://forums.fivetechsoft.com/viewtopic.php?t=39744
REDEFINE GROUP oGrp1 ID 196 of oPark COLOR CLR_CYAN, CLR_WHITE Font oFontB TRANSPARENT

The only thing changed was the color of the text and the text color works fine ..
REDEFINE GROUP oGrp1 ID 196 of oPark
oGrp1:SetFont( oFontB )
oGrp1:nClrText := ( nRgb(7,7,224) )

Still unable to change the color of the Group Box frame

Rick Lipkin

[karinha]

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\CORMEMO.PRG

***************************************************
* Multi SAY/GET testing in 32 bit Xbase++ mode....*
* Jon Berg 10-8-99                                *
***************************************************
#include "FiveWin.ch"
*********************

#Define CLR_ORANGE     nRGB( 255, 165, 000 ) //-> Orange - Laranja

static oWnd, lCambiaColor := .T.

//----------------------------------------------------------------------------//

function Main()

   DEFINE WINDOW oWnd FROM 1, 1 TO 30, 70 ;
      TITLE "Testing Says/Gets and Get Pictures and Foreground/Background Colors" ;
      MENU BuildMenu()

   SET MESSAGE OF oWnd TO "FiveWin++"

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Say/Get Testing"
      MENU
         MENUITEM "&Build Multi GET Dialog1 with PICTs "  ACTION (BldDlg1())
         MENUITEM "Item &2"  ACTION MsgInfo("Test Menu Item2")
         MENUITEM "Item &3"  ACTION MsgInfo("Test Menu Item3")
         SEPARATOR
         MENUITEM "Exit" ACTION oWnd:End()
      ENDMENU
  ENDMENU
return oMenu

//----------------------------------------------------------------------------//

function BldDlg1()

   local oDlg, oArial, oFont, oMemo, oGroup
   local cName1    := "ONE          "
   local cName2    := "two        "
   local cName3    := "3        "
   local cName4    := "4       "
   local cName5    := "5        "
   local cName6    := "54321        "
   local cName7    := "567890                  "
   local lRESERVE  := .F.
   local cPROV_TYPE:= SPACE(20)
   local cPHONE    := SPACE(18)
   local dCERT_DATE:= CTOD('  /  /  ')
   local nPROC_DAYS:= 9876
   local cTEXT     := "Use Tab or Shift Tab to move to next get."+SPACE(256)
   LOCAL aGet      := ARRAY(5)

   SET EPOCH TO 1920
   SET CENTURY ON

   DEFINE DIALOG oDlg FROM 1, 1 TO 600, 800 ;
          TITLE "Hello Gets!"               ;
          STYLE  nOr(WS_POPUP,              ;
                     WS_VISIBLE,            ;
                     WS_CAPTION,            ;
                     WS_THICKFRAME,         ;
                     WS_SYSMENU,            ;
                     WS_MINIMIZEBOX,        ;
                     WS_MAXIMIZEBOX)        ;
          PIXEL OF oWnd                            && Defined by Pixels


   DEFINE FONT oFont NAME "FIXEDSYS" SIZE 10, -10    && Use a Nonproportional font
   SET FONT OF oDlg TO oFont                         && so characters line up in Says

   @  00, 03 SAY "Showing how to do SAY/GETs from source code.  No DLLs or RC files. " OF oDlg COLORS CLR_BLACK,CLR_YELLOW BORDER SIZE 300,10
   @  01, 03 SAY "Navigation Keys to traverse gets are Ret, Arrows, Tab and Shift Tab....ESC to close this Dialog" OF oDlg COLORS CLR_WHITE,CLR_BLUE   BORDER SIZE 380,10
   @  02, 03 SAY "Testing Say with different colors and a border. "  OF oDlg COLORS CLR_HRED   ,CLR_WHITE  BORDER SIZE 200,10
   //@  03, 03 SAY "Testing Say with different colors and no border."  OF oDlg COLORS CLR_HBLUE  ,CLR_WHITE         SIZE 200,10

   // COLOR IN GROUP BOX.

   @ 3.95, 2.96 SAY "" OF oDlg COLORS CLR_BLACK, CLR_YELLOW BORDER ;
      SIZE 192, 45 UPDATE

   @ 04, 2.50 GROUP oGroup TO 7.50, 30  LABEL "GROUP BOX COLOR" OF oDlg ;
      TRANSPARENT COLOR CLR_ORANGE, CLR_WHITE

   // @ 163, 2 GROUP oGroup TO 192, 200 LABEL "RECOMENDACIONES" OF oDlg  pixel TRANSPARENT

   @  05, 19 SAY "Field length" OF oDlg SIZE 65,10  && Use normal colors
   @  06, 19 SAY "      |     " OF oDlg SIZE 65,10

   @  07, 03 SAY "1  Chr No PICT                       13" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10
   @  08, 03 SAY "2  Chr No PICT                       11" OF oDlg COLORS CLR_BLUE  ,CLR_HCYAN BORDER SIZE 195,10
   @  09, 03 SAY "3  Chr No PICT                        9" OF oDlg COLORS CLR_RED   ,CLR_HCYAN BORDER SIZE 195,10
   @  10, 03 SAY "4  Chr    PICT 'NNNNNNNN'             8" OF oDlg COLORS CLR_HRED  ,CLR_HCYAN BORDER SIZE 195,10
   @  11, 03 SAY "5  Chr    PICT 'AAAAAAAAA'            9" OF oDlg COLORS CLR_HGREEN,CLR_HCYAN BORDER SIZE 195,10
   @  12, 03 SAY "6  Chr    PICT '9999999999'          13" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10
   @  13, 03 SAY "7  Chr    PICT '@K@!@S10'            24" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10
   @  14, 03 SAY "   Logic 'T/F or Y/N'                 1" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10
   @  15, 03 SAY "   Chr    PICT '@S5'and !EMPTY()     20" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10
   @  16, 03 SAY "   Chr    PICT '(999)A99-9!99-9999'  18" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10
   @  17, 03 SAY "   Date   !> comp date or empty       8" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10
   @  16.8,   35 SAY "Set Century is on."                  OF oDlg SIZE 195,10
   @  17.3,   35 SAY "Set Epoch is set to 1919."           OF oDlg SIZE 195,10
   @  18, 03 SAY "   Num    PICT '99' !>10             10" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10
   @  19, 03 SAY "   Memo No PICT                     256" OF oDlg COLORS CLR_BLACK ,CLR_HCYAN BORDER SIZE 195,10

   @  07, 28 GET cName1     OF oDlg COLORS "B/BG" SIZE 20,10
   @  08, 28 GET cName2     OF oDlg COLORS CLR_BLACK,CLR_HCYAN
   @  09, 28 GET cName3     OF oDlg COLORS CLR_BLACK,CLR_YELLOW
   @  10, 28 GET cName4     OF oDlg PICTURE "NNNNNNNN"
   @  11, 28 GET cName5     OF oDlg PICTURE "AAAAAAAAA"
   @  12, 28 GET cName6     OF oDlg PICTURE "9999999999"

   @  13, 28 GET cName7     OF oDlg PICTURE "@K@!@S10"
   @  14, 28 GET lRESERVE   OF oDlg PICTURE  "Y"  MESSAGE "Please type in a Y or N "
   @  15, 28 GET cPROV_TYPE OF oDlg PICTURE  "@S5" VALID IF(EMPTY(cPROV_TYPE),(MSGINFO("You have to enter at least 1 Character"),.F.),.T.)
   @  16, 28 GET cPHONE     OF oDlg PICTURE  "(999)A99-9!99-9999"

   @  17, 28 GET dCERT_DATE OF oDlg SIZE 50,10 VALID (IF(dCERT_DATE>DATE(),(MSGINFO("Certification Date must not be greater than Computer Date or blank!"),.F.),.T.)) MESSAGE "Please type in the Certification Date"

   @  18, 28 GET nPROC_DAYS OF oDlg PICTURE "99" VALID (IF(nPROC_DAYS>10,(MSGINFO("Processing Days Must be less that 11 or Empty"),.F.),.T.)) MESSAGE "Please type in the Number of days it took to process"

   //@  19, 28 GET cText MEMO  OF oDlg SIZE 140,46
   @  19, 28 GET aGet[1] VAR cText MEMO  OF oDlg SIZE 140,46 ;
             ON CHANGE( SET_COLOR( aGet ) )

   aGet[1]:bGotFocus  := {|| aGet[1]:SetColor(RGB(0,0,0),RGB(197,205,255)),aGet[1]:Refresh()}
   aGet[1]:bLostFocus := {|| aGet[1]:SetColor(RGB(0,0,0),RGB(255,255,255)),aGet[1]:Refresh()}

   ACTIVATE DIALOG oDlg CENTERED ;
      ON LEFT CLICK nMsgBox( "Incredible!" )

   lCambiaColor := .T.
   
return nil

FUNCTION SET_COLOR( aGet )  // mas o menos esto, cambia a tu gosto.

  LOCAL nCor

  IF lCambiaColor // cambia color solo una viez

      aGet[1]:SetColor( aGet[1]:nClrText, nCor := ChooseColor( aGet[1]:nClrPane ) )

      aGet[1]:Refresh()
      aGet[1]:SetFocus()

   ENDIF

   lCambiaColor := .F.

RETURN NIL
 

Regards, saludos.

[Cgallegoa]

Rick,

You can use Manuel Mercado's TSLINES class.

[karinha]

Rick,

You can use Manuel Mercado's TSLINES class.

An Example?

Regrads, saludos.

[Cgallegoa]

João,

TESTLINES.PRG

Code: Select all  Expand view  RUN

* Test program of TSLines Class
* Author: Manuel Mercado
* Last Update: March 17th, 2002

#include "FiveWin.ch"
#include "TSLines.ch"

//--------------------------------------------------------------------------//

Function Main()

   Local oDlg, oFont, oBrush, oRad, oBtn[ 2 ], ;
         nVar := 1

   DEFINE FONT oFont NAME "Arial" SIZE 0, -10
   DEFINE BRUSH oBrush RESOURCE "Default"

   DEFINE DIALOG oDlg NAME "DIALOG_1" FONT oFont TRANSPARENT ;
          TITLE "Yoyoyo Static Lines in Dialogs From Resources" ;
          COLOR CLR_BLACK, CLR_HGRAY

   REDEFINE HORZ LINE ID 101 OF oDlg COLORS CLR_WHITE, CLR_GRAY

   REDEFINE WHITE BOX ID 102 OF oDlg COLORS CLR_WHITE, CLR_GRAY

   REDEFINE VERT LINE ID 103 OF oDlg COLORS CLR_WHITE, CLR_HRED

   REDEFINE GRAY BOX ID 104 OF oDlg COLORS CLR_WHITE, CLR_BLUE

   REDEFINE VERT LINE ID 105 OF oDlg COLORS CLR_HRED, CLR_YELLOW

   REDEFINE BLACK BOX ID 106 OF oDlg COLORS CLR_WHITE, CLR_GREEN

   REDEFINE BUTTON oBtn[ 1 ] ID 107 OF oDlg FONT oFont ;
            ACTION oDlg:End()

   REDEFINE BUTTON oBtn[ 1 ] ID 116 OF oDlg FONT oFont ;
            ACTION oDlg:End()

   REDEFINE BUTTON oBtn[ 1 ] ID 117 OF oDlg FONT oFont ;
            ACTION oDlg:End()

   oBtn[ 1 ]:cToolTip := "Boxes are transparent to other controls"

   REDEFINE WHITE BOX ID 108 OF oDlg COLORS CLR_WHITE, CLR_GRAY ROUNDED

   REDEFINE GRAY BOX ID 109 OF oDlg COLORS CLR_WHITE, CLR_BLUE ROUNDED

   REDEFINE BLACK BOX ID 110 OF oDlg COLORS CLR_WHITE, CLR_GREEN ROUNDED

   // label left aligned (default)
   REDEFINE GRAY BOX ID 111 OF oDlg TEXT "Label" // FONT oFont

   // label centered
   REDEFINE GRAY BOX ID 112 OF oDlg LABEL "Label" ;
            ALIGN DT_CENTER ROUNDED
   // label right aligned
   REDEFINE GRAY BOX ID 113 OF oDlg LABEL "Label" ALIGN DT_RIGHT

   // horizontal lines
   REDEFINE HORZ LINE ID 114 OF oDlg COLORS CLR_WHITE, CLR_GRAY

   REDEFINE BUTTON oBtn[ 2 ] ID 115 OF oDlg FONT oFont ;
            PROMPT "&Exit" NOBORDER ;
            ACTION oDlg:End()

   oBtn[ 2 ]:cToolTip := "Boxes are transparent to other controls"

   ACTIVATE DIALOG oDlg VALID ( oFont:End(), .T. )

Return Nil
 

TESTLINES.RC:

Code: Select all  Expand view  RUN

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 10.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

SHAPE1 BITMAP "Shape1.bmp"

DIALOG_1 DIALOG DISCARDABLE 6, 15, 217, 205
STYLE WS_POPUP|DS_3DLOOK|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_MAXIMIZEBOX|WS_VISIBLE
CAPTION "DIALOG_1"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 102, "Static", SS_WHITERECT, 9, 20, 46, 46
  CONTROL "", 104, "Static", SS_WHITERECT, 78, 20, 46, 46
  CONTROL "White Box", -1, "Static", WS_GROUP, 15, 27, 37, 8
  CONTROL "Exit", 107, "Button", WS_TABSTOP, 16, 36, 8, 8
  CONTROL "", 103, "Static", SS_WHITERECT, 65, 20, 4, 169
  CONTROL "Gray Box 1", -1, "Static", WS_GROUP, 84, 27, 35, 8
  CONTROL "", 105, "Static", SS_WHITERECT, 133, 20, 5, 170
  CONTROL "", 101, "Static", SS_WHITERECT, 8, 6, 195, 6
  CONTROL "", 106, "Static", SS_WHITERECT, 151, 20, 46, 46
  CONTROL "Black Box", -1, "Static", WS_GROUP, 157, 27, 34, 8
  CONTROL "", 108, "Static", SS_WHITERECT, 11, 83, 46, 46
  CONTROL "White Box", -1, "Static", WS_GROUP, 15, 95, 37, 8
  CONTROL "", 109, "Static", SS_WHITERECT, 78, 83, 46, 46
  CONTROL "Gray Box 2", -1, "Static", WS_GROUP, 83, 95, 37, 8
  CONTROL "", 110, "Static", SS_WHITERECT, 151, 83, 46, 46
  CONTROL "Black Box", -1, "Static", WS_GROUP, 156, 95, 37, 8
  CONTROL "", 111, "Static", SS_WHITERECT, 11, 142, 46, 46
  CONTROL "", 112, "Static", SS_WHITERECT, 78, 142, 46, 46
  CONTROL "", 113, "Static", SS_WHITERECT, 151, 142, 46, 46
  CONTROL "", 114, "Static", SS_WHITERECT, 9, 196, 195, 6
  CONTROL "Exit", 116, "Button", WS_TABSTOP, 16, 44, 8, 8
  CONTROL "Exit", 117, "Button", WS_TABSTOP, 16, 52, 8, 8
  CONTROL "One", -1, "Static", WS_GROUP, 28, 36, 24, 8
  CONTROL "Two", -1, "Static", WS_GROUP, 28, 45, 24, 8
  CONTROL "Three", -1, "Static", WS_GROUP, 27, 54, 24, 8
  CONTROL "Exit", 115, "Button", WS_TABSTOP, 87, 167, 27, 12
}

DIALOG_2 DIALOG DISCARDABLE 6, 15, 217, 205
STYLE WS_POPUP|DS_3DLOOK|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_MAXIMIZEBOX|WS_VISIBLE
CAPTION "DIALOG_1"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 114, "Static", SS_WHITERECT, 9, 196, 195, 6
  CONTROL "Button", 115, "Button", WS_TABSTOP, 83, 169, 50, 14
}

1 MANIFEST "windows.manifest"

You must link TSBUTTON.LIB, or, if you don´'t want to link TSBUTTON.LIB, you can link only TSLINES.PRG and BPAINT.C, both from TSBUTTON source
Regards,

[karinha]

Good morning. How do I compile BPAINT.C with FWH19.05? I don't use anything from Manuel Mercado.

Thanks.

Regards, saludos.

[karinha]

Que tal?

https://imgur.com/MlS8SNO



Regards, saludos.

[karinha]

Code: Select all  Expand view  RUN

// C:\FWH..\SAMPLES\TESTGRP.PRG Modified by Joao Santos. 11/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)

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

   DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 00, -14 BOLD
   DEFINE FONT oFnt  NAME "Ms Sans Serif" SIZE 00, -12 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()

   ACTIVATE DIALOG oDlg CENTERED

   // RELEASE BRUSH oBrush
   RELEASE FONT oFont
   RELEASE FONT oFnt

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.

[Cgallegoa]

[Cgallegoa]

João,

"MAKE_LIB.BAT" -> Script to make TSLINES.LIB (independent of tsbutton.lib):

Code: Select all  Expand view  RUN

@ECHO ****** Genera archivos C ******
C:\XHARBOUR\BIN\Harbour TSLINES /n /p /i%C:\FWH\INCLUDE;C:\XHARBOUR\INCLUDE;C:\BORLAND\INCLUDE% > LOGFILE.TXT
IF ERRORLEVEL 1 GOTO ERROR >> LOGFILE.TXT
ECHO *************** Todo bien *************** >> LOGFILE.TXT

@ECHO ****** Con los archivos C genera los archivos obj ******
BCC32 -M -c -O2 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -I%C:\FWH\INCLUDE;C:\XHARBOUR\INCLUDE;C:\BORLAND\INCLUDE% -tW BPAINT.c >> LOGFILE.TXT
IF ERRORLEVEL 1 GOTO ERROR >> LOGFILE.TXT
ECHO *************** Todo bien *************** >> LOGFILE.TXT
BCC32 -M -c -O2 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -I%C:\FWH\INCLUDE;C:\XHARBOUR\INCLUDE;C:\BORLAND\INCLUDE% -tW TSLINES.c  >> LOGFILE.TXT
IF ERRORLEVEL 1 GOTO ERROR >> LOGFILE.TXT
ECHO *************** Todo bien *************** >> LOGFILE.TXT

@ECHO ****** Genera Libreria VBOX32.LIB ******
if exist TSLINES.lib del TSLINES.lib
TLIB TSLINES.LIB +-BPAINT    >> LOGFILE.TXT
TLIB TSLINES.LIB +-TSLINES   >> LOGFILE.TXT

DEL TSLINES.c
DEL TSLINES.obj
DEL BPAINT.obj

IF ERRORLEVEL 1 GOTO ERROR >> LOGFILE.TXT
ECHO *************** Todo bien *************** >> LOGFILE.TXT
GOTO EXIT >> LOGFILE.TXT
:ERROR >> LOGFILE.TXT
ECHO *************** Hay errores *************** >> LOGFILE.TXT
GOTO EXIT >> LOGFILE.TXT
:EXIT >> LOGFILE.TXT
DEL *.ppo

Regards,

[karinha]

NO FUNCIONA: SBUTTON7

Code: Select all  Expand view  RUN

C:\BCC74\BIN\BCC32 -M -c -O2 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -I%C:\FWH1905\INCLUDE;C:\XHBBCC74\INCLUDE;C:\BCC74\INCLUDE% -tW BPAINT.c >> LOGFILE.TXT

xHarbour 1.2.3 Intl. (SimpLex) (Build 20201212)
Copyright 1999-2020, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TSLINES.prg' and generating preprocessed output to 'TSLINES.ppo'...
Done.

Lines 262, Functions/Procedures 6, pCodes 1277
Embarcadero C++ 7.40 for Win32 Copyright (c) 1993-2018 Embarcadero Technologies, Inc.
BPAINT.C:
Warning W8075 BPAINT.C 46: Suspicious pointer conversion in function HB_FUN_SBTNPAINT
Warning W8071 BPAINT.C 103: Conversion may lose significant digits in function HB_FUN_SBTNPAINT
Warning W8071 BPAINT.C 127: Conversion may lose significant digits in function HB_FUN_SBTNPAINT
Warning W8071 BPAINT.C 411: Conversion may lose significant digits in function HB_FUN_SBTNPAINT
Warning W8071 BPAINT.C 531: Conversion may lose significant digits in function HB_FUN_SBTNPAINT
Warning W8071 BPAINT.C 605: Conversion may lose significant digits in function HB_FUN_SBTNPAINT
Warning W8080 BPAINT.C 672: 'hMask' is declared but never used in function HB_FUN_SBTNPAINT
Warning W8080 BPAINT.C 672: 'hBmOld2' is declared but never used in function HB_FUN_SBTNPAINT
Warning W8080 BPAINT.C 672: 'lpBits' is declared but never used in function HB_FUN_SBTNPAINT
Warning W8080 BPAINT.C 672: 'pt' is declared but never used in function HB_FUN_SBTNPAINT
Warning W8080 BPAINT.C 672: 'nDC' is declared but never used in function HB_FUN_SBTNPAINT
Warning W8080 BPAINT.C 672: 'mDC' is declared but never used in function HB_FUN_SBTNPAINT
Warning W8080 BPAINT.C 672: 'bs' is declared but never used in function HB_FUN_SBTNPAINT
Warning W8080 BPAINT.C 672: 'lb' is declared but never used in function HB_FUN_SBTNPAINT
Warning W8071 BPAINT.C 957: Conversion may lose significant digits in function ColorDegrad
Warning W8071 BPAINT.C 958: Conversion may lose significant digits in function ColorDegrad
Warning W8071 BPAINT.C 959: Conversion may lose significant digits in function ColorDegrad
Warning W8075 BPAINT.C 1166: Suspicious pointer conversion in function HB_FUN_DRAWRADIO
Warning W8075 BPAINT.C 1485: Suspicious pointer conversion in function HB_FUN_DRAWBOXES
Warning W8071 BPAINT.C 1631: Conversion may lose significant digits in function cDrawBoxes
Warning W8071 BPAINT.C 1904: Conversion may lose significant digits in function DegradColor
Warning W8071 BPAINT.C 1905: Conversion may lose significant digits in function DegradColor
Warning W8071 BPAINT.C 1906: Conversion may lose significant digits in function DegradColor
*** 1 errors in Compile ***
Embarcadero C++ 7.40 for Win32 Copyright (c) 1993-2018 Embarcadero Technologies, Inc.
 

Thanks.

Regards, saludos.