otra de tsbutton

[José Ríos]

Un saludo colegas del foro.

Uso tsbutton 5.0 con fwh 2.4 y xharbour 0.99.3.

Si tengo el siguiente codigo:

Code: Select all

    REDEFINE SBUTTON oBtnBuscarNum ID 61 ;
        RESOURCE "Buscar1",,"Buscar3" ;
        OF oDlgBuscaAgentes ;
        ACTION (oGridAgentes:setOrder(1),oNumeroBuscar:setFocus(),oNumeroBuscar:refresh()); //Por numero
        WHEN Agentes->(ordSetFocus())="AGNOM";
        TOOLTIP "Busca por Numero" ;
        COLORS CLR_BLACK, ;
			   {|oB| If( oB:lMouseOver, {CLR_BROWCOLCLA,CLR_WHITE,3 }, ;
										{CLR_BROWSEOBSC,CLR_BEIGE,3} ) };
        BORDER;
        TEXT POSITION ON_RIGHT    

Al no cumplirse la condicion indicada en when deberia de mostrarse el boton con las caracteristicas definidas en tsbutton, es decir mostrando el icono llamado "Buscar 3", sin embargo casi siempre solo me aparece un cuadro blanco, sin icono ni los colores definidos.

¿Alguien sabe como solucionar este problema?.

De antemano muchas gracias.

Jose Rios.

[José Ríos]

Si incluyo el windowsXP.manifest en mi RC, el boton no se desdibuja cuando no se cumple la condicion de WHEN. ¿Alguien ha solucionado el problema sin incluir windowsXP.manifest?.

Saludos.