GET MULTILINE

GET MULTILINE

Postby acuellar » Tue Dec 12, 2017 10:48 pm

Estimados

Tengo un GET MULTILINE y quiero que grabe sólo cuando pierde el Focus el GET
Algo Asi:

Code: Select all  Expand view

@80,180 GET oGet VAR cTEXTO OF oWnd PIXEL SIZE 200,137 MULTILINE
    oGet:bChange = { || If( oGet:lfocus(), Graba(), ) }
 


oGet:lostfocus() --> Da error

Gracias por la ayuda
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1589
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: GET MULTILINE

Postby FranciscoA » Tue Dec 12, 2017 11:38 pm

Adhemar, ya probaste asi?
oGet:bLostFocus := {|| msginfo("Tu funcion") }

Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2105
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: GET MULTILINE

Postby acuellar » Wed Dec 13, 2017 1:02 pm

Gracias Francisco.

De la forma que me indicas, siempre pasará por la función cuando ha perdido el focus.
Lo que necesito es cuando se realizado un cambio recién vaya a la función.
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1589
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: GET MULTILINE

Postby hmpaquito » Wed Dec 13, 2017 1:09 pm

Todo es sumable ;-)

Code: Select all  Expand view
Local lCambiado:= .f.

oGet:bChange = { || lCambiado:= .t. }

oGet:bLostFocus := {|| If(lCambiado, Graba(), nil) }
 
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: GET MULTILINE

Postby acuellar » Wed Dec 13, 2017 1:18 pm

Gracias hmpaquito

Funciona Perfecto.
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1589
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 5 guests