FiveTech Software tech support forums

... := 22 Line 525 If( oPopup != nil, ::nWide_P, 0 ) //// My_modi If( oPopup != nil, 13, 0 ) Line 578 //::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + 13 + 1 ::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + ::nWide_P + 1 Line 1062 //if nCol >= ::nWidth() - 13 if nCol >= ...

... := 22 Line 525 If( oPopup != nil, ::nWide_P, 0 ) //// My_modi If( oPopup != nil, 13, 0 ) Line 578 //::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + 13 + 1 ::oWnd:nWidth := ::oWnd:nBtnWidth + If( ::oWnd:l3D, 3, 1 ) + ::nWide_P + 1 Line 1062 //if nCol >= ::nWidth() - 13 if nCol >= ...

... #xcommand DEFINE GRAPH <oGraph> [ SIZE <nWidth>, <nHeight> ] ; [ TITLE <cTitle> ] ; [ <pixel: PIXEL > ] ; [ <l3d: 3D> ] ; [ <lxGrid: XGRID> ] ; [ <lyGrid: YGRID> ] ; [ <lxVal: XVALUES> ] ; [ <lyVal: YVALUES> ] ; [ <lLegends: LEGENDS> ...

... #xcommand DEFINE GRAPH <oGraph> [ SIZE <nWidth>, <nHeight> ] ; [ TITLE <cTitle> ] ; [ <pixel: PIXEL > ] ; [ <l3d: 3D> ] ; [ <lxGrid: XGRID> ] ; [ <lyGrid: YGRID> ] ; [ <lxVal: XVALUES> ] ; [ <lyVal: YVALUES> ] ; [ <lLegends: LEGENDS> ...

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

... * Enhancements on Class TGraph - Added support for XY Graphs, not only time series - Added Method AddXYSerie( aDat, cLegend, nColor, nType, l3D, lViewVal, lDrawPoint, lDrawLine, cSRLegend ) aDat as { {x1, y}, {x2, y2}, {x3, y3}, .... } - Added types GRAPH_TYPE_XY_LINES and GRAPH_TYPE_XY_POINTS ...

... // Default oGroup := TGroup():New( nRow, nCol, nRow + 150, nCol + 150, "", oDlg, NIL, NIL, .T. , .T. , NIL, .T. ) oGroup:l3D := .T. // TGroup():New( nTop, nLeft, nBottom, nRight, cLabel, oWnd, nClrText,; // nClrPane, lPixel, lDesign, oFont, lTransparent, nWidth, nHeight ...

Defintion of series have more of 4 parameters METHOD AddSerie( aDat, cLegend, nColor, nType , l3D, lViewVal, lDrawPoint, lDrawLine, cSRLegend ) CLASS TGraph and you defintion is oGraph:aSeries = { { "Series 1", CLR_CYAN , , },; // only 4 parameters { "Series ...

... thank You very much. I think I have to use oGraph1:AddSerie( aJS1,"Serie", 16771797 ) // AddSerie( aDat, cLegend, nColor, nType, l3D ) changing the array, the refresh is working fine http://www.pflegeplus.com/IMAGES/Tgraph7.jpg Changing the values : REDEFINE BUTTON ...

... = { { "Test", 16771797 , , } } oGraph1:nBarSep := 10 oGraph1:lBorders := .T. oGraph1:lxGrid := .T. oGraph1:lyGrid := .T. oGraph1:l3D := .T. oGraph1:lxVal := .T. oGraph1:lyVal := .T. oGraph1:lBordLeg := .T. oGraph1:lLegends := .T. oGraph1:lTitle := .T. oGraph1:nClrX := 8421376 ...

... be done in the ON INIT clause only. This is not an issue but for clarification only. 2) While defining buttons, we get runtime errors because oBar:l3D, oBar:nBtnWidth and oBar:nBtnHeight remain nil. I suggest assigning suitable default values for l3D, nWith and nHeight in the method Redefine(). ...

Antonio, I found that "METHOD AddSerie( aDat, cLegend, nColor, nType, l3D )" is creating the same aDat array twice (when using two series value) to hold first and second series. This the reason that I had to add two arrays in this method in order to ...

... and then check if the mouse is on each bar. See the definition for Method Drawbar(): METHOD DrawBar( nY, nX, nHigh, nWidth, nDeep, nColor, nI, nJ, l3D )

Maurizio,

Please make this change in source\classes\splitter.prg line 32:

DATA lStatic, l3D, lMoving, lStyle, lMOver INIT .F.

thanks for your feedback

... // ------------------------------------------- oGraph:nType := 1 oGraph:nMaxVal := 2000 oGraph:nClrBack := 16765559 // Background color oGraph:l3D := .T. oGraph:nDegrade := 2 // 0 = Color / 1 = Grad Horiz. / 2 = Grad vert. Select one of the background-styles //oGraph:cBitmap := "Color" ...