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 -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bill Arnold Sent: Thursday, April 03, 2008 12:22 PM To: [email protected] Subject: RE: Manjit's RMChart Graph Example > For those of you wanting to see how Manjit has integrated > RMChart into VFP he has sent me an example of the output > which is posted on my website: > www.replacement-Software.co.uk/vfp/Manjit_EnrlSum.pdf Well done Manjit. Yes, and thanks for the link, Dave. I tested rmchart a little and found that by using the "copy to clipboard" and then selecting the ASP option, it generates code that's close to VFP compatible, at least in one test case (below). I also tried this approach with the more complex dj-dax-nasdaq.rmc chart, but that test returned -5 and no chart, so this may not be that useful or needs more research. Here's an example with the exploding pie, first the ASP code, then the VFP translation below: ASP CODE ' <OBJECT ID="RMChartX1" WIDTH=100% HEIGHT=100% CLASSID="CLSID:4D814D0F-7D71-4E7E-B51E-2885AD0ED9D7"></OBJECT> With RMChartX1 .Reset .SetProperties 600, 450, -984833, 0,"", "Tahoma", 50, 0, 0, 0 '************** Add Region 1 ***************************** .AddRegion With .Region(1) .SetProperties 5, 5, -5, -5, "" '************** Add Series 1 to region 1 ******************************* .AddGridlessSeries With .GridLessSeries .SetProperties 57, 1, 2, -1, 0, 0, 0 '****** Set color values ****** .SetColorValue 1, -5103070 .SetColorValue 2, -5192482 .SetColorValue 3, -16751616 .SetColorValue 4, -1015680 '****** Set data values ****** .DataString = "10*20*30*40" End With 'GridLessSeries End With 'Region(1) .Draw(TRUE) End With 'RMChartX1 Changed for VFP: (in a command button click event for test form with rmchart.ocx on the form, named rmchartx2) Basically changes are: - comments to use * - added parens () to method calls - changed end with to endwith and cleared following comments - changed draw(true) to draw(.t.) With Thisform.RMChartX2 .Reset .SetProperties(600, 450, -984833, 0,"", "Tahoma", 50, 0, 0, 0) * '************** Add Region 1 ***************************** .AddRegion With .Region(1) .SetProperties(5, 5, -5, -5, "") * '************** Add Series 1 to region 1 .AddGridlessSeries With .GridLessSeries .SetProperties(57, 1, 2, -1, 0, 0, 0) * '****** Set color values ****** .SetColorValue(1, -5103070) .SetColorValue(2, -5192482) .SetColorValue(3, -16751616) .SetColorValue(4, -1015680) * '****** Set data values ****** .DataString = "10*20*30*40" EndWith EndWith .Draw(.t.) EndWith Return Bill Dave Crozier [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.
