FiveTech Software tech support forums

... Comando: <nRow>, <nCol> WHEELMETER <oMeter> ; [ <wnd: OF, DIALOG, WINDOW> <oWnd> ] [ <pos: POS, POSITION> <nPos> ] ; [ RANGE <min>, <max> ] ; [ INNERCOLOR <nColorInner> ] ; [ ANIMACOLOR <nColorDoneMin> ] ; [ BACKCOLOR <nColorRemain> ...

... Command: <nRow>, <nCol> WHEELMETER <oMeter> ; [ <wnd: OF, DIALOG, WINDOW> <oWnd> ] [ <pos: POS, POSITION> <nPos> ] ; [ RANGE <min>, <max> ] ; [ INNERCOLOR <nColorInner> ] ; [ ANIMACOLOR <nColorDoneMin> ] ; [ BACKCOLOR <nColorRemain> ...

sorry Nages I tried but not happend any
LOCAL bprogress := { || ( oProgress:SetPos( npos++ ),;
SysRefresh() ) }

oProgress:SetRange( 0, len(aData) )
oProgress:SetPos( 0 )

oLotto2:fw_ArrayToDBF( aData,,bProgress)

you can do it
as you do it with tProgress class it is the same ( change only the geometric figure)


DEFINE TIMER oTimer INTERVAL 50 ACTION (oMeter:SetPos(++nPos), iif(nPos>500,oTimer:End(), yourfunction_sound_here)) OF oDlg
ACTIVATE TIMER oTimer

... ) } )          end       endif       InternetCloseHandle( hFTPDir )    endif return aFiles function StripFromNull(str)   local nPos := at(chr(0), str), cRet := ""   if !empty(str)      if nPos > 0         cRet := left(str, nPos-1)      endif   endif return cRet

... con ceros a la izquierda , si no los introuzco relleno con 0 ). // ??? NO COMPRENDO ??cCodigo := PadL( SubStr( AllTrim( cNombre ), nPos + 1, Len( AllTrim( cNombre ) ) - nPos ), 4, "0" )  El nPos es el punto , entonces a partir de ahi viene el codigo ...

Silvo It appears there is a space between the Month and year dMonth := "Febbraio 2014" nPos := At( dMonth , " " ) // should equal position 9 cMonth := substr(dMonth,1,(nPos-1)) // should equal "Febbraio" Basically .. find the position of the ...

Hello. I adding some functions/method for Tensoflow for Fivewin like following.^^ METHOD GraphNextOperation( nPos ) DLL FUNCTION TF_GraphNextOperation( hGraph AS LONG, @nPos AS LONG ) AS LONG LIB hDLL DLL FUNCTION TF_OperationName( hOperation AS LONG ) AS LPSTR LIB hDLL DLL FUNCTION ...

... que es patiño si ves aca hay una funcion StrToBase64( cTexto ), en resumen tiene un juego de caracteres asi FUNCTION Carac64( cBin ) LOCAL nPos := ASC( BinToCar( @cBin ) ) + 1 RETURN SUBSTR( "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/", nPos, 1) si la usas ...

... //----------------------------------------------------------------------------- FUNCTION _EventDescription( cEventCode, aEvent ) local nX1 :=0, nPos := 0, cReturn := "", cEvent := "" // Init... cReturn := cEventCode FOR nX1=1 TO LEN(aEvent) nPos := AT('-', cEventCode ) IF ...

a1 := {1,2,3}
a2 := {3,4,5}
a1 := additem(a1, a2)

FUNCTION AddItems(aArray, aItems)
local nOrigSize := Len(aArray)
ASize(aArray, nOrigSize + Len(aItems))
AEval(aItems, {|uItem, nPos| aArray[nOrigSize + nPos] := uItem} )
RETURN aArray

Saludos

... := .t. REDEFINE GET oxaaa VAR xaaa ID 4012 OF oDlg picture "@!" ; ON CHANGE (::assign(),dbsetorder(2),; if(BUSCOA(upper(subs(xaaa,1,::nPos-1))+upper(chr(nkey)),oBrwa),.t.,.f.) ) REDEFINE XBROWSE oBrwr FIELDS ; str(2->rubro),; 2->Nombre ; HEADERS; "Rub.",; "Nombre" ...

... it in iconv.dll FWH. cStr: = cStr + "#" CSTR = AnsiToWide (CSTR) CSTR = HB_TRANSLATE (CSTR "UTF16LE", "UTF8") nPos: = at ("#", cStr) Return SubStr (cStr, 1, nPos-1)

Marzio,

Add a DATA nPos to oEvent or a DATA Cargo and keep an array there for each GET

oEvent:bRefresh = { || oGet:Assign(), oEvent:nPos := oGet:nPos }

oGet:bGotFocus = { || oGet:SetPos( oEvent:nPos ) }

... las que hace Paquito sin provocar fragmentaciones ni hacer tantas copias en la memoria. La idea es tener una función InsertTheString( @cBuffer, nPos, cText[, nLen] ), que inserta en la posición nPos la cadena cText, opcionalmente limitando la longitud a insertar. Cuando creo el buffer, prealoco ...