Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Changing Font in MSGraph.Chart.8
Message
De
04/08/1999 08:50:59
 
 
À
03/08/1999 09:47:28
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00249150
Message ID:
00249668
Vues:
36
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..!!
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform