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
Redefine BtnBmp, no refresca correctamente,
Redefine BtnBmp, no refresca correctamente,
Toni Sales
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
}
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
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact: