Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
RMChart examples
Message
From
26/06/2008 03:40:08
Iniaki Lasheras
Ibersoft Esapaña S.L.
Zaragoza, Spain
 
 
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
01326839
Message ID:
01326844
Views:
11
This message has been marked as a message which has helped to the initial question of the thread.
You can try with something like this.


#DEFINE AliceBlue -984833
#DEFINE AntiqueWhite -332841
#DEFINE Aquamarine -8388652
#DEFINE ArmyGreen -10053274
#DEFINE AutumnOrange -39373
#DEFINE AvocadoGreen -10053325
#DEFINE Azure -983041
#DEFINE BabyBlue -10053121
#DEFINE BananaYellow -3355597
#DEFINE Beige -657956
#DEFINE Bisque -6972
#DEFINE Black -16777216
#DEFINE BlanchedAlmond -5171
#DEFINE Blue -16776961
#DEFINE BlueViolet -7722014
#DEFINE Brown -5952982
#DEFINE BurlyWood -2180985
#DEFINE CadetBlue -10510688
#DEFINE Chalk -103
#DEFINE Chartreuse -8388864
#DEFINE Chocolate -2987746
#DEFINE Coral -32944
#DEFINE CornflowerBlue -10185235
#DEFINE Cornsilk -1828
#DEFINE Crimson -2354116
#DEFINE Cyan -16711681
#DEFINE DarkBlue -16777077
#DEFINE DarkBrown -10079437
#DEFINE DarkCrimson -6737050
#DEFINE DarkCyan -16741493
#DEFINE DarkGold -3368653
#DEFINE DarkGoldenrod -4684277
#DEFINE DarkGray -5658199
#DEFINE DarkGreen -16751616
#DEFINE DarkKhaki -4343957
#DEFINE DarkMagenta -7667573
#DEFINE DarkOliveGreen -11179217
#DEFINE DarkOrange -29696
#DEFINE DarkOrchid -6737204
#DEFINE DarkRed -7667712
#DEFINE DarkSalmon -1468806
#DEFINE DarkSeaGreen -7357301
#DEFINE DarkSlateBlue -12042869
#DEFINE DarkSlateGray -13676721
#DEFINE DarkTurquoise -16724271
#DEFINE DarkViolet -7077677
#DEFINE DeepAzure -10079233
#DEFINE DeepPink -60269
#DEFINE DeepPurple -13434778
#DEFINE DeepRiver -10092340
#DEFINE DeepRose -3394663
#DEFINE DeepSkyBlue -16728065
#DEFINE DeepYellow -13312
#DEFINE DEFAULT 0
#DEFINE DesertBlue -13408615
#DEFINE DimGray -9868951
#DEFINE DodgerBlue -14774017
#DEFINE DullGreen -6697882
#DEFINE EasterPurple -3368449
#DEFINE FadeGreen -6697831
#DEFINE Firebrick -5103070
#DEFINE FloralWhite -1296
#DEFINE ForestGreen -14513374
#DEFINE Gainsboro -2302756
#DEFINE GhostWhite -460545
#DEFINE GhostGreen -3342388
#DEFINE Gold -10496
#DEFINE Goldenrod -2448096
#DEFINE Grape -10079335
#DEFINE GrassGreen -16737997
#DEFINE Gray -8355712
#DEFINE Green -16744448
#DEFINE GreenYellow -5374161
#DEFINE Honeydew -983056
#DEFINE HotPink -38476
#DEFINE IndianRed -3318692
#DEFINE Indigo -11861886
#DEFINE Ivory -16
#DEFINE Khaki -989556
#DEFINE KentuckyGreen -13395610
#DEFINE Lavender -1644806
#DEFINE LavenderBlush -3851
#DEFINE LawnGreen -8586240
#DEFINE LemonChiffon -1331
#DEFINE LightBlue -5383962
#DEFINE LightCoral -1015680
#DEFINE LightCyan -2031617
#DEFINE LightGoldenrod -1122942
#DEFINE LightGoldenrodYellow -329006
#DEFINE LightGray -2894893
#DEFINE LightGreen -7278960
#DEFINE LightOrange -26317
#DEFINE LightPink -18751
#DEFINE LightSalmon -24454
#DEFINE LightSeaGreen -14634326
#DEFINE LightSkyBlue -7876870
#DEFINE LightSlateGray -8943463
#DEFINE LightSteelBlue -5192482
#DEFINE LightViolet -26113
#DEFINE LightYellow -32
#DEFINE Lime -16711936
#DEFINE LimeGreen -13447886
#DEFINE LINEN -331546
#DEFINE Magenta -65281
#DEFINE Maroon -8388608
#DEFINE MartianGreen -6697933
#DEFINE MediumAquamarine -10039894
#DEFINE MediumBlue -16777011
#DEFINE MediumOrchid -4565549
#DEFINE MediumPurple -7114533
#DEFINE MediumSeaGreen -12799119
#DEFINE MediumSlateBlue -8689426
#DEFINE MediumSpringGreen -16713062
#DEFINE MediumTurquoise -12004916
#DEFINE MediumVioletRed -3730043
#DEFINE MidnightBlue -15132304
#DEFINE MintCream -655366
#DEFINE MistyRose -6943
#DEFINE Moccasin -6987
#DEFINE MoonGreen -3342490
#DEFINE MossGreen -13408666
#DEFINE NavajoWhite -8531
#DEFINE Navy -16777088
#DEFINE OceanGreen -10053223
#DEFINE OldLace -133658
#DEFINE Olive -8355840
#DEFINE OliveDrab -9728477
#DEFINE Orange -23296
#DEFINE OrangeRed -47872
#DEFINE Orchid -2461482
#DEFINE PaleGoldenrod -1120086
#DEFINE PaleGreen -6751336
#DEFINE PaleTurquoise -5247250
#DEFINE PaleVioletRed -2396013
#DEFINE PaleYellow -52
#DEFINE PapayaWhip -4139
#DEFINE PeachPuff -9543
#DEFINE Peru -3308225
#DEFINE Pink -16181
#DEFINE Plum -2252579
#DEFINE PowderBlue -5185306
#DEFINE Purple -8388480
#DEFINE Red -65536
#DEFINE RosyBrown -4419697
#DEFINE RoyalBlue -12490271
#DEFINE SaddleBrown -7650029
#DEFINE Salmon -360334
#DEFINE Sand -13159
#DEFINE SandyBrown -744352
#DEFINE SeaGreen -13726889
#DEFINE SeaShell -2578
#DEFINE Sienna -6270419
#DEFINE Silver -4144960
#DEFINE SkyBlue -7876885
#DEFINE SlateBlue -9807155
#DEFINE SlateGray -9404272
#DEFINE Snow -1286
#DEFINE SpringGreen -16711809
#DEFINE SteelBlue -12156236
#DEFINE TAN -2968436
#DEFINE Teal -16744320
#DEFINE Thistle -2572328
#DEFINE Tomato -40121
#DEFINE Transparent -2
#DEFINE TropicalPink -39322
#DEFINE Turquoise -12525360
#DEFINE Violet -1146130
#DEFINE VioletRed -3137392
#DEFINE Walnut -10079488
#DEFINE Wheat -663885
#DEFINE White -1
#DEFINE WhiteSmoke -657931
#DEFINE Yellow -256
#DEFINE YellowGreen -6632142


