Also for XBrowse : Own built-in Buttonbar

Also for XBrowse : Own built-in Buttonbar

Postby Silvio.Falconi » Thu Nov 12, 2020 8:54 am

why is the border of the buttons smaller than the buttons themselves? How can I change the color of the buttonbar?

Image

code

Code: Select all  Expand view
 function XbrSetupBar( oBrw )
   
     local  oCursorBtn :=TCursor():New(,'HAND')

   oBrw:nTopBarHeight := 42
   oBrw:bOnAdjust := <||
     local oBtnBar[3]
      @ 05,05 BTNBMP oBtnBar[1] FILE "MOD_NUOVO" SIZE 40,30 PIXEL OF oBrw NOBORDER ;
        ACTION oBrw:EditSource( .t. ) TOOLTIP "Add New Record"
      @ 05,45 BTNBMP oBtnBar[2] FILE "MOD_MODIFICA" SIZE 40,30 PIXEL OF oBrw NOBORDER ;
        ACTION oBrw:EditSource() TOOLTIP "Edit this record"
      @ 05,85 BTNBMP oBtnBar[3] FILE "MOD_CANCELLA" SIZE 40,30 PIXEL OF oBrw NOBORDER ;
        ACTION If( MsgNoYes( "Delete this row?" ),,oBrw:Delete() ) TOOLTIP "Delete This Record"



       For n= 1 to 3
              oBtnBar[n]:bClrGrad = { | lInvert | If( ! lInvert,;
                    { { 1, RGB( 225, 225, 225 ), RGB( 225, 225, 225 ) } },;
                    { { 1, RGB( 229,241,251 ), RGB( 229,241,251 ) } } ) }
             oBtnBar[n]:nClrBorder := nRgb(218,214,179)
             oBtnBar[n]:oCursor:=   oCursorBtn
          next






      return nil
      >

return nil
 
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 55 guests