FiveTech Software tech support forums

Hi Rick Real simple and works well. Syntax - ASORT(<aTarget>, [<nStart>], [<nCount>], [<bOrder>]) --> aTarget Example ::aAll:=ASORT(::aAll,,,{|x,y| x[1]<y[1]}) Your code aSorted := ASORT(aLine,,,{|x,y| x[4]<y[4]}) There are no ...

... este alineamiento , para ese rango de celdas ?? oSheet:Cells(2,3):Value = Time() && Es asignar el valor a la celda (2,3) oSheet:Cells( nStart, 1 ):Select() && Es seleccionar la Celda de posision (nStart, 1) ??? seria bastante interesante o quizas de donde podemos sacar esa informacion ...

Hello Uwe,

how can you change hover text colour on ribbon if

if nPrompt == oSelf:nStart
nClrTxt = CLR_WHITE
endif
id inside the painting method.

Best regards,
Otto

Hello Günther, http://www.pflegeplus.com/pictures/ribbtxt1.jpg oRibbon:aGradFld := {| nOpt | if( nOpt == oRibbon:nStart, { { 1, 16777215, 8293112 } },; { { 1, 8293112, 16777215 } } ) } // Tabcolor oRibbon:nClrPaneRB := 14856016 // Background blue oRibbon:aClrTabTxt[1] := ...

... tmysql query class METHOD Seek(Value,lSoftSeek,cFieldNames,llast) METHOD Seek( xValue,lSoftSeek,cFieldNames,llast) CLASS TMySQLQuery local nstart,nend,nretry:=0,Xvalue0:=Xvalue,ctype:=VALTYPE(xValue) default lSoftSeek to .t. DEFAULT llast TO .f. if ctype=="C" if len(xValue)<LEN(cvaltochar(if(VALTYPE(cfieldnames)=="B",EVAL(cfieldnames),&cFieldNames))) ...

... in FWH64. From documentation: AT() Locates the position of a substring in a main string. Syntax AT( <cSearch>, <cString>, [<nStart>], [<nEnd>] ) --> nPos Argument(s) <cSearch> Substring to search for <cString> Main string <nStart> First position ...

... Is there a way to make an order this I use for a dbf sort on lb02/a,lb11/a to &filelb on an Array using asort ? ASORT(<aTarget>, [<nStart>],[<nCount>], [<bOrder>]) --> aTarget The trick is made by bOrder. It recives 2 row like arrays , so you have to compare first ...

... "FiveWin.ch" //----------------------------------------------------------------------------// function WaitSeconds( nSecs ) local nStart := GetTickCount() DEFAULT nSecs := 1 while GetTickCount() - nStart < ( 1000 * nSecs ) end return nil //----------------------------------------------------------------------------// ...

... cIniTime Local cFinTime Local oGet[4] cIniFecha := ::oCalex:oCalInfo:dStart cFinFecha := ::oCalex:oCalInfo:dEnd cIniTime := ::oCalex:oCalInfo:nStart cFinTime := ::oCalex:oCalInfo:nEnd DEFINE DIALOG oFrmIns @ 5, 3 SAY "&Date:" SIZE 25, 7 PIXEL OF oFrmIns COLOR 0, 14215660 @ 4, ...

... Dialog_Ins method I insert only these lines : METHOD Dialog_InS(nRow, nCol, nKeyFlags) CLASS SampleCalex ?"w" msginfo(::oCalex:oCalInfo:nStart) msginfo(::oCalex:oCalInfo:nEnd ) msginfo(dtoc(::oCalex:oCalInfo:dStart)) msginfo(::oCalex:oCalInfo:dEnd) RETURN nil when I click o n a cell ...

... call a Dialog ::oCalex:bLDblClick := {|nRow, nCol, nKeyFlags | ::Dialog(nRow, nCol, nKeyFlags)} in the Dialog you have the value ::oCalex:oCalInfo:nStart ::oCalex:oCalInfo:nEnd ::oCalex:oCalInfo:dStart ::oCalex:oCalInfo:dEnd Regards Maurizio

adddates read all appointments and load them on class to show box or special box.
see also LoadDates( nStart, nEnd, dStart, dEnd, cText, cSubject ) method on tcalex class

... aClifor, nRecno ) FUNCTION AGG_REC( cFile, aFile, nRecord ) LOCAL cDelete LOCAL aRec := {} LOCAL nFld, nNew LOCAL nNuovi LOCAL aNew := {} LOCAL nStart := LEN( aFile ) LOCAL i // se ci sono nuovi record prima crea i nuovi elementi dell'array vuoti IF nRecord > LEN( aFile ) nNuovi := nRecord ...

Todas las busquedas en Dolphin se hacen a bajo nivel METHOD Seek( uSeek, cnField, nStart, nEnd, lSoft, lRefresh ) Hace una busqueda usando un algoritmo llamado en computacion "arbol binario" (usado comunmente en los diccionarios), por lo general lo que ...

... ELSE nPosStart := nPosStart + nHead + nRecSize ENDIF ELSE EXIT ENDIF ENDDO ? SECONDS() - nIni RETURN aRecord FUNCTION ATREC( cTesto , cStringa , nStart, nHead, nRecSize ) LOCAL nPos := 0 LOCAL nRecord := 0 nPos := AT( cTesto , cStringa , nStart ) IF nPos > 0 nRecord := INT( ( nPos - nHead ...