Vuelvo ... Sobre este c贸digo monto un bot贸n "Aceptar" y otro "Cancelar". Ambos van con &Aceptar y &Cancelar para poder usar Alt+A y Alt+C como atajos de teclado.
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.
Imagen de ejemplo:
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.
#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:
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
