pequeño fix para xbrowse 15.11

[mastintin]

en el codigo que crea los botones ...

Code: Select all  Expand view

METHOD CreateButtons() CLASS TXBrwColumn

..........

    if ::oBtnElip != nil
         ::oBtnElip:End()
      endif

      @ 0,0 BTNBMP ::oBtnList RESOURCE "" OF ::oBrw NOBORDER SIZE 0,0
      WITH OBJECT ::oBtnList
         if Empty( aBitmap )
            :hBitmap1 := FwDArrow()
         else
            :hBitmap1   := aBitmap[ BITMAP_HANDLE ]
            :hPalette1  := aBitmap[ BITMAP_PALETTE ]
            :HasAlpha(  :hBitmap1, 1 )    // nuevo
         endif
         :bAction := { || ::ShowBtnList() }
         :SetFont( ::DataFont )
         :SetColor( aColors[ 1 ], aColors[ 2 ] )
      END
      @ 0,0 BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0 CENTER
      WITH OBJECT ::oBtnElip
         if Empty( aBitmap )
            :cCaption := IfNil( ::cBtnCaption, "..." )
         else
            :hBitmap1   := aBitmap[ BITMAP_HANDLE ]
            :hPalette1  := aBitmap[ BITMAP_PALETTE ]
            :cCaption := ""
            :HasAlpha(  :hBitmap1, 1 )    // nuevo
         endif
         :bAction := {|| ::RunBtnAction() }
         :SetFont( ::DataFont )
         :SetColor( aColors[ 1 ], aColors[ 2 ] )
      END

     .......................
 

[nageswaragunupudi]

Thanks
Included for next release