#DEFINE RMC_CTRLSTYLEFLAT 0
#DEFINE RMC_CTRLSTYLEFLATSHADOW 1
#DEFINE RMC_CTRLSTYLE3D 2
#DEFINE RMC_CTRLSTYLE3DLIGHT 3
#DEFINE RMC_CTRLSTYLEIMAGE 4
#DEFINE RMC_CTRLSTYLEIMAGETILED 5


#DEFINE RMC_BARSINGLE 1
#DEFINE RMC_BARGROUP 2
#DEFINE RMC_BARSTACKED 3
#DEFINE RMC_BARSTACKED100 4
#DEFINE RMC_FLOATINGBAR 5
#DEFINE RMC_FLOATINGBARGROUP 6


#DEFINE RMC_DEFAULT 0
#DEFINE RMC_LINE 21
#DEFINE RMC_AREA 22
#DEFINE RMC_LINE_INDEXED 23
#DEFINE RMC_AREA_INDEXED 24
#DEFINE RMC_AREA_STACKED 25
#DEFINE RMC_AREA_STACKED100 26


#DEFINE RMC_VOLBAR 31
#DEFINE RMC_HIGHLOW 41
#DEFINE RMC_GRIDLESS 51
#DEFINE RMC_CUSTOMLINE 60
#DEFINE RMC_XYCHART 70
#DEFINE RMC_GRIDBASED 10

