karinha wrote:Honestamente no entiendo. ¿Puedes reproducir el problema en una DEMO simple usando FOLDER o FOLDEREX? Ponga el Mega Upload para descargar y probar. Gracias.
Regards, saludos.
Al principio de este post he puesto el fuente y gif que representa el problema.
cmsoft wrote:Ahora, si creamos primero los botones y luego los gets, no genera nada en el log, excepto que efectivamente perdamos el foco del get
- Code: Select all Expand view RUN
#include 'fivewin.ch'
static clogfile := 'log.txt'
Function Main()
Local oDlg := Nil
Local oFld := Nil
Local oGet1a := Nil
Local oGet1b := Nil
Local oGet2a := Nil
Local oGet2b := Nil
Local oBt1, oBt2
Local cVar1a := 'XXXXXXXXXX'
Local cVar1b := 'XXXXXXXXXX'
Local cVar2a := 'XXXXXXXXXX'
Local cVar2b := 'XXXXXXXXXX'
ferase( cLogFile )
TGet():lClrFocus := .T.
DEFINE DIALOG oDlg TITLE "Test bLostFocus in Folder" ;
FROM 5, 5 TO 20, 49
@ 0.5, 1 FOLDER oFld PROMPT "one", "Two" ;
OF oDlg SIZE 160, 90
@ 3,1 BUTTON oBt1 PROMPT "OK" OF oFld:aDialogs[1]
@ 1, 1 GET oGet1a VAR cVar1a OF oFld:aDialogs[1] PICTURE '@S20' SIZE 40,10
oGet1a:bLostFocus := {|| Write('FOLDER 1 GET 1')}
@ 2, 1 GET oGet1b VAR cVar1b OF oFld:aDialogs[1] PICTURE '@S20' SIZE 40,10
oGet1b:bLostFocus := {|| Write('FOLDER 1 GET 2')}
@ 3,1 BUTTON oBt2 PROMPT "OK" OF oFld:aDialogs[2]
@ 1, 1 GET oGet2a VAR cVar2a OF oFld:aDialogs[2] PICTURE '@S20' SIZE 40,10
oGet2a:bLostFocus := {|| Write('FOLDER 2 GET 1')}
@ 2, 1 GET oGet2b VAR cVar2b OF oFld:aDialogs[2] PICTURE '@S20' SIZE 40,10
oGet2b:bLostFocus := {|| Write('FOLDER 2 GET 2')}
ACTIVATE DIALOG oDlg CENTERED ON INIT oBt1:SetFocus()
Return ( Nil )
Static Function Write( cText )
hb_MemoWrit( cLogFile, hb_MemoRead( cLogFile ) + hb_eol() + Time() + ' ' + cText)
Return ( Nil )
"deduzco" por tu código que al crear los folder en el init e insertarlos en el Diálogo, por algún motivo evalúa los bLostFocus de los get, en cambio no lo hace con los botones. Curioso, aunque no creo que es lo correcto, en
teoría tendría que tener el mismo comportamiento si se crea un diálogo sin folders o con folders.