General information
Category:
ActiveX controls in VFP
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
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