Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How can i change MSGraph Title, Legend FONT ?
Message
De
21/04/1999 10:30:36
Dennis Schuette
Customized Business Services, Llc
Yuma, Arizona, États-Unis
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00210206
Message ID:
00210527
Vues:
28
While we're on the subject of MSGraph, here is a message I posted last week that I really need to solve. Can you help, or do you know any additional resources? Thanks

******************

Thanks to examples from Richard Hendricks, I am able to add a graph to a general field and display the graph with the desired properties.

How do I save the custom properties so I can redisplay the graph at a later time?
I am able to print the graph by including the general field in a report, but how do I print the graph with the same properties? (I assume that when I know how to save the properties, I will be able to print it.)
I am able to display a line graph , but it has symbols instead of lines. I am using the following code:

#DEFINE xlCategory 1
CREATE CURSOR GRAPH (graph G)
APPEND BLANK
wait window nowait "Building Graph - Append General"
APPEND GENERAL graph CLASS "MSGraph" DATA lcData

THIS.icGraphAlias = "GRAPH"
THIS.oleGraph.ControlSource = "Graph.graph"
#DEFINE xlLine 4
#DEFINE xlCategory 1 && X axis
#DEFINE xlValue 2 && Y axis
#DEFINE xlVertical -4166 && Orientation
#DEFINE xlBottom -4107 && Position

WITH this.oleGraph.Axes(xlValue) && Y Axis, Vertical
.HasTitle = .t.
.AxisTitle.Caption = "Meter Reading" .AxisTitle.Orientation = xlVertical
.AxisTitle.Font.Italic = .f.
.AxisTitle.Font.Bold = .f.
.AxisTitle.Font.Size = 3
ENDWITH
WITH this.oleGraph.Axes(xlCategory) && X Axis, Horizontal
.HasTitle = .T.
.AxisTitle.Caption = "Meter is read 3 times per minute" .AxisTitle.Font.Italic = .f.
.AxisTitle.Font.Bold = .f.
.AxisTitle.Font.Size = 1.5
ENDWITH
**setup axis labels and Titles
with this.oleGraph
.axes(xlCategory).ticklabels.font.size = 1
.axes(xlValue).ticklabels.font.size = 2
.HasTitle = .t.
.ChartTitle.Caption= "Chart Title, Line 1"
.ChartTitle.Font.Size = 2
.ChartTitle.Font.Underline = .t.
endwith
**setup legend
with this.oleGraph.Legend
.font.size = 1.5
.Position = xlBottom
endwith

THIS.oleGraph.autoformat( xlLine ,1 )


I can view the graph correctly the first time, but I cannot save the formatting. When I browse the table and double click on the general field, it has none of the property values from the above code.

Any help would be very much appreciated!

Denis Schuette
McElhaney Cattle Co.
deniss@c2i2.com
Dennis Schuette
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform