General information
Category:
ActiveX controls in VFP
but if my graph is in OleBound control than I don't have any property like Axes..
here is my code below :
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
thisform.mousepointer = 99
SET SAFETY OFF
*!* DECLARING ARRAYS
decl lArName[100],lArYards[100],lArAmount[100], lArContVal[100],lArConper[100]
lcData = "FinGrCust1"
select fldname from &lcData into Array lArName
select fldvalue from &lcData into Array lArvalue
store "" to mdata1,mdata2,mdata3
ctr = alen(lArName)
lnMax = Thisform.Bsspin1.Value
for ctr = 1 to lnMax
mdata2 = mdata2 + lArName[ctr]+ TAB + lArValue[ctr] + CRLF
endfor
mdata3 = mdata1 + mdata2
create cursor too (gen1 g)
SET SAFETY ON
append blank
append general gen1 class "msgraph.chart" DATA mdata3
thisform.lockscreen = .F.
ThisForm.Oleboundcontrol1.visible = .T.
ThisForm.Oleboundcontrol1.controlsource = "gen1"
thisform.refresh
Please correct it..!!
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only