TSBUTTON. ¿ se puede cambiar el recurso de un botón ?

[rlblanco]

Hola a todos.

Necesito que los botones ( TSBUTTON del Sr. Mercado ) de un diálogo cambien de aspecto en tiempo de ejecución, en función de ciertos datos que van cambiando a lo largo de la operativa del programa.

¿ Se puede cambiar en tiempo de ejecución el bmp que da forma a botón ( definido como recurso ) ?

Yo estoy utilizando el método de dicha clase obtn:LoadBitmaps(aresource,afile) pero siempre me aparece el bmp que definí con el control y no me actualiza con el nuevo bmp debería ser.

En caso afirmativo, ¿ me podeis poner algún ejemplo ?


Muchas gracias.
Ricardo Blanco.

[mmercado]

Hola Ricardo:

¿ Se puede cambiar en tiempo de ejecución el bmp que da forma a botón ( definido como recurso ) ?

Usa el método ChangeBitmap

En caso afirmativo, ¿ me podeis poner algún ejemplo ?

Con gusto, aquí tienes uno rápido:

Code: Select all

#include "FiveWin.ch"
#include "TSButton.ch"

Function Main()

   Local oDlg, oRad, ;
         nLevel := 1

   DEFINE DIALOG oDlg NAME "TESTRAD" COLORS CLR_BLACK,CLR_HGRAY

   REDEFINE SRADIO oRad VAR nLevel ID 201 OF oDlg ITEMS { "1", "2", "3" } ;
            GROSS BBOX LABEL "Nivel" ;
            ON CHANGE oBtn:ChangeBitMap( 1, "Level" + Ltrim( Str( nLevel ) ) )

   REDEFINE SBUTTON oBtn ID 202 OF oDlg RESOURCE "Level1" ;
            COLORS CLR_BLACK, CLR_HGRAY NOBORDER

   ACTIVATE DIALOG oDlg CENTERED

Return Nil

El .RC:

Code: Select all

Level1 BITMAP "C:\FWH\BitMaps\Level1.bmp"
Level2 BITMAP "C:\FWH\BitMaps\Level2.bmp"
Level3 BITMAP "C:\FWH\BitMaps\Level3.bmp"

TESTRAD DIALOG 6, 15, 194, 119
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Method ChangeBitMap TSButton"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 201, "TSRadio", 0 | WS_CHILD | WS_VISIBLE, 25, 24, 30, 45
 CONTROL "", 202, "TSButton", 0 | WS_CHILD | WS_VISIBLE, 85, 24, 25, 25
}

Un abrazo.

Manuel Mercado.

[rlblanco]

Hola Sr. Mercado.

Muchísimas gracias por su amabilidad y pronta respuesta.

También aprovecho la ocasión para darle las gracias y felicitarle por los desarrollos ( clases ), que pone a nuestra disposición desinteresadamente , las cuales hacen nuestros desarrollos más eficaces, fáciles de programar y más vistosos.

Saludos.