FiveTech Software tech support forums

Now I correct with this [img] Function SalvaDialog(nType,oDlg) local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg" local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg" local oRect:= oDlg:GetCliRect() If nType=1 oDlg:SaveAsImage( cFileJpg1, ...

... cFileJpg, { top, left, bottom, right } ) I made oBar:AddItem( "Salva", "save_48.bmp", {|| SalvaDialog(nType,oDlg) }, {||.t.}, .f., "" ) Function SalvaDialog(nType,oDlg) local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg" local cFileJpg2:= ...

... * Nuevo: Nueva función nRGB2Array( nRGBColor ). Devuelve una matriz con los valores RGB { nRed, nGreen, nBlue }. * Nuevo: Nuevo método Image( [nType], [aCropRect] ) --> pImage (puntero de imagen gdi+) en la clase TWindow. nType (default 1 ): Imagen del área cliente de la ventana. nType ( ...

... tests using it. * New: function nRGB2Array( nRGBColor ) return an array with the RGB values { nRed, nGreen, nBlue } * New: TWindow method Image( [nType], [aCropRect] ) --> pImage (gdi+ image pointer) nType (default 1 ): Image of the window's client area nType ( 0 ): Image of the full window ...

... 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