#DEFINE RMC_BAR_FLAT 1
#DEFINE RMC_BAR_FLAT_GRADIENT1 2
#DEFINE RMC_BAR_FLAT_GRADIENT2 3
#DEFINE RMC_BAR_HOVER 4
#DEFINE RMC_COLUMN_FLAT 5
#DEFINE RMC_BAR_3D 6
#DEFINE RMC_BAR_3D_GRADIENT 7
#DEFINE RMC_COLUMN_3D 8
#DEFINE RMC_COLUMN_3D_GRADIENT 9
#DEFINE RMC_COLUMN_FLUTED 10


#DEFINE RMC_LINE_FLAT 21
#DEFINE RMC_LINE_FLAT_DOT 19
#DEFINE RMC_LINE_FLAT_DASH 18
#DEFINE RMC_LINE_FLAT_DASHDOT 17
#DEFINE RMC_LINE_FLAT_DASHDOTDOT 16
#DEFINE RMC_LINE_CABLE 22
#DEFINE RMC_LINE_3D 23
#DEFINE RMC_LINE_3D_GRADIENT 24
#DEFINE RMC_AREA_FLAT 25
#DEFINE RMC_AREA_FLAT_GRADIENT_V 26
#DEFINE RMC_AREA_FLAT_GRADIENT_H 27
#DEFINE RMC_AREA_FLAT_GRADIENT_C 28
#DEFINE RMC_AREA_3D 29
#DEFINE RMC_AREA_3D_GRADIENT_V 30
#DEFINE RMC_AREA_3D_GRADIENT_H 31
#DEFINE RMC_AREA_3D_GRADIENT_C 32
#DEFINE RMC_LINE_CABLE_SHADOW 34
#DEFINE RMC_LINE_SYMBOLONLY 35


#DEFINE RMC_LSTYLE_LINE 1
#DEFINE RMC_LSTYLE_SPLINE 2
#DEFINE RMC_LSTYLE_STAIR 3
#DEFINE RMC_LSTYLE_LINE_AREA 4
#DEFINE RMC_LSTYLE_SPLINE_AREA 5
#DEFINE RMC_LSTYLE_STAIR_AREA 6


#DEFINE RMC_SYMBOL_NONE 0
#DEFINE RMC_SYMBOL_BULLET 21
#DEFINE RMC_SYMBOL_ROUND 1
#DEFINE RMC_SYMBOL_DIAMOND 2
#DEFINE RMC_SYMBOL_SQUARE 3
#DEFINE RMC_SYMBOL_STAR 4
#DEFINE RMC_SYMBOL_ARROW_DOWN 5
#DEFINE RMC_SYMBOL_ARROW_UP 6
#DEFINE RMC_SYMBOL_POINT 7
#DEFINE RMC_SYMBOL_CIRCLE 8
#DEFINE RMC_SYMBOL_RECTANGLE 9
#DEFINE RMC_SYMBOL_CROSS 10
#DEFINE RMC_SYMBOL_BULLET_SMALL 22
#DEFINE RMC_SYMBOL_ROUND_SMALL 11
#DEFINE RMC_SYMBOL_DIAMOND_SMALL 12
#DEFINE RMC_SYMBOL_SQUARE_SMALL 13
#DEFINE RMC_SYMBOL_STAR_SMALL 14
#DEFINE RMC_SYMBOL_ARROW_DOWN_SMALL 15
#DEFINE RMC_SYMBOL_ARROW_UP_SMALL 16
#DEFINE RMC_SYMBOL_POINT_SMALL 17
#DEFINE RMC_SYMBOL_CIRCLE_SMALL 18
#DEFINE RMC_SYMBOL_RECTANGLE_SMALL 19
#DEFINE RMC_SYMBOL_CROSS_SMALL 20


