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