Hi Kent, Good question! I don't know. I just never tried it. It seems complicated (too many lines of code). Would you be kind to share a sample code and sample report?
Manjit -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Kent Belan Sent: Monday, April 07, 2008 11:17 AM To: 'ProFox Email List' Subject: RE: Manjit's RMChart Graph Example Hello Manjit, Virtual Print Engine, VPE, has its own charting built in. I use VPE and have built many charts and it works great. Why not just use VPE charts if you are already using VPE ? Kent > > Hi Bill, > > Below is the code I use to produce the graphs. It is not much > different from yours. I don't use VFP report writer for this > particular app. I use the Virtual Print Engine (VPE - > http://www.idealsoftware.com/ev_main.htm). I am sure if JPG > is created with same name each time the VFP report writer > will also work. Oh, I am still using VFP7. > > However, after looking at Cesar Chalom's "FoxCharts", I am > wondering why I even need to use ActiveX with in VFP? I think > at some point I will switch. > > > > > DECLARE aEnrlVal[1,1] > STORE 0 TO aEnrlVal > > SELECT GRADE, SCHCHS, SCHMMS, SCHSO, SCHCLIN, SCHJEFF, > SCHMARS, SCHSB, SCHSM, SCHTUSC, SCHODP, ; > RPTASOF, ACAYEAR, 000000 AS Total ; > FROM (This.TableName) ; > INTO ARRAY aEnrlVal > > cGrdList = "" > cDataList = "" > FOR i = 1 TO ALEN(aEnrlVal,1) > cGrdList = cGrdList + "*" + ALLTRIM(aEnrlVal[i,1]) > aEnrlVal[i,14] = 0 > FOR j = 2 TO 10 > aEnrlVal[i,14] = aEnrlVal[i,14] + aEnrlVal[i,j] > ENDFOR > cDataList = cDataList + "*" + > ALLTRIM(STR(aEnrlVal[i,14])) ENDFOR cGrdList = > SUBSTR(cGrdList,2) cDataList = SUBSTR(cDataList,2) > > #INCLUDE rmchart.h > SET CLASSLIB TO rmchart ADDITIVE > > oRMC = CREATEOBJECT("RMChart") > > WITH oRMC.oChart > .Reset > .SetProperties(700, 400, RMC_CLR_Beige, > RMC_CTRLSTYLE3DLIGHT, "", "Tahoma", 0, 0, RMC_CLR_Default, > RMC_CLR_Default) > ************** Add Region 1 ***************************** > .AddRegion > With .Region(1) > .SetProperties(5, 5, -5, -5, "") > ************** Add caption to region 1 > ******************* > .AddCaption > With .Caption > .SetProperties("Enrollment Summary", > RMC_Default, RMC_Default, 10, .T.) > EndWith > ************** Add grid to region 1 > ***************************** > .AddGrid > With .Grid > .SetProperties(RMC_CLR_FloralWhite, .T., 0, 0, 0, 0, > RMC_BICOLOR_NONE) > EndWith > ************** Add data axis to region 1 > ***************************** > .AddDataAxis > With .DataAxis(1) > .SetProperties(RMC_DATAAXISLEFT, 0, 600, 16, > 8, RMC_Default, RMC_Default, RMC_LINESTYLESOLID, 0, "", > "Students", "", > RMC_TEXTRIGHT) > EndWith > ************** Add label axis to region 1 > ***************************** > .AddLabelAxis > With .LabelAxis > .SetProperties(1, 16, RMC_LABELAXISBOTTOM, 8, > RMC_Default, RMC_TEXTCENTER, RMC_Default, RMC_LINESTYLESOLID, "") > .LabelString = cGrdList > EndWith > ************** Add legend to region 1 > ******************************* > .AddLegend > With .Legend > .SetProperties(RMC_LEGEND_TOP, RMC_Default, > RMC_LEGENDRECT, RMC_Default, 8, .F.) > .LegendString = "District = " + > ALLTRIM(STR(aEnrlVal[ALEN(aEnrlVal,1),14])) > EndWith > ************** Add Series 1 to region 1 > ******************************* > .AddBarSeries > With .BarSeries(1) > .SetProperties(RMC_BARSINGLE, RMC_BAR_HOVER, > .F., RMC_CLR_SteelBlue, .F., 1, RMC_VLABEL_DEFAULT, 1, > RMC_HATCHBRUSH_OFF) > ****** Set data values ****** > *.SetDataFile "EnrlSum.csv","1,16","1","," > .DataString = cDataList > EndWith > EndWith > > cFileName = "temp\enrlgrd.jpg" > nRetVal = .DRAW2FILE(cFileName) > ENDWITH > > oRMC = NULL > > > > Manjit > > > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Bill Arnold > Sent: Saturday, April 05, 2008 5:16 AM > To: [email protected] > Subject: RE: Manjit's RMChart Graph Example > > Hi Manjit, > > If you get a chance to post some sample VFP code that does > this, it would be appreciated. > > Also, a minor 'heads up', but I'm not sure about this: after > installing RMChart/RMCDesigner (and another unrelated utility > to inspect the printer queue, on the same day), I started > having problems with Norton Ghost 9 (it went nuts on me and > caused problems). This version of Ghost is totally locked > into .NET framework 1.1, so any change in that area would > cause a problem. I can't say for sure this is what happened, > but since I did run into this problem I thought I'd mention it. > > > Bill > > > > > Bill, your right. I got "-5" error as well when I tried the > > "dj-dax-nasdaq.rmc" file. However, I am sure you already know this; > > there is no need to convert ASP code into VFP as long as > you use the > > "RMC" files. These files can easily be created through the > designer. > > Only thing you have to change are the data files. I am thinking of > > implementing this approach in my app because the graphs are not > > interactive. They are just printed on a report. > > > > > > Manjit > > > > > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
