FiveTech Software tech support forums

... PAINT oWnd:SayText( If( nBmp == 1, "CLOSED", "OPENED" ) )return nil We can toggle both prompt and image using codeblocks as suggested above. No need to keep loading bitmap again and again. https://imagizer.imageshack.com/img923/2998/ml3P7b.gif

ValToPrg() and ValToPrgExp() are not useful for Objects and Codeblocks.

... es exactamente la misma que ASort(...) -nColNo: Ordena en nColNo ascendente si +ve y descendente si -ve. -aCols: Matriz de números de columna o codeblocks. Ordenación multicolumna se realiza sobre los números de columna de la matriz. Ascendente si el número es +ve y desc si es -ve. Si algún ...

... [<lAssign>] ) --> aArray <lAssign> Durch den logischen Ausdruck <lAssign> wird bestimmt, ob innerhalb des Codeblocks eine Zuweisung an das übergebene Arrayelement erfolgen darf. Ist <lAssign> gleich .T. (wahr), so wird das Arrayelement dem Codeblock ...

Using hashes from low level to support multiple codeblocks :-D Remember to build it this way: hbmk2.exe create.prg -cflag=-D_HB_API_INTERNAL_ function Main()   hb_CreateFunction( "xyz", { || QOut( "from XYZ()" ...

Enhanced version supporting n parameters: We have to solve where to store the codeblocks, or next call to hb_CreateFunction() will overwrite the previous one. function Main()   hb_CreateFunction( "xyz", { | a, b, c | QOut( c ) ...

... es exactamente la misma que ASort(...) -nColNo: Ordena en nColNo ascendente si +ve y descendente si -ve. -aCols: Matriz de números de columna o codeblocks. Ordenación multicolumna se realiza sobre los números de columna de la matriz. Ascendente si el número es +ve y desc si es -ve. Si algún ...

... functionality is exactly same as ASort(...) -nColNo: Sortede on nColNo asc if +ve and desc if -ve. -aCols: Array of column numbers or codeblocks. Multi-column sort is performed on the column numbers in the array. Asc if the number is +ve and desc if -ve. If any element of the array ...

... that moving the cursor in the cells, functions are executed like retrieving data. Normaly this should only happen when data is changed, so I have codeblocks wrong in use. I have to digg a bit deeper into this and post some issues here when I find them.

Simplification in the next version: 1) aDataFont and aClrText can also be codeblocks. These codeblocks are evaluated with two params, viz, the column object and lHiLite. The above code can be written like this: WITH OBJECT oBrw:aCols[ 2 ]   :aClrText ...

Hola Cristóbal,

Pues sí. Debe ser como tu dices: Los warning mandan y definen la sintaxis correcta.

Así en "stricto sensu" hay que poner un return en los extended codeblocks

Gracias por la aclaración

Hi Mr. Jimmy,

They are named extended codeblocks
https://vivaclipper.wordpress.com/tag/codeblock/


This (extra) syntax too is correct for harbour:

Code: Select all  Expand view

{||
      a:= 1
      b:= 2
      c:= 3
 }

Regards

... typedef struct _HB_CODEBLOCK { const HB_BYTE * pCode; /* codeblock pcode */ PHB_SYMB pSymbols; /* codeblocks symbols */ PHB_SYMB pDefSymb; /* symbol where the codeblock was created */ PHB_ITEM pLocals; /* table with referenced local variables */ ...

... me he explicado bien, el problema no es en perder el foco y darle el foco a un get, el problema es que mientras monta el diálogo, se evalúan los codeblocks de bLostFocus si están en un folder.

... equivalent to if ValType( bBlock ) == "B"   retval := Eval( bBlock, params,...)endif Will post samples with usage of the codeblocks in my next post.