Problem on BTNBMP with border ( color and size)

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Problem on BTNBMP with border ( color and size)
Posted: Sun Feb 26, 2023 05:31 PM

I can't change the color of the border and its thickness, what should I do?
it is allway black ...why ?

the small test

Code (fw): Select all Collapse

 #include "fivewin.ch"


FUNCTION Test()
   local oDlg,oBtn
   local nHt      := Int( ScreenHeight() * 0.2 )
   local nWd      := Int( ScreenWidth() * 0.2 )
    local aBru[ 2 ]
   local lNormal :=.f.

    DEFINE BRUSH aBru[ 1 ]   STYLE BDIAGONAL COLOR  RGB(243,243,238)
    DEFINE BRUSH aBru[ 2 ]   STYLE BDIAGONAL COLOR  RGB(243,243,238)

       DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL;
       RESIZABLE   TiTle "test" COLOR CLR_BLACK, RGB( 245,245,235)  ;
       STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
                  WS_MINIMIZEBOX, WS_THICKFRAME )


                 @ 10, 10 BTNBMP oBtn   ;
                 FLAT  SIZE 28, 25  OF oDlg   PIXEL  2007;
                 NOROUND


    oBtn:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
    oBtn:nClrBorder := RGB( 245,245,235)
    oBtn:disable()

 ACTIVATE DIALOG oDlg CENTERED
return ni

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion