FiveTech Software tech support forums

... [<nFirstRow>]) -> nPosition AClone(<aArray>) -> aDuplicate ACopy(<aSource>, <aTarget>, [<nSourceStart>], [<nCount>], [<nTargetStart>]) -> aTarget ACos(<nRadians>) -> nArcCosine AddASCII( <cString>, <nValue>, [<nPos>] ...

... that we are not creating a totally new object with totally new :hFont. This function actually returns the same object with its internal counter :nCount incremented. Actually, the internal method :Modify() achieves the same effect. oClone := Clone_Font( oArial ) // your method is exactly same ...

En un log del programa aparece esto : 19-01-2015 17:06:08: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : 0 ) <-TFONT:END(246) <-TCONTROL:DESTROY(2298) <-TGET:DESTROY(766) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1733) <-TGET:HANDLEEVENT(575) ...

... // MODIFIED   LOCAL aVert   LOCAL nRadV := nHeight/2   LOCAL nRadH := nWidth/2   LOCAL nAngl := (2*PI)/nLados   LOCAL nAngu,nOAng   LOCAL nCount,nStepLOCAL nSides := IF(lHalf,Int(nLados/2),nLados)  // NEW   DEFAULT nGiro := 0 , ;       nPorC := 100   *   nPorc := Max(0,Min(100,nPorC))  ...

... NOBORDER ADJUST CURSOR oCursorBtn ; ON CLICK lSelected := .T. // the NEW var will DISABLE paintings on mousemove added : STATIC FUNCTION RESET( nCount ) ... ... lSelected := .F. // enables new painting ... ... RETURN NIL Download ( all style-images are included ) : http://www.pflegeplus.com/DOWNLOAD/Rating2.zip ...

... I would like, to include this part in the FOR / NEXT. Is it possible ? [color=#0000FF]oImage[1]:bMMoved := { || ONHOVERRATE( 1, nCount ) } oImage[1]:bMLeave :={ || ONLEAVERATE( 1, nCount, oSay1 ) } oImage[2]:bMMoved := { || ONHOVERRATE( 2, nCount ) } oImage[2]:bMLeave :={ || ...

... mas de las veces necesarias. Prueba lo que yo te digo poniendo despues de la declaracion de la font que se "arruina" lo siguiente: oFont:nCount:= 9999. Este comportamiento es debido al uso de los fonts en fwh: fwh intenta gastar pocos recursos y por eso intenta compartir fonts entre distintos ...

... Syntax ACOPY(<aSource>, <aTarget>, [<nStart>], [<nCount>], [<nTargetPos>]) --> aTarget Arguments <aSource> is the array to copy elements from. <aTarget> is the array to copy ...

I found a bug in section Pie. wrong fontcolor defined ( it seems some more mixed ) : aFont[8] belongs to color nClrV nColr := IF(aValrs[nCount]<0,CLR_RED, ::nClrV ) // nClrX IF ::lViewVal ::Say(aPt3[2]-(nSizeY/2)+nSepY+nPosV,aPt3[1]-(nSizeX/2)+nSepX,cText,::aFont[8],nColr) cVals := Tran( ...

... a menu-item after it is disabled using RemoveMenu( ... ? The system-exit-button is disabled using : hMenu := GetSystemMenu( oWinDlg:hWnd, .F. ) nCount := GetMItemCount( hMenu ) RemoveMenu( hMenu, nCount-1, nOR( 1024 ) ) how to activate X again at runtime ( ON / OFF ) ? http://www.pflegeplus.com/pictires/disablex.jpg ...

... ] := { |x| If( x == nil, aData[ 2, 1 ] * aData[ 3, 2 ], ; aData[ 2, 1 ] := x / aData[ 3, 2 ] ) } * New: function FW_ArrSum( aArray, nbCol, nStart, nCount ) --> nSum nbCol can be column number that is to be totalled. Or nbCol can be a codeblock. Codeblock is evaluated for every row, with parameters, ...

...  3594  3672  3731  3734  3907  3915 NCOLOR                  WINDOW.PRG      845   846 NCOMMAND                WINDOW.PRG      543   545G  546 NCOUNT                  WINDOW.PRG      814   814   814   827  3040  3305  3306  3315  3327  3366                   3367 NCPAINT()              (function ...

... distintos objetos podrian estar usando el mismo objeto font y asi no hay que tener dos iguales en memoria. Para conseguir esto, se usa una DATA nCount que cuenta cuantos "clientes" estan compartiendo ese font. Si tu al cerrar un cliente, destruyes el font, entonces se lo estas destruyendo ...

Rolando,

esto puede servirte:

while oFont:nCount > 0
oFont:End()
end

Hi Rick; Syntax ASort( <aArray>, [<nStart>], [<nCount>], [<bSort>] ) --> aArray Arguments <aArray> The array to be sorted. <nStart> This is a numeric expression indicating the first element in the array to begin sorting ...