Problem on BTNBMP with border ( color and size)

[Silvio.Falconi]

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: Select all  Expand view

#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