FiveTech Software tech support forums

... no se si sea una opcion extender la clase tget con un metodo init y ahi si se pude inicializar las variables. en cuanto a los metodos gotfoucs y lostfocus, no estoy muy claro que hacer ellos... #include "hbclass.ch"/*----------------------------------------------------------------------------*/PROCEDURE ...

... because in xbrowse I use array. I think the problem is when we point the mouse to another row of xbrowse: 1-xbrowse changes row 2-get executes lostfocus Antonio try this: Example 1This works 1-xbrowse on line 1 2-make a change of First 3-steps to the Last field at the same time the value of ...

Jimmy wrote:hi,

i have a Problem when place "only" 1 x GET into ButtonBar

as it can not "change" to other Control it does not "lostFocus" -> no VALID -> no GOTO

any Idea for a Workaround

Yes.
We need to have atleast 2 controls.

hi,

i have a Problem when place "only" 1 x GET into ButtonBar

as it can not "change" to other Control it does not "lostFocus" -> no VALID -> no GOTO

any Idea for a Workaround

hi, what about GotFocus() / LostFocus() (WHEN / VALID ) :?: i do "switch" Numlock this Way under HMG    bGotFocus := {|| lOldKey:= SetNumLock() }   bLostFocus := {|| SetNumLock( lOldKey ) } ...

Usa hb_ascan() si existe te devuelve la posicion si no 0

if hb_ascan(...) > 0
msg( "existe" )

termino de intentarlo pero no da. Karina: suponte que tenes un array con estos valores 1, 4, 6, 7 y vos queres saber si un numero "x" existe en ese array, en xharbor yo hacia esto: if ( x in {1, 4, 6, 7 })    msginfo("existe")endif  pero a...

No recuerdo si in es aceptado en harbour,
talvez agregando la libreria xhb y hbcompat.ch

"in" ???

Un ejemplo simples, para testes, hay?

Regards, saludos.

Hola.

Tengo un array de oGets que necesito acumular los valores pero solo de ciertos ogets cuando pierde el foco:

aeval(::aGets, { |o, x| iif(x in {1,4,6}, ::sumar(),)})

ahora no puedo usar mas el "in" en harbourd...

Alguna ayuda?
gracias.

... @ 22, 130 GET aGet[4] VAR cDesc MEMO SIZE 270,30 PIXEL OF oDlg WHEN nTipoDato=2 UPDATE why I cannet edit the gets? and sometimes I have also oget:lostfocus error I don't Know why

...  Args:     [   1] = N   1     [   2] = C   TestoStack Calls===========   Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS( 2276 )   Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS( 1150 )   Called from: .\source\classes\CONTROL.PRG ...

...  local lRet := .t.   if ::lReadOnly      return lRet   endif   if ::oGet:BadDate  METHOD LostFocus() Present code: METHOD LostFocus( hCtlFocus ) CLASS TGet   ::Super:LostFocus( hCtlFocus )#ifdef UTFREVN  Modify ...

...           ::Paste()         endif      endif   #endifReturn nil 2) to improve typing speed after entering an image 2a) add a new method LostFocus CLASS TRichEdit5 FROM TControl....../*****/   METHOD LostFocus( hWndGetFocus ) INLINE ::PostMsg( FM_CHANGE ), ::Super:LostFocus( ...

... oGet2, pero tiene que darle un enter para salir del oGet2 y entrar al VALID, como hago para evitar ese enter ?, ya intente poner Libre:=.t. oGet2:LostFocus() pero no lo libera, alguna idea ?