topic-19816

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Sr. Antonio - possivel bug na classe TGET
Posted: Fri Sep 10, 2010 12:13 PM

Sr. Antonio,

Se o OBJ do GET estiver com foco e teclar F3(obtn:click()) o sistema não valida o GET.

Ex. digite -1 no get do exemplo abaixo e tecle F3.

function Main()
local oDlg, oGet1, n1 := 0, OBTN
DEFINE DIALOG oDlg TITLE "Testing Gets"

@ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 VALID n1>=0
@ 3, 11 BUTTON OBTN PROMPT "Ok" ACTION (MSGINFO("TECLANDO F3 NAO VALIDA O GET"))

odlg:={|nkey| if(nkey==VK_F3,obtn:click(),) }

ACTIVATE DIALOG oDlg CENTERED
return nil

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Sr. Antonio - possivel bug na classe TGET
Posted: Mon Sep 13, 2010 11:14 AM

Ubiratan,

En tu ejemplo estas llamando directamente al método Click() del botón por lo que no le das opción a poder validar nada. Es decir, le estas "ordenando" que ejecute la acción.

Cambia estas líneas y verás como funciona bien :-)

@ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 VALID n1 > 0

y

odlg:bkeydown:={|nkey| if(nkey==VK_F3,obtn:setfocus(),) }

regards, saludos

Antonio Linares
www.fivetechsoft.com

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Sr. Antonio - possivel bug na classe TGET
Posted: Mon Sep 13, 2010 12:56 PM

Sr. Antonio,

O que eu preciso é:

Quando o usuário teclar F3 já executar ação do botão, do jeito que o senhor me falou, o usuário teria que teclar F3 e depois ENTER.

function Main()
local oDlg, oGet1, n1 := 0, OBTN
DEFINE DIALOG oDlg TITLE "Testing Gets"

@ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 VALID n1>=0
@ 3, 11 BUTTON OBTN PROMPT "F3-OK" ACTION (MSGINFO("TECLANDO F3 NAO VALIDA O GET"))

odlg:={|nkey| if(nkey==VK_F3,(obtn:setfocus(),obtn:click()),) }

ACTIVATE DIALOG oDlg CENTERED
return nil

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Sr. Antonio - possivel bug na classe TGET
Posted: Mon Sep 13, 2010 08:02 PM

Prueba asi:

odlg:bkeydown:={|nkey| if(nkey==VK_F3 .and. oGet1:lValid(), obtn:click(),) }

regards, saludos

Antonio Linares
www.fivetechsoft.com

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Sr. Antonio - possivel bug na classe TGET
Posted: Tue Sep 14, 2010 11:06 AM

Sr. Antonio,

odlg:bkeydown:={|nkey| if(nkey==VK_F3 .and. oGet1:lValid(), obtn:click(),) }

Assim funciona

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Sr. Antonio - possivel bug na classe TGET
Posted: Tue Sep 14, 2010 12:07 PM

bien! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion