Bien:
- si el foco está sobre el primer get del diálogo ambos botones funcionan correctamente.
- si el foco está en un get (o botón, o cualquier otro control) ubicado dentro del Folder, el botón Cancelar funciona correctamente pero el Aceptar sólo recibe el foco sin ejecutar el ACTION
Resumo: La Clase tBtnBmp cuando el atajo de teclado se produce desde un folder sólo hace que reciba el foco el botón sin ejecutar el ACTION.
- Code: Select all Expand view
- #include "fivewin.ch"
#include "folder.ch"
Function Main()
Local oFont, oDlg, oFoldEx, oBtnBmp, oButton
Local cCampo1:=Space(10), cCampo2:=Space(10)
DEFINE FONT oFont NAME GetSysFont() SIZE 0,10 POINTS
DEFINE DIALOG oDlg SIZE 400,400 PIXEL TITLE "Prueba TFoldEx" FONT oFont TRUEPIXEL
@ 10,10 SAY "Campo 1" GET cCampo1 OF oDlg PIXEL
@ 45,10 FOLDEREX oFoldEx SIZE 380,280 PROMPT "1","2","3" OF oDlg PIXEL
@ 10,10 SAY "Campo 2" GET cCampo2 OF oFoldEx:aDialogs[1] PIXEL
@ 350,10 BTNBMP oBtnBmp FILE "..\bitmaps\alphabmp\windows.bmp" SIZE 100,40 ACTION oDlg:End() PROMPT " &Aceptar ";
LEFT 2007 FONT oFont OF oDlg
@ 350,120 BUTTON oButton PROMPT " &Cancelar " SIZE 100,40 ACTION oDlg:End() FONT oFont OF oDlg PIXEL
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
Return (nil)
Imagen de ejemplo:
