FiveTech Software tech support forums

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

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

Hola Lorenzo:

Prueba con:

oBtn:oPBrush := oBrushF
oBtn:Refresh()

Saludos.

Manuel Mercado

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]

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

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

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

Hi Silvio:

Try this:

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

Regards.

Manuel Mercado[/code]

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