Posts: 186

Joined: Sat Oct 08, 2005 07:32 AM

Redefine BtnBmp, no refresca correctamente,
Posted: Wed Jun 06, 2007 06:30 PM

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

Toni Sales

tsales

Posts: 186

Joined: Sat Oct 08, 2005 07:32 AM

Redefine BtnBmp, no refresca correctamente,
Posted: Wed Jun 06, 2007 06:34 PM

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
}

Toni Sales

tsales

Posts: 186

Joined: Sat Oct 08, 2005 07:32 AM

Redefine BtnBmp, no refresca correctamente,
Posted: Thu Jun 07, 2007 03:46 PM

Antonio
Alguna solucion al respectoo??

Saludos
Toni Sales

Toni Sales

Antonio Linares

Posts: 44158