FiveTech Software tech support forums

... exchange the bitmap which is shown when I have a xBrowse column with nEditType EDIT_BUTTON. My try was WITH OBJECT oBrw:aCols[ 1 ]      :oBtnElip:SetText( "" )      :oBtnElip:LoadBitmaps( "find16" )      :nEditType  := EDIT_BUTTON      :bEditBlock := ...

... al activar el dialogo que contiene un xBrowse: ACTIVATE DIALOG oDlgED CENTER RESIZE16 ON INIT ( oDlgED:SetIcon(oApp:cIcono), ; oBrw:aCols[25]:oBtnElip:cToolTip:="Alineación de ambos equipos", ; oBrw:aCols[26]:oBtnElip:cToolTip:="Datos sobre penales errados", ; oBrw:aCols[37]:AnchorToCell( ...

... DATA nBtnWidth, cBtnCaption, bClrBtn DATA cBtnToolTip <---- :D METHOD CreateButtons() CLASS TXBrwColumn ... if ::bClrBtn == nil @ 0,0 BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0 CENTER else @ 0,0 BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0 CENTER FLAT ::oBtnElip:bClrGrad := nil endif ::oBtnElip:lGDIP ...

... Si te fijas, el método :SetColor() no lo procesa ( los botones aparecen en blanco ). He hecho las mismas modificaciones a ::oBtnElip que corresponde a EDIT_BUTTON pero no obtengo ningún resultado ( los botones celestes en la imagen ). Realmente estoy bastante perdido con ...

... defecto la clase. E intentado cambiar este estilo desde el código de la clase pero realmente no me doy cuenta. Sé que las variables de clase son ::oBtnElip y ::oBtnList. Pero al parametrizarlas no obtengo ningún resultado.Donde debería modificar la clase ?. Muchísimas gracias Saludos

Gracias Karinha pero no encuentro en la wiki como cambiar la apariencia de estos botones. Mirando la clase veo que las variables de clase ::oBtnElip y ::oBtnList corresponden a EDIT_BUTTON y a EDIT_LISTBOX. Al mostrar ::oBtnList : ClassName() efectivamente pertenecen a la clase BtnBmp, ahora ...

... de quedar asi no? METHOD ChangeBitmap( ) CLASS TXBrwColumn // BtnGet if ::nBtnBmp > 0 .and. len( ::aBitmaps ) >= ::nBtnBmp DeleteObject( ::oBtnElip:hBitmap1 ) ::oBtnElip:hBitmap1 := ::aBitMaps[::nBtnBmp, BITMAP_HANDLE ] DeleteObject( ::oBtnList:hBitmap1 ) ::oBtnList:hBitmap1 := ::aBitMaps[::nBtnBmp, ...

... METHOD ChangeBitmap( ) CLASS TXBrwColumn // BtnGet if ::nBtnBmp > 0 .and. len( ::aBitmaps ) >= ::nBtnBmp ::oBtnElip:hBitmap1 := ::aBitMaps[::nBtnBmp, BITMAP_HANDLE ] ::oBtnList:hBitmap1 := ::aBitMaps[::nBtnBmp, BITMAP_HANDLE ] ::oBtnElip:cCaption := "" ...

ACTIVATE DIALOG oDlg ON INIT ( oBrw:aCols[ n ]:oBtnElip:cToolTip := <your tool tip> )

And in this line its size can be changed:

::oBtnElip:Move( nButtonRow, nButtonCol, nBtnWidth + 1, nHeight, .f.)

If those changes are fine, then we can see how to set it from your app, instead of modifying the Class source code.

Rick,

If you change this line:

::oBtnElip:cCaption := "label"

you should get a caption. Please try it.

As of now, lBtnTransparent can not be used with Gradient Row background.

In the code, ::oBtnElip:SetColor( aColors[ 1 ],aColors[ 2 ] ), aColors[ 2 ] is expected to be a solid color but not an array.

This is an undocumented limitation as of now.

Daniel Garcia-Gil wrote:Hello

try with

oCol:lBtnTransparent = .T.

Hi Daniel,

I already tried..

Code: Select all  Expand view

..
oBrw:aCols[1]:lBtnTransparent := .T.
oBrw:aCols[1]:lBmpTransparent := .T.
..
 

but still with awful results...

Thank you and regards,
FAP

Hello

try with

oCol:lBtnTransparent = .T.

Dear All,

I tried to :setcolor oBtnElip but still cannot change the background particularly if stretching the xBrowse's data height.

see in red line..



How to properly set this with Fivewin v9.11..


Regards,
FAP