#DEFINE RMC_OHLC 1
#DEFINE RMC_CANDLESTICK 2
#DEFINE RMC_VOLUMEBAR 31

#DEFINE RMC_PIE_FLAT 51
#DEFINE RMC_PIE_GRADIENT 52
#DEFINE RMC_PIE_3D 53
#DEFINE RMC_PIE_3D_GRADIENT 54
#DEFINE RMC_DONUT_FLAT 55
#DEFINE RMC_DONUT_GRADIENT 56
#DEFINE RMC_DONUT_3D 57
#DEFINE RMC_DONUT_3D_GRADIENT 58
#DEFINE RMC_PYRAMIDE 59
#DEFINE RMC_PYRAMIDE3 60

#DEFINE RMC_FULL 1
#DEFINE RMC_HALF_TOP 2
#DEFINE RMC_HALF_RIGHT 3
#DEFINE RMC_HALF_BOTTOM 4
#DEFINE RMC_HALF_LEFT 5

#DEFINE RMC_EXPLODE_NONE 0
#DEFINE RMC_EXPLODE_SMALLEST -1
#DEFINE RMC_EXPLODE_BIGGEST -2


#DEFINE RMC_XY_LINE 70
#DEFINE RMC_XY_LINE_DOT 69
#DEFINE RMC_XY_LINE_DASH 68
#DEFINE RMC_XY_LINE_DASHDOT 67
#DEFINE RMC_XY_LINE_DASHDOTDOT 66
#DEFINE RMC_XY_SYMBOL 71
#DEFINE RMC_XY_CABLE 73


#DEFINE RMC_HATCHBRUSH_OFF 0
#DEFINE RMC_HATCHBRUSH_ON 1
#DEFINE RMC_HATCHBRUSH_ONPRINTING 2


#DEFINE RMC_DATAAXISLEFT 1
#DEFINE RMC_DATAAXISRIGHT 2
#DEFINE RMC_DATAAXISTOP 3
#DEFINE RMC_DATAAXISBOTTOM 4


#DEFINE RMC_LABELAXISLEFT 5
#DEFINE RMC_LABELAXISRIGHT 6
#DEFINE RMC_LABELAXISTOP 7
#DEFINE RMC_LABELAXISBOTTOM 8


#DEFINE RMC_XAXISBOTTOM 12
#DEFINE RMC_XAXISTOP 11


#DEFINE RMC_YAXISLEFT 9
#DEFINE RMC_YAXISRIGHT 10

#DEFINE RMC_LINESTYLESOLID 0
#DEFINE RMC_LINESTYLEDASH 1
#DEFINE RMC_LINESTYLEDOT 2
#DEFINE RMC_LINESTYLEDASHDOT 3
#DEFINE RMC_LINESTYLENONE 6


#DEFINE RMC_TEXTCENTER 0
#DEFINE RMC_TEXTLEFT 1
#DEFINE RMC_TEXTRIGHT 2
#DEFINE RMC_TEXTDOWNWARD 3
#DEFINE RMC_TEXTUPWARD 4

#DEFINE RMC_LEGEND_NONE -1
#DEFINE RMC_LEGEND_TOP 1
#DEFINE RMC_LEGEND_LEFT 2
#DEFINE RMC_LEGEND_RIGHT 3
#DEFINE RMC_LEGEND_BOTTOM 4
#DEFINE RMC_LEGEND_UL 5
#DEFINE RMC_LEGEND_UR 6
#DEFINE RMC_LEGEND_LL 7
#DEFINE RMC_LEGEND_LR 8
#DEFINE RMC_LEGEND_ONVLABELS 9
#DEFINE RMC_LEGEND_CUSTOM_TOP 11
#DEFINE RMC_LEGEND_CUSTOM_LEFT 12
#DEFINE RMC_LEGEND_CUSTOM_RIGHT 13
#DEFINE RMC_LEGEND_CUSTOM_BOTTOM 14
#DEFINE RMC_LEGEND_CUSTOM_UL 15
#DEFINE RMC_LEGEND_CUSTOM_UR 16
#DEFINE RMC_LEGEND_CUSTOM_LL 17
#DEFINE RMC_LEGEND_CUSTOM_LR 18
#DEFINE RMC_LEGEND_CUSTOM_CENTER 19
#DEFINE RMC_LEGEND_CUSTOM_CR 20
#DEFINE RMC_LEGEND_CUSTOM_CL 21


