CANCEL EN BTNBMP

[jmua]

Antonio en BTNBMP la clausula CANCEL no funciona.
Hay alguna forma de arreglarlo?.

Gracias

[Antonio Linares]

José Martin,

Tienes que asignar el dato lCancel del TBtnBmp, aquí tienes un ejemplo funcionando correctamente:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, cText := Space( 10 ), oBtn
   
   DEFINE DIALOG oDlg TITLE "Test"
   
   @ 1, 1 GET cText VALID ! Empty( cText )
   
   @ 40, 25 BTNBMP oBtn FILE "exit2.bmp" SIZE 15, 15 ACTION oDlg:End()
   
   oBtn:lCancel = .t.
   
   ACTIVATE DIALOG oDlg CENTER
   
return nil   


[jmua]

Antonio,
Funciona bien muchas gracias.
Ahora me gustaria saber como puedo asignar una tecla aceleradora al mismo tBTNBMP
Un saludo

José Martin,

Tienes que asignar el dato lCancel del TBtnBmp, aquí tienes un ejemplo funcionando correctamente:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, cText := Space( 10 ), oBtn
   
   DEFINE DIALOG oDlg TITLE "Test"
   
   @ 1, 1 GET cText VALID ! Empty( cText )
   
   @ 40, 25 BTNBMP oBtn FILE "exit2.bmp" SIZE 15, 15 ACTION oDlg:End()
   
   oBtn:lCancel = .t.
   
   ACTIVATE DIALOG oDlg CENTER
   
return nil   


[Antonio Linares]

José,

La clase TBtnBmp no admite aceleradores. En su lugar puedes usar un botón TButtonBmp que si los soporta. Resisa samples\TestBuBm.prg

[leandro]

Amigo no se si sea lo que estas buscando... Pero si creas tus dialogos con recursos lo puedes hacer anteponiendo un & antes de la letra de cada boton.... y cuando haces alt+laletra, toma el foco el boton respectivo luego presionas la tecla Enter.

Espero te sirva

[jmua]

he probado el tButtonBmp y no de deja utilzar Bitmaps desde recursos, solo desde ficheros externos, no se si hare algo mal pero es lo que me pasa.
Esto no me interesa pues no quiero utilizar nada externo a la aplicación.
En Cuanto a lo que dice Leandro alfonso, esta bien pero ya son tres teclas las que hay que pulsar y solo quiero que al pulsar Alt+Tecla ejecute la accion.

Saludos

[jmua]

Me corrijo, si funciona con recursos solo cambie la palabra RESOURCE por BITMAP.

Saludos