FiveTech Software tech support forums

... Button (Custom Control) me aparecen como pulsados y si los defino como PushButton al pulsar con el ratón y sin soltarlo sitúo el cursor fuera del botón se queda como pulsado y ya no vuelve a verse bien. En cualquier caso quiero evitar el efecto de que cambie de color. La declaración la hago así ...

... un lapiz. Cualquiera de los dos para interactuar con el programa. Ok, en esencia lo que hacen es simular la hación del puntero del ratón sobre un botón por ejemplo. Lo único que debes tomar en cuenta es el tamaño de tus botones... que como podrás ver tendrán que ser GRANDES para poder ser activados ...

... posible. Puedes hacerlo con TSBrowse (lo encontrarás en utilidades). También puedes lograr algo parecido con la clase TXBrowse, valiéndote de un botón y de otras maneras, los campos lógicos se presentan como combobox, en fin puedes consultar la documentación que viene para ambas clases, una está ...

Perdón,

Ese ejemplo es cada vez que coja el foco el Botón, al hacer click sería:


oBtn1:bGotFocus := { | oBtn1, hAnteriorControl| oBtn1:cargo :=hAnteriorControl }

Y el la función del click:

SetFocus( oBtn1:cargo )

Un Saludo y así están las 2 posibilidades,
Joaquín

Fernando, Si no me equivoco, creo que se puede hacer mucho más fácil. Si tienes un botón oBtn1 que al hacer click quieres saber el control que tenía el foco, sería: oBtn1:bGotFocus := { | oBtn1, hAnteriorControl| Mifunc(hAnteriorControl ) } Function Mifunc(hAnteriorControl ...

... En cada get actualizar nFoco aGets[5]:BLostFocus :={|| nFoco := 5 } donde nFoco es una static que guarda el número de get. Después en el botón para avanzar al siguiente registro.. REDEFINE BUTTON aBtns[2] ID 502 OF oDlg CANCEL ; // Adelante ACTION ( Adelante( aGets, @aCampos, aSays ) ...

Buenas...
Si le doy click a un botón, supongo que se botón ahora tiene el foco ¿Cierto?. Pero, ¿ hay forma de saber quien tenía el foco ?

Gracias
Fernando

Una nueva consulta: Necesito que uno de los botones (buttonbmp) cambie de bitmap, es un botón que puede borrar y recuperar un registro, al borrar cambia el bitmap indicando que al presionarlo recupera el registro y al recuperar vuelve al estado anterior (indicando que ...

Antonio, Ya descubrí el problema, no creo sea un defecto sino un erro mío. Este defecto que mencioné se produce si el botón es más pequeño que el bitmap (en mi caso 1/2 milímetro en el ancho), corregido dicho error el bitmap se ve perfectamente en todos los estados. Lo que me confundía ...

... como button tal como lo pide la clase. Los íconos inactivos (disable) se ven en blanco y negro, pero los activos no se ven. Al pulsar el botón, si mantengo el botón del mouse pulsado puedo ver la imagen en colores del botón (el bitmap) pero si no no puedo ver el bitmap, solo veo el botón, ...

... ser que esté usando WinCE en cuyo caso algunas funciones no estan soportadas, en concreto las de uso de menus desde recursos. Pregúntale si el botón del menú principal de windows está abajo a la izquierda ó arriba a la izquierda. Tambien hay que comprobar que el Pocket PC sea compatible ARM. ...

... el directorio samples): #include "FiveWin.ch" function Main() USE Customer Browse() USE return nil y pulsas el botón "print", verás que se construye un reporte y sale la caja de diálogo que comentas. No tendrás modificado prev32.dll y tal vez no esté esa caja ...

... de TButtonBmp , ponemos nLeft a 5 por ejemplo, todo parece que va bien, pero ahora al pulsar la tecla ALT desaparece cualquier contenido de dicho botón. Esto parece ser que fue un bug solucionado antes de adquirir la librería, pero parece que el fuente es antiguo y no corresponde con la lib. 2) ...

... Estoy implementando los botones con bitmaps para apariencia XP y funcionan y lucen perfectos pero ya no funciona el tooltip para indicar lo que el botón hace cuando posicionamos el puntero del ratón sobre el; redefine BUTTONBMP ob103 ID 103 of ODLGINI BITMAP "CALENDARIO" action ABREANO() tooltip ...

Angel,

Desde la propia acción del botón, desactívalo por la posición del boton:

... ACTION oToolBar:EnableButton( <nButton>, .f. ), ...codigo..., oToolBar:EnableButton( <nButton>, .t. )