#DEFINE RMC_LEGENDNORECT 1
#DEFINE RMC_LEGENDRECT 2
#DEFINE RMC_LEGENDRECTSHADOW 3
#DEFINE RMC_LEGENDROUNDRECT 4
#DEFINE RMC_LEGENDROUNDRECTSHADOW 5


#DEFINE RMC_VLABEL_NONE 0
#DEFINE RMC_VLABEL_DEFAULT 1
#DEFINE RMC_VLABEL_PERCENT 5
#DEFINE RMC_VLABEL_ABSOLUTE 6
#DEFINE RMC_VLABEL_TWIN 7
#DEFINE RMC_VLABEL_LEGENDONLY 8
#DEFINE RMC_VLABEL_DEFAULT_NOZERO 11
#DEFINE RMC_VLABEL_PERCENT_NOZERO 15
#DEFINE RMC_VLABEL_ABSOLUTE_NOZERO 16
#DEFINE RMC_VLABEL_TWIN_NOZERO 17


#DEFINE RMC_BICOLOR_NONE 0
#DEFINE RMC_BICOLOR_DATAAXIS 1
#DEFINE RMC_BICOLOR_LABELAXIS 2
#DEFINE RMC_BICOLOR_BOTH 3


#DEFINE RMC_ERROR_MAXINST -1
#DEFINE RMC_ERROR_MAXREGION -2
#DEFINE RMC_ERROR_MAXSERIES -3
#DEFINE RMC_ERROR_ALLOC -4
#DEFINE RMC_ERROR_NODATA -5
#DEFINE RMC_ERROR_CTRLID -6
#DEFINE RMC_ERROR_SERIESINDEX -7
#DEFINE RMC_ERROR_CREATEBITMAP -8
#DEFINE RMC_ERROR_WRONGREGION -9
#DEFINE RMC_ERROR_PARENTHANDLE -10
#DEFINE RMC_ERROR_CREATEWINDOW -11
#DEFINE RMC_ERROR_INIGDIP -12
#DEFINE RMC_ERROR_PRINT -13
#DEFINE RMC_ERROR_NOGDIP -14
#DEFINE RMC_ERROR_RMCFILE -15
#DEFINE RMC_ERROR_FILEFOUND -16
#DEFINE RMC_ERROR_READLINES -17
#DEFINE RMC_ERROR_XYAXIS -18
#DEFINE RMC_ERROR_LEGENDTEXT -19
#DEFINE RMC_ERROR_EMF -20
#DEFINE RMC_ERROR_NODATA_COUNT -21
#DEFINE RMC_ERROR_NODATA_ZERO -22
#DEFINE RMC_ERROR_NOCOLOR -23
#DEFINE RMC_ERROR_CLIPBOARD -24
#DEFINE RMC_ERROR_CBINFO -25
#DEFINE RMC_ERROR_FILECREATE -26
#DEFINE RMC_ERROR_MAXCUSTOM -27
#DEFINE RMC_ERROR_DATAINDEX -28
#DEFINE RMC_ERROR_AXISALIGNMENT -29
#DEFINE RMC_ERROR_ARRAYDIM -90
#DEFINE RMC_ERROR_LEGENDSIZE 1


#DEFINE RMC_EMF 1
#DEFINE RMC_EMFPLUS 2
#DEFINE RMC_BMP 3


#DEFINE CreateIt 0
#DEFINE ResetIt 1


#DEFINE RetDouble 0
#DEFINE RetLong 1
#DEFINE RetString 2

lcDatos=""
lcSeries=""
SELECT TOP 10 pobla, COUNT(nempre) as cuenta FROM clie WHERE NOT EMPTY(pobla) GROUP BY pobla ORDER BY cuenta DESC INTO CURSOR curGrafico

SELECT curGrafico

SCAN all
lcDatos = lcDatos + ALLTRIM(STR(cuenta)) + '*'
lcSeries = lcSeries +ALLTRIM(pobla) + '*'
ENDSCAN

