FiveTech Software tech support forums

... { |o,nval| hola(@acDescriptor,@acTemporal,olbx101c,nval) } olbx101c:acols[4]:aEditListTxt := acTemporal //olbx101c:acols[4]:bEditBlock:= { mifuncion('1') } //olbx101c:acols[4]:bBmpAction := { |oCol| mifuncion('2') } //olbx101c:acols[4]:bEditValid :={|| mifuncion('2') } olbx101c:acols[4]:bEditWhen:= ...

Buenas tardes. Alguien sabría decirme como ejecutar un CODEBLOCK de xHarbour en C++. Por ejemplo: Pasar bEjemplo := { |x,y| MiFuncion(x,y,nOtro,cOtro)} a una función en C++ para que se ejecute la función MiFuncion() desde allí. He encontrado la definición: hb_vmEvalBlockV( PHB_ITEM pBlockItem, ...

... una nueva sin tener que repasar todos los prgs. Creo recordar que habia un instruccion que "macro" sustituía. Algo así como : # DEFINE MiFuncion() MiNuevaFuncion() ¿alguien recuerda la sintaxis correcta o cómo debo hacerlo? Gracias

Gracias Cristobal,
Tal y como lo has puesto no funciona, a pesar de que en la declaración del FORDEREX tengo puesto "ON CHANGE mifuncion()", al llegar al código que has puesto, el ::bChange no es un codebloq y no se evalua, ahí valtype(::bChange) devuelve 'U' en vez de 'B'.

Saludos

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39755 Por si le sirve a otros.... No Funciona: SET KEY VK_F10 TO MiFuncion(parametro1,parametro2,etc) Pero si funciona: SetKey( VK_F10, { | nKey | MiFuncion(parametro1,parametro2,etc)}) Saludos cordiales, Roberto Regards, ...

Por si le sirve a otros....

No Funciona:
SET KEY VK_F10 TO MiFuncion(parametro1,parametro2,etc)

Pero si funciona:
SetKey( VK_F10, { | nKey | MiFuncion(parametro1,parametro2,etc)})

Saludos cordiales,
Roberto

... dias Como veo que nadie te contesta..... Las funciones pueden estar en .prg diferentes. Simplemente escribe la función de esta manera FUNCTION MiFuncion( parametros) RETURN( resultado ) no pongas STATIC delante, solo sería accesible en el .prg donde esta escrito. Es muy importante que la funcion ...

Carlos,

@ ..., ... GET oGet VAR cValue ... ON CHANGE MiFuncion( oGet )

...

function MiFuncion( oGet )

oGet:GetText() es el valor que tendrá cValue pero que aún no se le ha asignado

return ...

... con harbour, trabajar con multihilo es muy simple: 1. agrega -mt en el archivo hbp 2. cuando hagas el llamado a la función, en lugar de llamar miFuncion( x, y, z ), llamala así startThread( @miFuncion(), x, y, z ) 3. Compila, y ya tienes un programa en multihilo Hay funciones especiales para ...

Intente:

oMiGet:bGotFocus :={ || IF( nKey == VK_RETURN, MiFuncion( oMiGet ) ) }

ó

oMiGet:bGotFocus :={ || IF( nKey == VK_RETURN, MiFuncion( oMiGet ), ) }

Sds

Karinha, aqui el código de mifuncion() Function MiFuncion()      oBrwCheques : Enable()   oBrwCheques : SetFocus()   AddRow()   ::nContado := 0    oGet[ ...

Muestra:

mifuncion()

Porfa.

Sds

hola,

oMiGet:bGotFocus:= { !nkey,nFlag| if(nKey==VK_tuTecla, mifuncion(),) }

Salu2.

... FUNCTION loshilitos( parametro1, otroparametro ) **hilo principal Local celretorno := "" **creo nuevo hilo celretorno : mifuncion( parametro1 ) **cierro nuevo hilo If celretorno = "lerele" miotrafuncion( otroparametro ) EndIf ...mas código ... Return Nil *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- ...

... todas las pruebas con y sin el tabstop cambiandolo desde el recurso y no funciona. probe quitando el control buttonbmp y usando setkey(VK_FX,{||mifuncion}) y si funciona bien, pero la verdad se me vas estetico y presentable con un boton, sino tengo solucion pues usare setkey gracias pak-o