Problem on BTNBMP with border ( color and size)

Problem on BTNBMP with border ( color and size)

Postby Silvio.Falconi » Sun Feb 26, 2023 5: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: 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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 38 guests