Page 1 of 1

otra de tsbutton

PostPosted: Mon Feb 06, 2006 4:54 pm
by 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  Expand view
    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.

PostPosted: Tue Feb 07, 2006 4:07 pm
by 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.