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