FiveTech Software tech support forums

... XGRID> ] ; [ <lyGrid: YGRID> ] ; [ <lxVal: XVALUES> ] ; [ <lyVal: YVALUES> ] ; [ <lLegends: LEGENDS> ] ; [ TYPE <nType> ] ; [ FONT <oFont> ] ; => ; <oGraph> := TGraph():Define( <nWidth>, ; <nHeight>, <cTitle>, <.l3d.>, ...

... oNode := oXmlDoc:findfirst(cNodo) If oNode != Nil If lNodo xmlNode := oXmlDoc:oRoot:oChild WHILE xmlNode != NIL cPath := xmlNode:Path() If xmlNode:nType=5 cRet :=xmlNode:cData Exit EndIf xmlNode := xmlNode:NextInTree() ENDDO Else cRet := oNode:cData EndIf Endif Return(cRet)

... XGRID> ] ; [ <lyGrid: YGRID> ] ; [ <lxVal: XVALUES> ] ; [ <lyVal: YVALUES> ] ; [ <lLegends: LEGENDS> ] ; [ TYPE <nType> ] ; [ FONT <oFont> ] ; => ; <oGraph> := TGraph():Define( <nWidth>, ; <nHeight>, <cTitle>, <.l3d.>, ...

... hasta ahora /////// CLASS TCODEBARS ////////////////////// CLASS TCodeBars DATA aTypes HIDDEN DATA cCode DATA nFlags DATA hCodeBar DATA hData DATA nType, nWidth, nHeight, nWidthCode, nHeightCode METHOD New() METHOD End() INLINE DeleteObject( ::hCodeBar ), If( ::hData != NIL, hb_zebra_destroy( ::hData ...

... gráficos, tengo dos dudas que ojalá me puedan ayudar: 1.-¿ Como puedo hacer que en la gráfica de puntos, los puntos se unan con una línea ? oGraph:nType := 3 2.-¿ Como grabo el gráfico para poder insertarlo en un PDF ? Gracias de antemano.

function FieldTypeAdoToDbf( nType ) fails too, in Access and MYSQL.

... nGreen, nBlue ) :D METHOD NewTextureBrush( oGdiBmp ) :( ( wanted to be used for text ) METHOD NewGradientBrush( nTop, nLeft, nWidth, nHeight, nType,; :D nTrans1, nRed1, nGreen1, nBlue1,; nTrans2, nRed2, nGreen2, nBlue2 ) regards Uwe :lol:

... 3541 )  coloque la linea en diferentes partes y siempre el mismo error, es mas esa DATA es usada aca AAdd( ::aSeries, { cLegend, nColor, nType, l3D, lViewVal , lDrawPoint, lDrawLine, cSRLegend } ) la puse en .t. y no dio error pero tampoco coloco los valores sobre las barras que imagino ...

Inside Your function You defined Function SetGradientBtnbmp(ntype,ocontrol,nColorBorder) DEFAULT nColorBorder := nRGB(116,165,216 ) Do case Case ntype = 2007 ... ... //2007 ocontrol:bClrGrad = { | lInvert | If( ! lInvert,; ... ocontrol:nClrBorder := { ...

...       END Finally with this little change in ribbon.prg in Method PaintFld() the last artifact goes away: We change this: case nType == 1 ...          GradientFill( hDCMem, nRow, nCol + 1 , nRow + ::nHeightFld - 1, nCol +  ::aSizes[ nPrompt ], aGradFld )   into this:         ...

... = 0 :!: ::hBrush = GdiPlusNewGradientBrush( nTop, nLeft, nWidth, nHeight, ; nTrans1, nRed1, nGreen1, nBlue1,; nTrans2, nRed2, nGreen2, nBlue2, nType ) http://www.pflegeplus.com/IMAGES/GDIPL1.jpg regards Uwe :D

... I wanted to add a gradient -sample using GDIPLUS but no gradient is painted. the defined brush // NewGradientBrush( nTop, nLeft, nWidth, nHeight, nType,; // nTrans1, nRed1, nGreen1, nBlue1,; // nTrans2, nRed2, nGreen2, nBlue2 ) CLASS Brush // nType : 1_> horizontal 2-> vertical 3->diagonal ...

Try with parameters nOffY and nOffX

MessageToast( nType, cText, cBmp, nWidth, nHeight, oWnd, nClrPane, nClrPane2, ;
nClrText, nLev, nTime, lUp, bRet, lLeftP, lAlert, lShadow, ;
nOffY, nOffX, nFont )

You may use:

oBox:SetBorderType( nType )

where nType is one of the following types:
https://developer.apple.com/documentation/appkit/nsbordertype

#define bezelBorder 2
#define grooveBorder 3
#define lineBorder 1
#define noBorder 0

... * CLASS TToasT - New DATAS: DATA nXOffSet INIT 0 DATA nYOffSet INIT 0 to allow modify position of alert - News parameters in: METHOD NewToast( nType, cText, cBmp, nWidth, nHeight, oWnd, nClrPane, nClrPane2, ; nClrText, nLev, nTime, lUp, bRet, lLeftP, lAlert, lShadow, ; nOffY, nOffX, nFont ) ...