lcDatos = SUBSTR(lcDatos,1,LEN(lcDatos) - 1)
lcSeries = SUBSTR(lcSeries ,1,LEN(lcSeries) - 1)


WITH THISFORM.Mrmchar1

* .RMCBackColor = Default
*!* #define RMC_CTRLSTYLEFLAT 0
*!* #define RMC_CTRLSTYLEFLATSHADOW 1
*!* #define RMC_CTRLSTYLE3D 2
*!* #define RMC_CTRLSTYLE3DLIGHT 3
*!* #define RMC_CTRLSTYLEIMAGE 4
*!* #define RMC_CTRLSTYLEIMAGETILED 5


.RESET
.RMCStyle = RMC_CTRLSTYLE3DLIGHT
.RMCStyle = RMC_LINE_FLAT
.RMCWidth = 800
.RMCHeight = 3000
.RMCBgImage = ""
.FONT = "Tahoma"

* Region 1
.AddRegion()

WITH .REGION(1)

.LEFT = 2
.TOP = 2
.WIDTH = -2
.HEIGHT = 300
.FOOTER = ""

* CAPTION
.AddCaption
With .Caption
*.SetProperties "This is the chart's caption", Blue, Yellow, 11, TRUE
*.TITEL = "Distribución de anunciantes por poblaciones (TOP 10)"
EndWith

* SERIES DE DATOS CON REGILLA

.AddGrid()
With .Grid
.BackColor = Azure
.AsGradient = .T.
.BicolorMode = RMC_BICOLOR_LABELAXIS
.Left = 0
.Top = 0
.Width = 0
.Height = 0
ENDWITH

* Add data axis to region 1
.AddDataAxis()
WITH .DataAxis(1)
.Alignment = RMC_DATAAXISLEFT
.MinValue = 0
.MaxValue = 3000
.TickCount = 10
.Fontsize = 8
.TextColor = Default
.LineColor = Default
.LineStyle = RMC_LINESTYLESOLID
.DecimalDigits = 0
.AxisUnit = ""
*.AxisText = "TEXTO DEL EJE DE DATOS"
endwith
* ETIQUETAS DEL EJE X
.AddLabelAxis

With .LabelAxis
.AxisCount = 1
.TickCount = 10
.Alignment = RMC_LABELAXISBOTTOM
.Fontsize = 8
.TextColor = Default
.TextAlignment = RMC_TEXTCENTER
.LineColor = Default
.LineStyle = RMC_LINESTYLESOLID
*.AxisText = "POBLACIONES"
.LabelString = lcSeries
EndWith

.AddBarSeries()
With .BarSeries(1)

.SeriesType = RMC_BARSINGLE
*!* #DEFINE RMC_BARSINGLE 1
*!* #DEFINE RMC_BARGROUP 2
*!* #DEFINE RMC_BARSTACKED 3
*!* #DEFINE RMC_BARSTACKED100 4
*!* #DEFINE RMC_FLOATINGBAR 5
*!* #DEFINE RMC_FLOATINGBARGROUP 6


.SeriesStyle = RMC_BAR_HOVER
*!* #DEFINE RMC_BAR_FLAT 1
*!* #DEFINE RMC_BAR_FLAT_GRADIENT1 2
*!* #DEFINE RMC_BAR_FLAT_GRADIENT2 3
*!* #DEFINE RMC_BAR_HOVER 4
*!* #DEFINE RMC_COLUMN_FLAT 5
*!* #DEFINE RMC_BAR_3D 6
*!* #DEFINE RMC_BAR_3D_GRADIENT 7
*!* #DEFINE RMC_COLUMN_3D 8
*!* #DEFINE RMC_COLUMN_3D_GRADIENT 9
*!* #DEFINE RMC_COLUMN_FLUTED 10

.Lucent = .F.
.Color = Transparent
.Horizontal = .F.
.WhichDataAxis = 1
.ValueLabelOn = RMC_VLABEL_DEFAULT
.PointsPerColumn = 1
.HatchMode = RMC_HATCHBRUSH_OFF
.DataString = lcDatos
EndWith

ENDWITH &&(.REGION(1))

nRetVal = .DRAW(.T.)

ENDWITH
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform