Redefine BtnBmp, no refresca correctamente,

[tsales]

Antonio
Utilizando desde recursos el control Btnbmp y pulsar repetidas veces el botón, ocurre lo que vas a ver:



He probado forzando un refresh pero no consigo que se vea correctamente.

Saludos
Toni Sales

[tsales]

Antonio
Te adjunto el codigo que utilizando el bitmap de la carpeta samples\Clients del ejemplo de Carles.:


#include "FWCE.ch"

//----------------------------------------------------------------------------//

function Main()

local oDlg, obj

DEFINE DIALOG oDlg RESOURCE "PROBA"

REDEFINE BTNBMP obj ID 100 OF oDlg ACTION obj:Refresh() RESOURCE "SAVE"
ACTIVATE DIALOG oDlg CENTERED

return nil


#ifdef _CE
102 RCDATA
BEGIN
102, 2,
I_IMAGENONE, 202, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 202, 0, 0,
I_IMAGENONE, 203, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 203, 0, 1,
END
LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_MODERN
#endif

Save BITMAP "Clients/savedisk.bmp"

PROBA DIALOG 10, 27, 134, 90
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Clientes"
FONT 8, "System"
{
CONTROL "Cancelar", 100, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 16, 16, 56, 44
}

[tsales]

Antonio
Alguna solucion al respectoo??

Saludos
Toni Sales

[Antonio Linares]

Toni,

En el recurso estas usando un "BUTTON" cuando debiera ser un "TBTNBMP". Por favor pruébalo con ese cambio, gracias

[tsales]

Antonio
Tiene usted toda la razón. Ahora funciona correctamente.

Saludos
Toni Sales

[Antonio Linares]

bien