Una sobre BRUSH

[Loren]

Estimados compañeros:

¿ alguien sabe como cambiar el brush de un SButton ? Puedo cambiar el prompt pero no el Brush.

Yo hago así:
...
define brush oBrushF file 'Rojo.bmp'
Define dialog...
REDEFINE SBUTTON oBtn ID 4005 OF oDialog brush obrushF
....
Activate dialog

Y ahora hago:
1) Defino el nuevo brush:
define brush oBrushF file 'verde.bmp'
2) Cambio de brush
oBtn:SetBrush( oBrushF )
oBtn:refresh()
Incluso he intentado cambiar así:
oBtn:SetBrush( TBrush():New('verde.bmp') )

No genera ERROR, pero tampoco cambia el BRUSH
¿ Alguna sugerencia ? Me estoy volviendo loco!!
LORENZO

[Loren]

Estimados compañeros:

He averiguado que se trata de "bug" en el codigo de TSBUTTON. No hay manera de cambiar el brush en tiempo de ejecución.

De todas formas, mil gracias.
LORENZO

[mmercado]

Hola Lorenzo:

Prueba con:

oBtn:oPBrush := oBrushF
oBtn:Refresh()

Saludos.

Manuel Mercado

[Silvio]

Manuel,
Do you saw my picture on this forum ?
the tsbutton are not trasparent
can you correct it pls ?
look it

@ Fila,(Col+nPassLarg) SBUTTON aBtn[n];
File OMBEMPTY,;
OMBFULL,;
OMBEMPTY,;
OMBEMPTY PIXEL ;
OF oWChld ;
FONT oFont2 ;
CAPTION cCaption ;
TEXT ON_CENTER ;
tooltip cCaption2;
NOBOXTR
[code][/code]

[Loren]

Estimado Maestro Manuel:

No cabe duda que su contribución a este mundo ha sido, es y será fundamental. Despues de muchos dias de prueba, ensayos, revisión del codigo fuente, conversaciones con compañeros del foro y mediante email privados e incluso con el maestro Antonio Linares, desistí y llegué a la conclusión que era un "bug" en la clase.

Sin embargo, para mi mayor sorpresa he seguido sus indicaciones y "et voilà", el brush se refresca perfectamente sin problemas.

Mil gracias de nuevo, maestro.
Lorenzo

[mmercado]

Hi Silvio:

I'm trying to update TSButton and TSBrowse and make them to work properly with Harbour/xHarbour. I saw your message but I'm not ready to answer your question yet. I'll be in touch.

Best regards.

Manuel Mercado

[Silvio]

Dear Manuel,
if you see the image up this message where you see umbrellas you can see the picture are not trasparent

[mmercado]

Hi Silvio:

Try this:

oBtn:lTransparent := .T.
oBtn:nBorder := 0

Regards.

Manuel Mercado[/code]

[Silvio]

Manuel ,
not run ok
I use tsbutton 6.1

Code: Select all  Expand view

    @ Fila,(Col+nPassLarg) SBUTTON  aBtn[n];
                                    File OMBFULL,;
                                          OMBEMPTY,;
                                          OMBFULL,;
                                          OMBFULL  PIXEL ;
                                    OF oWChld ;
                                     FONT oFont2 ;
                                     CAPTION cCaption ;
                                     TEXT ON_CENTER ;
                                     tooltip  cCaption2;
                                     NOBOX


                                      ELSE


                @ Fila,(Col+nPassLarg) SBUTTON  aBtn[n];
                                    File OMBEMPTY,;
                                          OMBFULL,;
                                          OMBEMPTY,;
                                          OMBEMPTY  PIXEL ;
                                    OF oWChld ;
                                     FONT oFont2 ;
                                     CAPTION cCaption ;
                                     TEXT ON_CENTER ;
                                     tooltip  cCaption2  ;
                                   NOBOX

                               ENDIF


                               aBtn[n]:lTransparent := .T.
                               aBtn[n]:nBorder := 0




I send you my picture