FiveTech Software tech support forums

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

Gracias

José Martin,

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

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

Antonio Linares wrote:José Martin,

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

Code: Select all

#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   

José,

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

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

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

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

Saludos