*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="foxcharts.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _chartcanvas AS imgcanvas OF "gdiplusx.vcx" 		&& Internal use. Not to be used directly !
 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "_chartcanvas"
	*</PropValue>
	
	PROCEDURE Init
		* Check if using Windows7 and not SP2
		IF (OS(3) = "6") AND ;&& (same as Vista)
				(OS(4) = "1") AND ; &&(Vista = 0)
				(VERSION(4) < "09.00.0000.5411")   && VFP 9.0 SP2
			
			This.RenderMode = 1 && File BMP - slower performance
		ENDIF
		
		DODEFAULT()
	ENDPROC

ENDDEFINE

DEFINE CLASS _legend AS label 		&& Internal use. Not to be used directly !
 	*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: caption_assign
		*m: reset		&& Resets the legend GDI+ objects
		*m: rotation_assign
		*m: _drawstring
		*m: _setup
		*m: _updatemeasures
		*m: _value_assign
		*p: backcoloralpha
		*p: forecoloralpha
		*p: format		&& Specifies the input and output formatting of a control's Value property.
		*p: format2
		*p: isparent
		*p: ogfx
		*p: rotationcenter
		*p: _forceformat
		*p: _height
		*p: _initialized
		*p: _memberdata		&& XML Metadata for customizable properties
		*p: _obrush
		*p: _ofont
		*p: _orectangle
		*p: _ostringformat
		*p: _transfcaption
		*p: _value
		*p: _vartype
		*p: _width
	*</DefinedPropArrayMethod>

	HIDDEN AddProperty,Anchor,AutoSize,BackStyle,BorderStyle,Click,CloneObject,ColorScheme,ColorSource,Comment,DblClick,Destroy,DisabledBackColor,DisabledForeColor,DragDrop,DragIcon,DragMode,DragOver,Drag,Error,FontCondense,FontExtend,FontOutline,FontShadow,GotFocus,HelpContextID,Init,LostFocus,MiddleClick,MouseDown,MouseEnter,MouseIcon,MouseLeave,MouseMove,MousePointer,MouseUp,MouseWheel,Move,OLECompleteDrag,OLEDragDrop,OLEDragMode,OLEDragOver,OLEDragPicture,OLEDrag,OLEDropEffects,OLEDropHasData,OLEDropMode,OLEGiveFeedback,OLESetData,OLEStartDrag,ParentClass,Parent,ReadExpression,ReadMethod,Refresh,ResetToDefault,RightClick,RightToLeft,SaveAsClass,ShowWhatsThis,StatusBarText,Style,TabIndex,TabStop,Tag,ToolTipText,UIEnable,WhatsThisHelpID,WordWrap,WriteExpression,WriteMethod,ZOrder
	*<PropValue>
		AutoSize = .T.
		backcoloralpha = 0
		Caption = "Legend"
		DragIcon = ..\
		forecoloralpha = 255
		format = 
		format2 = 
		Height = 17
		isparent = .F.
		Name = "_legend"
		ogfx = .F.
		OLEDragPicture = ..\
		rotationcenter = 0
		Width = 44
		_forceformat = 
		_height = 0
		_initialized = .F.
		_memberdata = <VFPData>
			<memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="whatsthishelpid" type="property" display="WhatsThisHelpID"/>
			<memberdata name="_setup" type="method" display="_Setup"/>
			<memberdata name="forecoloralpha" type="property" display="ForeColorAlpha"/>
			<memberdata name="backcoloralpha" type="property" display="BackColorAlpha"/>
			<memberdata name="width" type="property" display="Width"/>
			<memberdata name="oledragpicture" type="property" display="OLEDragPicture"/>
			<memberdata name=<VFPData><memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="whatsthishelpid" type="property" display="WhatsThisHelpID"/>
			<memberdata name="_setup" type="method" display="_Setup"/>
			<memberdata name="forecoloralpha" type="property" display="ForeColorAlpha"/>
			<memberdata name="backcoloralpha" type="property" display="BackColorAlpha"/>
			<memberdata name="width" type="property" display="Width"/>
			<memberdata name="oledragpicture" type="property" display="OLEDragPicture"/>
			<memberdata name=<VFPData><memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="whatsthishelpid" type="property" display="WhatsThisHelpID"/>
			<memberdata name="_setup" type="method" display="_Setup"/>
			<memberdata name="forecoloralpha" type="property" display="ForeColorAlpha"/>
			<memberdata name="backcoloralpha" type="property" display="BackColorAlpha"/>
			<memberdata name="width" type="property" display="Width"/>
			<memberdata name="oledragpicture" type="property" display="OLEDragPicture"/>
			<memberdata name=<VFPData><memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="whatsthishelpid" type="property" display="WhatsThisHelpID"/>
			<memberdata name="_setup" type="method" display="_Setup"/>
			<memberdata name="forecoloralpha" type="property" display="ForeColorAlpha"/>
			<memberdata name="backcoloralpha" type="property" display="BackColorAlpha"/>
			<memberdata name="width" type="property" display="Width"/>
			<memberdata name="oledragpicture" type="property" display="OLEDragPicture"/>
			<memberdata name=<VFPData><memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="whatsthishelpid" type="property" display="WhatsThisHelpID"/>
			<memberdata name="_setup" type="method" display="_Setup"/>
			<memberdata name="forecoloralpha" type="property" display="ForeColorAlpha"/>
			<memberdata name="backcoloralpha" type="property" display="BackColorAlpha"/>
			<memberdata name="width" type="property" display="Width"/>
			<memberdata name="oledragpicture" type="property" display="OLEDragPicture"/>
			<memberdata name=<VFPData><memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="autosize" type="property" display="AutoSize"/>
			<memberdata name="whatsthishelpid" type="property" display="WhatsThisHelpID"/>
		</VFPData>
		_obrush = 
		_ofont = 
		_orectangle = 
		_ostringformat = 
		_transfcaption = 
		_value = 
		_vartype = 
		_width = 0
	*</PropValue>
	
	HIDDEN PROCEDURE caption_assign
		LPARAMETERS tuCaption
		
		LOCAL lcType
		m.lcType = VARTYPE(m.tuCaption)
		
		IF m.lcType $ "DLTN" && Logical, Date, DateTime, Numeric
			m.tuCaption = TRANSFORM(m.tuCaption)
		ENDIF 
		
		This.Caption = m.tuCaption
		This._UpdateMeasures(.F.) && Character passed
		
		*!*	C  Character, Memo, Varchar, Varchar (Binary)
		*!*	D  Date 
		*!*	G  General 
		*!*	L  Logical 
		*!*	N  Numeric, Float, Double, or Integer
		*!*	O  Object
		*!*	Q  Blob, Varbinary
		*!*	T  DateTime 
		*!*	U  Unknown or variable does not exist
		*!*	X  Null
		*!*	Y  Currency 
		
	ENDPROC

	HIDDEN PROCEDURE Init
		THIS.IsParent = TYPE('this.Parent.Name')='C'
		IF THIS.IsParent AND VARTYPE(THIS.PARENT.oGfx)='O'
			THIS.oGfx = THIS.PARENT.oGfx
		ENDIF
		
	ENDPROC

	PROCEDURE reset		&& Resets the legend GDI+ objects
		This._Setup()
		This._UpdateMeasures()
	ENDPROC

	PROCEDURE rotation_assign
		LPARAMETERS tnRotation
		
		IF tnRotation < 0
			tnRotation = tnRotation + 360
		ENDIF
		
		THIS.Rotation = tnRotation
	ENDPROC

	PROCEDURE _drawstring
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tlVertical
		
		LOCAL x1, y1, lnAlign, lnMode, xBack, llBar
		llBar = IIF(This.Parent.Name = "ShapeLegend",.T., .F.)
		
		lnMode = 0 && 0 = x,y Coordinates    ;    1 = xfcRectangle coordinates
		lnAlign = This.Alignment
			* 0 = Left    1 = Right    2 = Center
		
		LOCAL loGfx as xfcGraphics
		loGfx = This.Parent.oGfx
		
		
		WITH _Screen.System.Drawing
		
			DO CASE
		
			CASE VARTYPE(tnWidth) + VARTYPE(tnHeight) = "NN"
				lnMode = 1
		
				* Create a STRINGFORMAT object in order to draw the string centered in the image
				LOCAL loStringFmt as xfcStringFormat
				LOCAL lnGdipAlign
				loStringFmt = .StringFormat.New()
				DO CASE
				CASE lnAlign = 2 && Center
					lnGdipAlign = .StringAlignment.Center
				CASE lnAlign = 1
					lnGdipAlign = .StringAlignment.Far
				OTHERWISE 
					lnGdipAlign = .StringAlignment.Near
				ENDCASE
				loStringFmt.Alignment = lnGdipAlign
		
				IF tlVertical
					loStringFmt.FormatFlags   = .StringFormatFlags.DirectionVertical
					loStringFmt.LineAlignment = .StringAlignment.Center
				ENDIF
		
		
				LOCAL loSize as xfcSize
				IF tlVertical
					loSize = .Size.New(This.Parent.Width, This.Parent.Height)
				ELSE
		 			loSize = .Size.New(tnWidth, tnHeight)
				ENDIF 
		
		
				loSize = loGfx.MeasureString(;
					This._TransfCaption, This._oFont, loSize, loStringFmt)
				This._Height = CEILING(loSize.Height)
				This._Width  = CEILING(loSize.Width)
		
				LOCAL loRect as xfcRectangle
				loRect = .Rectangle.New(tnX, tnY, tnWidth, This._Height)
		
				x1 = tnX
				y1 = tnY
		
		
				IF tlVertical
					xBack = tnX + tnWidth / 2 - (This._Width / 2)
		
					DO CASE
					CASE lnAlign = 0 && Left
						y1 = tnY
					CASE lnAlign = 1 && Right
						y1 = tnY + tnHeight - This._Height
					CASE lnAlign = 2 && Center
						y1 = tnY + (tnHeight / 2) - (This._Height / 2)
					ENDCASE
		
				ELSE
		
					DO CASE
					CASE lnAlign = 0 && Left
						xBack = tnX
		
					CASE lnAlign = 1 && Right
						xBack = tnX + tnWidth - This._Width
		
					CASE lnAlign = 2 && Center
						xBack = tnX + (tnWidth - This._Width) / 2
		
					ENDCASE
				ENDIF
		
		
			CASE lnAlign = 0 && Left
				STORE tnX TO x1, xBack
				y1 = tnY
		
			CASE lnAlign = 1 && Right
				x1 = tnX - This._Width
				xBack = x1
				y1 = tnY
		
			CASE lnAlign = 2 && Center
				x1 = tnX - (This._Width / 2)
				xBack = x1
				y1 = tnY
		
			ENDCASE
		
		
			LOCAL lnRotation
			lnRotation = This.Rotation
		
			IF lnRotation <> 0
				WITH _SCREEN.System.Drawing
					LOCAL loPointF as xfcPointF
					LOCAL loMatrix as xfcMatrix
					loMatrix = .Drawing2D.Matrix.New()
		
					IF lnMode = 1
						loPointF = .PointF.New(tnX, tnY) && this is the point of rotation
		
					ELSE
		
						DO CASE
						CASE lnAlign = 0 && Left
							loPointF = .PointF.New(x1 + 5, y1 + This._Height / 2) && this is the point of rotation
		
						CASE lnAlign = 1 && Right
							loPointF = .PointF.New(x1 + This._Width - 5, y1 + This._Height / 2) && this is the point of rotation
		
						CASE lnAlign = 2 && Center
							loPointF = .PointF.New(x1 + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation
		
						ENDCASE
					ENDIF
		
					loMatrix.RotateAt(lnRotation, loPointF)
					loGfx.MultiplyTransform(loMatrix)
				ENDWITH
			ENDIF
		
			lnRotationCenter = This.RotationCenter
			* Center Rotation
			IF lnRotationCenter <> 0
				WITH _SCREEN.System.Drawing
					LOCAL loPointFC as xfcPointF
					LOCAL loMatrixC as xfcMatrix
					loMatrixC = .Drawing2D.Matrix.New()
		*			loPointFC = .PointF.New(x1 + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation
					loPointFC = .PointF.New(xBack + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation
		
					loMatrixC.RotateAt(lnRotationCenter, loPointFC)
					loGfx.MultiplyTransform(loMatrixC)
				ENDWITH
			ENDIF
		
		
		
			IF This.BackColorAlpha > 0
				* Draw the BackGround Rectangle
				WITH _Screen.System.Drawing
		
					IF lnMode = 0 && default
						loGfx.FillRectangle( ;
							.SolidBrush.New(.Color.FromARGB(This.BackColorAlpha, This.BackColor)), ;
							x1, y1, This._Width, This._Height)
					ELSE
						loGfx.FillRectangle( ;
							.SolidBrush.New(.Color.FromARGB(This.BackColorAlpha, This.BackColor)), ;
							xBack, y1, This._Width, This._Height)
		
					ENDIF
				ENDWITH
			ENDIF
		
			* Draw the Text
			IF lnMode = 0
				loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, x1, y1)
			ELSE
		
				IF tlVertical
					loRect = .Rectangle.New(xBack, y1, This._Width, This._Height)
					loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, loRect, loStringFmt)
				ELSE
					loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, loRect, loStringFmt)
				ENDIF
			ENDIF
		
			IF lnRotation <> 0 OR lnRotationCenter <> 0
				loGfx.ResetTransform()
			ENDIF
		
		ENDWITH
		RETURN
	ENDPROC

	PROCEDURE _setup
		* Update the FONT object
		
		LOCAL liStyle
		liStyle = 0 && Regular
		
		IF This.FontBold 
			liStyle = liStyle + 1
		ENDIF
		
		IF This.FontItalic 
			liStyle = liStyle + 2
		ENDIF
		
		IF This.FontStrikethru 
			liStyle = liStyle + 8
		ENDIF
		
		IF This.FontUnderline 
			liStyle = liStyle + 4
		ENDIF
		
		
		* Prepare the font object
		LOCAL lcFont
		lcFont = IIF(EMPTY(This.FontName), This.Parent.FontName, This.FontName)
		
		* If no font was selected, then take the _Screen one!
		IF EMPTY(lcFont)
			lcFont = _Screen.FontName
		ENDIF 
		
		IF EMPTY(lcFont)
			lcFont = "Arial"
		ENDIF 
		
		
		WITH _Screen.System.Drawing
		
		LOCAL loFont as xfcFont
		loFont = .Font.New(lcFont, This.FontSize, liStyle)
		
		This._oFont = loFont
		
		
		* Update the BRUSH object
		LOCAL loColor as xfcColor
		LOCAL lnColor
		
		lnColor = IIF(This.Parent.BrushType = 3, 0, This.ForeColor)
		loColor = .Color.FromArgb(This.ForeColorAlpha, lnColor)
		
		LOCAL loBrush as xfcSolidBrush
		loBrush = .SolidBrush.New(loColor)
		
		This._oBrush = loBrush
		
		ENDWITH 
		
		This._initialized = .T.
	ENDPROC

	PROCEDURE _updatemeasures
		LPARAMETERS tlNumeric
		IF VARTYPE(THIS.oGfx)#'O' AND THIS.IsParent
			THIS.oGfx = THIS.PARENT.oGfx
		ENDIF
		
		IF VARTYPE(THIS.oGfx) <> "O"
			RETURN
		ENDIF
		
		* Measure the Legend height
		IF VARTYPE(THIS._oBrush) + VARTYPE(THIS._oFont) <> "OO" OR NOT THIS._initialized
			THIS._Setup()
		ENDIF
		
		LOCAL lcCaption, lcFormat
		
		* _ForceFormat is a forced formatting managed directly from FoxCharts
		lcFormat = IIF(EMPTY(ALLTRIM(THIS._ForceFormat)), THIS.FORMAT, ALLTRIM(THIS._ForceFormat))
		
		IF tlNumeric
			IF VARTYPE(THIS._Value) = "C"
				lcCaption = THIS._Value
			ELSE
		
				IF this.IsParent and EMPTY(lcFormat)
					lcFormat = "999,999,999,999" + ;
						IIF(THIS.PARENT._ValueDecimals > 0, ;
						"." + REPLICATE("9", THIS.PARENT._ValueDecimals), "")
				ENDIF
				lcCaption = ALLTRIM(TRANSFORM(THIS._Value, lcFormat))
				IF this.IsParent and THIS.PARENT._ValueDecimals>0
					lcCaption=RTRIM(RTRIM(lcCaption,'0'),'.')
				ENDIF
			ENDIF
		
		ELSE
			lcCaption = STRTRAN(THIS.CAPTION,[CHR(13)+CHR(10)], CHR(13)+CHR(10),-1,-1,1)
			lcCaption = ALLTRIM(textmerge(lcCaption))
		ENDIF
		
		LOCAL loSize AS xfcSize
		loSize = THIS.oGfx.MeasureString(lcCaption, THIS._oFont) &&, This._oStringFormat)
		THIS._Height = loSize.HEIGHT
		
		THIS._Width = CEILING(loSize.WIDTH)
		THIS._TransfCaption = lcCaption
		
	ENDPROC

	PROCEDURE _value_assign
		lparameters tuNewValue
		This._Value = tuNewValue
		
		This._UpdateMeasures(.T.) && Value passed
	ENDPROC

ENDDEFINE

DEFINE CLASS _tooltip AS label 		&& Internal use. Not to be used directly !
 	*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: caption_assign
	*</DefinedPropArrayMethod>

	*<PropValue>
		Caption = "ToolTip"
		Height = 17
		Name = "_tooltip"
		Width = 40
	*</PropValue>
	
	PROCEDURE caption_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.Caption = m.vNewVal
		
	ENDPROC

ENDDEFINE

DEFINE CLASS foxcharts AS container 		&& This is the main FoxCharts class. Just drop it to a form and start charting !
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" ProjectClassIcon="chart.ico" ClassIcon="chart.ico" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Title" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SubTitle" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="XAxis" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="YAxis" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ScaleLegend" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="AxisLegend2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ShapeLegend" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SideLegend" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ChartCanvas" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Fields" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ToolTip" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="YAxis2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afterchart		&& Event that occurs immediately after the chart is drawn, but still before the image object is updated.
		*m: axiscolor_access
		*m: backcolor2_access
		*m: brushtype_assign
		*m: changecolor		&& Method that returns a darker or brighter version of the original color. Most recommended to obtain some destination gradient values.
		*m: chartscount_assign
		*m: charttype_assign
		*m: color1_access
		*m: colortype_assign
		*m: currcolumn_access
		*m: currlegend_access
		*m: currobjtype_access
		*m: currrecno_access
		*m: currvalue_access
		*m: drawchart		&& Draws and updates the current chart image. DrawChart is the last method to be called after you setup all the chart properties.
		*m: drawreport		&& Returns the FULLPATH() of physical copy of an image from the current chart drawn using the EMF encoder.
		*m: fontname_assign
		*m: getchartproperties		&& Returns the chart user defined properties for the current chart
		*m: getscalelegend		&& Returns legends to be used in vertical scale
		*m: getscalevalue		&& Returns values to be used in vertical scale
		*m: mousepointer_access
		*m: mousepointer_assign
		*m: savechartproperties		&& Saves current list of properties so that incremental property list can be returned by GetChartProperties()
		*m: savetofile		&& Saves the current chart to a file in the image format compatible with Gdi+: Bmp, Png, Jpeg, Gif, Tiff and Emf.
		*m: scalebackcolor_access
		*m: scalelinecolor_access
		*m: selectedshapecolor_access
		*m: shapelegendexpression_access
		*m: shapemouseenter		&& Event that occurs when a user moves the mouse over a shape object from the chart.
		*m: shapemouseleave		&& Event that occurs when a user moves the mouse out of a shape object from the chart.
		*m: shapemousemove		&& Event that occurs when a user moves the mouse into a shape object of the chart.
		*m: shapetooltip		&& Event that occurs immediately before the default tooltip of FoxCharts is exibited. Use this event in order to customize the text that is to be shown in the tooltips.
		*m: sourcealias_assign
		*m: _adjuststartsweep
		*m: _beforedraw
		*m: _calculatescale
		*m: _centerpath
		*m: _checkmouseposition
		*m: _checkparams
		*m: _detachclickedslice
		*m: _drawaxis
		*m: _drawbar
		*m: _drawbarchart
		*m: _drawcylinder
		*m: _drawdoughnutslice
		*m: _drawlegendinbar
		*m: _drawlinechart
		*m: _drawpiechart
		*m: _drawscale
		*m: _drawshape
		*m: _drawshapelegend
		*m: _drawsidelegends
		*m: _drawslice
		*m: _drawsliceexternal
		*m: _drawstackedareachart
		*m: _drawtrianglebar
		*m: _drawverticallineback
		*m: _drawxaxislegend
		*m: _drawyaxis
		*m: _drawyaxislegend
		*m: _getadjustedangle
		*m: _getbasiccolor
		*m: _getcenterpoint
		*m: _getchartprop
		*m: _getchartproperties
		*m: _getchartscript		&& Returns a complete script to reproduce the current chart in a separate PRG.
		*m: _getcursorpos
		*m: _getfieldtype
		*m: _getgradientcolor
		*m: _getpalettecolor
		*m: _getrandomcolor
		*m: _getrelativepositions
		*m: _getrgb
		*m: _getshapepath
		*m: _getvalue
		*m: _getylegendsize
		*m: _initchart
		*m: _initpalettes
		*m: _newfield
		*m: _objtoclientex
		*m: _preparebackground
		*m: _preparebrushes
		*m: _preparecolors
		*m: _preparedata
		*m: _preparelegend
		*m: _preparelegendinslice
		*m: _preparesidelegend
		*m: _preparetitle
		*m: _preparetooltip
		*m: _preparevariables
		*m: _ps
		*m: _setfieldscount
		*m: _spellproperty
		*m: _str
		*m: _updatechartinfo
		*m: _updatecoordinates
		*m: _updatequality
		*p: alphachannel		&& Numeric, 0-255 Determines the level of the transparency level; 255 = Opaque; 0 = Transparent ***Spinner0,255
		*p: area3dtop		&& Logical, when true, a line will be drawn on the top of the 3D Area chat
		*p: areadrawborders		&& Logical, draws borders around each Area piece
		*p: axisalpha		&& Numeric, Determines the Alpha (transparency) for the Y and X axis and the background lines. Useful when the background contains colors. ***Spinner0,255
		*p: axiscolor		&& Numeric, the RGB value for the Axis main color. ***COLOR
		*p: backcolor2		&& Numeric or logical, specifies the secondary RGB color for the background of the current chart. .F. means that this property will be ignored, and the background color will be solid, determined by the property "BackColor".
		*p: backcoloralpha		&& Numeric (0-255), the transparency level of the background of the chart. ***Spinner0,255
		*p: backgradientmode		&& Numeric, if gradient background (having BackColor2 specified). *** 0 = Horizontal, 1 = Vertical, 2 = Diagonal 1 , 3 = Diagonal 2
		*p: barlegenddirection		&& Integer (0-2), the direction from the legend that stays inside the bars shapes. ***0 = Horizontal, 1 = Vertical (top to bottom), 2 = Vertical (bottom to top)
		*p: barlegendtype		&& Integer, specifies the how the legend text inside bars shapes will be displayed.*** 0 = Default; 1 = Text is aligned at the center of the shape (old behavior)
		*p: barsperscale		&& Integer, number of horizontal bars per scale legend. ***Spinner0,255
		*p: barsspacebetween		&& Numeric, for bars chart - the distance between bars in pixels. ***Spinner0,500
		*p: bartype		&& Integer (0-2), the bar type ***0 = Rectangular ; 1 = Cylinder ; 2 = Triangle
		*p: brushtype		&& Numeric, Type of brush used to fill the chart: ***1 = Solid Colors; 2 = Gradient Colors; 3 = Monochrome Hatch brush
		*p: changecoloronmouse		&& Logical, determines if a shape color will be changed when the mouse is passed over it.
		*p: chartrow		&& Numeric, only for Pie, Doughnut and SingleBars charts, determines which row will be used to create the chart, for the case when more than one sequence of data is passed.
		*p: chartscount		&& Numeric, the number of data series.
		*p: chartsum		&& Numeric, ReadOnly, For Pie, Doughnut and SingleBars charts, returns the sum for the current column of data when the readonly SingleData property is true.
		*p: charttype		&& Num, type of chart: ***1=Pie;2=Donut;3=Full-Stacked bars;4=Point;5=Line;6=Area;7=Bars;8=MultiBars;9=Stacked Bars; 10=Stacked Area;11=3D Bars;12= Hor Bars;13=Hor MultiBars;14=Hor Stacked Bars;15=Hor Full-Stacked Bars;16=Full-Stacked Area;17=Paired Bars
		*p: charttype1
		*p: color1		&& Numeric, the RGB value of the color from the first chart. For backwards compatibility - use Fields.Color instead
		*p: colortype		&& Numeric, the type of colors: 0 = Basic Colors   1 = Custom (default)   2 = Random   3 = Scale of Gradients
		*p: currcolumn		&& Numeric, ReadOnly, the column number from the Source alias cursor. To be used when controlling mouse events.
		*p: currindex		&& Numeric, ReadOnly, the index number to be used in the aCoord property index to obtain more info about the current shape. If no shape was selected, the value of this property is 0 (zero). To be used when controlling mouse events.
		*p: currlegend		&& Character, ReadOnly, The current associated legend. To be used when controlling mouse events.
		*p: currobjtype		&& Character, ReadOnly, the type of object - "Pie", "Rect" or "Legend". To be used when controlling mouse events.
		*p: currrecno		&& Numeric, ReadOnly, the RECNO(), the row value from the Source alias cursor. To be used when controlling mouse events.
		*p: currvalue		&& ReadOnly, the value of the current shape. To be used when controlling mouse events.
		*p: debug		&& logical, determines the creation of a log file when an error occurs. The file "FOXCHARTS.LOG" will contain general error info, and you can send it to vfpimaging@hotmail.com, with some other detailed information about the error.
		*p: depth		&& Numeric, the depth in pixels, simulating a 3D effect (0 = plain) ***Spinner0,50
		*p: donutratio		&& For Doughnut chart - Numeric, the width of the donut related to its size ( 0.01 = full slice ; 0.99 = thin).
		*p: fieldaxis2		&& Character, the name of the field that contains the text to be drawn in the axis opposite to the scale.
		*p: fieldcolor		&& Character, the field name of the cursor that contains the RGB values of the custom colors for the chart
		*p: fielddetachslice		&& Character, the field name of the cursor that contains the logical values that tell if the slice of the Pie or Donut chart will be detached or not
		*p: fieldhideslice		&& Character, the field name of the cursor that contains the logical values that tell if the slice of the Pie or Donut chart will be hidden or not
		*p: fieldlegend		&& Character, the field name of the cursor that contains the character values that contain the main legends of the Pie or Donut charts
		*p: fieldvalue1		&& Character, the field name from the data cursor that contains the numeric values that will create the chart. For backwards compatibility - use Fields(n).FieldValue instead
		*p: fieldxaxis		&& For backwards compatibility - use FieldAxis2 instead
		*p: fontname		&& Character, the name of the font used to display text.
		*p: gradientinvertcolors		&& Logical, determines if the gradient start and destination colors will be inverted.
		*p: gradientlevel		&& Numeric, for gradient brush mode (-10 = destination black; 0 = solid color; +10 destination white). ***Spinner -10,10
		*p: gradientposition		&& Numeric (0-1), specifies where, along any radial from the center of the path to the path's boundary, the center color will be at its highest intensity. A value of 1 places the highest intensity at the center of the path. ***Spinner0,1,0.1
		*p: gradientshapedirection		&& Integer, (0-3) determines the gradient direction for gradient brush charts: *** 0 = Horizontal; 1 = Vertical; 2 = Diagonal1 ; 3 = Diagonal 2
		*p: gradienttype		&& Integer, Gradient type 0 = SigmaBell - The transition from one color to another is based on a bell-shaped curve; 1 = Triangular - gradient with a center color and a linear falloff to each surrounding color. ***0 = SigmaBell; 1 = Triangular
		*p: legend1		&& The legend for the first column of chart. For backwards compatibility - use Fields.Color instead
		*p: legendhidewhennull		&& Logical, For Pies, Doughnuts and Simple horizontal and vertical bars, will hide the legends associated when the source value s NULL.
		*p: legendposition		&& Num, position where side legend will be drawn*** 0=No Legend;1=Vert TopLeft;2=Vert BotLeft;3=Vert TopRight;4=Vert BotRight;5=Hor TopLeft;6=Hor TopCenter;7=Hor TopRight;8=Hor BotLeft;9=Hor BotCenter;10=Hor BotRight;11=Vert CentLeft;\n12=Vert CentRight\n
		*p: linecaps		&& Logical, for the case of plain line chart, shows rounded caps in each point.
		*p: linecapsshape		&& Integer, the value of the shape to be used in the lines intersections for the line charts
		*p: lineignorenulls
		*p: margin		&& Numeric, Specifies the margin width created in the text portion of the control.
		*p: marginbottom		&& Numeric, Specifies the bottom margin left without any drawing in the FoxCharts control.
		*p: marginleft		&& Numeric, Specifies the left margin left without any drawing in the FoxCharts control.
		*p: marginright		&& Numeric, Specifies the right margin left without any drawing in the FoxCharts control.
		*p: margintop		&& Numeric, Specifies the top margin left without any drawing in the FoxCharts control.
		*p: maxvalue		&& If numeric, maximum value plotted along Y-Axis.  Otherwise ignored (maximum value will be calculated).
		*p: minnumberscalelegends		&& Numeric, Determines the minimum number of scales legends along the Y-Axis
		*p: minvalue		&& If numeric, minimum value plotted along Y-Axis.  Otherwise ignored (minimum value will be calculated).
		*p: multichart		&& Logical, determines if more than one kind of chart will run at the same time
		*p: multichartmargin		&& Logical, Determines if there will be a margin at the beginning and at the end of the chart, when using the Multichart mode. To be used when a Bar chart is not present, in order to obtain a better effect. \n
		*p: obmp		&& Object, ReadOnly, The GDI+ Bitmap object for the Chart Canvas. For GdiPlusX users, allow direct manipulation of the charts canvas.
		*p: ogfx		&& Object, ReadOnly, The GDI+ Graphics object for the Chart Canvas. For GdiPlusX users, allow direct manipulation of the charts canvas.
		*p: oldstyleproperties		&& Logical, determines if the legacy style using enumerated properties will be used. Disrecommended use !
		*p: piecompensateangles		&& Logical, recalculates the needed angles, adjusting for a better visualisation when the pie has an important difference between width and height. Set this to false to force circular shapes.
		*p: piedetachanimationsteps		&& Numeric, the quantity of steps that a slice of a pie or doughnut will take till full detachment
		*p: piedetachpixels		&& Numeric, for Pie and Doughnut charts, the quantity of pixels to detach from center
		*p: piedetachsliceonclick		&& Logical, allows detachment of pie or doughnut slices on mouse click.
		*p: piedetachsliceonlegendclick		&& Logical, allows detachment of pie or doughnut slices on mouse click over the associated side legend
		*p: piedirection		&& Integer (0-1), determines the direction that the slices will be drawn in Pie or Doughnut charts *** 0 = Clockwise, 1 = Anticlockwise
		*p: pieenhanceddrawing		&& Logical, For Pie and Doughnut charts. Enables the enhancing drawing mode, with all edges separately, providing a better effect.
		*p: pieforcecircle		&& logical, for Pie and Doughnut charts, determines if the shape will be a circle with the same width and height.
		*p: piegradcenterangle		&& Numeric, the angle that the desired Center Point for the gradient brush will be applied (0-360). Use together with "PieGradCenterDistance"
		*p: piegradcenterdistance		&& Numeric, the distance from the center that the desired Center Point for the gradient brush will be applied (-2, +2). Use together with "PieGradCenterAngle"
		*p: pielegenddistance		&& Numeric (0.01-2), the distance in percentage starting from the center of the pie or doughnut. 0=Center of the pie; 1=external border of the pie. ***Spinner 0.01,2.00,0.01
		*p: pieshowpercent		&& Logical, shows the percentage of the slice in the tooltip.
		*p: pointshapewidth		&& Numeric, for Point chart, determines the width of the pen that will draw the shapes. ***Spinner1,10,1
		*p: qualitycompositing		&& Specifies the quality level to use during compositing. *** 0 = Default; 1 = HighSpeed; 2 = HighQuality; 3 = GammaCorrected; 4 = AssumeLinear
		*p: qualitysmoothing		&& Specifies whether smoothing (antialiasing) is applied to lines and curves and the edges of filled areas. *** 0 = Default; 1 = HighSpeed Specifies no antialiasing;  2 = HighQuality; 3 = None Specifies no antialiasing; 4 = AntiAlias
		*p: qualitytextrenderinghint		&& Specifies the quality of text rendering. *** 0 = SystemDefault; 1 = SingleBitPerPixelGridFit; 2 = SingleBitPerPixel; 3 = AntiAliasGridFit; 4 = AntiAlias; 5 = ClearTypeGridFit
		*p: scale		&& Numeric, determines the scale value for the Y axys; 0 = Automatic scale
		*p: scaleautoformat		&& Logical, determines if the Scales formatting from "ScaleLegend.Format" will be automatically configured.
		*p: scalebackalpha		&& Numeric (0-255), Determines the level of the transparency level; 255 = Opaque; 0 = Transparent. ***Spinner0,255
		*p: scalebackbarstype		&& Integer (0-3), the background scale type; *** 0 = None; 1 = Horizontal lines; 2 = Vertical lines; 3 = Both
		*p: scalebackcolor		&& Numeric, the RGB value for the bar background scale color. ***Color
		*p: scalebacklinesdash		&& Numeric, The Dash style of the GDI+ pen used to draw the background scale ***0 = Solid line;1 = Line consisting of dashes; 2 = Line consisting of dots; 3 = Line consisting of a repeating pattern of dash-dot; 4 = DashDotDot (a pattern of dash-dot-dot)
		*p: scalebacklinestype		&& Integer (0-3), the background scale type; *** 0 = None; 1 = Horizontal lines; 2 = Vertical lines; 3 = Both
		*p: scalebacklineswidth		&& Numeric, Width in pixels of the GDI+ pen used to draw the background scale
		*p: scaledivider		&& Numeric, the value that the scales must be divided. Useful when the scale values are very big.
		*p: scalelinecolor		&& Numeric, RGB value for the line Background color. ***Color
		*p: scalelinezerocolor		&& Numeric, the RGB value for the color of the line of the zero scale. ***COLOR
		*p: selectedshapecolor		&& Numeric, the RGB values for the selected shape color when property 'ChangeColoronMouse' is true ***COLOR
		*p: shadow		&& Logical, determines if shadows will be drawn under the shapes. The deepness is defined by the "depth" property.
		*p: shape1
		*p: shapelegendexpression		&& Character, an expression that replaces the default ShapeLegend text. A valid expression to fully customize the text to be "drawn" in the chart shapes. Use the "Curr" properties to get detailed info about the current shape and build your expression.
		*p: shapemousepointer		&& Numeric, Specifies the shape of the mouse pointer when the mouse is over a shape of the chart at run time
		*p: showaxis		&& Logical, for Line, Area or Point charts - defines if the X and Y axys will be drawn
		*p: showaxis2tics		&& Logical, determines if the legend axis (axis2) will show tic marks on each legend.
		*p: showlinezero		&& Logical, determines if the background line for the zero scale will be shown or not.
		*p: showpercentages		&& Logical, for full-stacked charts, determines if the default ShapeLegend and Tooltip text will show as Percentage\ninstead of values \nValid for the chart types: 3, 7, 8, 12, 13, 15, 16
		*p: showscale		&& Logical, determines if the scale in the Y axys will be shown
		*p: showsidelegend		&& Logical, Shows the side legends
		*p: showtips		&& Logical, specifies if ToolTips are shown for the controls on the specified Form object or the specified ToolBar object.
		*p: showvaluesonshape1
		*p: showvaluesonshapes		&& Logical, determines if the values will be drawn inside the shapes of the chart
		*p: showvaluezero		&& Logical, If True, ensures that a value of zero will appear in Y-Axis.  If False, calculated range may be entirely above or entirely below zero.
		*p: singledata		&& Logical, ReadOnly, tells if the current chart is based on single data, eg. Pie, Doughnut, Single Bars
		*p: sourcealias		&& Character, The name of the alias that contains the needed fields that will create the chart
		*p: ticlength		&& Integer, the length in pixels of the tic marks used in the scales and in the legend axis. ***Spinner0,30
		*p: version		&& Numeric, the current version number of FoxCharts class.
		*p: versiona		&& Character, the detailed version of FoxCharts class, in alphanumeric format.
		*a: acolors[1,0]		&& ReadOnly, Array that contains information about the current colors for the chart. Useful when working with random colors.
		*a: acoord[1,0]		&& Array that stores information about the object that is under the mouse, like X, Y, Width, Height, Value, Legend, Start, Sweep, CHartIndex, RECNO(), ObjType. See HELP for detailed information about the available info.
		*a: apalettecolors[1,0]
		*a: _acolors[1,0]
		*a: _apoints[1,2]
		*a: _ashapes[1,0]
		*a: _asidelegends[1,2]
		*p: _3d		&& Numeric, the quantity of pixels that create the 3D effect. For backwards compatibility - use the property "Depth" instead.
		*p: _absolutescalevalues
		*p: _allowaxis
		*p: _anchor
		*p: _axis2scalewidth
		*p: _bottomoffset
		*p: _chartindex
		*p: _charty0
		*p: _charty1
		*p: _currentrow
		*p: _datacursor
		*p: _deepchart
		*p: _drawing
		*p: _firstactivate
		*p: _generaltype
		*p: _hasnegatives
		*p: _inlegend
		*p: _inreport
		*p: _insideform
		*p: _leftoffset
		*p: _legendexternalmargin
		*p: _legendheight		&& Internal Use
		*p: _legendpixheight
		*p: _legendwidth		&& Internal use
		*p: _maxscale
		*p: _maxscale2
		*p: _memberdata		&& XML Metadata for customizable properties
		*p: _minscale
		*p: _minscale2
		*p: _minvalue
		*p: _ncolor		&& Internal Use
		*p: _nindex
		*p: _nmouseonshape
		*p: _nmouseover
		*p: _nrecords		&& Internal use, the total  of records in the main cursor
		*p: _o3dbrush		&& Internal Use, GDI+ Brush object for drawing the 3D effects
		*p: _oblackpen
		*p: _oborderpen		&& Internal Use, Gdi+ Pen for drawing borders
		*p: _oclrblack
		*p: _oclrmatrix		&& Internal Use, GDI+ ColorMatrix object for drawing the transparent shapes
		*p: _oclrwhite
		*p: _omainbrush		&& Internal Use, GDI+ Brush object for drawing the main shapes
		*p: _orientation
		*p: _origmousepointer
		*p: _otempbmp		&& Internal Use, GDI+ Bitmap object for drawing the transparent shapes
		*p: _palettecolors
		*p: _pie1stdetached
		*p: _pieanimatedrec
		*p: _pieanimationpix
		*p: _piex0
		*p: _piey0
		*p: _redraw
		*p: _rightoffset
		*p: _savedchartproperties
		*p: _scale
		*p: _scale2
		*p: _scaleadjust
		*p: _scaleadjust2
		*p: _scaleh
		*p: _scaleh2
		*p: _scaleinpercent
		*p: _scalelegaxis1forceformat
		*p: _scalelegaxis2forceformat
		*p: _scalelegend2forceformat
		*p: _scalerange
		*p: _scalerange2
		*p: _scalew
		*p: _scalew2
		*p: _skippreparedata
		*p: _spellinglist
		*p: _stacked
		*p: _started
		*p: _sumrow
		*p: _tippixels
		*p: _titleheight		&& Internal use
		*p: _topoffset
		*p: _updaterandomcolors
		*p: _useaxis
		*p: _using3d
		*p: _valuedecimals
		*p: _valueformat
		*p: _valuetype
		*p: _xaxisheight
		*p: _xrelative
		*p: _yaxiswidth
		*p: _yaxiswidth2
		*p: _yrelative
	*</DefinedPropArrayMethod>

	*<PropValue>
		alphachannel = 255
		Anchor = 0
		area3dtop = .T.
		areadrawborders = .T.
		axisalpha = 200
		axiscolor = 15790320
		backcolor2 = .F.
		backcoloralpha = 255
		backgradientmode = 0
		barlegenddirection = 0
		barlegendtype = 0
		barsperscale = 2
		barsspacebetween = 15
		bartype = 0
		brushtype = 1
		changecoloronmouse = .F.
		chartrow = 1
		chartscount = 1
		chartsum = 0
		charttype = 1
		charttype1 = 0
		color1 = 0
		colortype = 1
		currcolumn = 0
		currindex = 0
		currlegend = 
		currobjtype = 
		currrecno = 0
		currvalue = 0
		depth = 20
		donutratio =          0.50
		fieldaxis2 = 
		fieldcolor = 
		fielddetachslice = 
		fieldhideslice = 
		fieldlegend = 
		fieldvalue1 = 
		fieldxaxis = 
		fontname = 
		gradientinvertcolors = .F.
		gradientlevel = 5
		gradientposition =          0.6
		gradientshapedirection = 0
		gradienttype = 0
		Height = 264
		legend1 = 
		legendhidewhennull = .T.
		legendposition = 3
		linecaps = .T.
		lineignorenulls = .F.
		margin = 4
		marginbottom = 0
		marginleft = 0
		marginright = 0
		margintop = 0
		maxvalue = .F.
		minnumberscalelegends = 5
		minvalue = .F.
		MouseIcon = ..\..\..\gradobjects\gradobjects_foxite\gradobjects\
		multichart = .F.
		multichartmargin = .T.
		Name = "foxcharts"
		obmp = NULL
		ogfx = NULL
		oldstyleproperties = .F.
		piecompensateangles = .T.
		piedetachanimationsteps = 3
		piedetachpixels = 30
		piedetachsliceonclick = .T.
		piedetachsliceonlegendclick = .F.
		piedirection = 0
		pieenhanceddrawing = .T.
		pieforcecircle = .F.
		piegradcenterangle = 0
		piegradcenterdistance = 0
		pielegenddistance =          0.75
		pieshowpercent = .T.
		pointshapewidth = 2
		qualitycompositing = 2
		qualitysmoothing = 4
		qualitytextrenderinghint = 4
		scale = 0
		scaleautoformat = .T.
		scalebackalpha = 128
		scalebackbarstype = 1
		scalebackcolor = 16118000
		scalebacklinesdash = 0
		scalebacklinestype = 1
		scalebacklineswidth = 1
		scaledivider = 1
		scalelinecolor = 0
		scalelinezerocolor = 255
		selectedshapecolor = 8421504
		shadow = .F.
		shape1 = 0
		shapelegendexpression = 
		shapemousepointer = 15
		showaxis = .T.
		showaxis2tics = .T.
		showlinezero = .T.
		showpercentages = .F.
		showscale = .T.
		showsidelegend = .T.
		showtips = .T.
		showvaluesonshape1 = .T.
		showvaluesonshapes = .F.
		showvaluezero = .T.
		singledata = .F.
		sourcealias = 
		StatusBarText = ""
		ticlength = 5
		version = 1.37
		versiona = FoxCharts v1.37b ALPHA
		Width = 360
		_3d = .F.
		_absolutescalevalues = .F.
		_allowaxis = 
		_anchor = 0
		_axis2scalewidth = 0
		_bottomoffset = 0
		_chartindex = 0
		_charty0 = 0
		_charty1 = 0
		_currentrow = 0
		_datacursor = 
		_deepchart = .F.
		_firstactivate = .F.
		_generaltype = 
		_hasnegatives = .F.
		_inlegend = .F.
		_inreport = .F.
		_insideform = .T.
		_leftoffset = 
		_legendexternalmargin = 19
		_legendheight = 0
		_legendpixheight = 0
		_legendwidth = 0
		_maxscale = 0
		_maxscale2 = 0
		_memberdata = <VFPData>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
			<memberdata name="version" display="Version"/>
			<memberdata name="getchartproperties" display="GetChartProperties"/>
			<memberdata name="getscalelegend" display="GetScaleLegend"/>
			<memberdata name="getscalevalue" display="GetScaleValue"/>
			<memberdata name="savechartproperties" <VFPData><memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseenter" display="ShapeMouseEnter"/>
			<memberdata name="shapemouseleave" display="ShapeMouseLeave"/>
			<memberdata name="shapemousemove" display="ShapeMouseMove"/>
			<memberdata name="versiona" display="VersionA"/>
		</VFPData>
		_minscale = 0
		_minscale2 = 0
		_minvalue = 0
		_ncolor = 0
		_nindex = 0
		_nmouseonshape = 0
		_nmouseover = 0
		_nrecords = 0
		_o3dbrush = 
		_oborderpen = 
		_oclrblack = 
		_oclrmatrix = 
		_oclrwhite = 
		_omainbrush = 
		_orientation = 1
		_origmousepointer = 0
		_otempbmp = 
		_palettecolors = 184
		_pie1stdetached = .F.
		_pieanimatedrec = 0
		_pieanimationpix = 0
		_piex0 = 0
		_piey0 = 0
		_rightoffset = 
		_savedchartproperties = .NULL.
		_scale = 0
		_scale2 = 0
		_scaleadjust = 
		_scaleadjust2 = 0
		_scaleh = .F.
		_scaleh2 = 0
		_scaleinpercent = .F.
		_scalelegaxis1forceformat = 
		_scalelegaxis2forceformat = 
		_scalelegend2forceformat = 
		_scalerange = 
		_scalerange2 = 0
		_scalew = .F.
		_scalew2 = 0
		_skippreparedata = .F.
		_spellinglist = 
		_started = .F.
		_sumrow = 0
		_tippixels = 16
		_titleheight = 0
		_topoffset = 0
		_updaterandomcolors = .T.
		_useaxis = .T.
		_using3d = .F.
		_valuedecimals = 0
		_valueformat = 
		_valuetype = 
		_xaxisheight = 0
		_xrelative = 0
		_yaxiswidth = 0
		_yaxiswidth2 = 0
		_yrelative = 0
	*</PropValue>

	ADD OBJECT 'AxisLegend2' AS _legend WITH ;
		Alignment = 2, ;
		Caption = "AxisLegend2", ;
		FontBold = .F., ;
		FontSize = 9, ;
		FontUnderline = .F., ;
		Left = 108, ;
		Name = "AxisLegend2", ;
		Top = 130, ;
		Visible = .F.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'ChartCanvas' AS _chartcanvas WITH ;
		drawwheninvisible = .T., ;
		Height = 60, ;
		Left = 0, ;
		Name = "ChartCanvas", ;
		Top = 0, ;
		Width = 72, ;
		_usesmooth = .T.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="image" />

	ADD OBJECT 'Fields' AS collection WITH ;
		Left = 0, ;
		Name = "Fields", ;
		Top = 0
		*< END OBJECT: BaseClass="collection" />

	ADD OBJECT 'ScaleLegend' AS _legend WITH ;
		Alignment = 2, ;
		Caption = "ScaleLegend", ;
		FontBold = .F., ;
		FontSize = 7, ;
		FontUnderline = .F., ;
		Left = 108, ;
		Name = "ScaleLegend", ;
		Top = 60, ;
		Visible = .F.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'ShapeLegend' AS _legend WITH ;
		Alignment = 2, ;
		Caption = "ShapeLegend", ;
		FontSize = 9, ;
		Left = 108, ;
		Name = "ShapeLegend", ;
		Top = 80, ;
		Visible = .F.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'SideLegend' AS _legend WITH ;
		Alignment = 0, ;
		Caption = "SideLegend", ;
		FontBold = .F., ;
		FontSize = 9, ;
		FontUnderline = .F., ;
		Left = 216, ;
		Name = "SideLegend", ;
		Top = 46, ;
		Visible = .F.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'SubTitle' AS _legend WITH ;
		Alignment = 2, ;
		Caption = "SubTitle", ;
		FontBold = .T., ;
		FontSize = 11, ;
		Left = 108, ;
		Name = "SubTitle", ;
		Top = 36, ;
		Visible = .F.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'Title' AS _legend WITH ;
		Alignment = 2, ;
		Caption = "Title", ;
		FontBold = .T., ;
		FontSize = 16, ;
		ForeColor = 0,128,255, ;
		Left = 108, ;
		Name = "Title", ;
		Top = 8, ;
		Visible = .F.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'ToolTip' AS _tooltip WITH ;
		Alignment = 2, ;
		AutoSize = .T., ;
		BackColor = 255,255,164, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Left = 216, ;
		Name = "ToolTip", ;
		Top = 12, ;
		Visible = .F., ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'XAxis' AS _legend WITH ;
		Alignment = 2, ;
		Caption = "XAxis", ;
		FontBold = .T., ;
		FontSize = 10, ;
		FontUnderline = .F., ;
		Left = 108, ;
		Name = "XAxis", ;
		Top = 105, ;
		Visible = .F.
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'YAxis' AS _legend WITH ;
		Alignment = 2, ;
		Caption = "YAxis", ;
		FontBold = .T., ;
		FontSize = 10, ;
		FontUnderline = .F., ;
		Height = 144, ;
		Left = 24, ;
		Name = "YAxis", ;
		Rotation = 270, ;
		Top = 57, ;
		Visible = .F., ;
		Width = 24
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />

	ADD OBJECT 'YAxis2' AS _legend WITH ;
		Alignment = 2, ;
		Caption = "YAxis2", ;
		FontBold = .T., ;
		FontSize = 10, ;
		FontUnderline = .F., ;
		Height = 144, ;
		Left = 312, ;
		Name = "YAxis2", ;
		Rotation = 270, ;
		Top = 57, ;
		Visible = .F., ;
		Width = 24
		*< END OBJECT: ClassLib="foxcharts.vcx" BaseClass="label" />
	
	PROCEDURE afterchart		&& Event that occurs immediately after the chart is drawn, but still before the image object is updated.
	ENDPROC

	PROCEDURE axiscolor_access
		RETURN This._GetRGB(This.AxisColor)
		
	ENDPROC

	PROCEDURE backcolor2_access
		LOCAL luBackColor2
		m.luBackColor2 = This.BackColor2
		
		IF VARTYPE(m.luBackColor2) = "L"
			RETURN This.BackColor2
		ELSE
			RETURN This._GetRGB(This.BackColor2)
		ENDIF 
		
		  
	ENDPROC

	PROCEDURE brushtype_assign
		LPARAMETERS tnBrushType
		This.BrushType = m.tnBrushType
		
		This._UpdateRandomColors = .T.
		  
	ENDPROC

	PROCEDURE changecolor		&& Method that returns a darker or brighter version of the original color. Most recommended to obtain some destination gradient values.
		LPARAMETERS tnRGB, tnLevel
		
		IF VARTYPE(m.tnRGB) + VARTYPE(m.tnLevel) <> "NN"
			RETURN 0
		ENDIF 
		
		IF m.tnLevel = 0
			RETURN m.tnRGB
		ENDIF 
		
		m.tnLevel = m.tnLevel / 100
		
		LOCAL lnRed, lnGreen, lnBlue
		m.lnRed   = BITAND(m.tnRGB, 0x000000FF)
		m.lnGreen = BITRSHIFT(BITAND(m.tnRGB, 0x0000FF00), 8)
		m.lnBlue  = BITRSHIFT(BITAND(m.tnRGB, 0x00FF0000), 16)
		
		IF m.tnLevel > 0
			RETURN RGB( ;
				m.lnRed   + ((255 - m.lnRed)   * m.tnLevel) , ;
				m.lnGreen + ((255 - m.lnGreen) * m.tnLevel) , ;
				m.lnBlue  + ((255 - m.lnBlue)  * m.tnLevel) )
		ELSE 
			RETURN RGB( ;
				m.lnRed   + (m.lnRed   * m.tnLevel) , ;
				m.lnGreen + (m.lnGreen * m.tnLevel) , ;
				m.lnBlue  + (m.lnBlue  * m.tnLevel) )
		ENDIF
	ENDPROC

	PROCEDURE chartscount_assign
		LPARAMETERS tnCount
		This.ChartsCount = m.tnCount
		
		* Prepare the Enumerated properties
		IF This.OldStyleProperties
			LOCAL n, lcIndex
			FOR m.n = 1 TO m.tnCount
				m.lcIndex =  This._Str(m.n)
				IF m.n > 1 && The enum properties #1 already exists - no need to recreate
					This.AddProperty("ChartType" + m.lcIndex, 0)
					This.AddProperty("FieldValue" + m.lcIndex, "")
					This.AddProperty("Legend" + m.lcIndex, "")
					This.AddProperty("Color" + m.lcIndex, "")
					This.AddProperty("Shape" + m.lcIndex, 0)
					This.AddProperty("ShowValuesOnShape" + m.lcIndex, .T.)
					This.AddProperty("AxisIndex" + m.lcIndex, 1)
				ENDIF
			ENDFOR
		ENDIF 
		
		* Prepare the Fields collection
		This._SetFieldsCount(m.tnCount)  
	ENDPROC

	PROCEDURE charttype_assign
		LPARAMETERS tnChartType
		This.ChartType = tnChartType
		
		This._UpdateRandomColors = .T.
		This._SkipPrepareData = .F.
		
	ENDPROC

	PROCEDURE color1_access
		RETURN This._GetRGB(This.Color1)
		
	ENDPROC

	PROCEDURE colortype_assign
		LPARAMETERS tnColorType
		This.ColorType = m.tnColorType
		
		IF m.tnColorType = 2 && Random
			This._UpdateRandomColors = .T.
		ENDIF 
		  
	ENDPROC

	PROCEDURE currcolumn_access
		LOCAL lnIndex, lnColumn
		m.lnIndex = This.CurrIndex
		m.lnColumn = IIF(m.lnIndex = 0, 0, This.aCoord(m.lnIndex, 9))
		RETURN m.lnColumn  
	ENDPROC

	PROCEDURE currlegend_access
		LOCAL lnIndex, lcLegend
		m.lnIndex = This.CurrIndex
		m.lcLegend = IIF(m.lnIndex = 0, "", This.aCoord(m.lnIndex, 6))
		RETURN m.lcLegend  
	ENDPROC

	PROCEDURE currobjtype_access
		LOCAL lnIndex, lcObjType
		m.lnIndex = This.CurrIndex
		m.lcObjType = IIF(m.lnIndex = 0, "", This.aCoord(m.lnIndex, 11))
		RETURN m.lcObjType  
	ENDPROC

	PROCEDURE currrecno_access
		LOCAL lnIndex, lnRec
		m.lnIndex = This.CurrIndex
		m.lnRec = IIF(m.lnIndex = 0, 0, This.aCoord(m.lnIndex, 10))
		RETURN m.lnRec  
	ENDPROC

	PROCEDURE currvalue_access
		LOCAL lnIndex, lnValue
		m.lnIndex = This.CurrIndex
		m.lnValue = IIF(EMPTY(m.lnIndex), 0, This.aCoord(m.lnIndex, 5))
		RETURN m.lnValue  
	ENDPROC

	PROCEDURE drawchart		&& Draws and updates the current chart image. DrawChart is the last method to be called after you setup all the chart properties.
		* Some setups before drawing for the case of transparent background
		* When some Image Canvas settings are needed
		IF This.BackColorAlpha < 255 && Transparency active
			This.ChartCanvas.Clear(_Screen.System.Drawing.Color.Transparent)
			This.ChartCanvas.RenderMode = 4 && Memory PNG
			This.BackStyle = 0 && Transparent
		ENDIF 
		
		
		IF NOT This._Started
			This._InitChart()
		ENDIF 
		
		This.ChartCanvas.Draw()
		
	ENDPROC

	PROCEDURE drawreport		&& Returns the FULLPATH() of physical copy of an image from the current chart drawn using the EMF encoder.
		LPARAMETERS tnWidth, tnHeight
		
		This._SkipPrepareData = .T.
		This._InReport = .T.
		
		LOCAL ARRAY laBackup(1)
		ACOPY(This.aCoord, laBackup)
		
		LOCAL lcFile, lcAlias
		m.lcAlias = ALIAS()
		m.lcFile  = This.ChartCanvas.DrawReport(m.tnWidth, m.tnHeight)
		
		ACOPY(laBackup, This.aCoord)
		
		This._InReport = .F.
		
		SELECT(m.lcAlias)
		
		RETURN m.lcFile
	ENDPROC

	PROCEDURE fontname_assign
		LPARAMETERS tcFontName
		This.FontName = m.tcFontName
		
		* Set all the legend types available
		This.SetAll("FontName", m.tcFontName, "_Legend")
		
		* Set the Tooltip fontname as well
		IF This._InsideForm
			This.ToolTip.FontName = m.tcFontName
		ENDIF   
		
	ENDPROC

	PROCEDURE getchartproperties		&& Returns the chart user defined properties for the current chart
		**********************************************************************************************
		* Method: GetChartProperties
		* Author: Jim R. Nelson
		* Returns the properties and values used to create the current chart
		* 2009-12-11 CChalom: added parameter #4, for getting the full script
		**********************************************************************************************
		
		Lparameters tnType, tbWrapper, tlShowDescriptions
		
		*  tnType     = 1 for all properties
		*             = 2 for non-default properties
		*             = 3 for properties since last call to .SaveChartProperties
		*             = 4 for returning a full script for recreating the chart
		*  tbWrapper = .T.   to include code around it ...  WITH / ENDWITH
		
		Local lcResult, lcObjects, lcCollection, loPropertiesList, lcMember, lnType, laMembers(1), laObjMembers(1), lcObjMem, lcItem, lnI, lcTempResult, lnJ
		Local lcTabs, lnRow, lcDescription, loMember
		Local lcCRLF, lnTabSpaces, lcProperty
		
		m.lcCRLF = Chr(13) + Chr(10)
		m.lnTabSpaces = 4
		m.lcTabs = Space(m.lnTabSpaces)
		
		Do Case
		    Case Empty (m.tnType)
		        m.lnType = 1
		    Case m.tnType = 3 And Isnull(This._savedchartproperties)
		        * for tnType =2, you must have first invoked method SaveChartProperties ...
		        * the result is then all properties modified after the call to SaveChartProperties
		        m.lnType = 2
			CASE m.tnType = 4
				RETURN This._GetChartScript()
		    Otherwise
		        m.lnType = m.tnType
		Endcase
		
		m.lcResult  = ""
		m.lcObjects = ""
		m.lcCollection = ""
		m.loPropertiesList = This._GetChartProperties()
		Amembers(laMembers, m.loPropertiesList, 3)
		
		
		*!*    2009-12-17
		*!*    CChalom: Changed order of appearance of the properties
		
		For m.lnI = 1 To Alen (m.laMembers, 1)
		
		    m.lcMember = This._spellproperty (m.laMembers(m.lnI,1))
		
		    m.lcDescription = ''
		    m.lnRow = Ascan (m.loPropertiesList._Descriptions, m.lcMember, -1, -1, 1, 9)
		    If m.lnRow > 0
		        m.lcDescription = m.loPropertiesList._Descriptions(m.lnRow, 4)
		    Endif
		
		    Do Case
		
		        Case Lower(m.lcMember) = '_descriptions'
		
		        Case "O" # Type ("loPropertiesList." + m.lcMember) && simple properties
					m.lcResult = m.lcResult + This._GetChartProp(m.loPropertiesList, m.lcMember, m.lnType, This._savedchartproperties, m.lcDescription, m.tlShowDescriptions)
		
		        Case "C" = Type ("loPropertiesList." + m.lcMember, 1) && collection container
		            For m.lnJ = 1 To Evaluate ("loPropertiesList." + m.lcMember + ".Count")
		                m.lcItem = m.lcMember + ".Item(" + Transform(m.lnJ) + ")"
		                m.loMember = Evaluate ("loPropertiesList." + m.lcItem)
		                Amembers (laObjMembers, m.loMember)
		                m.lcTempResult = ''
		                For Each m.lcObjMem In m.laObjMembers
		                    m.lcObjMem = This._spellproperty (m.lcObjMem)
		                    m.lcDescription = ''
		                    If m.tlShowDescriptions And Pemstatus(m.loMember, "_Descriptions", 5)
		                        m.lnRow = Ascan (m.loMember._Descriptions, m.lcObjMem, -1, -1, 1, 9)
		                        If m.lnRow > 0
		                            m.lcDescription = m.loMember._Descriptions(m.lnRow, 4)
		                        Endif
		                    Endif
		
		                    m.lcProperty = This._GetChartProp(;
		                        m.loPropertiesList, m.lcItem + "." + m.lcObjMem, m.lnType, This._savedchartproperties, m.lcDescription, m.tlShowDescriptions)
		                    m.lcTempResult = m.lcTempResult + m.lcProperty
		                Endfor
		                If Not Empty (m.lcTempResult)
		                    m.lcCollection = m.lcCollection + ;
		                        "WITH ." + m.lcMember + "(" + Transform(m.lnJ) + ")" + m.lcCRLF + ;
		                        Strtran(m.lcTempResult, "." + m.lcItem, m.lcTabs)+ "ENDWITH" + m.lcCRLF
		                Endif
		            Endfor
		
		        Otherwise && Legend objects
		            m.loMember = Evaluate ("loPropertiesList." + m.lcMember)
		            Amembers (laObjMembers, m.loMember)
		
		            m.lcTempResult = ''
		            For Each m.lcObjMem In m.laObjMembers
		                m.lcObjMem = This._spellproperty (m.lcObjMem)
		                m.lcDescription = ''
		                If m.tlShowDescriptions And Pemstatus(m.loMember, "_Descriptions", 5)
		                    m.lnRow = Ascan (m.loMember._Descriptions, m.lcObjMem, -1, -1, 1, 9)
		                    If m.lnRow > 0
		                        m.lcDescription = m.loMember._Descriptions(m.lnRow, 4)
		                    Endif
		                Endif
		                m.lcTempResult = m.lcTempResult + This._GetChartProp (;
		                    m.loPropertiesList, m.lcMember + "." + m.lcObjMem, m.lnType, This._savedchartproperties, m.lcDescription, m.tlShowDescriptions)
		            Endfor
		
		            If Not Empty (m.lcTempResult)
		                m.lcObjects = m.lcObjects + "WITH ." + m.lcMember + m.lcCRLF + ;
		                    Strtran(m.lcTempResult, "." + m.lcMember, m.lcTabs) + ;
		                    "ENDWITH" + m.lcCRLF
		            Endif
		    Endcase
		
		Endfor
		
		* Merge all types
		m.lcResult = m.lcResult + m.lcObjects + m.lcCollection
		
		
		
		
		*!*    2009-02-21
		*!*    CChalom: Fixed insertion of With/Endwith
		If m.tbWrapper
		    Local lcCommand, laLines(1), N
		    m.lcCommand = ""
		    For m.N = 1 To Alines(laLines, m.lcResult)
		        m.lcCommand = m.lcCommand + Space(3) + m.laLines(m.N) + m.lcCRLF
		    Endfor
		
		    TEXT TO m.lcResult NOSHOW TEXTMERGE
		LOCAL loChart as FoxCharts OF "FoxCharts.vcx"
		m.loChart = CREATEOBJECT("FoxCharts")
		WITH loChart
		<<m.lcCommand>>
		<<m.lcTabs>>loChart.DrawChart()
		ENDWITH
		    ENDTEXT
		
		Endif
		
		Return m.lcResult
		
	ENDPROC

	PROCEDURE getscalelegend		&& Returns legends to be used in vertical scale
		Lparameters tnScaleNumber, tnValue
		
		****************************************************************
		*   Jim Nelson   10/10/08
		
		*  Returns the Value for the N-th scale legend on the vertical axis.
		*  tnScaleNumber = 0 corresponds to the highest scale legend
		*
		*  for tnScaleNumber = -1, returns the value to be used in determining the width of the scale legends.
		*
		*  Return value may be numeric (usual) or character (e.g., substituting "zero" for 0)
		Do Case
				* 	-1 means the default (maximum) used to determine width
			Case (m.tnScaleNumber <> -1) AND (0 # m.tnScaleNumber % This.BarsPerScale)
				Return []
				
			Case m.tnScaleNumber = -1
				RETURN This._MaxScale
		
		*!*		Case m.tnScaleNumber = -1 And Not Empty (This.ScaleLegend._ForceFormat)
		*!*			Return This.ScaleLegend._ForceFormat
		
		*!*		Case m.tnScaleNumber = -1 And Empty (This.ScaleLegend._ForceFormat)
		*!*			RETURN This._MaxScale
		
			Otherwise
				Return m.tnValue
		
		Endcase
	ENDPROC

	PROCEDURE getscalevalue		&& Returns values to be used in vertical scale
		Lparameters tnScaleNumber, tnIndex
		
		m.tnIndex = EVL(m.tnIndex, 1)
		
		****************************************************************
		*   Jim Nelson   10/10/08
		
		*  	Returns the Value for the N-th scale on the vertical axis.
		*  	tnScaleNumber = 0 corresponds to the highest scale
		*
		*  	Returns .F. for values of lnScaleNumber that are beyond the lowest scale.
		
		*	This code assumes that the increment between successive scale values is constant.
		*  	There is not need for that to be true.
		*	For instance, it could return the values in the first column here, where the second column is the grade
		*        (and Method GetScaleLegend could return the character grades)
		*
		*     100    A+
		*       90   A
		*       80   B
		*       65   C
		*       50   D
		*        0   F
		
		Local lnResult
		
		IF m.tnIndex = 1
		
			m.lnResult = This._MaxScale - m.tnScaleNumber * This._Scale
			If m.lnResult >= This._MinScale - This._Scale / 100
				Return m.lnResult
			Else
				Return .F.
			ENDIF
		
		ELSE 
		
			m.lnResult = This._MaxScale2 - m.tnScaleNumber * This._Scale2
			If m.lnResult >= This._MinScale2 - This._Scale2 / 100
				Return m.lnResult
			Else
				Return .F.
			ENDIF
		
		ENDIF 
	ENDPROC

	PROCEDURE Init
		This._InitChart()
	ENDPROC

	PROCEDURE MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex, tcObjType
	ENDPROC

	PROCEDURE mousepointer_access
		RETURN This.ChartCanvas.MousePointer
		  
	ENDPROC

	PROCEDURE mousepointer_assign
		LPARAMETERS nMousePointer
		This.ChartCanvas.MousePointer = m.nMousePointer
		This.MousePointer = m.nMousePointer  
	ENDPROC

	PROCEDURE MouseUp
		LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex, tcObjType
	ENDPROC

	PROCEDURE Moved
		This._GetRelativePositions()
	ENDPROC

	PROCEDURE Resize
		IF This._InsideForm 
			IF Thisform.Visible = .F. OR This.Visible = .F.
				This.ChartCanvas.lRedrawNow = .F.
				This.ChartCanvas.Width = This.Width
				This.ChartCanvas.Height = This.Height
				RETURN
			ENDIF 
		ENDIF 
		
		
		IF This._FirstActivate && AND Thisform.Visible
			This._FirstActivate = .F.
			RETURN 
		ENDIF
		
		
		
		This._UpdateRandomColors = .F.
		This.ChartCanvas.lRedrawNow = .F.
		This.ChartCanvas.Width = This.Width
		This.ChartCanvas.Height = This.Height
		
		This._SkipPrepareData = .T.
		
		IF This._Started 
			This.ChartCanvas.lRedrawNow = .T.
		ENDIF 
		
		RETURN
	ENDPROC

	PROCEDURE savechartproperties		&& Saves current list of properties so that incremental property list can be returned by GetChartProperties()
		****************************************************************
		*   Jim Nelson   10/20/2008
		*     modified   06/30/2009
		
		* Save current settings of Chart Properties so that later comparisons
		* can determine which properties have changed
		
		Lparameters tlSkipIfAlreadySaved
		
		If tlSkipIfAlreadySaved And "O" = Vartype(This._SavedChartProperties)
			Return
		Endif
		
		This._SavedChartProperties = This._GetChartProperties()
		
	ENDPROC

	PROCEDURE savetofile		&& Saves the current chart to a file in the image format compatible with Gdi+: Bmp, Png, Jpeg, Gif, Tiff and Emf.
		LPARAMETERS tcFile, tnQuality
		IF EMPTY(m.tcFile) && Invalid File Name
			RETURN .F.
		ENDIF
		
		LOCAL lcImgFormatTypes, lcFile, lcExt
		LOCAL loImgFormat as xfcImageFormat
		LOCAL loQualityEncoder AS xfcEncoderParameter
		LOCAL loEncoderParameters AS xfcEncoderParameters
		m.loEncoderParameters = .F.
		
		m.lcExt = LOWER(JUSTEXT(m.tcFile))
		IF EMPTY(m.lcExt)
			m.lcExt = "png"
		ENDIF 
		
		DO CASE
			CASE m.lcExt = "bmp" OR m.lcExt = "bitmap"
				m.loImgFormat = _Screen.System.Drawing.Imaging.ImageFormat.Bmp			
		
			CASE m.lcExt = "jpg" OR m.lcExt = "jpeg"
				m.loImgFormat = _Screen.System.Drawing.Imaging.ImageFormat.Jpeg
						
				IF VARTYPE(m.tnQuality) = "N" && set the quality encoder if the parameter was passed
				                            && otherwise, the default 75% for Gdi+ will be used.
					&& Create an EncoderParameters object.
					&& An EncoderParameters object has an array of EncoderParameter
					&& objects. In this case, there is only one
					&& EncoderParameter object in the array.
					m.loEncoderParameters = _Screen.System.Drawing.Imaging.EncoderParameters.New(1)
				
					&& Save the bitmap as a JPEG file with quality level.
					m.loQualityEncoder = _Screen.System.Drawing.Imaging.EncoderParameter.New(_Screen.System.Drawing.Imaging.Encoder.Quality, m.tnQuality)
					m.loEncoderParameters.Param.Add(m.loQualityEncoder)
				ENDIF 
		
			CASE m.lcExt = "gif"
				m.loImgFormat = _Screen.System.Drawing.Imaging.ImageFormat.Gif 			
		
			CASE m.lcExt = "png"
				m.loImgFormat = _Screen.System.Drawing.Imaging.ImageFormat.Png 
		
			CASE m.lcExt = "tif" OR m.lcExt = "tiff"
				m.loImgFormat = _Screen.System.Drawing.Imaging.ImageFormat.Tiff 
		
			CASE m.lcExt = "emf"
				LOCAL lcTempFile
				m.lcTempFile = This.DrawReport()
				IF FILE(m.lcTempFile)
					 COPY FILE (m.lcTempFile) TO (m.tcFile)
				ENDIF 
				RETURN
		
			OTHERWISE
				RETURN .F.
		ENDCASE
		
					
		TRY
			This.oBmp.Save(m.tcFile, m.loImgFormat, m.loEncoderParameters)	
		CATCH
		ENDTRY
	ENDPROC

	PROCEDURE scalebackcolor_access
		RETURN This._GetRGB(This.ScaleBackColor)
		
	ENDPROC

	PROCEDURE scalelinecolor_access
		RETURN This._GetRGB(This.ScaleLineColor)
		
	ENDPROC

	PROCEDURE selectedshapecolor_access
		RETURN This._GetRGB(This.SelectedShapeColor)
	ENDPROC

	PROCEDURE shapelegendexpression_access
		RETURN This.ShapeLegendExpression
	ENDPROC

	PROCEDURE shapemouseenter		&& Event that occurs when a user moves the mouse over a shape object from the chart.
		LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex
	ENDPROC

	PROCEDURE shapemouseleave		&& Event that occurs when a user moves the mouse out of a shape object from the chart.
		LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex
	ENDPROC

	PROCEDURE shapemousemove		&& Event that occurs when a user moves the mouse into a shape object of the chart.
		LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex
		
	ENDPROC

	PROCEDURE shapetooltip		&& Event that occurs immediately before the default tooltip of FoxCharts is exibited. Use this event in order to customize the text that is to be shown in the tooltips.
		LPARAMETERS nButton, nShift, nXCoord, nYCoord, tnValue, tcLegend, tnCoordIndex, tcObjType
		
		WITH This
			LOCAL lcCaption, lcFormat, lnDecimals, lcDecHelp, i
			IF m.tcObjType = "Legend"
				m.lcCaption = ""
			ELSE 
		
				* 2013-02-24 CChalom - Update to calculate the decimals for the current object
				m.lcDecHelp  = TRANSFORM(ABS(INT(tnValue) - tnValue))
				m.lcDecHelp  = SUBSTR(m.lcDecHelp, 3)
				FOR i = 1 TO LEN(m.lcDecHelp)
					IF RIGHT(m.lcDecHelp,1) = "0"
						m.lcDecHelp = LEFT(m.lcDecHelp, LEN(m.lcDecHelp) - 1)
					ELSE 
						EXIT
					ENDIF
				ENDFOR 
				m.lnDecimals = LEN(m.lcDecHelp)
				* -
		
				m.lcFormat = .ShapeLegend.Format
				IF EMPTY(m.lcFormat) && AND NOT EMPTY(This.ShapeLegendExpression)
					* m.lcFormat = "999,999,999,999" + ;
						IIF(This._ValueDecimals > 0, "." + REPLICATE("9", This._ValueDecimals), "")
		
					m.lcFormat = "999,999,999,999" + ;
						IIF(m.lnDecimals > 0, "." + REPLICATE("9", m.lnDecimals), "")
		
				ENDIF 
			
				m.lcCaption = ALLTRIM(ALLTRIM(TRANSFORM(m.tnValue, m.lcFormat)) + ;
					IIF(EMPTY(m.tcLegend),"", CHR(13) + m.tcLegend) + ;
					IIF(m.tcObjType = "Pie", CHR(13) + TRANSFORM(INT((m.tnValue / .ChartSum)*100)) + "%",""))
			ENDIF
		
			.ToolTip.Caption = m.lcCaption
		
			.MousePointer = .ShapeMousePointer
		
			IF NOT EMPTY(m.lcCaption) AND ;
					Thisform.FoxChartsToolTip.Width = 0
				Thisform.FoxChartsToolTip.Width = 10
			ENDIF 	
		
		ENDWITH 
		
		RETURN 
	ENDPROC

	PROCEDURE sourcealias_assign
		LPARAMETERS tcNewAlias
		This.SourceAlias = m.tcNewAlias
		
		IF NOT EMPTY(This._DataCursor) AND USED(This._DataCursor)
			USE IN (This._DataCursor)
		ENDIF 
		This._DataCursor = ""  
	ENDPROC

	PROCEDURE _adjuststartsweep
		LPARAMETERS tnStart, tnSweep, tnWidth, tnHeight
		
		LOCAL lnDrawStart, lnDrawSweep, lnDestAngle
			
		IF This.PieCompensateAngles 
			m.lnDrawStart	= This._GetAdjustedAngle(m.tnStart, m.tnWidth, m.tnHeight)
		
			m.lnDestAngle = This._GetAdjustedAngle(m.tnStart + m.tnSweep, m.tnWidth, m.tnHeight)
			IF m.lnDestAngle < m.lnDrawStart
				m.lnDestAngle = m.lnDestAngle + 360
			ENDIF 
		
			m.lnDrawSweep = m.lnDestAngle - m.lnDrawStart
		
			m.tnStart = m.lnDrawStart
			m.tnSweep = m.lnDrawSweep
			
		ELSE
			IF m.tnStart < 0
				m.tnStart = m.tnStart + 360
			ENDIF 
		ENDIF 
		 
	ENDPROC

	PROCEDURE _beforedraw
		Local loException as Object
		TRY
		
			This._Drawing = .T.
		
		* Store the current selected table / cursor
			LOCAL lnSelect
			m.lnSelect = SELECT()
		
		* Initial Settings
			LOCAL loChart as FoxCharts OF FoxCharts.Vcx
			m.loChart = This
		
			m.loChart.oGfx = This.ChartCanvas.oGfx
			m.loChart.oBmp = This.ChartCanvas.oBmp
		
		* Update quality settings
			This._UpdateQuality()
		
		* Check if the FoxCharts object was created
		* This is for the case when the user does not create the chart cursor before the form is initialized.
			IF EMPTY(This.SourceAlias)
				m.loChart._PrepareBackGround()
				EXIT
			ENDIF
		
		* Check for the minimum dimensions
			IF This.ChartCanvas.Width < 30 OR ;
				This.ChartCanvas.Height < 30
				EXIT
			ENDIF
		
			m.loChart._CheckParams()
			m.loChart._UpdateChartInfo()
		
			IF NOT m.loChart._SkipPrepareData OR NOT USED(This._DataCursor)
		* Check if empty cursor
				IF NOT m.loChart._PrepareData()
					m.loChart._PrepareBackGround()
					m.loChart._PrepareTitle()
					EXIT
				ENDIF
		
				* Make sure to clear some properties to avoid issues if changing the chart type
				*   having the Chart active
				This._ScaleLegAxis1ForceFormat = ""
				This._ScaleLegAxis2ForceFormat = ""
				This.ScaleLegend._ForceFormat  = ""
		
				m.loChart._PrepareVariables()
				m.loChart._PrepareColors()
			ELSE
				SELECT (This._DataCursor)
				GO TOP
			ENDIF
		
		
		*	m.loChart._PrepareColors()
			m.loChart._PrepareBackGround()
			m.loChart._PrepareTitle()
			m.loChart._PrepareSideLegend()
			m.loChart._PrepareLegend()
			m.loChart._DrawAxis()
			m.loChart._PrepareTooltip
		
			IF m.loChart.ShowValuesOnShapes
				m.loChart.ShapeLegend._Setup()
			ENDIF
		
		
			LOCAL lnChartType
			m.lnChartType = m.loChart.ChartType
		
		
			IF INLIST(m.lnChartType, 6, 9, 14, 11, 10) AND This._HasNegatives
				MESSAGEBOX("The selected Chart type does not support negative values" + CHR(13) + "The chart will not be drawn", 48, "Invalid Data")
		
		
			ELSE
		
				DO CASE
		
		*!*	Chart Type Values:
		*!*	1 = Pie ; 2 = Donut ;
		*!*	3 = Unspecified ;
		*!*	4 = Point ; 5 = Line ;  6 = Area ;
		*!*	7 = Simple Bar ; 8 = Multiple Bars ; 9 = Stacked Bars ; 11 = 3D Bars
		*!*	10 = Stacked Area
		*!* 12 = Horizontal Bars ; 13 = Horizontal multiple bars ; 14 = Horizontal Stacked Bars
		
		
					CASE This._GeneralType = "Pie" && Pie or Donut Chart
						m.loChart._DrawPieChart()
		
					CASE This._GeneralType = "Bar" && Bar Chart
						m.loChart._DrawBarChart()
		
					CASE INLIST(m.lnChartType, 4, 5, 6, 18) && Line or Area Chart
						m.loChart._DrawLineChart()
		
					CASE INLIST(m.lnChartType, 10, 16) && Stacked Area Chart
						m.loChart._DrawStackedAreaChart()
		
				ENDCASE
		
			ENDIF
		
		
			m.loChart._DrawSideLegends()
			m.loChart.AfterChart()
		
			m.loChart._FirstActivate   = .F.
			m.loChart._SkipPrepareData = .F.
			m.loChart._yAxisWidth	   = 0
			m.loChart._yAxisWidth2     = 0
		
		* Restore the original selected alias
			SELECT (m.lnSelect)
		
			This._GetRelativePositions()
		
		
		CATCH TO m.loException
		
		
			IF This.Debug
		* Send the error to a file
				LOCAL lcVersion, lcError, lcErrFile,  lcCRLF, lcLine
				m.lcCRLF		= CHR(13) + CHR(10)
				m.lcLine	=  m.lcCRLF + REPLICATE("=", 60) +  m.lcCRLF
				m.lcErrFile	= "FoxCharts.log"
		
				m.lcError = "FoxCharts Error" + ;
				m.lcLine + ;
				TRANSFORM(DATETIME()) + m.lcLine + ;
				[Error: ] + STR(m.loException.ERRORNO) +  m.lcCRLF + ;
				[Line : ] + STR(m.loException.LINENO) +  m.lcCRLF + ;
				[Message: ] + m.loException.MESSAGE +  m.lcCRLF + ;
				[Procedure: ] + m.loException.PROCEDURE +  m.lcCRLF + ;
				[Details: ] + m.loException.DETAILS + m.lcCRLF + ;
				[StackLevel: ] + STR(m.loException.STACKLEVEL) + m.lcCRLF + ;
				[LineContents: ] + m.loException.LINECONTENTS + m.lcCRLF + ;
				[UserValue: ] + m.loException.USERVALUE + m.lcLine + m.lcCRLF
		
		
		* Code from Christof Wollenhaupt
				LOCAL lcDir, lcMemory, lcStatus
				m.lcDir = ADDBS(GETENV("TEMP"))
				IF FILE(m.lcDir + "mem.txt")
					ERASE (m.lcDir + "mem.txt")
				ENDIF
				LIST MEMORY LIKE * TO (m.lcDir + "mem.txt") NOCONSOLE
				IF FILE(m.lcDir + "List_status.txt")
					ERASE (m.lcDir + "List_status.txt")
				ENDIF
				LIST STATUS TO (m.lcDir + "list_status.txt") NOCONSOLE
		
				m.lcMemory = FILETOSTR(m.lcDir + "mem.txt")
				m.lcStatus = FILETOSTR(m.lcDir + "List_Status.txt")
		
				ERASE (m.lcDir + "mem.txt")
				ERASE (m.lcDir + "List_status.txt")
		
		
		*------------------------------------------------------
		* Assemble the calling hierarchy
		*------------------------------------------------------
				LOCAL lcHierarchy, lnLevel, lcProcedure, laStack[1]
				m.lcHierarchy = "PROCEDURE HIERARCHY" + m.lcLine
				FOR m.lnLevel = ASTACKINFO(laStack) - 1 TO 1 STEP - 1
					m.lcProcedure = SUBSTR(SYS(16, m.lnLevel), AT(" ", ;
						SYS(16, m.lnLevel), 1) + 1)
					m.lcHierarchy = m.lcHierarchy + ;
					"   " + PROPER(ALLTRIM(LEFT(m.lcProcedure, ;
						  AT(" ", m.lcProcedure)))) + " in " + ;
					JUSTSTEM(SUBSTR(SYS(16, m.lnLevel), ;
						AT(" ", SYS(16, m.lnLevel), 2) + 1)) + ;
					", " + TRANSFORM(m.laStack[m.lnLevel, 5]) + ;
					CHR(13) + CHR(10)
				ENDFOR
		
		
				* GdiPlusX version check
				LOCAL lnVersion
				m.lnVersion = 0
				IF pemstatus(_Screen.System, "Version", 5)
					m.lnVersion = _Screen.System.Version
				ENDIF
				m.lcVersion = "Visual FoxPro " + TRANSFORM(VERSION(4)) + m.lcCRLF + ;
				"System: " + TRANSFORM(OS(1)) + " - " + TRANSFORM(OS(7)) + m.lcCRLF + ;
				"GdiPlusX Version: " + TRANSFORM(m.lnVersion) + m.lcCRLF + ;
				"FoxCharts Version: #" + TRANSFORM(This.Version) + "  -  " + TRANSFORM(This.VersionA) + ;
				m.lcLine + m.lcCRLF
		
		
				* Retrieve Chart properties
				LOCAL lcChartProps
				TRY
					m.lcChartProps = This.GetChartProperties()
					m.lcChartProps = STRTRAN(m.lcChartProps, CHR(13), m.lcCRLF)
				CATCH
					m.lcChartProps = "Not Available"
				ENDTRY
				m.lcChartProps = "Chart Properties" + m.lcCRLF + m.lcLine + m.lcCRLF + m.lcChartProps
		
		
		
				IF FILE(m.lcErrFile)
					ERASE (m.lcErrFile)
				ENDIF
		
		
		* Save error file to disk
				STRTOFILE(m.lcVersion + m.lcError + m.lcLine + ;
				  m.lcChartProps + m.lcLine + ;
				  m.lcHierarchy + m.lcLine + m.lcMemory + m.lcLine + m.lcStatus, m.lcErrFile)
		
				MESSAGEBOX("A Log file containing info about this error and your environment details was created: " + m.lcCRLF + m.lcCRLF + ;
				  FULLPATH(m.lcErrFile) + m.lcCRLF + m.lcCRLF + ;
				  "Please send it to: vfpimaging@hotmail.com to help us fixing it." + m.lcCRLF + m.lcCRLF + ;
				  m.lcError + m.lcCRLF + m.lcCRLF + ;
				  "Sorry for the inconvenience", 16, "FoxCharts Error")
		
			ELSE
		
				IF _VFP.StartMode = 0
					LOCAL lcVersion, lcError, lcErrFile,  lcCRLF, lcLine
					m.lcCRLF	 = CHR(13) + CHR(10)
					m.lcLine =  m.lcCRLF + REPLICATE("=", 30) +  m.lcCRLF
					m.lcError = "FoxCharts Error" + ;
					m.lcLine + ;
					TRANSFORM(DATETIME()) + m.lcLine + ;
					[Error: ] + STR(m.loException.ERRORNO) +  m.lcCRLF + ;
					[Line : ] + STR(m.loException.LINENO) +  m.lcCRLF + ;
					[Message: ] + m.loException.MESSAGE +  m.lcCRLF + ;
					[Procedure: ] + m.loException.PROCEDURE +  m.lcCRLF + ;
					[Details: ] + m.loException.DETAILS + m.lcCRLF + ;
					[StackLevel: ] + STR(m.loException.STACKLEVEL) + m.lcCRLF + ;
					[LineContents: ] + m.loException.LINECONTENTS + m.lcCRLF + ;
					[UserValue: ] + m.loException.USERVALUE + m.lcLine + m.lcCRLF
					MESSAGEBOX(m.lcError, 16, "FoxCharts error")
		
					THROW m.loException
				ENDIF
		
			ENDIF
		
			This._Drawing = .F.
			IF This._Redraw = .T.
				This._Redraw = .F.
				This.DrawChart()
			ENDIF
		
		ENDTRY
		
		RETURN 
	ENDPROC

	PROCEDURE _calculatescale
		LPARAMETERS tnMaxValue, tnMinValue, tnAxis
		
		m.tnAxis = EVL(m.tnAxis, 1)
		
		* 2009-12-12 CChalom - if working with full-stacked charts, use fixed values
		IF This._ScaleInPercent
			This._MinScale     = 0
		   	This._MaxScale     = 100
		    This._ScaleRange   = 100
			This._Scale        = IIF(This.Scale > 0, MIN(This.Scale, 100), 20)
		    This._ScaleAdjust  = 0
			RETURN 
		ENDIF 
		
		
		
		* By Jim Nelson
		*  Determines the maximum and minimum values plotted along the Y-Axis, and the increment between the legends.
		
		*  Arguments:
		*    tnMaxValue    = Maximum value in the data being plotted
		*    tnMinValue    = Minimum value in the data being plotted
		
		*  Properties referenced:
		*    .Scale                = Increment between legends along the axis.  If empty, will be calculated.
		*    .MaxValue            = If numeric, the value of the top legend along the axis.  Otherwise calculated.
		*    .MinValue            = If numeric, the value of the bottom legend along the axis.  Otherwise calculated.
		*    .ShowValueZero        = If True, insures that a value of zero will appear along the Y-Axis.  Otherwise,
		*                            the calculated range may be entirely above or below zero.
		*    .MinNumberScaleLegends    = The minimum number of scale legends to be drawn along the axis.
		*                            (The actual number is dependent on the data; the maximum will be one less
		*                            than twice this number.)
		*    .BarsPerScale    = The number of horizontal background bars (alternating colors) for each
		*                            scale legend.
		
		* Note that the values for Scale, MaxValue, and MinValue are normally left at their default values, so that
		* "nice" (that is, visually attractive) values can be determined.
		
		* Not all combinations of these properties make sense: for instance, setting MaxValue and/or MinValue
		* can make ShowValueZero irrelevant; setting Scale makes MinNumberScaleLegends irrelevant
		
		Local lnMax, lnMin, lnScale, lnMaxScale, lnMinScale, lnRange, lnLegendHeight, lnDigits, lnScaling
		
		IF m.tnAxis = 1
		
			m.lnMax = Icase(                                     ;
		    	"N" = Vartype (This.MaxValue), This.MaxValue,    ;
			    This.ShowValueZero, Max (0, m.tnMaxValue)    ,     ;
		    	m.tnMaxValue)
		
			m.lnMin = Icase(                                     ;
			    "N" = Vartype (This.MinValue), This.MinValue,    ;
			    This.ShowValueZero, Min (0, m.tnMinValue),         ;
			    m.tnMinValue)
		
			m.lnScale = This.Scale
		
		ELSE
		
			m.lnMax   = m.tnMaxValue
			m.lnMin   = m.tnMinValue
			m.lnScale = 0
		
		ENDIF 
		
		* 20081006 - JNelson fixed range calculation
		m.lnRange = m.lnMax - m.lnMin
		
		*  Calculate the scale, if none supplied
		Do Case
		
		    Case Not Empty (m.lnScale)
		
		        m.lnMaxScale        = m.lnScale * Ceiling (m.lnMax / m.lnScale)
		        m.lnMinScale        = m.lnScale * Floor (m.lnMin / m.lnScale)
		
		        *** JRN 07/01/09 : Insure legend on both top and bottom of Y-Axis
		        If This.BarsPerScale > 1
		            m.lnLegendHeight = m.lnScale * This.BarsPerScale
		            m.lnMaxScale = m.lnLegendHeight * Ceiling( (m.lnMaxScale - m.lnMinScale) / m.lnLegendHeight)
		        Endif
		
		        If This.ScaleAutoFormat
		            m.lnDigits = Ceiling (Log10(Max (10, Abs( m.lnMaxScale / This.ScaleDivider ), Abs (m.lnMinScale / This.ScaleDivider))))
		            This.ScaleLegend._ForceFormat = "   " + Right ("999,999,999,999,999", m.lnDigits + Floor((m.lnDigits + 3) / 3)+1)
		        Else
		            This.ScaleLegend._ForceFormat = ""
		        Endif
		
		    Case m.lnRange = 0
		
		        m.lnScale       = 10
		        m.lnMaxScale    = 1
		        m.lnMinScale    = 0
		
		    Otherwise
		
		        * choose "nice" steps sizes -- 10, 20, 25, or 50 times some power of ten.
		        Local laSteps(4)
		        m.laSteps(1)    = 1
		        m.laSteps(2)    = 2
		        m.laSteps(3)    = 2.5
		        m.laSteps(4)    = 5
		
		        Local lnMult, lnCurrentNSteps, lnStep, lnSteps, lnNiceStep, lnPowerof10, lnExponent
		
		        m.lnExponent         = Floor ( Log10 (m.lnRange)) - 3 && scale range to be between 1,000 and 9,999
		        m.lnCurrentNSteps    = 9999
		
		        For Each m.lnNiceStep In m.laSteps
		            For m.lnPowerof10 = 0 To 3
		                m.lnStep    = (m.lnNiceStep / Evl (This.BarsPerScale, 1)) * 10 ^ (m.lnExponent + m.lnPowerof10)
		                m.lnSteps    = Ceiling (m.lnMax / m.lnStep) - Floor (m.lnMin / m.lnStep)
		                *** JRN 07/01/09 : Insure legend on both top and bottom oy Y-Axis
		                If This.BarsPerScale > 1
		                    m.lnSteps = This.BarsPerScale * Ceiling( m.lnSteps / This.BarsPerScale)
		                Endif
		                If Between (m.lnSteps, This.MinNumberScaleLegends, m.lnCurrentNSteps)
		                    m.lnScale            = m.lnStep / 1
		                    m.lnMaxScale         = m.lnStep * Ceiling (m.lnMax / m.lnStep)
		                    m.lnMinScale        = m.lnStep * Floor (m.lnMin / m.lnStep)
		                    m.lnCurrentNSteps    = m.lnSteps
		                    m.lnScaling            = m.lnExponent + m.lnPowerof10 + Iif (0 = m.lnNiceStep % 1, 1, 0)
		                    *** JRN 07/01/09 : Insure legend on both top and bottom oy Y-Axis
		                    If This.BarsPerScale > 1
		                        m.lnLegendHeight = m.lnScale * This.BarsPerScale
		                        m.lnMaxScale = m.lnLegendHeight * Ceiling( (m.lnMaxScale - m.lnMinScale) / m.lnLegendHeight)
		                    Endif
		                Endif
		            Next m.lnPowerof10
		        Endfor
		
		        m.lnDigits = Ceiling (Log10(Max (10, Abs( m.lnMaxScale / This.ScaleDivider ), Abs (m.lnMinScale / This.ScaleDivider))))
		
		        If This.ScaleAutoFormat
		            This.ScaleLegend._ForceFormat = "   " + Right ("999,999,999,999,999", m.lnDigits + Floor((m.lnDigits + 3) / 3))
		            If m.lnScaling < 1
		                This.ScaleLegend._ForceFormat = This.ScaleLegend._ForceFormat + "." + Replicate ("9", 1 - m.lnScaling)
		            Endif
		        Else
		            This.ScaleLegend._ForceFormat = ""
		        Endif
		
		Endcase
		
		****************************************************************
		*  Save
		
		WITH This
		
		IF m.tnAxis = 1
		
		    ._Scale           = m.lnScale
		    ._ScaleRange      = m.lnMaxScale && - m.lnMinScale
		    ._ScaleAdjust     = - m.lnMinScale
		    ._MinScale        = m.lnMinScale
		    ._MaxScale        = m.lnMaxScale + m.lnMinScale
		
			IF This.ChartType = 17
		    	._ScaleRange  = m.lnMaxScale * 2 && - m.lnMinScale
		    	._MinScale    = - ._MaxScale
			ENDIF 
		
		ELSE 
		
		    ._Scale2          = m.lnScale
		    ._ScaleRange2     = m.lnMaxScale && - m.lnMinScale
		    ._ScaleAdjust2    = - m.lnMinScale
		    ._MinScale2       = m.lnMinScale
		    ._MaxScale2       = m.lnMaxScale + m.lnMinScale
		
		ENDIF 
		
		ENDWITH   
	ENDPROC

	PROCEDURE _centerpath
		LPARAMETERS toPath as xfcGraphicsPath, tlScale, tnWidth, tnHeight
		
		LOCAL loMatrix as xfcMatrix, ;
		loRect as xfcRectangle, ;
		lnWidth, lnHeight, x1, y1
		
		m.loRect = m.toPath.GetBounds()
		m.lnWidth = m.loRect.Width
		m.lnHeight = m.loRect.Height
		m.loMatrix = _Screen.System.Drawing.Drawing2D.Matrix.New() && lnWidth /2, lnHeight /2)
		
		IF m.tlScale
			m.loMatrix.Scale(1+This.PointShapeWidth /10, 1+This.PointShapeWidth /10)
			m.toPath.Transform(m.loMatrix)
			m.loRect = m.toPath.GetBounds()
			m.lnWidth = m.loRect.Width
			m.lnHeight = m.loRect.Height
			m.x1 = m.loRect.X
			m.y1 = m.loRect.Y
		
			m.loMatrix.Translate(-m.x1 -m.lnWidth/2, -m.y1 -m.lnHeight/2)
		ELSE
			m.x1 = m.loRect.X
			m.y1 = m.loRect.Y
		
			m.loMatrix.Translate(-m.x1 -m.lnWidth /(2 * This.PointShapeWidth), ;
				-m.y1 -m.lnHeight /(2 * This.PointShapeWidth))
		ENDIF
		
		m.toPath.Transform(m.loMatrix)
		RETURN m.toPath
	ENDPROC

	PROCEDURE _checkmouseposition
		LPARAMETERS nButton, nShift, nXCoord, nYCoord, lnValue, lcLegend, lnCoordIndex, lcObjType
		* Passed by reference: lnValue, lcLegend
		
		IF VARTYPE(m.lcLegend) = "L"
			m.lcLegend = ""
		ENDIF 
		
		m.lcObjType = ""
		
		IF VARTYPE(This.aCoord(1,1)) <> "N" OR m.nYCoord < 0 OR m.nXCoord <0
			This.MouseMove(m.nButton, m.nShift, m.nXCoord, m.nYCoord, 0, "", 0, "")
			RETURN
		ENDIF
		
		WITH This
		
			LOCAL n, lnValue, lnStart, lnSweep, lnLeft, lnTop
			m.lnLeft = This._xRelative &&+ .Left
			m.lnTop  = This._yRelative &&+ .Top
		
		
			* 1st step is to check if we are over the side legends
			IF This.ShowSideLegend AND ;
				BETWEEN(m.nXCoord - m.lnLeft,;
					This.SideLegend.Left, ;
					This.SideLegend.Left + This.SideLegend.Width) AND ;
				BETWEEN(m.nYCoord - m.lnTop, ;
					This.SideLegend.Top , ;
					This.SideLegend.Top + This.SideLegend.Height)
		
				m.lcObjType = "Legend"
			ENDIF 
		
		ENDWITH 
		
		*!*	This.aCoord(n,1) = tnX
		*!*	This.aCoord(n,2) = tnY
		*!*	This.aCoord(n,3) = tnWidth
		*!*	This.aCoord(n,4) = tnHeight
		
		
		
		
			DO CASE
		
			CASE This._GeneralType = "Bar" OR This._GeneralType = "Point" OR m.lcObjType = "Legend"
		
				FOR m.n = ALEN(This.aCoord,1) TO 1 STEP -1  && Reverse in order to catch the first drawing
		
					IF BETWEEN(m.nXCoord - m.lnLeft,;
							This.aCoord(m.n,1), ;
							This.aCoord(m.n,1) + This.aCoord(m.n,3)) ;
							AND ;
							BETWEEN(m.nYCoord - m.lnTop, ;
							This.aCoord(m.n,2) , ;
							This.aCoord(m.n,2) + This.aCoord(m.n,4))
		
						m.lnValue  = This.aCoord(m.n, 5)
						m.lcLegend = This.aCoord(m.n, 6)
						m.lnCoordIndex = m.n
		
						m.lcObjType = This.aCoord(m.n,11)
						IF m.lcObjType = "Legend"
							This._nMouseOnShape = 0
							RETURN
						ENDIF 
						
						
		
						IF This._nMouseOnShape = 0
							This._nMouseOnShape = m.n
							
							IF This.ChangeColoronMouse 
								This._SkipPrepareData = .T.
								This.DrawChart()
							ENDIF 
		
							This.ShapeMouseEnter(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
						ELSE 
							IF This._nMouseOnShape <> m.n
								This._nMouseOnShape = m.n
		
								IF This.ChangeColoronMouse 
									This._SkipPrepareData = .T.
									This.DrawChart()
								ENDIF 
		
								This.ShapeMouseEnter(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
		
							ELSE && Mouse over the shape
								This.ShapeMouseMove(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
							ENDIF 
						ENDIF
		
						RETURN
					ELSE
					ENDIF
				NEXT
		
				IF This._nMouseOnShape <> 0
					This._nMouseOnShape = 0
					This.ShapeMouseLeave(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
				ENDIF
		
		
			CASE This._GeneralType = "Pie"
		
		*!*	This.aCoord(n,1) = tnX
		*!*	This.aCoord(n,2) = tnY
		*!*	This.aCoord(n,3) = tnWidth
		*!*	This.aCoord(n,4) = tnHeight
		*!*	This.aCoord(n,5) = tnValue
		*!*	This.aCoord(n,7) = tnStart
		*!*	This.aCoord(n,8) = tnSweep
		*!*	This.aCoord(n,9) = This._ChartIndex
		*!*	This.aCoord(n,10) = RECNO()
		
		* Adapted code from Luis Maria Guayan - VFP MVP from Argentina
		
		
				LOCAL lnX1, lnX2, lnX3, lnY1, lnY2, lnY3, lnStart, lnSweep, lnValue, m.lcLegend, lnAngle
		
				* Center of Ellipse
				m.lnX1 = This.aCoord(1,3) / 2
				m.lnY1 = This.aCoord(1,4) / 2
		
				* Coordinates inside the Shape
				IF This._Pie1stDetached
					m.lnX2 = (m.nXCoord - m.lnLeft - m.lnX1 - This._PieX0)
					m.lnY2 = ((m.nYCoord - m.lnTop - m.lnY1 - This._PieY0) * (-1))
				ELSE
					m.lnX2 = (m.nXCoord - m.lnLeft - m.lnX1 - This.aCoord(1,1))
					m.lnY2 = ((m.nYCoord - m.lnTop - m.lnY1 - This.aCoord(1,2)) * (-1))
				ENDIF
		
				* Angle in degrees [0°..360°]
				m.lnAngle = RTOD(ATAN(m.lnY2/m.lnX2))
		
				DO CASE
				CASE m.lnX2 < 0
					m.lnAngle = 180 + m.lnAngle 
				CASE m.lnY2 < 0
					m.lnAngle = 360 + m.lnAngle
				OTHERWISE 	
				ENDCASE
				m.lnAngle = 360 - m.lnAngle			
		
		
		
		
				LOCAL lnFoundShape, n
				m.lnFoundShape = 0
		
				* Now we need to find the shape
				FOR m.n = 1 TO ALEN(This.aCoord,1)
					m.lnStart  = EVL(This.aCoord(m.n,7), 0)
					IF VARTYPE(m.lnStart) <> "N"
						EXIT
					ENDIF 
					
					m.lnSweep  = EVL(This.aCoord(m.n,8), 0)
					IF BETWEEN(m.lnAngle, m.lnStart, m.lnStart + m.lnSweep) OR ;
							BETWEEN(m.lnAngle + 360, m.lnStart, m.lnStart + m.lnSweep)
						m.lnFoundShape = m.n
						EXIT
					ENDIF
				ENDFOR
		
				IF m.lnFoundShape = 0
					RETURN
				ENDIF
		
		* Now we can know exactly the positions in the screen
		* for the case of detached slices
		* So, we restart, using the correct information
		
		* Center of Shape
				m.lnX1 = This.aCoord(m.lnFoundShape,3) / 2
				m.lnY1 = This.aCoord(m.lnFoundShape,4) / 2
		
		* Coordinates inside the Shape
				m.lnX2 =  m.nXCoord - m.lnLeft - m.lnX1 - This.aCoord(m.lnFoundShape, 1)
				m.lnY2 = -(m.nYCoord - m.lnTop - m.lnY1 - This.aCoord(m.lnFoundShape, 2))
		
		* Percentage in the ellipse
				m.lnX3 = m.lnX2 / m.lnX1
				m.lnY3 = m.lnY2 / m.lnY1
		
		
		*** NEW ANGLE
		* Angle in degrees [0°..360°]
				m.lnAngle = RTOD(ATAN(m.lnY2/m.lnX2))
		
				DO CASE
				CASE m.lnX2 < 0
					m.lnAngle =  180 + m.lnAngle
				CASE m.lnY2 < 0
					m.lnAngle = 360 + m.lnAngle
				ENDCASE
				m.lnAngle = 360 - m.lnAngle
		
				IF BETWEEN(m.lnAngle, m.lnStart, m.lnStart + m.lnSweep) OR ;
						BETWEEN(m.lnAngle + 360, m.lnStart, m.lnStart + m.lnSweep)
		
				ELSE
					IF This._nMouseOnShape <> 0
						This._nMouseOnShape = 0
		
						IF This.ChangeColoronMouse 
							This._SkipPrepareData = .T.
							This.DrawChart()
						ENDIF 
		
						This.ShapeMouseLeave(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
					ENDIF
		
					RETURN
				ENDIF
		*** NEW ANGLE
		
		
				LOCAL lnRatio
				m.lnRatio = m.lnY3^2 + m.lnX3^2
		
				IF m.lnRatio > 1	OR ;
						This.ChartType = 2 AND m.lnRatio < This.DonutRatio / 2  && Doughnut
		
					IF This._nMouseOnShape <> 0
						This._nMouseOnShape = 0
		
						This.ShapeMouseLeave(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
		
						IF This.ChangeColoronMouse 
							This._SkipPrepareData = .T.
							This.DrawChart()
						ENDIF 
		
						This.ShapeMouseLeave(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
					ENDIF
		
					RETURN
				ENDIF
		
				m.lnValue  = This.aCoord(m.lnFoundShape, 5)
				m.lcLegend = This.aCoord(m.lnFoundShape, 6)
				m.lnCoordIndex = m.lnFoundShape
				
		
				m.lcObjType = "Pie"
		
				IF This._nMouseOnShape = 0
					This._nMouseOnShape = m.lnFoundShape
					
					IF This.ChangeColoronMouse 
						This._SkipPrepareData = .T.
						This.DrawChart()
					ENDIF 
					
					This.ShapeMouseEnter(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
				ELSE 
					IF This._nMouseOnShape <> m.lnFoundShape
						This._nMouseOnShape = m.lnFoundShape
		
						IF This.ChangeColoronMouse 
							This._SkipPrepareData = .T.
							This.DrawChart()
						ENDIF 
		
						This.ShapeMouseEnter(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
		
					ELSE 
						This.ShapeMouseMove(m.nButton, m.nShift, m.nXCoord, m.nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex)
					ENDIF 
				ENDIF
		
		
				RETURN
		
			OTHERWISE
		
			ENDCASE
		  
	ENDPROC

	PROCEDURE _checkparams
		ASSERT BETWEEN(This.AlphaChannel, 0, 255)     MESSAGE "AlphaChannel must be between 0-255"
		ASSERT BETWEEN(This.AxisAlpha, 0, 255)        MESSAGE "AxisAlpha must be between 0-255"
		ASSERT BETWEEN(This.BackGradientMode, 0, 3)   MESSAGE "BackGradientMode not available (0-3)"
		ASSERT BETWEEN(This.BarType, 0, 2)            MESSAGE "BarType not available (0-2)"
		ASSERT BETWEEN(This.BrushType, 1, 3)          MESSAGE "BrushType not available (1-3)"
		ASSERT BETWEEN(This.ChartType, 1, 18)         MESSAGE "ChartType not available (1-18)"
		ASSERT BETWEEN(This.ColorType, 0, 27)         MESSAGE "ColorType not available (0-27)"
		ASSERT BETWEEN(This.DonutRatio, 0, 1)         MESSAGE "DonutRatio must be between 0 and 1"
		ASSERT BETWEEN(This.GradientLevel, -10, +10)  MESSAGE "GradientLevel not available (-10, +10)"
		ASSERT BETWEEN(This.ScaleBackAlpha, 0, 255)   MESSAGE "ScaleBackAlpha must be between 0-255"
		ASSERT BETWEEN(This.ScaleBackBarsType, 0, 3)  MESSAGE "ScaleBackBarsType not available (0-3)"
		ASSERT BETWEEN(This.ScaleBackLinesType, 0, 3) MESSAGE "ScaleBackLinesType not available (0-3)"
		ASSERT BETWEEN(This.ScaleBackLinesDash, 0, 4) MESSAGE "ScaleBackLinesDash must be between 0-4"
		ASSERT This.ScaleDivider > 0 MESSAGE "ScaleDivider must be greater than Zero"
		ASSERT This.BarsPerScale > 0 MESSAGE "BarsPerScale must be greater than Zero"
		ASSERT This.LegendPosition <=12 MESSAGE "LegendPosition must be between 0-12"
		
		ASSERT USED(This.SourceAlias) MESSAGE "The specified source alias - '" + ;
				This.SourceAlias + "' could not be found!"
		
		IF This.ColorType = 3 && Gradient
			ASSERT (VARTYPE(This.Fields(1).Color) = "N" OR VARTYPE(This.Color1) = "N") ;
				MESSAGE "You have to define the property .Fields(1).Color to determine the main starting gradient color"
		ENDIF 
		
		
		
		* GdiPlusX version check
		LOCAL lnVersion
		m.lnVersion = 1.10
		
		IF pemstatus(_Screen.System, "Version", 5)
			m.lnVersion = _Screen.System.Version
		ENDIF 
		IF m.lnVersion < 1.20
			ASSERT (This.ChartType <> 4) ;
				MESSAGE "Points ChartType #4 is not supported for GdiPlusX System.App versions prior to version 1.20" + CHR(13) + ;
						"Please make sure to be using at least version 1.20 to be able to use this type of chart"
		ENDIF  
	ENDPROC

	PROCEDURE _detachclickedslice
		LPARAMETERS tnIndex
		
		LOCAL llOrigDetach as Boolean
		IF EMPTY(m.tnIndex) OR (VARTYPE(m.tnIndex) <> "N")
			RETURN
		ENDIF 
		
		LOCAL lnRecno, lnChartIndex, llOriginalDetach
		
			*!*	This.aCoord(n,1) = tnX
			*!*	This.aCoord(n,2) = tnY
			*!*	This.aCoord(n,3) = tnWidth
			*!*	This.aCoord(n,4) = tnHeight
			*!*	This.aCoord(n,5) = tnValue
			*!*	This.aCoord(n,7) = tnStart
			*!*	This.aCoord(n,8) = tnSweep
			*!*	This.aCoord(n,9) = This._ChartIndex
			*!*	This.aCoord(n,10) = RECNO()
			
		m.lnRecno      = This.aCoord(m.tnIndex,10)
		m.lnChartIndex = This.aCoord(m.tnIndex,9)
		
		
		SELECT (This._DataCursor)
		GO m.lnRecno
		m.llOrigDetach = lDetach
		LOCAL lcCursor
		m.lcCursor = (This._DataCursor)
		
		REPLACE lDetach WITH NOT lDetach FOR RECNO() = m.lnRecno IN &lcCursor
		
		
		IF m.llOrigDetach
			This._SkipPrepareData = .T.
			This.DrawChart()
		ELSE 
		
			This._PieAnimatedRec  = m.lnRecno
		
			LOCAL lnDetachPixels, n, lnStep
			m.lnDetachPixels = This.PieDetachPixels 
			m.lnStep = m.lnDetachPixels / MAX(1,This.PieDetachAnimationSteps)
		
			FOR m.n = m.lnStep TO m.lnDetachPixels STEP m.lnStep
				This._PieAnimationPix = m.n
				This._SkipPrepareData = .T.
				This.DrawChart()
			ENDFOR
		ENDIF 
		
		This._PieAnimatedRec  = 0
		This._PieAnimationPix = 0
		This._SkipPrepareData = .F.  
	ENDPROC

	PROCEDURE _drawaxis
		LOCAL ln3D, lnMargin, lnYAxisHeight
		LOCAL lnHeight as Number
		m.lnMargin = This.Margin
		
		IF This._DeepChart && Point, Line or Area
			m.ln3D = This._3D * This.ChartsCount
		ELSE
			m.ln3D = This._3D
		ENDIF
		
		* Prepare the scale in the Y Axis, populating the ._ScaleW property
		This._GetyLegendSize()
		IF This.ChartType = 18 AND This.ShowScale && DoubleAxis
			This._GetyLegendSize(2)
		ENDIF
		
		
		m.lnYAxisHeight = 0
		IF This.ShowAxis = .T.
		* Draw the main Y Axis caption
			LOCAL lcYText
			m.lcYText = This.YAxis.Caption
			IF NOT EMPTY(m.lcYText)
				This.YAxis.Reset()
				m.lnYaxisHeight = CEILING(This.YAxis._Height)
			ENDIF 
		ENDIF 
		
		* Leaving some extra space for the X Axis legends
		LOCAL lnMinLeft, lnLeftCaptionWidth
		IF NOT EMPTY(This.FieldAxis2)
			* Measure the legend width
			This.AxisLegend2._Setup()
			GO TOP && First Legend
			This.AxisLegend2.Caption = cAxis2 && Field text
			m.lnLeftCaptionWidth = This.AxisLegend2._Width
			m.lnMinLeft = m.lnLeftCaptionWidth / 2
		ELSE
			m.lnMinLeft = 0
			m.lnLeftCaptionWidth = 0
		ENDIF 
		
		
		LOCAL lnEstimatedX, lnXBetween
		m.lnEstimatedX = This.Width - ;
				(This._Rightoffset + This._Scalew + m.lnYaxisHeight + m.ln3D)
		m.lnXBetween = m.lnEstimatedX / This._nRecords
		
		IF m.lnXBetween > (m.lnLeftCaptionWidth / 2)
			m.lnMinLeft = (m.lnLeftCaptionWidth / 2) && - lnXBetween 
		ENDIF 
			
		
		IF (NOT This.ShowAxis) OR (NOT This._AllowAxis)
			IF This._Orientation = 1 && Vertical
				This._yAxisWidth = 0 + m.lnMinLeft
			ELSE  && Horizontal
				This._yAxisWidth = MAX(m.lnMinLeft, 0 + This._ScaleW)
			ENDIF 
			This._XAxisHeight = This._XAxisHeight - This.XAxis._Height
			RETURN
		ENDIF
		
		
		LOCAL lnTickWidth
		m.lnTickWidth = 4
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		
		WITH _Screen.System.Drawing
		
			* Determining Colors, Brushes and Pens
			LOCAL lnAxisColor, lnAxisBorderColor
			IF This.BrushType = 3 && Monochrome
				m.lnAxisColor = RGB(255,255,255) && White
				m.lnAxisBorderColor = 0 && Black
			ELSE
				m.lnAxisColor = This.AxisColor
				m.lnAxisBorderColor = This.ChangeColor(m.lnAxisColor, -30)
			ENDIF
		
			LOCAL loAxisMainColor as xfcColor
			LOCAL loAxisBorderColor as xfcColor
		
		
			m.loAxisMainColor = .Color.FromARGB(This.AxisAlpha, m.lnAxisColor)
			m.loAxisBorderColor = .Color.FromARGB(This.AxisAlpha, m.lnAxisBorderColor)
		
			LOCAL loPen as xfcPen
			m.loPen = .Pen.New(m.loAxisBorderColor, 1)
		
			LOCAL loBrush as xfcSolidBrush
			m.loBrush = .SolidBrush.New(m.loAxisMainColor)
		
		ENDWITH
		
		
		This._DrawYAxis(m.ln3D, m.lnMinLeft, m.lnYAxisHeight, m.loBrush, m.loPen, 1)
		
		IF This.ChartType = 18 && DoubleAxis
			This._DrawYAxis(m.ln3D, m.lnMinLeft, m.lnYAxisHeight, m.loBrush, m.loPen, 2)
			IF This.ShowScale 
		*		This._DrawScale(m.loPen, 2)
			ENDIF 
		ENDIF
		
		
		
		WITH _Screen.System.Drawing
		
			m.lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - m.ln3D
		
			This._ChartY0 = This.ChartCanvas.Height - This._XAxisHeight - m.ln3D
			This._ChartY1 = This._ChartY0 - m.lnHeight
				
		
			* Draw the X Axis
			m.lnMargin = This._yAxisWidth + This._LeftOffset
		
			LOCAL x0, x1, y0
		
			m.x0 = m.lnMargin
			m.x1 = This.ChartCanvas.Width - This._RightOffset - This._yAxisWidth2 
			m.y0 = ROUND(This.ChartCanvas.Height - This._XAxisHeight + 1,0)
		
			IF This.ShowAxis = .T.
		
				IF m.ln3D = 0
					m.loGfx.DrawLine(m.loPen, m.x0, m.y0, m.x1, m.y0)
				ELSE
					LOCAL laPoints(4)
					m.laPoints(1) = .Point.New(m.x0, m.y0)
					m.laPoints(2) = .Point.New(m.x0 + m.ln3D, m.y0 - m.ln3D)
					m.laPoints(3) = .Point.New(m.x1, m.y0 - m.ln3D)
					m.laPoints(4) = .Point.New(m.x1 - m.ln3D,  m.y0)
					m.loGfx.FillPolygon(m.loBrush, @m.laPoints)
		
					LOCAL laPointsB(6)
					m.laPointsB(1) = m.laPoints(1)
					m.laPointsB(2) = m.laPoints(4)
		
					m.laPointsB(3) = m.laPoints(3)
					m.laPointsB(4) = .Point.New(m.laPoints(3).x, m.y0 - m.ln3D + 3)
		
					m.laPointsB(5) = .Point.New(m.laPoints(4).x, m.y0 + 3)
					m.laPointsB(6) = .Point.New(m.laPoints(1).x, m.y0 + 3)
		
					m.loGfx.FillPolygon(m.loBrush, @m.laPointsB)
					m.loGfx.DrawPolygon(m.loPen, @m.laPointsB)
					m.loGfx.DrawLine(m.loPen, m.x0, m.y0, m.x0 + m.ln3D, m.y0 - m.ln3D)
				ENDIF
			ENDIF
		
		
		
			* Draw the main X Axis caption
			IF NOT EMPTY(This.XAxis.Caption)
				This.XAxis.Reset()
				LOCAL lnX, lnY, lnW, lnH
				m.lnX = m.lnMargin
				m.lnY = m.y0 + This._LegendPixHeight + 4
				m.lnW = m.x1 - m.x0
				m.lnH = This.XAxis._Height
				This.XAxis._DrawString(m.lnX, m.lnY, m.lnW, m.lnH)
			ENDIF
		
			IF This.ShowScale 
				This._DrawScale(m.loPen)
			ENDIF 
		
			IF This.ChartType = 18 && DoubleAxis
			*	This._DrawYAxis(ln3D, lnMinLeft, lnYAxisHeight, loBrush, loPen, 2)
				IF This.ShowScale 
					This._DrawScale(m.loPen, 2)
				ENDIF 
			ENDIF
		
		
		ENDWITH  
	ENDPROC

	PROCEDURE _drawbar
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnValue
		
		m.tnHeight = ABS(m.tnHeight)
		LOCAL ln3D
		m.ln3D = This._3D 
		
		
		DO CASE 
		CASE This.BarType = 1 && Cylinder
			This._UpdateCoordinates("Rect", m.tnX + m.ln3D / 2, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
			This._DrawCylinder(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
			RETURN
		
		CASE This.BarType = 2 && Triangle
		This._UpdateCoordinates("Rect", m.tnX + m.ln3D / 2, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
			This._DrawTriangleBar(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
			RETURN
		
		OTHERWISE 
			This._UpdateCoordinates("Rect", m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
		
		ENDCASE 
		
		This._PrepareBrushes(m.tnX, m.tnY, m.tnWidth, m.tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex))
		
		LOCAL loPen as xfcPen
		m.loPen   = This._oBorderPen
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		LOCAL loMainBrush as xfcBrush
		m.loMainBrush = This._oMainBrush
		
		LOCAL lo3dBrush as xfcBrush
		m.lo3DBrush = This._o3DBrush
		
		
		WITH _Screen.System.Drawing
		
		* Draw the 3D Bar using the 3DBrush
		IF m.ln3D > 0 && 3D
		
			IF This.Shadow = .F.
				* Prepare Array of points to draw the 3D part of the Bar
				LOCAL laPoints(4)
				m.laPoints(1) = .PointF.New(m.tnX + m.tnWidth, m.tnY)
				m.laPoints(2) = .PointF.New(m.tnX + m.tnWidth + m.ln3D, m.tnY - m.ln3D)
				m.laPoints(3) = .PointF.New(m.tnX + m.ln3D, m.tnY - m.ln3D)
				m.laPoints(4) = .PointF.New(m.tnX, m.tnY)
				m.loGfx.FillPolygon(m.lo3DBrush, @m.laPoints)
				m.loGfx.DrawPolygon(m.loPen, @m.laPoints)
		
				* Change only Points 3 and 4
				m.laPoints(3) = .PointF.New(m.tnX + m.tnWidth + m.ln3D, m.tnY + m.tnHeight - m.ln3D)
				m.laPoints(4) = .PointF.New(m.tnX + m.tnWidth, m.tnY + m.tnHeight)
				m.loGfx.FillPolygon(m.lo3DBrush, @m.laPoints)
				m.loGfx.DrawPolygon(m.loPen, @m.laPoints)
			ELSE
		
				LOCAL loShadowBrush as xfcSolidBrush
				m.loShadowBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel,128,128,128))
				m.loGfx.FillRectangle(m.loShadowBrush , m.tnX + m.ln3D, m.tnY + m.ln3D, m.tnWidth, m.tnHeight - m.ln3d - m.ln3d)
		
				LOCAL laPoints(4)
				m.laPoints(1) = .PointF.New(m.tnX                  , m.tnY + m.tnHeight)
				m.laPoints(2) = .PointF.New(m.tnX + m.tnWidth      , m.tnY + m.tnHeight)
				m.laPoints(3) = .PointF.New(m.tnX + m.tnWidth +  m.ln3D, m.tnY + m.tnHeight - m.ln3D)
				m.laPoints(4) = .PointF.New(m.tnX + m.ln3d, m.tnY + m.tnHeight - m.ln3D)
				m.loGfx.FillPolygon(m.loShadowBrush , @m.laPoints)
			
			ENDIF 
		
		ENDIF 
		
		m.loGfx.FillRectangle(m.loMainBrush, m.tnX, m.tnY, m.tnWidth, m.tnHeight)
		m.loGfx.DrawRectangle(m.loPen, m.tnX, m.tnY, m.tnWidth, m.tnHeight)
		
		IF This._GeneralType = "Bar"
			This._DrawLegendinBar(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
		ENDIF 
		
		ENDWITH 
		
		RETURN  
	ENDPROC

	PROCEDURE _drawbarchart
		LOCAL lnWidth, lnHeight, x1, y1, n, lnValue, lnLeftMargin, ln3D, lnTopMargin
		LOCAL lnPointHeight as Number, ;
			lnYBase as Number
		
		SELECT(This._DataCursor)
		
		m.ln3D     = This._3D
		m.lnWidth  = This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - m.ln3D - This._yAxisWidth
		m.lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - m.ln3D
		
		IF (m.lnWidth <= 0) OR (m.lnHeight <= 0)
			RETURN
		ENDIF 
		
		m.lnLeftMargin = This._yAxisWidth + This._LeftOffset 
		m.lnTopMargin  = This._TopOffSet + m.ln3D
		
		LOCAL lnBarWidth, lnBarHeight, lnBetween, lnMaxValue, lnAdjust, lnChartsCount
		m.lnBetween = This.BarsSpaceBetween
		m.lnMaxValue = This._ScaleRange
		m.lnChartsCount = This.ChartsCount 
		
		* Prepare Points
		IF This._Orientation = 1 && Vertical
		
			IF This._DeepChart 
				m.lnWidth  = m.lnWidth  - (m.ln3D * (m.lnChartsCount - 1))
			ENDIF 
		
			m.lnBetween = MIN(m.lnBetween, ;
				(m.lnWidth - This._nRecords) / This._nRecords)
		
			m.lnBarWidth = (m.lnWidth - (This._nRecords - 1) * m.lnBetween) / This._nRecords
		
			SCAN
				m.n = RECNO()
				m.x1 = m.lnLeftMargin + ((m.lnBarWidth + m.lnBetween) * (m.n - 1))
				This._aPoints(m.n,1) = m.x1 + (m.lnBarWidth / 2)
			ENDSCAN 
		
		ELSE && Horizontal
		
			m.lnBetween = MIN(m.lnBetween, ;
				(m.lnHeight - This._nRecords) / This._nRecords)
		
			m.lnBarHeight = (m.lnHeight - (This._nRecords - 1) * m.lnBetween) / This._nRecords
			SCAN 
				m.n = RECNO()
				m.y1 = m.lnTopMargin + ((m.lnBarHeight + m.lnBetween) * (m.n - 1))
				This._aPoints(m.n,2) = m.y1 + (m.lnBarHeight / 2)
			ENDSCAN 
			This._DrawYAxisLegend()
		ENDIF 
		
		
		This._DrawVerticalLineBack()
		
		
		DO CASE
		CASE This.ChartType = 7 && Simple Bar
		
			LOCAL lnZeroY, lnValue2, lnScaleAdjustment
			m.lnScaleAdjustment = This._ScaleAdjust / m.lnMaxValue * m.lnHeight
			
			m.lnZeroY = This._TopOffSet + m.ln3D + (This._MaxScale / m.lnMaxValue * m.lnHeight)
			IF This._MinScale > 0
				m.lnZeroY = m.lnZeroY - (This._MinScale / m.lnMaxValue * m.lnHeight)
			ENDIF
			
			This._ChartIndex = This.ChartRow 
			SCAN
				m.lnValue = This._GetValue(This.ChartRow, .T.)
				IF ISNULL(m.lnValue) OR m.lnValue < This._MinScale
					LOOP
				ENDIF
		
				IF m.lnValue < 0
					m.lnBarHeight = (m.lnValue / m.lnMaxValue * m.lnHeight)
					m.y1 = m.lnZeroY
				ELSE 
					m.lnBarHeight = (m.lnValue / m.lnMaxValue * m.lnHeight) + ;
							IIF(This._ScaleAdjust < 0, m.lnScaleAdjustment, 0)
		
					m.y1 = m.lnZeroY - m.lnBarHeight
				ENDIF
				
				m.x1 = m.lnLeftMargin + ((m.lnBarWidth + m.lnBetween) * (RECNO() - 1))
		
				This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
			ENDSCAN
		
		
		CASE This.ChartType = 8 && Multi Bars
		
			LOCAL i, lnOneBarWidth, lnZeroY, lnScaleAdjustment
			LOCAL lnTotRow
			LOCAL laValues(m.lnChartsCount)
		
			m.lnOneBarWidth = m.lnBarWidth / m.lnChartsCount
			m.lnZeroY = This._TopOffSet + m.ln3D + (This._MaxScale / m.lnMaxValue * m.lnHeight)
			IF This._MinScale > 0
				m.lnZeroY = m.lnZeroY - (This._MinScale / m.lnMaxValue * m.lnHeight)
			ENDIF
		
			m.lnScaleAdjustment = This._ScaleAdjust / m.lnMaxValue * m.lnHeight
		
			SCAN
				m.n = RECNO()
		
				m.lnTotRow = 0
				* Get the total for the current row
				FOR m.i = 1 TO m.lnChartsCount
					m.lnValue = This._GetValue(m.i, .T.)
					m.laValues(m.i) = m.lnValue
					m.lnTotRow = m.lnTotRow + NVL(m.lnValue, 0)
				ENDFOR 
		
				FOR m.i = 1 TO m.lnChartsCount
					m.lnValue = m.laValues(m.i)
					IF ISNULL(m.lnValue) OR m.lnValue < This._MinScale
						LOOP
					ENDIF 
		
					This._ChartIndex = m.i
		
					m.x1 = m.lnLeftMargin + ;
						((m.lnBarWidth + m.lnBetween) * (m.n - 1)) + ;
						((m.i-1 ) * m.lnOneBarWidth)
		
					IF m.lnValue < 0
						m.lnBarHeight = (m.lnValue / m.lnMaxValue * m.lnHeight)
						m.y1 = m.lnZeroY
					ELSE 
						m.lnBarHeight = (m.lnValue / m.lnMaxValue * m.lnHeight) + ;
							IIF(This._ScaleAdjust < 0, m.lnScaleAdjustment, 0)
						m.y1 = m.lnZeroY - m.lnBarHeight
					ENDIF
		
					This.ChartSum = m.lnTotRow
					This._DrawBar(m.x1, m.y1, m.lnOneBarWidth, m.lnBarHeight, m.lnValue)
				ENDFOR 
		
			ENDSCAN
		
			This._ChartIndex = 1
		
		
		
		CASE This.ChartType = 9 && Stacked Bars
		
			m.lnYBase = This._TopOffSet + m.ln3D + m.lnHeight
			SCAN
				m.y1 = m.lnYBase
				FOR m.i = 1 TO m.lnChartsCount
					This._ChartIndex = m.i
					m.lnValue = This._GetValue(m.i, .T.)
					IF ISNULL(m.lnValue) OR m.lnValue = 0
						LOOP
					ENDIF 
					
					m.lnBarHeight = m.lnValue / m.lnMaxValue * m.lnHeight
		
					m.x1 = m.lnLeftMargin + ;
						((m.lnBarWidth + m.lnBetween) * (RECNO() - 1))
					m.y1 = m.y1 - m.lnBarHeight
					This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
				ENDFOR 
		
			ENDSCAN
		
			This._ChartIndex = 1
		
		
		
		CASE This.ChartType = 11 && 3D Bars
		
			* Calculate the maximum width of the chart
			m.lnHeight = m.lnHeight - (m.ln3D * (m.lnChartsCount - 1))
		
			* Not needed any more, this is now calculated above, checking for _DeepChart
			*	m.lnWidth  = m.lnWidth  - (m.ln3D * (m.lnChartsCount - 1))
			*	m.lnBarWidth = (m.lnWidth - (This._nRecords - 1) * m.lnBetween) / This._nRecords
		
			FOR m.i = 1 TO m.lnChartsCount
				This._ChartIndex = m.i
				m.lnAdjust = (m.ln3D * (m.lnChartsCount - m.i ))
		
				SCAN
					m.n = RECNO()
					m.lnValue = This._GetValue(m.i, .T.)
					
					m.x1 = m.lnLeftMargin + m.lnAdjust + ((m.lnBarWidth + m.lnBetween) * (RECNO() - 1))
					IF m.i = m.lnChartsCount
						* Prepare Points
						This._aPoints(m.n,1) = m.x1 + (m.lnBarWidth / 2)
					ENDIF 
					IF ISNULL(m.lnValue)
						LOOP
					ENDIF 
		
					m.lnPointHeight = m.lnValue / m.lnMaxValue * m.lnHeight
					m.y1 = This._TopOffSet + (m.lnHeight - m.lnPointHeight) - m.lnAdjust + (m.ln3D * (m.lnChartsCount))
					m.lnYBase = This.ChartCanvas.Height - This._xAxisHeight - m.lnAdjust
					m.lnBarHeight = m.lnYBase - m.y1
					This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
		
				ENDSCAN
		
			ENDFOR
		
		
		
		
		CASE This.ChartType = 12 && HORIZONTAL Simple Bar
			IF m.lnBetween >= m.lnHeight / (This._nRecords - 1) 
				m.lnBarHeight = 1
				m.lnBetween = (m.lnHeight - This._nRecords) / (This._nRecords - 1)
			ENDIF 
		
			LOCAL lnZeroX, lnScaleAdjustment
			m.lnZeroX = m.lnLeftMargin + IIF(This._ScaleAdjust < 0 , 0, (This._ScaleAdjust / m.lnMaxValue * m.lnWidth))
			m.lnScaleAdjustment = This._ScaleAdjust / m.lnMaxValue * m.lnWidth
		
			This._ChartIndex = This.ChartRow 
		
			SET ORDER TO Revert
			SCAN
				m.lnValue = This._GetValue(This.ChartRow, .T.)
				IF ISNULL(m.lnValue) OR m.lnValue < This._MinScale
					LOOP
				ENDIF 
		
				IF m.lnValue < 0
					m.lnBarWidth = ABS(m.lnValue / m.lnMaxValue * m.lnWidth)
					m.x1 = m.lnZeroX - m.lnBarWidth 
				ELSE 
					m.lnBarWidth = (m.lnValue / m.lnMaxValue * m.lnWidth) + ;
							IIF(This._ScaleAdjust < 0, m.lnScaleAdjustment, 0)
					m.x1 = m.lnZeroX
				ENDIF
		
				m.y1 = This._TopOffSet + ((m.lnBarHeight + m.lnBetween) * (RECNO() - 1)) + m.ln3D
				This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
		
			ENDSCAN
			SET ORDER TO 
		
		
		
		CASE This.ChartType = 13 && HORIZONTAL Multi Bars
			IF m.lnBetween >= m.lnHeight / (This._nRecords - 1) 
				m.lnBarHeight = 1
				m.lnBetween = (m.lnHeight - This._nRecords) / (This._nRecords - 1)
			ENDIF 
			m.lnBarHeight = (m.lnHeight - (This._nRecords - 1) * m.lnBetween) / This._nRecords
			LOCAL i, lnOneBarHeight
			m.lnOneBarHeight = m.lnBarHeight / m.lnChartsCount
		
			LOCAL lnZeroX, lnScaleAdjustment
			m.lnZeroX = m.lnLeftMargin + IIF(This._ScaleAdjust < 0 , 0, (This._ScaleAdjust / m.lnMaxValue * m.lnWidth))
			m.lnScaleAdjustment = This._ScaleAdjust / m.lnMaxValue * m.lnWidth
		
		
			LOCAL lnTotRow
			LOCAL laValues(m.lnChartsCount)
		
			SET ORDER TO Revert
			SCAN
				m.n = RECNO()
		
				m.lnTotRow = 0
				* Get the total for the current row
				FOR m.i = m.lnChartsCount TO 1 STEP -1
					m.lnValue = This._GetValue(m.i, .T.)
					m.laValues(m.i) = m.lnValue
					m.lnTotRow = m.lnTotRow + NVL(m.lnValue, 0)
				ENDFOR 
		
				FOR m.i = m.lnChartsCount TO 1 STEP -1
					m.lnValue = m.laValues(m.i)
					IF ISNULL(m.lnValue) OR m.lnValue < This._MinScale
						LOOP
					ENDIF 
		
					This._ChartIndex = m.i
		
					IF m.lnValue < 0
						m.lnBarWidth = ABS(m.lnValue / m.lnMaxValue * m.lnWidth)
						m.x1 = m.lnZeroX - m.lnBarWidth 
					ELSE 
						m.lnBarWidth = (m.lnValue / m.lnMaxValue * m.lnWidth) + ;
								IIF(This._ScaleAdjust < 0, m.lnScaleAdjustment, 0)
						m.x1 = m.lnZeroX
					ENDIF
		
					m.y1 = This._TopOffSet + m.ln3D + ((m.lnBarHeight + m.lnBetween) * (m.n - 1)) + ;
						((m.i-1 ) * m.lnOneBarHeight)
		
					This.ChartSum = m.lnTotRow
					This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnOneBarHeight, m.lnValue)
				ENDFOR 
			ENDSCAN
			SET ORDER TO
		
			This._ChartIndex = 1
		
		
		CASE This.ChartType = 14 && HORIZONTAL Stacked Bars
		
			IF m.lnBetween >= m.lnHeight / (This._nRecords - 1) 
				m.lnBarHeight = 1
				m.lnBetween = (m.lnHeight - This._nRecords) / (This._nRecords - 1)
			ENDIF 
			
			SET ORDER TO Revert
		
			SCAN
				m.x1 = m.lnLeftMargin
				FOR m.i = 1 TO m.lnChartsCount
					This._ChartIndex = m.i
					m.lnValue = This._GetValue(m.i, .T.)
					IF ISNULL(m.lnValue)
						LOOP
					ENDIF 
					
					m.lnBarWidth = m.lnValue / m.lnMaxValue * m.lnWidth
		
					m.y1 = This._TopOffSet + ((m.lnBarHeight + m.lnBetween) * (RECNO() - 1)) + m.ln3D
					This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
		
					m.x1 = m.x1 + m.lnBarWidth
				ENDFOR 
		
			ENDSCAN
			SET ORDER TO 
			This._ChartIndex = 1
		
		
		CASE This.ChartType = 15 && HORIZONTAL Full-Stacked Bars
		
			IF m.lnBetween >= m.lnHeight / (This._nRecords - 1) 
				m.lnBarHeight = 1
				m.lnBetween = (m.lnHeight - This._nRecords) / (This._nRecords - 1)
			ENDIF 
			
			SET ORDER TO Revert
		
			LOCAL lnTotRow
			LOCAL laValues(m.lnChartsCount)
		
			SCAN
				m.lnTotRow = 0
				* Get the total for the current row
				FOR m.i = 1 TO m.lnChartsCount
					m.lnValue = NVL(This._GetValue(m.i, .T.),0)
					m.laValues(m.i) = m.lnValue
					m.lnTotRow = m.lnTotRow + m.lnValue
				ENDFOR 
		
				m.x1 = m.lnLeftMargin
				FOR m.i = 1 TO m.lnChartsCount
					m.lnValue = m.laValues(m.i)
					IF m.lnValue = 0
						LOOP
					ENDIF 
		
					m.lnBarWidth = m.lnValue / m.lnTotRow * m.lnWidth
		
					m.y1 = This._TopOffSet + ((m.lnBarHeight + m.lnBetween) * (RECNO() - 1)) + m.ln3D
					This._ChartIndex = m.i
					This.ChartSum = m.lnTotRow
					This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
		
					m.x1 = m.x1 + m.lnBarWidth
				ENDFOR 
		
			ENDSCAN
			SET ORDER TO 
			This._ChartIndex = 1
		
		
		CASE This.ChartType = 3 && Full-Stacked Bars
			LOCAL lnTotRow
			LOCAL laValues(m.lnChartsCount)
			m.lnYBase = This._TopOffSet + m.ln3D + m.lnHeight
			SCAN
				m.y1 = m.lnYBase
				m.lnTotRow = 0
				* Get the total for the current row
				FOR m.i = 1 TO m.lnChartsCount
					m.lnValue = NVL(This._GetValue(m.i, .T.),0)
					m.laValues(m.i) = m.lnValue
					m.lnTotRow = m.lnTotRow + m.lnValue
				ENDFOR 
		
				FOR m.i = 1 TO m.lnChartsCount
					m.lnValue = m.laValues(m.i)
					IF m.lnValue = 0
						LOOP
					ENDIF 
					
					m.lnBarHeight = m.lnValue / m.lnTotRow * m.lnHeight
		
					m.x1 = m.lnLeftMargin + ;
						((m.lnBarWidth + m.lnBetween) * (RECNO() - 1))
					m.y1 = m.y1 - m.lnBarHeight
					This._ChartIndex = m.i
		
					This.ChartSum = m.lnTotRow
					This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
				ENDFOR 
		
			ENDSCAN
		
			This._ChartIndex = 1
		
		
		
		CASE This.ChartType = 17 && PAIRED HORIZONTAL BARS
		
			LOCAL lnZeroX, lnScaleAdjustment, lnAlign
			
			m.lnZeroX = m.lnLeftMargin + (m.lnWidth / 2)
			SET ORDER TO Revert
		
			* Draw the left side of the chart
			m.lnAlign = This.ShapeLegend.Alignment
			DO CASE
			CASE m.lnAlign = 0 && Left
				This.ShapeLegend.Alignment = 1 && Right
		
			CASE m.lnAlign = 1 && Right
				This.ShapeLegend.Alignment = 0 && Left
		
			OTHERWISE
			ENDCASE
		
			
			This._ChartIndex = 1
			SCAN
				m.lnValue = This._GetValue(1, .T.) && 1st column
				IF ISNULL(m.lnValue) OR (m.lnValue < 0)
					LOOP
				ENDIF 
		
				m.lnBarWidth = ABS(m.lnValue / m.lnMaxValue * m.lnWidth)
				m.x1 = m.lnZeroX - m.lnBarWidth 
		
				m.y1 = This._TopOffSet + ((m.lnBarHeight + m.lnBetween) * (RECNO() - 1)) + m.ln3D
				This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
			ENDSCAN
			This.ShapeLegend.Alignment = m.lnAlign && Restore to the original setting
		
			IF m.lnChartsCount > 1 
				* Draw the right side of the chart
				This._ChartIndex = 2
				SCAN
					m.lnValue = This._GetValue(2, .T.) && 2nd column
					IF ISNULL(m.lnValue) OR (m.lnValue < This._MinScale) OR (m.lnValue < 0)
						LOOP
					ENDIF 
		
					m.lnBarWidth = (m.lnValue / m.lnMaxValue * m.lnWidth)
					m.x1 = m.lnZeroX
					m.y1 = This._TopOffSet + ((m.lnBarHeight + m.lnBetween) * (RECNO() - 1)) + m.ln3D
					This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
				ENDSCAN
			ENDIF 
		
			SET ORDER TO 
		
		OTHERWISE
		
		ENDCASE
		
		
		* Draw Legends on X Axis for Vertical charts
		IF This._Orientation = 1 && Vertical
		
			IF This.BarType > 0
				This._DrawXAxisLegend(m.ln3D/2)
			ELSE
				This._DrawXAxisLegend()
			ENDIF 
			
		ENDIF
		
		
		RETURN	  
	ENDPROC

	PROCEDURE _drawcylinder
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnValue
		
		This._PrepareBrushes(m.tnX, m.tnY, m.tnWidth, m.tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex))
		
		LOCAL loPen as xfcPen
		m.loPen   = This._oBorderPen
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		LOCAL lnAlpha, lnOrigAlpha
		m.lnOrigAlpha = This.AlphaChannel 
		m.lnAlpha = MIN(255, (This.AlphaChannel * 1.25))
		This.AlphaChannel = m.lnAlpha
		
		LOCAL loTopBrush as xfcBrush
		LOCAL loBotBrush as xfcBrush
		LOCAL xTopCyl
		
		WITH _Screen.System.Drawing
		
		DO CASE 
		
		CASE This.BrushType = 1 && SolidColors
			m.loTopBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(This._nColor, - 20)))
			m.loBotBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This._nColor))
		
		CASE This.BrushType = 2 && Gradient
			m.loTopBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This._nColor))
			m.loBotBrush = m.loTopBrush
		
		OTHERWISE 
			This._PrepareBrushes(m.tnX, m.tnY, m.tnWidth, m.tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex))
			m.loTopBrush = This._oMainBrush 
			m.loBotBrush = m.loTopBrush
		ENDCASE 
		
		This.AlphaChannel = m.lnOrigAlpha
		
		
		
		IF This._Orientation = 1 && Vertical
		
			LOCAL yRect, ln3D, x0, yTopCyl, yBotCyl
			m.ln3D = MAX(This._3d, 1)
		
			m.yRect = m.tnY - (m.ln3D / 2)
			m.yTopCyl = m.tnY - m.ln3D
			m.yBotCyl = m.tnY + m.tnHeight - m.ln3D
			m.x0 = m.tnX + m.ln3D / 2
		
			* Draw the lower ellipse
			m.loGfx.FillEllipse(m.loBotBrush, m.x0, m.yBotCyl, m.tnWidth, m.ln3D)
			m.loGfx.FillEllipse(This._oMainBrush, m.x0, m.yBotCyl, m.tnWidth, m.ln3D)
		
		
			* Draw the front shape using a GraphicsPath object
			* Prepare the Main Path
			LOCAL loPath as xfcGraphicsPath
			m.loPath = .Drawing2D.GraphicsPath.New()
			m.loPath.StartFigure()
		
		
			* Bottom Arc
			m.loPath.AddArc(m.x0, m.yBotCyl, m.tnWidth, m.ln3D, 0, 180)
			m.loPath.Reverse()
		
			* Right Line
			m.loPath.AddLine(m.x0 + m.tnWidth, m.yRect + m.tnHeight, m.x0 + m.tnWidth, m.yRect)
		
			* Top Arc
			m.loPath.AddArc(m.x0, m.yTopCyl, m.tnWidth, m.ln3D, 0, 180)
		
			* Draw the path
			m.loGfx.FillPath(This._oMainBrush, m.loPath)
			m.loGfx.DrawPath(m.loPen, m.loPath)
		
		
			* Draw the upper ellipse
			m.loGfx.FillEllipse(m.loTopBrush, m.x0, m.yTopCyl, m.tnWidth, m.ln3D)
			m.loGfx.DrawEllipse(m.loPen     , m.x0, m.yTopCyl, m.tnWidth, m.ln3D)
		
			This._DrawLegendinBar(m.X0, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
		
		ELSE &&_Orientation = 2  - Horizontal
		
			LOCAL xRect, ln3D, x0
			m.ln3D = MAX(This._3d, 1)
		
			m.xRect = m.tnX && - (m.ln3D / 2)
			m.xTopCyl = m.tnX + m.tnWidth && - m.ln3D / 2
		
			* Draw the front shape using a GraphicsPath object
			* Prepare the Main Path
			LOCAL loPath as xfcGraphicsPath
			m.loPath = .Drawing2D.GraphicsPath.New()
			m.loPath.StartFigure()
		
		
			* Bottom Arc
			m.loPath.AddArc(m.tnX, m.tnY, m.ln3D, m.tnHeight, 270, 180)
		
			* Bottom Line
			m.loPath.AddLine(m.tnX + m.ln3D / 2, m.tnY + m.tnHeight, m.xTopCyl + m.ln3D / 2, m.tnY + m.tnHeight)
			
			* Top Arc
			m.loPath.AddArc(m.xTopCyl, m.tnY, m.ln3D, m.tnHeight, 90, 180)
		
			* Top Line
			m.loPath.AddLine(m.xTopCyl + m.ln3D / 2, m.tnY, m.tnX + m.ln3D / 2, m.tnY)
		
			* Draw the path
			m.loGfx.FillPath(This._oMainBrush, m.loPath)
			m.loGfx.DrawPath(m.loPen, m.loPath)
		
			* Draw the upper ellipse
			m.loGfx.FillEllipse(m.loTopBrush, m.xTopCyl, m.tnY, m.ln3D, m.tnHeight)
			m.loGfx.DrawEllipse(m.loPen     , m.xTopCyl, m.tnY, m.ln3D, m.tnHeight)
		
		
			* Draw the left-most ellipse
			m.loGfx.FillEllipse(m.loBotBrush      , m.tnX, m.tnY, m.ln3D, m.tnHeight)
			m.loGfx.FillEllipse(This._oMainBrush, m.tnX, m.tnY, m.ln3D, m.tnHeight)
		
			This._DrawLegendinBar(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
		
		ENDIF
		
		ENDWITH    
	ENDPROC

	PROCEDURE _drawdoughnutslice
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep, tnValue
		
		Local laEndPoints[1], ;
		laPoints[1], ;
		laPointsB[1], ;
		laStartPoints[1], ;
		loPoint4 as Object, ;
		loPoint5 as Object, ;
		loPoint6 as Object
		IF m.tnWidth <= 0 OR m.tnHeight <= 0
			RETURN
		ENDIF
		
		
		This._AdjustStartSweep(@m.tnStart, @m.tnSweep, m.tnWidth, m.tnHeight)
		This._UpdateCoordinates("Pie", m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue, m.tnStart, m.tnSweep)
		
		LOCAL lnXBrush, lnYBrush
		IF This.PieEnhancedDrawing
			m.lnXBrush = m.tnX
			m.lnYBrush = m.tnY
		ELSE
			m.lnXBrush = 0
			m.lnYBrush = 0
		ENDIF
		This._PrepareBrushes(m.lnXBrush, m.lnYBrush, m.tnWidth, m.tnHeight, .F., RECNO())
		
		
		LOCAL loPen as xfcPen
		m.loPen = This._oBorderPen
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		LOCAL loMainBrush as xfcBrush
		m.loMainBrush = This._oMainBrush
		
		LOCAL lo3dBrush as xfcBrush
		m.lo3dBrush = This._o3DBrush
		
		
		LOCAL ln3d, lnFinalAngle
		m.ln3d		 = This._3D
		m.lnFinalAngle = m.tnStart + m.tnSweep
		IF m.lnFinalAngle > 360
			m.lnFinalAngle = m.lnFinalAngle - 360
		ENDIF
		
		
		IF This.PieEnhancedDrawing  && New behavior for Doughnuts
		&& Drawing all edges using the GraphicsPath class
		
		
			WITH _Screen.System.Drawing
		
				* Create a GraphicsPath object.
				LOCAL loMainPath as xfcGraphicsPath
				m.loMainPath = .Drawing2D.GraphicsPath.New()
		
				LOCAL loRect as xfcRectangle
				LOCAL loRect2 as xfcRectangle
		
				LOCAL lnRatio
				m.lnRatio = This.DonutRatio
		
				m.loRect  = .Rectangle.New(m.tnX, m.tnY, m.tnWidth, m.tnHeight)
				m.loRect2 = .Rectangle.New( ;
				  m.tnX + (m.tnWidth  * (1 - m.lnRatio) / 2), ;
				  m.tnY + (m.tnHeight * (1 - m.lnRatio) / 2), ;
				  m.tnWidth  * m.lnRatio, ;
				  m.tnHeight * m.lnRatio)
		
		
				LOCAL lnXInt, lnYInt, lnHInt, lnWInt
				m.lnXInt = m.loRect2.X
				m.lnYInt = m.loRect2.Y
				m.lnWInt = m.loRect2.Width
				m.lnHInt = m.loRect2.Height
		
		
				LOCAL loPoint0 as xfcPointF
				LOCAL loPoint1 as xfcPointF
				LOCAL loPoint2 as xfcPointF
				LOCAL loPoint3 as xfcPointF
		
				* Obtaining the needed points
				m.loMainPath.AddArc(m.loRect, m.tnStart, 0.0001)
				m.loPoint0 = m.loMainPath.GetLastPoint()
		
				m.loMainPath.AddArc(m.loRect2, m.tnStart, 0.0001)
				m.loPoint3 = m.loMainPath.GetLastPoint()
		
				m.loMainPath.AddArc(m.loRect, m.tnStart, m.tnSweep)
				m.loPoint1 = m.loMainPath.GetLastPoint()
		
				m.loMainPath.AddArc(m.loRect2, m.tnStart, m.tnSweep)
				m.loPoint2 = m.loMainPath.GetLastPoint()
		
				m.loPoint4 = .Point.New(m.loPoint3.X, m.loPoint3.Y + m.ln3d)
				m.loPoint5 = .Point.New(m.loPoint0.X, m.loPoint0.Y + m.ln3d)
				m.loPoint6 = .Point.New(m.loPoint1.X, m.loPoint1.Y + m.ln3d)
		
				* Prepare the Main Path
				LOCAL loPath as xfcGraphicsPath
				m.loPath = .Drawing2D.GraphicsPath.New()
		
				m.loPath.StartFigure()
				m.loPath.AddArc(m.loRect2, m.tnStart, m.tnSweep)
				m.loPath.Reverse()
				m.loPath.AddLine(m.loPoint3.X, m.loPoint3.Y, m.loPoint0.X, m.loPoint0.Y)
				m.loPath.AddArc(m.loRect, m.tnStart, m.tnSweep)
				m.loPath.AddLine(m.loPoint1.X, m.loPoint1.Y, m.loPoint2.X, m.loPoint2.Y)
		
			ENDWITH
		
			IF m.ln3d = 0 OR This.Shadow
		
				* Draw shadow
				IF This.Shadow
		
					* Prepare the Shadow Path
					LOCAL loPath2 as xfcGraphicsPath
					m.loPath2 = _Screen.System.Drawing.Drawing2D.GraphicsPath.New()
		
					m.loPath2.StartFigure()
					m.loPath2.AddArc(m.loRect2.X, m.loRect2.Y + m.ln3d, m.loRect2.Width, m.loRect2.Height, m.tnStart, m.tnSweep)
					m.loPath2.Reverse()
					m.loPath2.AddLine(m.loPoint3.X, m.loPoint3.Y + m.ln3d, m.loPoint0.X, m.loPoint0.Y + m.ln3d)
					m.loPath2.AddArc(m.loRect.X, m.loRect.Y + m.ln3d, m.loRect.Width, m.loRect.Height, m.tnStart, m.tnSweep)
					m.loPath2.AddLine(m.loPoint1.X, m.loPoint1.Y + m.ln3d, m.loPoint2.X, m.loPoint2.Y + m.ln3d)
		
					* Prepare the shadow brush
					LOCAL loShadowBrush as xfcSolidBrush
					m.loShadowBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, 128, 128, 128))
		
					* Draw the shadow
					m.loGfx.FillPath(m.loShadowBrush, m.loPath2)
				ENDIF
		
				* Draw the Main doughnut slice (path)
				m.loGfx.FillPath(m.loMainBrush, m.loPath)
				m.loGfx.DrawPath(m.loPen, m.loPath)
				RETURN
			ENDIF
		
		
			* Continue Drawing, for 3D chart
		
			* Prepare the polygon points for the final part of the slice
			DIMENSION m.laEndPoints(4)
			m.laEndPoints(1) = m.loPoint1
			m.laEndPoints(2) = m.loPoint2
			m.laEndPoints(3) = _Screen.System.Drawing.Point.New(m.loPoint2.X, m.loPoint2.Y + m.ln3d)
			m.laEndPoints(4) = m.loPoint6
		
			* Prepare the polygon points for the beginning part of the slice
			DIMENSION m.laStartPoints(4)
			m.laStartPoints(1) = m.loPoint0
			m.laStartPoints(2) = m.loPoint5
			m.laStartPoints(3) = m.loPoint4
			m.laStartPoints(4) = m.loPoint3
		
		
			* If the slice ends in the left side, draw the Ending polygon before the top face of the slice
			IF BETWEEN(m.lnFinalAngle, 90.001, 269.999)
				m.loGfx.DrawPolygon(m.loPen, @m.laEndPoints)
				m.loGfx.FillPolygon(m.lo3dBrush, @m.laEndPoints)
			ENDIF
		
			IF NOT (m.tnStart >= 90 AND m.tnStart <= 270)
				m.loGfx.DrawPolygon(m.loPen, @m.laStartPoints)
				m.loGfx.FillPolygon(m.lo3dBrush, @m.laStartPoints)
			ENDIF
		
		
			* Draw the external and internal paths
			LOCAL lnFinalAngle
			m.lnFinalAngle = m.tnStart + m.tnSweep
			IF m.lnFinalAngle > 360
				m.lnFinalAngle = m.lnFinalAngle - 360
			ENDIF
		
		
			LOCAL lnAdjStart, lnAdjSweep
			m.lnAdjStart = m.tnStart
			m.lnAdjSweep = m.tnSweep
		
			LOCAL loAdjPoint0 as xfcPoint, loAdjPoint1 as xfcPoint
			m.loAdjPoint0	= m.loPoint0
			m.loAdjPoint1	= m.loPoint1
		
			LOCAL loAdjPoint2 as xfcPoint, loAdjPoint3 as xfcPoint
			m.loAdjPoint2	= m.loPoint3
			m.loAdjPoint3	= m.loPoint2
		
		
			IF m.tnStart >= 270 AND ;
				m.tnStart < 360 AND ;
				BETWEEN(m.lnFinalAngle, 0, 270)
		
				LOCAL loTempPoint as xfcPoint
				m.loTempPoint = _Screen.System.Drawing.Point.New(m.tnX + m.tnWidth, m.tnY + m.tnHeight / 2)
		
				LOCAL loTempPoint2 as xfcPoint
				m.loTempPoint2 = _Screen.System.Drawing.Point.New(m.lnXInt + m.lnWInt, m.lnYInt + m.lnHInt / 2)
		
				* External part
				This._DrawSliceExternal(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, 360 - m.tnStart, m.loPoint0, m.loTempPoint)
		
				* Internal part
				This._DrawSliceExternal(m.lnXInt, m.lnYInt, m.lnWInt, m.lnHInt, m.tnStart, 360 - m.tnStart, m.loPoint3, m.loTempPoint2)
		
		
				m.lnAdjStart	= 0
				m.lnAdjSweep	= m.tnSweep - (360 - m.tnStart)
				m.loAdjPoint0	= m.loTempPoint
				m.loAdjPoint1	= m.loPoint1
		
				* Internal
				m.loAdjPoint2	= m.loTempPoint2
				m.loAdjPoint3	= m.loPoint2
		
			ENDIF
		
		
			LOCAL llDrawExtAtEnd
			m.llDrawExtAtEnd = .F.
		
		
			IF (m.tnStart < 180 AND m.lnFinalAngle > 180) OR ;
				(m.tnStart >= 270 AND m.lnFinalAngle > 180 AND m.lnFinalAngle < 270.01)
		
				IF m.tnStart >= 270
					m.lnAdjStart = 0
					m.lnAdjSweep = 180
				ELSE
					m.lnAdjStart = m.tnStart
					m.lnAdjSweep = 180 - m.tnStart
				ENDIF
		
				m.loAdjPoint1	= _Screen.System.Drawing.Point.New(m.tnX, m.tnY + m.tnHeight / 2)
				m.loAdjPoint3	= _Screen.System.Drawing.Point.New(m.lnXInt, m.lnYInt + m.lnHInt / 2)
		
				* External part
				m.llDrawExtAtEnd = .T.
				LOCAL lnStartB, lnSweepB, loPoint0B, loPoint1B
				m.lnStartB  = m.lnAdjStart
				m.lnSweepB  = m.lnAdjSweep
				m.loPoint0B = m.loAdjPoint0
				m.loPoint1B = m.loAdjPoint1
		
				* Internal part
				This._DrawSliceExternal(m.lnXInt, m.lnYInt, m.lnWInt, m.lnHInt, m.lnAdjStart, m.lnAdjSweep, m.loAdjPoint2, m.loAdjPoint3)
		
				m.loAdjPoint0	= m.loAdjPoint1
				m.loAdjPoint2	= m.loAdjPoint3
		
				m.lnAdjStart = 180
				m.lnAdjSweep = m.lnFinalAngle - 180
			ENDIF
		
		
			IF BETWEEN(m.lnFinalAngle, 0, 180)
				* Internal part
				This._DrawSliceExternal(m.lnXInt, m.lnYInt, m.lnWInt, m.lnHInt, m.lnAdjStart, m.lnAdjSweep, m.loAdjPoint2, m.loPoint2)
				* External part
				This._DrawSliceExternal(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.lnAdjStart, m.lnAdjSweep, m.loAdjPoint0, m.loPoint1)
			ELSE
				* External part
				This._DrawSliceExternal(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.lnAdjStart, m.lnAdjSweep, m.loAdjPoint0, m.loPoint1)
				* Internal part
				This._DrawSliceExternal(m.lnXInt, m.lnYInt, m.lnWInt, m.lnHInt, m.lnAdjStart, m.lnAdjSweep, m.loAdjPoint2, m.loPoint2)
			ENDIF
		
		
			IF m.llDrawExtAtEnd
				This._DrawSliceExternal(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.lnStartB, m.lnSweepB, m.loPoint0B, m.loPoint1B)
			ENDIF
		
		
			* Draw polygon at the beginning of the doughnut
			IF m.tnStart > 90 AND m.tnStart < 270
				m.loGfx.DrawPolygon(m.loPen, @m.laStartPoints)
				m.loGfx.FillPolygon(m.lo3dBrush, @m.laStartPoints)
			ENDIF
		
			IF NOT BETWEEN(m.lnFinalAngle, 90, 270)
				m.loGfx.DrawPolygon(m.loPen, @m.laEndPoints)
				m.loGfx.FillPolygon(m.lo3dBrush, @m.laEndPoints)
			ENDIF
		
		
			* Draw the main path
			m.loGfx.FillPath(m.loMainBrush, m.loPath)
			m.loGfx.DrawPath(m.loPen, m.loPath)
		
		
		ELSE && This.PieEnhancedDrawing .F. - This is the old Behavior
		
			WITH _Screen.System.Drawing
		
		
				LOCAL loBmp as xfcBitmap
				m.loBmp = poTempBmp
				LOCAL loTempGfx as xfcGraphics
				m.loTempGfx = .Graphics.FromImage(m.loBmp)
				m.loTempGfx.Clear(.Color.Transparent)
				m.loTempGfx.SmoothingMode = .Drawing2D.SmoothingMode.AntiAlias
		
		
				* Create a GraphicsPath object.
				LOCAL loTempPath as xfcGraphicsPath
				m.loTempPath = .Drawing2D.GraphicsPath.New()
		
				LOCAL loRect as xfcRectangle
				LOCAL loRect2 as xfcRectangle
		
				LOCAL lnRatio
				m.lnRatio = This.DonutRatio
		
				m.loRect  = .Rectangle.New(0, 0, m.tnWidth, m.tnHeight)
				m.loRect2 = .Rectangle.New( ;
				  (m.tnWidth  * (1 - m.lnRatio) / 2), ;
				  (m.tnHeight * (1 - m.lnRatio) / 2), ;
				  m.tnWidth  * m.lnRatio, ;
				  m.tnHeight * m.lnRatio)
		
				LOCAL loPoint0 as xfcPointF
				LOCAL loPoint1 as xfcPointF
				LOCAL loPoint2 as xfcPointF
				LOCAL loPoint3 as xfcPointF
		
				* Obtaining the needed points
				m.loTempPath.AddArc(m.loRect, m.tnStart, 0.0001)
				m.loPoint0 = m.loTempPath.GetLastPoint()
		
				m.loTempPath.AddArc(m.loRect2, m.tnStart, 0.0001)
				m.loPoint3 = m.loTempPath.GetLastPoint()
		
				m.loTempPath.AddArc(m.loRect, m.tnStart, m.tnSweep)
				m.loPoint1 = m.loTempPath.GetLastPoint()
		
				m.loTempPath.AddArc(m.loRect2, m.tnStart, m.tnSweep)
				m.loPoint2 = m.loTempPath.GetLastPoint()
		
				m.loPoint4 = .Point.New(m.loPoint3.X, m.loPoint3.Y + m.ln3d)
				m.loPoint5 = .Point.New(m.loPoint0.X, m.loPoint0.Y + m.ln3d)
				m.loPoint6 = .Point.New(m.loPoint1.X, m.loPoint1.Y + m.ln3d)
		
				* Prepare the Main Path
				LOCAL loPath as xfcGraphicsPath
				m.loPath = .Drawing2D.GraphicsPath.New()
		
				m.loPath.StartFigure()
				m.loPath.AddLine(m.loPoint0.X, m.loPoint0.Y, m.loPoint3.X, m.loPoint3.Y)
				m.loPath.AddArc(m.loRect2, m.tnStart, m.tnSweep)
				m.loPath.StartFigure()
				m.loPath.AddArc(m.loRect, m.tnStart, m.tnSweep)
				m.loPath.AddLine(m.loPoint1.X, m.loPoint1.Y, m.loPoint2.X, m.loPoint2.Y)
		
		
				IF m.ln3d > 0
		
					* Create a new Path for the 3D
					LOCAL lo3DPath as xfcPath
					m.lo3DPath = m.loPath.Clone()
		
					LOCAL loMatrix as xfcMatrix
					m.loMatrix = .Drawing2D.Matrix.New()
					m.loMatrix.Translate(0, + 1)
		
		
					* Prepare the polygon points for the final part of the slice
					DIMENSION m.laPointsB(4)
					m.laPointsB(1) = m.loPoint1
					m.laPointsB(2) = m.loPoint2
					m.laPointsB(3) = .Point.New(m.loPoint2.X, m.loPoint2.Y + m.ln3d)
					m.laPointsB(4) = m.loPoint6
		
		
					* If the slice ends in the left side, draw the polygon before the top face of the slice
					IF BETWEEN(m.lnFinalAngle, 90, 270)
						m.loTempGfx.DrawPolygon(m.loPen, @m.laPointsB)
					ENDIF
		
		
					LOCAL n
					FOR m.n = 1 TO m.ln3d - 1
						m.lo3DPath.Transform(m.loMatrix)
						m.loTempGfx.FillPath(m.lo3dBrush, m.lo3DPath)
					ENDFOR
		
					* Draw the side Polygons
		
					* Draw polygon at the beginning of the donut
					IF m.tnStart > 90 AND m.tnStart < 270
						DIMENSION m.laPoints(4)
						m.laPoints(1)	= m.loPoint0
						m.laPoints(2)	= m.loPoint5
						m.laPoints(3)	= m.loPoint4
						m.laPoints(4)	= m.loPoint3
						m.loTempGfx.DrawPolygon(m.loPen, @m.laPoints)
					ENDIF
		
					* Draw polygon at the end of the donut
					IF m.lnFinalAngle < 90 OR m.lnFinalAngle > 270
						m.loTempGfx.DrawPolygon(m.loPen, @m.laPointsB)
					ENDIF
				ENDIF
		
		
				* Draw the path
				m.loTempGfx.FillPath(m.loMainBrush, m.loPath)
				m.loTempGfx.DrawPath(This._oBorderPen, m.loPath)
		
				m.loBmp.ApplyColorMatrix(poClrMatrix)
				m.loGfx.DrawImage(m.loBmp, m.tnX, m.tnY)
		
			ENDWITH
		
		ENDIF
		
		RETURN
		  
	ENDPROC

	PROCEDURE _drawlegendinbar
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnValue, tnIndex
		
		* Zero values in Stacked charts will not have space for drawing legends
		* so we'll ignore this case
		IF This._Stacked AND m.tnValue = 0
			RETURN
		ENDIF 
		
		
		This.CurrIndex = This._nIndex
		
		LOCAL lnLeftMargin
		m.lnLeftMargin = This._yAxisWidth + This._LeftOffset 
		
		*!*	Other available properties
		*!*		This.CurrValue
		*!*		This.CurrLegend
		*!*		This.CurrObjType
		*!*		This.CurrRecno
		*!*		This.CurrColumn 
		
		IF This.Fields(This._ChartIndex).ShowValuesOnShape AND This.ShowValuesOnShapes
		
			LOCAL lcExpr
			m.lcExpr = This.ShapeLegendExpression 
		
			IF (VARTYPE(m.lcExpr) = "C") AND (NOT EMPTY(m.lcExpr))
				This.ShapeLegend._Value = EVALUATE(m.lcExpr)
			ELSE
		
				IF This._SumRow AND This.ShowPercentages 
					* Show percentages as values
					DO CASE
					CASE EMPTY(This.ShapeLegend.Format) AND EMPTY(This.ShapeLegendExpression)
						This.ShapeLegend._ForceFormat = ;
							This._GetFieldType(This.SourceAlias, EVALUATE("This.Fields(This.ChartRow).FieldValue"), .T.) + "%"
					CASE NOT "%" $ This.ShapeLegend.Format
						This.ShapeLegend._ForceFormat = This.ShapeLegend.Format + "%"
					ENDCASE
					LOCAL lnValue
					m.lnValue = ROUND(m.tnValue / This.ChartSum * 100,0)
					This.ShapeLegend._Value = m.lnValue
				ELSE
					This.ShapeLegend._Value = m.tnValue
				ENDIF 	
		
			ENDIF 
		
			LOCAL lnAlign, lnDirection
			m.lnAlign = This.ShapeLegend.Alignment
		
		*!*		IF This._InvertShapeLegendAlignment = .T.
		*!*			DO CASE
		*!*			CASE lnAlign = 0 && Left
		*!*				lnAlign = 1 && Right
		
		*!*			CASE lnAlign = 1 && Right
		*!*				lnAlign = 0 && Left
		
		*!*			OTHERWISE
		
		*!*			ENDCASE
		*!*		ENDIF 
		
		
		
			m.lnDirection = This.BarLegendDirection
		
			IF m.lnDirection = 0 && Horizontal
				* Draw the Values inside the shapes
		
				IF This._Orientation = 1 && Vertical
		
					IF (m.tnHeight < This.ShapeLegend._Height) AND (NOT This._Stacked)
						LOCAL y0
						m.y0 = This.ChartCanvas.Height - This._XAxisHeight + 1
						m.tnY = m.y0 - This.ShapeLegend._Height
					ENDIF 
		
		
					DO CASE
		
					CASE This.ShapeLegend.Rotation <> 0 AND This.BarLegendType = 1
						m.tnY = m.tnY - This.ShapeLegend._Height - 2
						This.ShapeLegend._DrawString(m.tnX + m.tnWidth / 2, m.tnY)
						
					CASE m.lnAlign = 0 && Left
						This.ShapeLegend._DrawString(m.tnX, m.tnY)
		
					CASE m.lnAlign = 1 && Right
						This.ShapeLegend._DrawString(m.tnX + m.tnWidth, m.tnY)
		
					CASE m.lnAlign = 2 && Center
						This.ShapeLegend._DrawString(m.tnX + m.tnWidth / 2, m.tnY)
		
					OTHERWISE
		
					ENDCASE
		
		
				ELSE && This._Orientation = 2 && Horizontal
		
					DO CASE
					CASE m.lnAlign = 2 && Center
		*				This.ShapeLegend._DrawString(tnX + tnWidth / 2, tnY)
						IF This.ShapeLegend._Width > m.tnWidth && force left
							This.ShapeLegend.Alignment = 0
							This.ShapeLegend._DrawString(m.tnX, m.tnY)
							This.ShapeLegend.Alignment = 2
						ELSE 
							This.ShapeLegend._DrawString(m.tnX + m.tnWidth / 2, m.tnY)
						ENDIF 
		
		
		
					CASE m.lnAlign = 0 AND m.tnValue >= 0 && Left
						This.ShapeLegend._DrawString(m.tnX, m.tnY)
		
					CASE m.lnAlign = 1 AND m.tnValue >= 0 && Right
						IF This.ShapeLegend._Width > m.tnWidth && force left
							This.ShapeLegend.Alignment = 0
							This.ShapeLegend._DrawString(m.tnX, m.tnY)
							This.ShapeLegend.Alignment = 1
						ELSE 
							This.ShapeLegend._DrawString(m.tnX + m.tnWidth, m.tnY)
						ENDIF 
						
					CASE m.lnAlign = 1 AND m.tnValue < 0 && Force Left
						This.ShapeLegend.Alignment = 0
						This.ShapeLegend._DrawString(m.tnX, m.tnY)
						This.ShapeLegend.Alignment = 1
		
					CASE m.lnAlign = 0 AND m.tnValue < 0 && Force Right
						This.ShapeLegend.Alignment = 1
						This.ShapeLegend._DrawString(m.tnX + m.tnWidth, m.tnY)
						This.ShapeLegend.Alignment = 0
		
					OTHERWISE
					ENDCASE
		
				ENDIF
		
			ELSE && BarLegendDirection = 1 && Vertical
		
				IF m.lnDirection = 2 && Invert Direction
					LOCAL lnRotCenter
					m.lnRotCenter = This.ShapeLegend.RotationCenter
					This.ShapeLegend.RotationCenter = m.lnRotCenter + 180
				ENDIF 
		
		
				IF m.tnValue >= 0 OR m.lnAlign = 2
					This.ShapeLegend._DrawString(m.tnX, m.tnY, m.tnWidth, m.tnHeight, .T.)
				ELSE
					IF m.lnAlign = 0
						This.ShapeLegend.Alignment = 1
					ELSE
						This.ShapeLegend.Alignment = 0
					ENDIF
					This.ShapeLegend._DrawString(m.tnX, m.tnY, m.tnWidth, m.tnHeight, .T.)
					This.ShapeLegend.Alignment = m.lnAlign
				ENDIF
		
		
				IF m.lnDirection = 2 && Invert Direction
					This.ShapeLegend.RotationCenter = m.lnRotCenter
				ENDIF 
		
			ENDIF
		
		ENDIF  
	ENDPROC

	PROCEDURE _drawlinechart
		LOCAL laPoints[1], ;
			laPointsI[1], ;
			lcType as String, ;
			lnAdjust as Number, ;
			lnBarHeight as Number, ;
			lnBarWidth as Number
		
		SELECT(This._DataCursor)
		
		LOCAL lnLeftMargin, lnWidth, lnHeight, lnValue
		LOCAL lnBetween, lnBetween2, n, i, j, lnMaxValue, lnPointHeight, x1, y1, ln3D, lnChartsCount
		LOCAL llIsNull, lnYBase
		LOCAL lnTipPixels, lnType2, lnAlignment, lnRecs
		LOCAL lnMaxValue2
		
		m.lnAlignment = This.ShapeLegend.Alignment
		m.lnRecs	  = This._nRecords
		
		m.lnTipPixels	= This._TipPixels
		m.lnLeftMargin	= This._YAxisWidth + This._LeftOffset
		m.ln3D			= This._3D
		m.lnChartsCount	= This.ChartsCount
		
		* Calculate the maximum width of the chart
		m.lnWidth  = This.ChartCanvas.Width - This._YAxisWidth - This._LeftOffset - (m.ln3D * m.lnChartsCount) - This._RightOffset - THIS._yAxisWidth2
		m.lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - (m.ln3D * m.lnChartsCount)
		IF m.lnWidth < 10 OR m.lnHeight < 10 OR m.lnRecs < 1
			RETURN
		ENDIF
		
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		* Get the maximum value of the chart
		m.lnMaxValue  = This._ScaleRange
		m.lnMaxValue2 = This._ScaleRange2
		
		
		LOCAL loBrush as xfcBrush
		IF This.BrushType = 1
			m.loBrush = "This._o3dbrush"
		ELSE
			m.loBrush = "This._oMainBrush"
		ENDIF
		
		
		* Prepare array of points
		* 1st column is the current point object
		* 2nd column is the global index number for the coordinates array
		
		LOCAL lnArrayLength
		IF INLIST(This.ChartType, 5, 18) && Line
			m.lnArrayLength = m.lnRecs
		ELSE && Area
			m.lnArrayLength = m.lnRecs + 3
		ENDIF
		DIMENSION m.laPoints(m.lnArrayLength)
		DIMENSION m.laPointsI(m.lnArrayLength)
		
		
		WITH _Screen.System.Drawing
		
			FOR m.i = 1 TO m.lnChartsCount
		
				This._ChartIndex = m.i
				m.lnType2		 = EVALUATE("This.Fields(i).ChartType")
		
				m.lnAdjust = (m.ln3D * (m.lnChartsCount - m.i ))
				m.lnYBase  = This._TopOffSet + m.lnHeight - m.lnAdjust + (m.ln3D * m.lnChartsCount)
		
				* If MultiChart mode, the chart needs to start half a position further
				IF This.Multichart AND This.MultiChartMargin
					m.lnBetween = m.lnWidth / (m.lnRecs)
				ELSE
					m.lnBetween = m.lnWidth / (m.lnRecs - IIF(m.lnRecs = 1, 0, 1))
				ENDIF
				m.lnBetween2 = m.lnBetween + m.lnAdjust
					&& the X distance between the points to be used when drawing the legends in the X axis
		
				SCAN
					m.n = RECNO()
		
					m.x1 = m.lnLeftMargin + (m.lnBetween * (m.n - 1)) + ;
					m.lnAdjust + IIF(This.Multichart AND This.MultiChartMargin, ;
					  (m.lnBetween / 2), 0)
		
					m.lnValue = This._GetValue(m.i, .T.)
		
					m.llIsNull = ISNULL(m.lnValue)
					IF m.llIsNull
						m.lnValue = 0
					ENDIF
		
					IF This.Fields(m.i).AxisIndex = 2 AND This.ChartType = 18
						m.lnValue			  = m.lnValue + This._ScaleAdjust2
						m.lnPointHeight		  = m.lnValue / m.lnMaxValue2 * m.lnHeight
						m.y1				  = m.lnYBase - m.lnPointHeight
						This._aPoints(m.n, 1) = m.x1 + m.ln3D
						This._aPoints(m.n, 2) = m.y1
						This._aPoints(m.n, 3) = m.lnValue - This._ScaleAdjust2 && Restore the original value
					ELSE && This.Fields(i).AxisIndex = 1
		
						IF m.llIsNull AND (m.n > 1) AND (This.LineIgnoreNULLs) && Special situation to Tamar Granor
							This._aPoints(m.n, 1) = This._aPoints(m.n - 1, 1)
							This._aPoints(m.n, 2) = This._aPoints(m.n - 1, 2)
							This._aPoints(m.n, 3) = This._aPoints(m.n - 1, 3)
		
							* Extra checking to avoid drawing a line if the starting values are NULLs
							IF VARTYPE(m.laPoints(m.n - 1)) = "L"
								m.laPoints(RECNO())  = .F.
							ELSE
								m.laPoints(RECNO())  = .Point.New(This._aPoints(m.n, 1) - m.ln3D, This._aPoints(m.n, 2))
							ENDIF
							LOOP
						ENDIF
		
						m.lnValue			  = m.lnValue + This._ScaleAdjust
						m.lnPointHeight		  = m.lnValue / m.lnMaxValue * m.lnHeight
						m.y1				  = m.lnYBase - m.lnPointHeight
						This._aPoints(m.n, 1) = m.x1 + m.ln3D
						This._aPoints(m.n, 2) = m.y1
						This._aPoints(m.n, 3) = m.lnValue - This._ScaleAdjust && Restore the original value
					ENDIF
		
					m.laPoints(RECNO()) = IIF(m.llIsNull, .F., .Point.New(m.x1, m.y1))
				ENDSCAN
				GO TOP
		
				* Draw the vertical line only for the first line
				IF m.i = 1
					This._DrawVerticalLineBack()
				ENDIF
		
		
				DO CASE
		
					*-- 2010-11-26
					*-- Fix by Paulo Henrique de Almeida (Casion)
		
					CASE m.lnType2 = 3 && Single Bar
		
						m.lnBarWidth = (m.lnWidth - (m.lnRecs - 1) * This.BarsSpaceBetween) / m.lnRecs
						FOR m.n = 1 TO m.lnRecs
							IF VARTYPE(m.laPoints(m.n)) <> "O"
								LOOP
							ENDIF
		
							* changed by paulo henrique
							m.x1		  = This._aPoints(m.n, 1) - m.lnBarWidth / 2 - m.ln3D
							m.y1		  = This.Height - ((0 - This._MinScale) / m.lnMaxValue * m.lnHeight) - This._XAxisHeight
							m.lnValue	  = This._aPoints(m.n, 3)
							m.lnBarHeight = m.y1 - This._aPoints(m.n, 2)
							m.y1		  = min(m.y1, This._aPoints(m.n, 2))
							* end - changed by paulo henrique
		
							This._CurrentRow = m.n
							This._DrawBar(m.x1, m.y1, m.lnBarWidth, m.lnBarHeight, m.lnValue)
							m.laPointsI(m.n) = This._nIndex
		
						ENDFOR
		
		*--
		
					CASE This.ChartType = 4 OR m.lnType2 = 4 && Point / Secondary Point
		
						FOR m.n = 1 TO m.lnRecs
		
							IF VARTYPE(m.laPoints(m.n)) <> "O"
								LOOP
							ENDIF
							This._DrawShape(m.laPoints(m.n).X, m.laPoints(m.n).Y, This._aPoints(m.n, 3))
							m.laPointsI(m.n) = This._nIndex
							This._CurrentRow = m.n
		
						ENDFOR
		
		
					OTHERWISE && ChartType <> 4  - Line or Area
		
						IF This.ChartType = 6 && Area
							This._PrepareBrushes(0, 0, This.ChartCanvas.Width, This.ChartCanvas.Height, .F., m.i)
						ENDIF
		
						LOCAL laPolygon(4)
						LOCAL laPolygonB(4)
		
						IF m.ln3D = 0
		
							* Create pen.
							LOCAL loLinePen as xfcPen
		
							LOCAL lnColor
							IF This.BrushType = 3 && Monochrome
								m.lnColor			  = 0
								m.loLinePen			  = .Pen.New(This._oClrBlack, 3)
								m.loLinePen.DashStyle = m.i - 1 && _Screen.System.Drawing.Drawing2D.DashStyle.Dash
							ELSE
								m.lnColor	= This.aColors(m.i)
								m.loLinePen	= .Pen.New(.Color.FromRGB(m.lnColor), 2)
							ENDIF
		
		
							FOR m.n = 1 TO m.lnRecs - 1
								This._CurrentRow = m.n
		
								m.lcType = VARTYPE(m.laPoints(m.n)) + VARTYPE(m.laPoints(m.n + 1))
								DO CASE
									CASE m.lcType = "LO" OR m.lcType = "LL"
										LOOP
		
									CASE m.lcType = "OL"
										m.loGfx.Drawline(m.loLinePen, m.laPoints(m.n).X, m.laPoints(m.n).Y, m.laPoints(m.n).X + 1, m.laPoints(m.n).Y + 1)
										This._UpdateCoordinates("Rect", m.laPoints(m.n).X - m.lnTipPixels / 2, m.laPoints(m.n).Y - m.lnTipPixels / 2, m.lnTipPixels, m.lnTipPixels, ;
										  This._aPoints(m.n, 3), m.n)
										m.laPointsI(m.n) = This._nIndex
										LOOP
		
									OTHERWISE
										m.loGfx.Drawline(m.loLinePen, m.laPoints(m.n), m.laPoints(m.n + 1))
		
								ENDCASE
		
		
								IF This.ChartType = 6 && Area
									* Draw the area 
									m.laPolygonB(1)	= m.laPoints(m.n)
									m.laPolygonB(2)	= m.laPoints(m.n + 1)
									m.laPolygonB(3)	= .Point.New(m.laPolygonB(2).X, m.lnYBase)
									m.laPolygonB(4)	= .Point.New(m.laPolygonB(1).X, m.lnYBase)
									m.loGfx.FillPolygon(This._oMainBrush, @m.laPolygonB)
									IF This.AreaDrawBorders
										m.loGfx.DrawPolygon(This._oBorderPen, @m.laPolygonB)
									ENDIF
								ENDIF
		
								This._UpdateCoordinates("Rect", m.laPoints(m.n).X - m.lnTipPixels / 2, m.laPoints(m.n).Y - m.lnTipPixels / 2, m.lnTipPixels, m.lnTipPixels, ;
								  This._aPoints(m.n, 3))
								m.laPointsI(m.n) = This._nIndex
		
							ENDFOR
		
		
							IF VARTYPE(m.laPoints(m.n)) = "O"
								This._CurrentRow = m.n
								This._UpdateCoordinates( ;
								  "Rect", m.laPoints(m.n).X - m.lnTipPixels / 2, m.laPoints(m.n).Y - m.lnTipPixels / 2, ;
								  m.lnTipPixels, m.lnTipPixels, This._aPoints(m.n, 3))
								m.laPointsI(m.n) = This._nIndex
		
							ENDIF
		
		
							* Draw the shapes after (over) the lines
							IF This.LineCaps = .T. AND INLIST(This.ChartType, 5, 18) && Line
		
								FOR m.j = 1 TO m.lnRecs
									IF VARTYPE(m.laPoints(m.j)) <> "O" OR ;
										VARTYPE(m.laPoints(m.j).X) + VARTYPE(m.laPoints(m.j).Y) <> "NN"
										LOOP
									ENDIF
									This._DrawShape(m.laPoints(m.j).X, m.laPoints(m.j).Y, This._aPoints(m.j, 3))
									m.laPointsI(m.n) = This._nIndex
		
									This._CurrentRow = m.j
								ENDFOR
							ENDIF
		
		
		
		
						ELSE  && m.ln3D <> 0
		
							* Store a big area brush that will be used for the main area part of the shapes
							LOCAL loAreaBrush, llDrawPointLine
							m.loAreaBrush = This._oMainBrush
							FOR m.n = 1 TO m.lnRecs - 1
		
								This._CurrentRow = m.n
		
								m.lcType = VARTYPE(m.laPoints(m.n)) +  VARTYPE(m.laPoints(m.n + 1))
								DO CASE
									CASE m.lcType = "LO" OR m.lcType = "LL"
										LOOP
		
									CASE m.lcType = "OL"
										m.llDrawPointLine = .T.
									OTHERWISE
										m.llDrawPointLine = .F.
								ENDCASE
		
								IF This.ChartType = 6 ; && Area
									AND "L" $ m.lcType
		
									IF m.lcType = "OL"
										This._UpdateCoordinates("Rect", m.laPoints(m.n).X - m.lnTipPixels / 2, m.laPoints(m.n).Y - m.lnTipPixels / 2, m.lnTipPixels, m.lnTipPixels, ;
										  This._aPoints(m.n, 3))
										m.laPointsI(m.n) = This._nIndex
		
									ENDIF
		
									LOOP
								ENDIF
		
								IF INLIST(This.ChartType, 5, 18) OR (This.ChartType = 6 AND This.Area3dTop)
									m.laPolygon(1) = m.laPoints(m.n)
									m.laPolygon(2) = .Point.New(m.laPoints(m.n).X + m.ln3D, m.laPoints(m.n).Y - m.ln3D)
		
		
									IF m.llDrawPointLine
										LOCAL lnColor, loLinePen as xfcPen
										m.lnColor	= This.aColors(m.i)
										m.loLinePen	= .Pen.New(.Color.FromRGB(m.lnColor), 2)
										m.loGfx.Drawline(m.loLinePen, m.laPolygon(1), m.laPolygon(2))
		
										This._UpdateCoordinates("Rect", m.laPoints(m.n).X - m.lnTipPixels / 2, m.laPoints(m.n).Y - m.lnTipPixels / 2, m.lnTipPixels, m.lnTipPixels, ;
										  This._aPoints(m.n, 3))
										m.laPointsI(m.n) = This._nIndex
		
										LOOP
									ENDIF
									m.laPolygon(3) = .Point.New(m.laPoints(m.n + 1).X + m.ln3D, m.laPoints(m.n + 1).Y - m.ln3D)
									m.laPolygon(4) = m.laPoints(m.n + 1)
		
									This._PrepareBrushes(m.laPoints(m.n).X, m.laPoints(m.n).Y - m.ln3D, ;
									  m.laPoints(m.n + 1).X + m.ln3D - m.laPoints(m.n).X, ;
									  MAX(2, ABS(m.laPoints(m.n).Y - m.laPoints(m.n + 1).Y)), .F., m.i)
		
									m.loGfx.FillPolygon(This._oMainBrush, @m.laPolygon)
									m.loGfx.DrawPolygon(This._oBorderPen, @m.laPolygon)
								ENDIF
		
								IF This.ChartType = 6 && Area
									* Draw the area 
									m.laPolygonB(1)	= m.laPoints(m.n)
									m.laPolygonB(2)	= m.laPoints(m.n + 1)
									m.laPolygonB(3)	= .Point.New(m.laPolygonB(2).X, m.lnYBase)
									m.laPolygonB(4)	= .Point.New(m.laPolygonB(1).X, m.lnYBase)
		
									m.loGfx.FillPolygon(m.loAreaBrush, @m.laPolygonB)
									IF This.AreaDrawBorders
										m.loGfx.DrawPolygon(This._oBorderPen, @m.laPolygonB)
									ENDIF
		
									* Draw the right 3d edge of the Area
									IF This.Area3dTop
										m.laPolygonB(1)	= .Point.New(m.laPolygonB(2).X + m.ln3D, m.laPolygonB(2).Y - m.ln3D)
										m.laPolygonB(4)	= .Point.New(m.laPolygonB(3).X + m.ln3D, m.laPolygonB(3).Y - m.ln3D)
										m.loGfx.FillPolygon(This._o3dbrush, @m.laPolygonB)
										m.loGfx.DrawPolygon(This._oBorderPen, @m.laPolygonB)
									ENDIF
								ENDIF && ChartType = 6  - Area
		
								This._UpdateCoordinates("Rect", m.laPoints(m.n).X - m.lnTipPixels / 2, m.laPoints(m.n).Y - m.lnTipPixels / 2, m.lnTipPixels, m.lnTipPixels, ;
								  This._aPoints(m.n, 3))
								m.laPointsI(m.n) = This._nIndex
		
							ENDFOR
							This._CurrentRow = m.n
							IF VARTYPE(m.laPoints(m.n)) = "O"
								This._UpdateCoordinates("Rect", m.laPoints(m.n).X - m.lnTipPixels / 2, m.laPoints(m.n).Y - m.lnTipPixels / 2, m.lnTipPixels, m.lnTipPixels, ;
								  This._aPoints(m.n, 3))
								m.laPointsI(m.n) = This._nIndex
							ENDIF
		
						ENDIF && m.ln3D = 0
		
				ENDCASE
		
		
				* Reset Row counter
				This._CurrentRow = 0
		
				* Adjust _aPoints Array to show the information in the correct position
				FOR m.n = 1 TO m.lnRecs
					This._aPoints(m.n, 1) = This._aPoints(m.n, 1) - m.ln3D
				ENDFOR
		
		
				IF This.ShowValuesOnShapes AND This.Fields(m.i).ShowValuesOnShape
					LOCAL lnIndex
		
					* Draw Legends above the points
					FOR m.n = 1 TO m.lnRecs
		
						* Adjust _aPoints Array to show the information in the correct position
						This._aPoints(m.n, 1) = This._aPoints(m.n, 1) - m.ln3D
		
						IF VARTYPE(m.laPoints(m.n)) = "L"
							LOOP
						ENDIF
		
						m.x1	  = This._aPoints(m.n, 1)
						m.y1	  = This._aPoints(m.n, 2)
						m.lnIndex = m.laPointsI(m.n)
						This._DrawShapeLegend(m.x1, m.y1, m.lnIndex)
		
					ENDFOR
				ENDIF
		
			ENDFOR
		
			This._DrawXAxisLegend(.F., m.lnBetween2)
		
		ENDWITH
		
		This.ShapeLegend.Alignment = m.lnAlignment
		
		RETURN
	ENDPROC

	PROCEDURE _drawpiechart
		LOCAL lnDetachAngle as Number, ;
			lnTempStart as Number, ;
			lnTempSweep as Number, x1, y1
		
		SELECT(This._DataCursor)
		
		LOCAL lnDetachPixels, lnStart, lnSweep, lnAngle, ln3D, lnValue
		LOCAL lnWidth, lnHeight, lnX, lnY, lnTotal, lnMaxWidth, lnMaxHeight
		m.lnDetachPixels = This.PieDetachPixels
		
		m.lnMaxWidth = This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - (lnDetachPixels * 2)
		m.lnMaxHeight = This.ChartCanvas.Height - (This.Margin * 2) - This.MarginBottom - ;
		This.MarginTop - This._TitleHeight - This._3d - ;
		(lnDetachPixels * 2) - ;
		IIF(This.LegendPosition > 4, This._LegendHeight, 0)
		
		m.lnWidth  = MIN(lnMaxWidth, lnMaxHeight)
		m.lnHeight = m.lnWidth
		
		
		IF NOT This.PieForceCircle
		
		* Adjust the maximum width in order to ensure that the chart will retain 
			LOCAL lnFactor
			m.lnFactor = 0.80
			IF m.lnMaxWidth <= m.lnWidth / m.lnFactor
				m.lnWidth = lnMaxWidth
			ELSE
				m.lnWidth = m.lnWidth / m.lnFactor
			ENDIF
		ENDIF
		
		m.ln3D = This._3d
		
		IF This.PieCompensateAngles
			m.lnWidth = m.lnMaxWidth
		ELSE
		ENDIF
		IF m.lnWidth <= 10 OR ;
			lnHeight <= 10 OR ;
			lnHeight <= ln3D
			RETURN
		ENDIF
		
		
		* Calculate the chart basic positions
		lnX	= lnDetachPixels + This.Margin + This._LeftOffset + ((lnMaxWidth - m.lnWidth) / 2)
		lnY	= This.Margin + This._TopOffSet + ((lnMaxHeight - m.lnHeight) / 2) + lnDetachPixels
		
		lnTotal = This.ChartSum
		
		
		IF NOT This.PieEnhancedDrawing && Draws without taking care of slices edges
		* Prepare the Gdi+ objects
			WITH _Screen.System.Drawing
				PRIVATE poTempBmp as xfcBitmap
				PRIVATE poClrMatrix as xfcColorMatrix
				poTempBmp			 = .Bitmap.New(m.lnWidth + m.ln3D + 2, m.lnHeight + m.ln3D + 2)
				poClrMatrix			 = .Imaging.ColorMatrix.New()
				poClrMatrix.Matrix33 = This.AlphaChannel / 255
			ENDWITH
		ENDIF
		
		
		
		LOCAL laLegends(This._nRecords + 1, 3)
		LOCAL lnRec, llHidden, llDrawLegend
		LOCAL lnPixelsOut
		
		llDrawLegend = This.ShowValuesonShapes
		lnRec		 = 1
		
		This._ChartIndex = This.ChartRow
		
		This._Pie1stDetached = .F.
		
		
		
		IF This.PieDirection = 1 && Anticlockwise
			SET ORDER TO Revert
		ENDIF
		
		
		* Draw the pie
		* Draw the RIGHT side of the pie
		lnStart = 270
		
		
		SCAN FOR lnStart < 450
			x1 = lnX
			y1 = lnY
		
		* Calculate Start point and Sweep
			lnValue = This._GetValue(This.ChartRow)
			IF lnValue <= 0
				LOOP
			ENDIF
		
			lnSweep = lnValue / lnTotal * 360
			IF lnSweep > 359.99
				lnSweep = 359.99
			ENDIF
		
			llHidden = lSliceHidden
		
			IF lDetach = .T.
				IF lnRec = 1
					This._Pie1stDetached = .T.
					This._PieX0			 = x1
					This._PieY0			 = y1
				ENDIF
		
				IF RECNO() = This._PieAnimatedRec
					lnPixelsOut = This._PieAnimationPix
				ELSE
					lnPixelsOut = lnDetachPixels
				ENDIF
		
				lnTempStart	= lnStart
				lnTempSweep	= lnSweep
				This._AdjustStartSweep(@lnTempStart, @lnTempSweep, m.lnWidth, m.lnHeight)
				lnDetachAngle = 360 - (lnTempStart + (lnTempSweep / 2))
				x1			  = lnX + (COS(DTOR(lnDetachAngle)) * lnPixelsOut)
				y1			  = lnY - (SIN(DTOR(lnDetachAngle)) * lnPixelsOut)
			ELSE
				x1 = lnX
				y1 = lnY
			ENDIF
		
		
			IF lnStart + lnSweep > 450
				EXIT
			ENDIF
		
		
		
			IF NOT llHidden
				IF This.ChartType = 1 && Pie
					This._DrawSlice(x1, y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue)
				ELSE && 2 - Doughnut
					This._DrawDoughnutSlice(x1, y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue)
				ENDIF
		
				IF llDrawLegend
					This._PrepareLegendinSlice(@x1, @y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue)
					laLegends(lnRec, 1)	= x1
					laLegends(lnRec, 2)	= y1
					laLegends(lnRec, 3)	= lnValue
					lnRec				= lnRec + 1
				ENDIF
			ENDIF
			lnStart = lnStart + lnSweep
		
		ENDSCAN
		
		
		* Draw the LEFT side of the pie
		GO BOTTOM
		lnStart = 270
		DO WHILE lnStart >= 90
			x1 = lnX
			y1 = lnY
		
		* Calculate Start point and Sweep
			lnValue = This._GetValue(This.ChartRow)
			IF lnValue <= 0
				IF BOF()
					EXIT
				ENDIF
				SKIP -1
				IF BOF()
					EXIT
				ENDIF
				LOOP
			ENDIF
		
			lnSweep = lnValue / lnTotal * 360
			IF lnSweep > 359.99
				lnSweep = 359.99
			ENDIF
		
			lnStart	 = lnStart - lnSweep
			llHidden = lSliceHidden
		
			IF lDetach = .T.
				lnTempStart	= lnStart
				lnTempSweep	= lnSweep
		
				IF lnStart + lnSweep >= 269.9
					This._Pie1stDetached = .T.
					This._PieX0			 = x1
					This._PieY0			 = y1
				ENDIF
		
		
				IF RECNO() = This._PieAnimatedRec
					lnPixelsOut = This._PieAnimationPix
				ELSE
					lnPixelsOut = lnDetachPixels
				ENDIF
		
				This._AdjustStartSweep(@lnTempStart, @lnTempSweep, m.lnWidth, m.lnHeight)
				lnDetachAngle = 360 - (lnTempStart + (lnTempSweep / 2))
				x1			  = lnX + (COS(DTOR(lnDetachAngle)) * lnPixelsOut)
				y1			  = lnY - (SIN(DTOR(lnDetachAngle)) * lnPixelsOut)
			ENDIF
		
			IF NOT llHidden
				IF This.ChartType = 1 && Pie
					This._DrawSlice(x1, y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue)
				ELSE && 2 - Doughnut
					This._DrawDoughnutSlice(x1, y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue)
				ENDIF
		
				IF llDrawLegend
					This._PrepareLegendinSlice(@x1, @y1, m.lnWidth, m.lnHeight, lnStart, lnSweep, lnValue)
					laLegends(lnRec, 1)	= x1
					laLegends(lnRec, 2)	= y1
					laLegends(lnRec, 3)	= lnValue
					lnRec				= lnRec + 1
				ENDIF
		
			ENDIF
			SKIP -1
			IF BOF()
				EXIT
			ENDIF
		ENDDO
		
		
		* Draw the legends at the end of the process in order to avoid
		*   a slice hiding a legend
		
		
		IF This.Fields(This._ChartIndex).ShowValuesOnShape
		
			IF llDrawLegend
				LOCAL lnOrigAlign, n
				lnOrigAlign				   = This.ShapeLegend.Alignment
				This.ShapeLegend.Alignment = 2 && Force Center
		
				FOR n = 1 TO lnRec - 1
		
		
					TRY
		
						LOCAL lcExpr
						lcExpr = This.ShapeLegendExpression
		
						IF (VARTYPE(lcExpr) = "C") AND (NOT EMPTY(lcExpr))
		*!*	Other available properties
		*!*		This.CurrValue
		*!*		This.CurrLegend
		*!*		This.CurrObjType
		*!*		This.CurrRecno
		*!*		This.CurrColumn
							This.CurrIndex = n
							lnValue		   = EVALUATE(lcExpr)
						ELSE
		
							IF This.PieShowPercent
								DO CASE
									CASE EMPTY(This.ShapeLegend.Format) AND EMPTY(lcExpr)
										This.ShapeLegend._ForceFormat = ;
										This._GetFieldType(This.SourceAlias, EVALUATE("This.Fields(This.ChartRow).FieldValue"), .T.) + "%"
		
									CASE NOT "%" $ This.ShapeLegend.Format
										This.ShapeLegend._ForceFormat = This.ShapeLegend.Format + "%"
		
								ENDCASE
		
								lnValue = (laLegends(n, 3) / lnTotal) * 100
							ELSE
								lnValue = laLegends(n, 3)
							ENDIF
		
						ENDIF
		
					CATCH
						ERROR "Invalid Expression in 'ShapeLegendExpressionProperty' !"
					ENDTRY
		
		
					This.ShapeLegend._Value = lnValue
		
					x1 = laLegends(n, 1)
					IF VARTYPE(x1) <> "N"
						EXIT
					ENDIF
		
					y1 = laLegends(n, 2)
		
		* Draw the Text
					This.ShapeLegend._DrawString(x1, y1)
		
				ENDFOR
				This.ShapeLegend._ForceFormat = ""
				This.ShapeLegend.Alignment	  = lnOrigAlign
			ENDIF
		ENDIF
		
		IF This.PieDirection = 1 && Anticlockwise
			SET ORDER TO
		ENDIF
		
	ENDPROC

	PROCEDURE _drawscale
		LPARAMETERS toPen, tnAxisIndex
		
		LOCAL lnScaleNumber as Number, ;
			lnScaleWidth as Number, ;
			lnThisScale as Number, ;
			lnValue as Number, ;
			lnWidth as Number, x
		
		m.tnAxisIndex = EVL(m.tnAxisIndex, 1)
		
		* Draw the scale in the Y Axis
		Local ln3D, lnHeight, lnMargin, lnScaleValue, llShowLineZero
		
		IF This.ChartType = 17 && Paired
			m.llShowLineZero = .F.
		ELSE
			m.llShowLineZero = This.ShowLineZero
		ENDIF
		
		
		IF This._DeepChart && Point, Line or Area
			m.ln3D = This._3D * This.ChartsCount
		ELSE
			m.ln3D = This._3D
		ENDIF
		
		
		LOCAL lnMaxValue, lnScale, lnScaleAdjust, lnMinScale, lnMaxScale
		m.lnMaxValue	  = IIF(m.tnAxisIndex = 1, This._ScaleRange, This._ScaleRange2)
		m.lnScale		  = IIF(m.tnAxisIndex = 1, This._Scale, This._Scale2)
		m.lnScaleAdjust = IIF(m.tnAxisIndex = 1, This._ScaleAdjust, This._ScaleAdjust2)
		m.lnMinScale	  = IIF(m.tnAxisIndex = 1, This._MinScale, This._MinScale2)
		m.lnMaxScale	  = IIF(m.tnAxisIndex = 1, This._MaxScale, This._MaxScale2)
		
		
		LOCAL loGfx AS xfcGraphics
		m.loGfx = This.oGfx
		
		LOCAL loBackBrush AS xfcSolidBrush
		LOCAL loBackPen   AS xfcPen
		LOCAL loBlackPen  AS xfcPen
		LOCAL llDrawBack, lnOneScale, lnxWidth
		
		m.loBlackPen = This._oBlackPen
		m.llDrawBack = .T.
		
		This.ScaleLegend._Setup()
		
		If This._Orientation = 1 && Vertical
			Local lnRectColor, lnLineColor
		
			If This.BrushType = 3 && Monochrome
				m.lnRectColor	= Rgb(255, 255, 255) && White
				m.lnLineColor	= 0 && Black
			Else
				m.lnRectColor	= This.ScaleBackColor
				m.lnLineColor	= This.ScaleLineColor
			Endif
		
			With _Screen.System.Drawing
				m.loBackBrush		= .SolidBrush.New(.Color.FromARGB(This.ScaleBackAlpha, m.lnRectColor))
				This._oBlackPen	= .Pen.New(.Color.FromARGB(This.AxisAlpha, m.lnLineColor), This.ScaleBackLinesWidth - 1)
			Endwith
		
			Local lnDashValue
			m.lnDashValue = This.ScaleBackLinesDash
			If m.lnDashValue > 0
				This._oBlackPen.DashStyle = m.lnDashValue && _Screen.System.Drawing.Drawing2D.DashStyle.Dash
			Endif
		
			m.lnHeight = This.Height - This._XAxisHeight - This._TopOffSet - m.ln3D
			m.lnOneScale = m.lnScale / m.lnMaxValue * m.lnHeight
			m.lnxWidth   = This.Width - This._LeftOffset - This._RightOffset - This._yAxisWidth - m.ln3D - This._yAxisWidth2 
		
			Local x0, x1, y0, y1, lnScaleHeight, N, Y
		
			m.y0 = This.Height - This._XAxisHeight
		
		
			m.x0 = IIF(m.tnAxisIndex = 1, ;
			  This._yAxisWidth + This._LeftOffset, ;
			  This.ChartCanvas.Width - This._RightOffset - m.ln3D + 2 + 2 - This._yAxisWidth2)
		
		****************************************************************
		*   Jim Nelson   10/10/08
		*
		*   Loop now calls method GetScaleValue (and its cousin GetScaleLegend) to get the
		*   scale values and associated legends.  lnScaleNumber = 0 returns highest scale
		
		
		* Save original Alignment settings
			LOCAL lnOrigAlignment, lcOrigScaleFormat
			m.lnOrigAlignment	  = This.ScaleLegend.Alignment
			m.lcOrigScaleFormat = This.ScaleLegend._ForceFormat
		
		* CCHALOM 2013-02-21
		* Fix in getting a nice Scale legend format for both axes
		* New properties inserted: _ScaleLegAxis1ForceFormat , _ScaleLegAxis2ForceFormat 
			This.ScaleLegend._ForceFormat = IIF(m.tnAxisIndex = 1, This._ScaleLegAxis1ForceFormat, This._ScaleLegAxis2ForceFormat)
		
			For m.lnScaleNumber = 0 To 1000
		
				m.lnValue = This.GetScaleValue (m.lnScaleNumber, m.tnAxisIndex)
				If "N" # Vartype(m.lnValue)
					Exit
				Endif
		
				m.lnScaleHeight = (m.lnValue - m.lnMinScale) / m.lnMaxValue * m.lnHeight
				m.Y			  = This.Height - m.lnScaleHeight - This._XAxisHeight
		
		
				m.x1 = IIF(m.tnAxisIndex = 1, ;
				  This._yAxisWidth + This._LeftOffset - 7, ;
				  This.ChartCanvas.Width - This._RightOffset - m.ln3D + 6 - This._yAxisWidth2)
		
				m.y1 = m.Y - (This._ScaleH/2)
		
				m.lnScaleValue = m.lnValue - m.lnScaleAdjust
		
		
		* 2nd Y Axis
				IF m.tnAxisIndex = 1
					This.ScaleLegend.Alignment = 1 && Force Right alignment
				ELSE
					This.ScaleLegend.Alignment = 0 && Force Left alignment
				ENDIF
		
		
				This.ScaleLegend._Value = This.GetScaleLegend(m.lnScaleNumber, (m.lnValue / This.ScaleDivider))
				This.ScaleLegend._DrawString(m.x1, m.y1)
		
		* Draw the horizontal scale (tick) line in the Y Axis
				m.loGfx.DrawLine(m.toPen, m.x0, m.Y, m.x0 + m.ln3D, m.Y - m.ln3D)
				m.loGfx.DrawLine(m.loBlackPen, m.x0 - 0, m.Y, m.x0 - This.TicLength, m.Y)
		
		* Chack if finished drawing
				IF "N" # VARTYPE(This.GetScaleValue (m.lnScaleNumber + 1))
					EXIT
				ENDIF
		
		* Draw the scale background
				Local x1Scale, y1Scale
				m.x1Scale	= m.x0 + m.ln3D
				m.y1Scale	= m.Y - m.ln3D
		
				If m.llDrawBack AND m.tnAxisIndex = 1
		****************************************************************
		*   Jim Nelson   10/11/08
		*
		*  Calculate height to next scale
		
					m.lnThisScale = (This.GetScaleValue (m.lnScaleNumber) - This.GetScaleValue (m.lnScaleNumber+1)) / m.lnMaxValue * m.lnHeight
					IF INLIST(This.ScaleBackBarsType, 1, 3) && Horizontal, Both
		****************************************************************
		*   Jim Nelson   10/11/08
		*
		*   Calculate the height of this horizontal bar (allowing for case where not all bars are same height)
		*				loGfx.FillRectangle(loBackBrush, x1Scale, y1Scale, lnxWidth, lnOneScale)
						m.loGfx.FillRectangle(m.loBackBrush, m.x1Scale, m.y1Scale, m.lnxWidth, m.lnThisScale)
					ENDIF
		
					IF INLIST(This.ScaleBackLinesType, 1, 3) && Horizontal, Both
		****************************************************************
		*   Jim Nelson   10/10/08
		*
		*   Do NOT draw the line if its the zero line (see below)
						IF NOT ( ;
							  m.llShowLineZero ;
							  AND ABS(m.lnValue) < m.lnScale / 100 ;
							  AND m.lnMaxScale > 0 ;
							  AND m.lnMinScale < 0 ;
							  AND m.ln3D = 0 ;
							  )
							m.loGfx.DrawLine(This._oBlackPen, m.x1Scale, m.y1Scale, m.x1Scale + m.lnxWidth, m.y1Scale)
							m.loGfx.DrawLine(This._oBlackPen, m.x1Scale, m.y1Scale + m.lnThisScale, m.x1Scale + m.lnxWidth, m.y1Scale + m.lnThisScale)
						ENDIF
					ENDIF
				ENDIF
				m.llDrawBack = Not m.llDrawBack
		
				IF m.llShowLineZero AND m.tnAxisIndex = 1
		
		* Draw the ZERO line
					IF ABS(m.lnValue) < m.lnScale / 100 And m.lnMaxScale > 0 And m.lnMinScale < 0
						WITH _Screen.System.Drawing
		
							LOCAL loZeroPen As xfcPen
							m.loZeroPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, This.ScaleLineZeroColor), 1)
		
							If m.ln3D = 0
								m.loGfx.DrawLine(m.loZeroPen, ;
								  m.x1Scale, m.y1Scale, m.x1Scale + m.lnxWidth, m.y1Scale)
							Else
		* Following line moved; does not apply to case m.ln3D = 0
								m.y1Scale = m.y1Scale + 1
		
								Local laPolygon(4)
								m.laPolygon(1) = .Point.New(m.x1Scale, m.y1Scale)
								m.laPolygon(2) = .Point.New(m.x1Scale + m.lnxWidth, m.y1Scale)
								m.laPolygon(3) = .Point.New(m.x1Scale + m.lnxWidth - m.ln3D, m.y1Scale + m.ln3D)
								m.laPolygon(4) = .Point.New(m.x1Scale - m.ln3D, m.y1Scale + m.ln3D)
		
								Local loZeroBrush As xfcSolidBrush
								m.loZeroBrush = .SolidBrush.New(.Color.FromARGB(64, This.ScaleLineZeroColor))
								m.loGfx.FillPolygon(m.loZeroBrush, @m.laPolygon)
								m.loGfx.DrawPolygon(m.loZeroPen, @m.laPolygon)
							Endif
		
						Endwith
					Endif
		
				Endif
		
			Endfor
		
			This._ChartY0 = This.Height - This._XAxisHeight - m.ln3D
			This._ChartY1 = This._ChartY0 - m.lnHeight
		
		* Restore original Alignment settings
			This.ScaleLegend.Alignment	  = m.lnOrigAlignment
			This.ScaleLegend._ForceFormat = m.lcOrigScaleFormat
		
		Else  && _Orientation = 2 HORIZONTAL
		
			Local x0, x1, y0, y1
			m.lnMargin = This._yAxisWidth + This._LeftOffset
		
			m.y0 = This._TopOffSet
			m.y1 = This.Height - This._XAxisHeight + 6
			m.x0 = m.lnMargin
			m.x1 = This.Width - This._RightOffset  && This._LegendWidth
		
			m.lnWidth = This.Width - This._LeftOffset - This._RightOffset - This._yAxisWidth - m.ln3D
		
		
			Local llDrawBack, lnOneScale
			m.llDrawBack = .T.
		
			Local lnRectColor, lnLineColor
		
			If This.BrushType = 3 && Monochrome
				m.lnRectColor	= Rgb(255, 255, 255) && White
				m.lnLineColor	= 0 && Black
			Else
				m.lnRectColor	= This.ScaleBackColor
				m.lnLineColor	= This.ScaleLineColor
			Endif
		
			With _Screen.System.Drawing
				m.loBackBrush		= .SolidBrush.New(.Color.FromARGB(This.ScaleBackAlpha, m.lnRectColor))
				This._oBlackPen	= .Pen.New(.Color.FromARGB(This.AxisAlpha, m.lnLineColor), This.ScaleBackLinesWidth - 1)
			Endwith
		
			Local lnDashValue
			m.lnDashValue = This.ScaleBackLinesDash
			If m.lnDashValue > 0
				This._oBlackPen.DashStyle = m.lnDashValue && _Screen.System.Drawing.Drawing2D.DashStyle.Dash
			Endif
		
			m.lnOneScale = m.lnScale / m.lnMaxValue * m.lnWidth
		
		****************************************************************
		*   Jim Nelson   10/10/08
		*
		*   Loop now calls method GetScaleValue (and its cousin GetScaleLegend) to get the
		*   scale values and associated legends.  lnScaleNumber = 0 returns highest scale
		
			For m.lnScaleNumber = 0 To 1000
		
				m.lnValue = This.GetScaleValue (m.lnScaleNumber)
				If "N" # Vartype( m.lnValue)
					Exit
				Endif
				m.lnScaleWidth = (m.lnValue - m.lnMinScale) / m.lnMaxValue * m.lnWidth
				m.x			 = m.x0 + m.lnScaleWidth
		
		
				m.lnScaleValue = This.GetScaleLegend (m.lnScaleNumber, m.lnValue)
				IF VARTYPE(m.lnScaleValue) = "C"
					This.ScaleLegend._Value = m.lnScaleValue
				ELSE
					This.ScaleLegend._Value = IIF(This._AbsoluteScaleValues, ABS(m.lnScaleValue), m.lnScaleValue)
				ENDIF
		
				If This.ScaleLegend.Rotation = 0
					This.ScaleLegend._DrawString(m.x, m.y1, .T.) && Force Center
				Else
					This.ScaleLegend._DrawString(m.x, m.y1)
				Endif
		
		* Draw the horizontal scale line in the Y Axis
				m.loGfx.DrawLine(m.toPen, m.x, m.y1 - 5, m.x + m.ln3D, m.y1 - 5 - m.ln3D)
				m.loGfx.DrawLine(m.loBlackPen, m.x, m.y1, m.x, m.y1 - This.TicLength)
		
		* Draw the scale background
				Local x1Scale, y1Scale
				m.x1Scale	= m.x + m.ln3D
				m.y1Scale	= m.y1 - m.ln3D - 3
		
				If m.llDrawBack and "N" = Vartype (This.GetScaleValue (m.lnScaleNumber+1))
		****************************************************************
		*   Jim Nelson   10/11/08
		*
		*  Calculate width to next scale
					m.lnThisScale = (This.GetScaleValue (m.lnScaleNumber) - This.GetScaleValue (m.lnScaleNumber+1)) / m.lnMaxValue * m.lnWidth
		
					If Inlist(This.ScaleBackBarsType, 2, 3) && Vertical, Both
		****************************************************************
		*   Jim Nelson   10/11/08
		*
		*   Calculate the widtht of this horizontal bar (allowing for case where not all bars are same height)
		
						m.loGfx.FillRectangle(m.loBackBrush, m.x1Scale - m.lnThisScale, m.y0, m.lnThisScale, m.y1Scale - m.y0)
					Endif
					If Inlist(This.ScaleBackLinesType, 2, 3) && Vertical, Both
		****************************************************************
		*   Jim Nelson   10/10/08
		*
		*   Do NOT draw the line if its the zero line (see below)
						If Not ( ;
							  m.llShowLineZero ;
							  and Abs(m.lnValue) < m.lnScale / 100 ;
							  And m.lnMaxScale > 0 ;
							  And m.lnMinScale < 0 ;
							  and m.ln3D = 0 ;
							  )
							m.loGfx.DrawLine(This._oBlackPen, m.x1Scale, m.y0, m.x1Scale, m.y1Scale)
							m.loGfx.DrawLine(This._oBlackPen, m.x1Scale - m.lnThisScale, m.y0, m.x1Scale - m.lnThisScale, m.y1Scale)
						Endif
					Endif
				Endif
				m.llDrawBack = Not m.llDrawBack
		
				If m.llShowLineZero
		
		* Draw the ZERO line
					If Abs(m.lnValue) < m.lnScale / 100 And m.lnMaxScale > 0 And m.lnMinScale < 0
						With _Screen.System.Drawing
		
							Local loZeroPen As xfcPen
							m.loZeroPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, This.ScaleLineZeroColor), 1)
		
							If m.ln3D = 0
								m.loGfx.DrawLine(m.loZeroPen, m.x1Scale, m.y0, m.x1Scale, m.y1Scale)
							Else
		* Following line moved; does not apply to case m.ln3D = 0
								m.y1Scale = m.y1Scale + 1
		
								Local laPolygon(4)
		
								m.laPolygon(1) = .Point.New(m.x1Scale, m.y0)
								m.laPolygon(2) = .Point.New(m.x1Scale, m.y1Scale)
								m.laPolygon(3) = .Point.New(m.x1Scale - m.ln3D, m.y1Scale + m.ln3D)
								m.laPolygon(4) = .Point.New(m.x1Scale - m.ln3D, m.y0 + m.ln3D)
		
								Local loZeroBrush As xfcSolidBrush
								m.loZeroBrush = .SolidBrush.New(.Color.FromARGB(64, This.ScaleLineZeroColor))
								m.loGfx.FillPolygon(m.loZeroBrush, @m.laPolygon)
								m.loGfx.DrawPolygon(m.loZeroPen, @m.laPolygon)
							Endif
		
						Endwith
					Endif
		
				Endif
		
			Endfor
		
		Endif
		
		Return 
	ENDPROC

	PROCEDURE _drawshape
		LPARAMETERS tnX, tnY, tnValue, tcObjType
		
		LOCAL x1, y1
		IF EMPTY(m.tcObjType)
			m.tcObjType = "Rect"
		ENDIF
		
		LOCAL luShape, lcType, lnIndex, lnTipPixels
		m.lnTipPixels = This._TipPixels
		m.lnIndex = This._ChartIndex
		
		
		* IF This.ChartType = 5 AND NOT EMPTY(This.LineCapsShape) && (VARTYPE(This.LineCapsShape) <> "L") && Line
		IF NOT EMPTY(This.LineCapsShape)
			m.luShape = This.LineCapsShape
		ELSE
			m.luShape = This.Fields(m.lnIndex).Shape
		ENDIF
		m.lcType  = VARTYPE(m.luShape)
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		LOCAL loObject as Object
		
		DO CASE
		
		CASE m.lcType = "N" OR m.lcType = "O" && Graphics path using predefined Shape
		
			LOCAL loPath as xfcGraphicsPath
			LOCAL lnWidth, lnHeight
			m.lnWidth = 0
			m.lnHeight = 0
		
			IF VARTYPE(This._aShapes(m.lnIndex, 1)) = "O"
				m.loPath    = This._aShapes(m.lnIndex, 1)
		
			ELSE
				IF m.lcType = "O"
					m.loPath = m.luShape.Clone()
					This._CenterPath(m.loPath, .T., @m.lnWidth, @m.lnHeight)
		
				ELSE
					m.loPath = This._GetShapePath(m.luShape)
					This._CenterPath(m.loPath, .T., @m.lnWidth, @m.lnHeight)
				ENDIF
		
			ENDIF
		
		
		
		*!*		loRect = loPath.GetBounds()
		*!*		lnWidth = loRect.Width
		*!*		lnHeight = loRect.Height
		
		*!*	SET STEP ON 
		
		*!*				* Replacement for the GetBounds function
		*!*				#DEFINE EMPTY_FLOAT			0h00000000
		*!*				#DEFINE EMPTY_LONG			0h00000000
		*!*				#DEFINE EMPTY_SHORT			0h0000
		*!*				#DEFINE EMPTY_RECTANGLE		EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
		*!*				#DEFINE EMPTY_RECTANGLEF	EMPTY_FLOAT+EMPTY_FLOAT+EMPTY_FLOAT+EMPTY_FLOAT
		
		*!*				LOCAL lqRect, x, y, w, h
		*!*				lqRect = REPLICATE(CHR(0),16)
		*!*	*			lqRect = EMPTY_RECTANGLEF
		*!*				DECLARE Long GdipGetPathWorldBounds IN GDIPLUS.DLL AS ;
		*!*					xfcGdipGetPathWorldBounds2 Long path, String @bounds, Long matrix, Long pen
		*!*				=xfcGdipGetPathWorldBounds2(loPath.Handle, @lqRect, 0, 0)
		*!*				*!*	This.SetStatus(xfcGdipGetPathWorldBoundsI(This.Handle, @lcBounds, m.lhMatrix, m.lhPen))
		
		*!*				*X = CTOBIN(SUBSTR(lqRect,1,4),"4rs")
		*!*				*Y = CTOBIN(SUBSTR(lqRect,5,4),"4rs")
		*!*				W = CTOBIN(SUBSTR(lqRect,9,4),"4rs")
		*!*				H = CTOBIN(SUBSTR(lqRect,13,4),"4rs")
		
		*!*				* loRect = _Screen.System.Drawing.RectangleF.New(x,y,w,h)
		*!*				lnWidth  = W
		*!*				lnHeight = H
		
		
			LOCAL lnColor
			IF This.BrushType = 3 && Monochrome
				m.lnColor = 0
			ELSE
				m.lnColor = This.aColors(m.lnIndex)
			ENDIF
		
		
		
			LOCAL loBrush as xfcSolidBrush
			m.loBrush = _Screen.System.Drawing.SolidBrush.New(_Screen.System.Drawing.Color.FromRGB(m.lnColor))
		
			LOCAL loAdjPath as xfcGraphicsPath
			LOCAL loMatrix as xfcMatrix
		
			m.loAdjPath = m.loPath.Clone()
			m.loMatrix = _Screen.System.Drawing.Drawing2D.Matrix.New()
			m.loMatrix.Translate(m.tnX, m.tnY)
			m.loAdjPath.Transform(m.loMatrix)
			m.loGfx.FillPath(m.loBrush, m.loAdjPath)
		
		
			m.x1 = m.tnX - (m.lnWidth  / 2)
			m.y1 = m.tnY - (m.lnHeight / 2)
		
			m.loObject = m.loPath
		
		
		CASE m.lcType = "C" && Image File
		
			LOCAL loBmp as xfcBitmap
			LOCAL lnWidth, lnHeight
		
			IF VARTYPE(This._aShapes(m.lnIndex, 1)) = "O"
				m.loBmp    = This._aShapes(m.lnIndex, 1)
				m.lnWidth  = This._aShapes(m.lnIndex, 2)
				m.lnHeight = This._aShapes(m.lnIndex, 3)
			ELSE
				m.loBmp = _Screen.System.Drawing.Bitmap.FromVarbinary(FILETOSTR(m.luShape))
				m.lnWidth  = m.loBmp.Width
				m.lnHeight = m.loBmp.Height
			ENDIF
		
			m.x1 = m.tnX - (m.lnWidth /2)
			m.y1 = m.tnY - (m.lnHeight /2)
		
			m.loGfx.DrawImage(m.loBmp, m.x1, m.y1)
		
			m.loObject = m.loBmp
		
		OTHERWISE
		
		ENDCASE
		
		
		*!*	This._UpdateCoordinates(tcObjType, x1, y1, ;
		*!*		MAX(lnTipPixels, m.lnWidth), MAX(lnTipPixels, lnHeight), tnValue)
		
		* Fix by Anal Roy Chowdhurry
		IF NOT (This.LineCaps = .T. AND INLIST(This.ChartType, 5, 18))
			This._UpdateCoordinates(m.tcObjType, m.x1, m.y1, ;
				m.lnWidth, m.lnHeight, m.tnValue)
		ENDIF 
		* End of Revision new checking
		
		
		This._aShapes(m.lnIndex, 1) = m.loObject
		This._aShapes(m.lnIndex, 2) = m.lnWidth
		This._aShapes(m.lnIndex, 3) = m.lnHeight
		
		RETURN  
	ENDPROC

	PROCEDURE _drawshapelegend
		LPARAMETERS tnX, tnY, tnIndex
		
		LOCAL lcExpr, luValue, lnValue
		m.lcExpr = This.ShapeLegendExpression
		
		This.CurrIndex = m.tnIndex
		m.lnValue		   = This.CurrValue
		
		IF (VARTYPE(m.lcExpr) = "C") AND (NOT EMPTY(m.lcExpr))
		*!*	Other available properties
		*!*		This.CurrValue
		*!*		This.CurrLegend
		*!*		This.CurrObjType
		*!*		This.CurrRecno
		*!*		This.CurrColumn
			m.luValue = EVALUATE(m.lcExpr)
		ELSE
		
			IF This._SumRow AND This.ShowPercentages
		* Show percentages as values
				DO CASE
					CASE EMPTY(This.ShapeLegend.Format) AND EMPTY(This.ShapeLegendExpression)
						This.ShapeLegend._ForceFormat = ;
						This._GetFieldType(This.SourceAlias, EVALUATE("This.Fields(This.ChartRow).FieldValue"), .T.) + "%"
					CASE NOT "%" $ This.ShapeLegend.Format
						This.ShapeLegend._ForceFormat = This.ShapeLegend.Format + "%"
				ENDCASE
				m.luValue = ROUND(m.lnValue / This.aCoord(m.tnIndex, 12) * 100, 0)
			ELSE
				m.luValue = m.lnValue
			ENDIF
		
		ENDIF
		
		
		This.ShapeLegend._Value = m.luValue
		
		* Measure the legend height
		IF INLIST(This.ChartType, 10, 16) && Stacked area
			m.tnY = m.tnY - (This.ShapeLegend._Height / 2) && Draw in center
		ELSE
			m.tnY = m.tnY - (This.ShapeLegend._Height) && Draw above
		ENDIF
		This.ShapeLegend._DrawString(m.tnX, m.tnY)
		
		RETURN 
	ENDPROC

	PROCEDURE _drawsidelegends
		*!*	Property LegendPosition
		*!*	Numeric, 
		*!*	Determines the position where the side legend wiil be drawn in the canvas.
		*1*  0 - No Legend
		*!*	 1 - Vertical Top Left
		*!*	 2 - Vertical Bottom Left
		*!*	 3 - Vertical Top Right
		*!*	 4 - Vertical Bottom Right
		*!*	 5 - Horiz Top Left
		*!*	 6 - Horiz Top Center
		*!*	 7 - Horiz Top Right
		*!*	 8 - Horiz Bottom Left
		*!*	 9 - Horiz Bottom Center
		*!*	10 - Horiz Bottom Right
		*!*	11 - Vertical Center Left
		*!*	12 - Vertical Center Right
		
		LOCAL lnPosition, lnOrigAlignment
		m.lnPosition = This.LegendPosition
		
		IF NOT This.ShowSideLegend OR m.lnPosition = 0
			RETURN
		ENDIF
		
		
		* Force left alignment for the side legend - this value will be restored at the end of this method
		m.lnOrigAlignment			  = This.SideLegend.Alignment
		This.SideLegend.Alignment = 0 && Left
		
		
		
		This._InLegend = .T.
		
		LOCAL lnLegendHeight, i, lnExternalMargin, lnCount, lnTopMargin, lnVertHeight
		LOCAL x1, y1, lnAvailableHeight, lnNeededHeight, lnMargin, lnWidth, lnHeight, llHorizontal
		
		m.llHorizontal	 = INLIST(m.lnPosition, 5, 6, 7, 8, 9, 10) && Horizontal Top or Bottom
		m.lnLegendHeight	 = This.SideLegend._Height
		m.lnExternalMargin = This._LegendExternalMargin
		m.lnCount			 = ALEN(This._aSideLegends, 1)
		m.lnTopMargin		 = This.MarginTop + This.Margin + This._TitleHeight
		
		* Check if we have enough space for legends
		m.lnAvailableHeight = This.ChartCanvas.Height - m.lnTopMargin - This.Margin
		m.lnNeededHeight	  = (m.lnCount * m.lnLegendHeight) + (This.Margin * m.lnCount - 1)
		
		IF m.lnNeededHeight > m.lnAvailableHeight
		* Recalculate the Margin
			m.lnMargin = (m.lnAvailableHeight - (m.lnCount * m.lnLegendHeight)) / m.lnCount
		ELSE
			m.lnMargin = 3
		ENDIF
		
		STORE m.lnLegendHeight TO m.lnWidth, m.lnHeight
		m.lnLegendHeight = m.lnLegendHeight + MIN(m.lnMargin, m.lnLegendHeight / 2)
		m.lnVertHeight   = m.lnCount * m.lnLegendHeight
		
		DO CASE
			CASE m.lnPosition = 1 && Vertical Top Left Side
				m.x1 = This.Margin + This.MarginLeft + m.lnExternalMargin
				m.y1 = m.lnTopMargin
		
			CASE m.lnPosition = 2 && Vertical Bottom Left Side
				m.x1 = This.Margin + This.MarginLeft + m.lnExternalMargin
				m.y1 = This.ChartCanvas.Height - This.MarginBottom - This.Margin - m.lnVertHeight
		
			CASE m.lnPosition = 11 && Vertical Center Left Side
				m.x1 = This.Margin + This.MarginLeft + m.lnExternalMargin
				m.y1 = (This.ChartCanvas.Height - This.MarginBottom - m.lnTopMargin - m.lnVertHeight) / 2 + m.lnTopMargin
		
		
		
			CASE m.lnPosition = 3 && Vertical Top Right Side (Default)
				m.x1 = This.ChartCanvas.Width - This._RightOffset + m.lnExternalMargin + This._Axis2ScaleWidth
				m.y1 = m.lnTopMargin
		
			CASE m.lnPosition = 4 && Vertical Bottom Right Side (Default)
				m.x1 = This.ChartCanvas.Width - This._RightOffset + m.lnExternalMargin + This._Axis2ScaleWidth
				m.y1 = This.ChartCanvas.Height - This.MarginBottom - This.Margin - m.lnVertHeight
		
			CASE m.lnPosition = 12 && Vertical Center Right Side
				m.x1 = This.ChartCanvas.Width - This._RightOffset + m.lnExternalMargin + This._Axis2ScaleWidth
				m.y1 = (This.ChartCanvas.Height - This.MarginBottom - m.lnTopMargin - m.lnVertHeight) / 2 + m.lnTopMargin
		
		
		
			CASE m.llHorizontal && Horizontal Top or Bottom
		
				* Calculate the whole legends width in order to obtain the starting point
				LOCAL lnLength, lnStart
				m.lnLength = 0
				m.lnStart	 = 0
		
				* Obtain the needed width for the whole horizontal legend
				FOR m.i = 1 TO m.lnCount
					This.SideLegend.Caption	= This._aSideLegends(m.i, 1)
					m.lnLength				= m.lnLength + m.lnWidth + 10 + This.SideLegend._Width
				ENDFOR
		
		
				DO CASE
					CASE INLIST(m.lnPosition, 5, 8) && Left aligned
						&& do nothing
		
					CASE INLIST(m.lnPosition, 6, 9) && Center
						m.lnStart = This._LeftOffset + (This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - m.lnLength) / 2
		
					CASE INLIST(m.lnPosition, 7, 10) && Right
						m.lnStart = This.ChartCanvas.Width - This._RightOffset - m.lnLength
		
				ENDCASE
		
				m.x1 = This._LeftOffset + m.lnStart
		
				IF INLIST(m.lnPosition, 5, 6, 7) && Horizontal Top
					m.y1 = m.lnTopMargin + m.lnExternalMargin
				ELSE && Horizontal Bottom
					m.y1 = This.ChartCanvas.Height - This._LegendHeight - This.Margin - This.MarginBottom + This._LegendExternalMargin
				ENDIF
		
			OTHERWISE
		ENDCASE
		
		
		LOCAL lcCaption, lnOrigIndex
		LOCAL loLinePen as xfcPen
		
		* Save the current _CharIndex 
		m.lnOrigIndex = This._ChartIndex
		
		FOR m.i = 1 TO m.lnCount
		
			IF m.y1 <= 0
				EXIT
			ENDIF
		
			This._ChartIndex = m.i
		
			m.lcCaption = This._aSideLegends(m.i, 1)
			IF EMPTY(m.lcCaption)
				LOOP
			ENDIF
		
			This.SideLegend.Caption = m.lcCaption
			This.SideLegend._DrawString(m.x1 + m.lnWidth + 3, m.y1)
		
			This._UpdateCoordinates("Legend", m.x1, m.y1, m.lnWidth + This.SideLegend._Width + 5, m.lnLegendHeight, m.i, m.lcCaption)
		
			DO CASE
				CASE INLIST(This.ChartType, 5, 18) ;
					AND This._3D = 0 ;
					AND This.BrushType = 3 ; && Line, Plain, Monochrome
					and not This.Multichart
					m.loLinePen			= _Screen.System.Drawing.Pen.New(This._oClrBlack, 3)
					m.loLinePen.DashStyle	= m.i - 1 && _Screen.System.Drawing.Drawing2D.DashStyle.Dash
					This.oGfx.DrawLine(m.loLinePen, m.x1, m.y1 + m.lnHeight / 2, m.x1 + m.lnWidth, m.y1 + m.lnHeight / 2)
		
				CASE (This.ChartType = 4 ; && Point
					  or (INLIST(This.ChartType, 5, 18) and This._3D = 0 and This.LineCaps = .T.)) ; && Plain line
					and not This.Multichart
					LOCAL loPath as xfcGraphicsPath
					m.loPath = This._aShapes(m.i, 1)
		
					IF VARTYPE(m.loPath) <> "O"
						RETURN
					ENDIF
		
					IF INLIST(LOWER(m.loPath.Class), "xfcbitmap", "xfcimage")
						This.oGfx.DrawImage(m.loPath, m.x1, m.y1, m.lnWidth, m.lnHeight)
					ELSE
		
						This._DrawShape(m.x1 + m.lnWidth / 2, m.y1 + m.lnHeight / 2, 0, "Legend")
						IF This._aShapes(m.i, 3) > m.lnLegendHeight
							m.lnLegendHeight = This._aShapes(m.i, 3) + 1
		*					y1 = y1 + This._aShapes(i,3) + 3
						ENDIF
					ENDIF
		
				OTHERWISE
		
					This._PrepareBrushes(m.x1, m.y1, m.lnWidth, m.lnHeight, .T., m.i)
					THIS.oGfx.FillRectangle(This._oMainBrush, m.x1, m.y1, m.lnWidth, m.lnHeight)
					THIS.oGfx.DrawRectangle(This._oBorderPen, m.x1, m.y1, m.lnWidth, m.lnHeight)
		
			ENDCASE
		
			IF m.llHorizontal && Horizontal side legends
				m.x1 = m.x1 + m.lnWidth + 10 + This.SideLegend._Width
			ELSE
				m.y1 = m.y1 + m.lnLegendHeight
			ENDIF
		
		ENDFOR
		
		* Restore the current _CharIndex 
		This._ChartIndex = m.lnOrigIndex
		
		This.SideLegend.Top	   = m.lnTopMargin
		This.SideLegend.Left   = m.x1
		This.SideLegend.Width  = This._LegendWidth
		This.SideLegend.Height = MAX(0, m.y1 - m.lnTopMargin)
		
		This._InLegend = .F.
		
		
		* Restore the alignment value to the original
		This.SideLegend.Alignment = m.lnOrigAlignment
		
		RETURN
		
		*!*	Property LegendPosition
		*!*	Numeric, 
		*!*	Determines the position where the side legend wiil be drawn in the canvas.
		*1*  0 - No Legend
		*!*	 1 - Vertical Top Left
		*!*	 2 - Vertical Bottom Left
		*!*	 3 - Vertical Top Right
		*!*	 4 - Vertical Bottom Right
		*!*	 5 - Horiz Top Left
		*!*	 6 - Horiz Top Center
		*!*	 7 - Horiz Top Right
		*!*	 8 - Horiz Bottom Left
		*!*	 9 - Horiz Bottom Center
		*!*	10 - Horiz Bottom Right
		*!*	11 - Vertical Center Left
		*!*	12 - Vertical Center Right
		
		LOCAL lnPosition, lnOrigAlignment
		m.lnPosition = This.LegendPosition
		
		IF NOT This.ShowSideLegend OR m.lnPosition = 0
			RETURN
		ENDIF
		
		
		* Force left alignment for the side legend - this value will be restored at the end of this method
		m.lnOrigAlignment			  = This.SideLegend.Alignment
		This.SideLegend.Alignment = 0 && Left
		
		
		
		This._InLegend = .T.
		
		LOCAL lnLegendHeight, i, lnExternalMargin, lnCount, lnTopMargin, lnVertHeight
		LOCAL x1, y1, lnAvailableHeight, lnNeededHeight, lnMargin, lnWidth, lnHeight, llHorizontal
		
		m.llHorizontal	 = INLIST(m.lnPosition, 5, 6, 7, 8, 9, 10) && Horizontal Top or Bottom
		m.lnLegendHeight	 = This.SideLegend._Height
		m.lnExternalMargin = This._LegendExternalMargin
		m.lnCount			 = ALEN(This._aSideLegends, 1)
		m.lnTopMargin		 = This.MarginTop + This.Margin + This._TitleHeight
		
		* Check if we have enough space for legends
		m.lnAvailableHeight = This.ChartCanvas.Height - m.lnTopMargin - This.Margin
		m.lnNeededHeight	  = (m.lnCount * m.lnLegendHeight) + (This.Margin * m.lnCount - 1)
		
		IF m.lnNeededHeight > m.lnAvailableHeight
		* Recalculate the Margin
			m.lnMargin = (m.lnAvailableHeight - (m.lnCount * m.lnLegendHeight)) / m.lnCount
		ELSE
			m.lnMargin = 3
		ENDIF
		
		STORE m.lnLegendHeight TO m.lnWidth, m.lnHeight
		m.lnLegendHeight = m.lnLegendHeight + MIN(m.lnMargin, m.lnLegendHeight / 2)
		m.lnVertHeight   = m.lnCount * m.lnLegendHeight
		
		DO CASE
			CASE m.lnPosition = 1 && Vertical Top Left Side
				m.x1 = This.Margin + This.MarginLeft + m.lnExternalMargin
				m.y1 = m.lnTopMargin
		
			CASE m.lnPosition = 2 && Vertical Bottom Left Side
				m.x1 = This.Margin + This.MarginLeft + m.lnExternalMargin
				m.y1 = This.ChartCanvas.Height - This.MarginBottom - This.Margin - m.lnVertHeight
		
			CASE m.lnPosition = 11 && Vertical Center Left Side
				m.x1 = This.Margin + This.MarginLeft + m.lnExternalMargin
				m.y1 = (This.ChartCanvas.Height - This.MarginBottom - m.lnTopMargin - m.lnVertHeight) / 2 + m.lnTopMargin
		
		
		
			CASE m.lnPosition = 3 && Vertical Top Right Side (Default)
				m.x1 = This.ChartCanvas.Width - This._RightOffset + m.lnExternalMargin + This._Axis2ScaleWidth
				m.y1 = m.lnTopMargin
		
			CASE m.lnPosition = 4 && Vertical Bottom Right Side (Default)
				m.x1 = This.ChartCanvas.Width - This._RightOffset + m.lnExternalMargin + This._Axis2ScaleWidth
				m.y1 = This.ChartCanvas.Height - This.MarginBottom - This.Margin - m.lnVertHeight
		
			CASE m.lnPosition = 12 && Vertical Center Right Side
				m.x1 = This.ChartCanvas.Width - This._RightOffset + m.lnExternalMargin + This._Axis2ScaleWidth
				m.y1 = (This.ChartCanvas.Height - This.MarginBottom - m.lnTopMargin - m.lnVertHeight) / 2 + m.lnTopMargin
		
		
		
			CASE m.llHorizontal && Horizontal Top or Bottom
		
		* Calculate the whole legends width in order to obtain the starting point
				LOCAL lnLength, lnStart
				m.lnLength = 0
				m.lnStart	 = 0
		
		* Obtain the needed width for the whole horizontal legend
				FOR m.i = 1 TO m.lnCount
					This.SideLegend.Caption	= This._aSideLegends(m.i, 1)
					m.lnLength				= m.lnLength + m.lnWidth + 10 + This.SideLegend._Width
				ENDFOR
		
		
				DO CASE
					CASE INLIST(m.lnPosition, 5, 8) && Left aligned
		&& do nothing
		
					CASE INLIST(m.lnPosition, 6, 9) && Center
						m.lnStart = This._LeftOffset + (This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - m.lnLength) / 2
		
					CASE INLIST(m.lnPosition, 7, 10) && Right
						m.lnStart = This.ChartCanvas.Width - This._RightOffset - m.lnLength
		
				ENDCASE
		
				m.x1 = This._LeftOffset + m.lnStart
		
				IF INLIST(m.lnPosition, 5, 6, 7) && Horizontal Top
					m.y1 = m.lnTopMargin + m.lnExternalMargin
				ELSE && Horizontal Bottom
					m.y1 = This.ChartCanvas.Height - This._LegendHeight - This.Margin - This.MarginBottom + This._LegendExternalMargin
				ENDIF
		
			OTHERWISE
		ENDCASE
		
		
		LOCAL lcCaption, lnOrigIndex
		LOCAL loLinePen as xfcPen
		
		* Save the current _CharIndex 
		m.lnOrigIndex = This._ChartIndex
		
		FOR m.i = 1 TO m.lnCount
		
			IF m.y1 <= 0
				EXIT
			ENDIF
		
			This._ChartIndex = m.i
		
			m.lcCaption = This._aSideLegends(m.i, 1)
			IF EMPTY(m.lcCaption)
				LOOP
			ENDIF
		
			This.SideLegend.Caption = m.lcCaption
			This.SideLegend._DrawString(m.x1 + m.lnWidth + 3, m.y1)
		
			This._UpdateCoordinates("Legend", m.x1, m.y1, m.lnWidth + This.SideLegend._Width + 5, m.lnLegendHeight, m.i, m.lcCaption)
		
			DO CASE
				CASE INLIST(This.ChartType, 5, 18) ;
					AND This._3D = 0 ;
					AND This.BrushType = 3 ; && Line, Plain, Monochrome
					and not This.Multichart
					m.loLinePen			= _Screen.System.Drawing.Pen.New(This._oClrBlack, 3)
					m.loLinePen.DashStyle	= m.i - 1 && _Screen.System.Drawing.Drawing2D.DashStyle.Dash
					This.oGfx.DrawLine(m.loLinePen, m.x1, m.y1 + m.lnHeight / 2, m.x1 + m.lnWidth, m.y1 + m.lnHeight / 2)
		
				CASE (This.ChartType = 4 ; && Point
					  or (INLIST(This.ChartType, 5, 18) and This._3D = 0 and This.LineCaps = .T.)) ; && Plain line
					and not This.Multichart
					LOCAL loPath as xfcGraphicsPath
					m.loPath = This._aShapes(m.i, 1)
		
					IF VARTYPE(m.loPath) <> "O"
						RETURN
					ENDIF
		
					IF INLIST(LOWER(m.loPath.Class), "xfcbitmap", "xfcimage")
						This.oGfx.DrawImage(m.loPath, m.x1, m.y1, m.lnWidth, m.lnHeight)
					ELSE
		
						This._DrawShape(m.x1 + m.lnWidth / 2, m.y1 + m.lnHeight / 2, 0, "Legend")
						IF This._aShapes(m.i, 3) > m.lnLegendHeight
							m.lnLegendHeight = This._aShapes(m.i, 3) + 1
		*					y1 = y1 + This._aShapes(i,3) + 3
						ENDIF
					ENDIF
		
				OTHERWISE
		
					This._PrepareBrushes(m.x1, m.y1, m.lnWidth, m.lnHeight, .T., m.i)
					THIS.oGfx.FillRectangle(This._oMainBrush, m.x1, m.y1, m.lnWidth, m.lnHeight)
					THIS.oGfx.DrawRectangle(This._oBorderPen, m.x1, m.y1, m.lnWidth, m.lnHeight)
		
			ENDCASE
		
			IF m.llHorizontal && Horizontal side legends
				m.x1 = m.x1 + m.lnWidth + 10 + This.SideLegend._Width
			ELSE
				m.y1 = m.y1 + m.lnLegendHeight
			ENDIF
		
		ENDFOR
		
		* Restore the current _CharIndex 
		This._ChartIndex = m.lnOrigIndex
		
		This.SideLegend.Top	   = m.lnTopMargin
		This.SideLegend.Left   = m.x1
		This.SideLegend.Width  = This._LegendWidth
		This.SideLegend.Height = MAX(0, m.y1 - m.lnTopMargin)
		
		This._InLegend = .F.
		
		
		* Restore the alignment value to the original
		This.SideLegend.Alignment = m.lnOrigAlignment
		
		RETURN  
	ENDPROC

	PROCEDURE _drawslice
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep, tnValue
		
		LOCAL llAdjLeft as Boolean, ;
			llAdjRight as Boolean, h, w
		
		IF m.tnWidth <=0 OR m.tnHeight <=0
			RETURN
		ENDIF 
		
		This._AdjustStartSweep(@m.tnStart, @m.tnSweep, m.tnWidth, m.tnHeight)
		This._UpdateCoordinates("Pie", m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnValue, m.tnStart, m.tnSweep)
		
		
		LOCAL lnXBrush, lnYBrush
		IF This.PieEnhancedDrawing 
			m.lnXBrush = m.tnX
			m.lnYBrush = m.tnY	
		ELSE
			m.lnXBrush = 0
			m.lnYBrush = 0
		ENDIF 
		This._PrepareBrushes(m.lnXBrush, m.lnYBrush, m.tnWidth, m.tnHeight, .F., RECNO())
		
		
		LOCAL loPen as xfcPen
		m.loPen = This._oBorderPen
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		LOCAL loMainBrush as xfcBrush
		m.loMainBrush = This._oMainBrush
		
		LOCAL lo3dBrush as xfcBrush
		m.lo3dBrush = This._o3DBrush
		
		
		LOCAL lnFinalAngle
		m.lnFinalAngle = m.tnStart + m.tnSweep
		IF m.lnFinalAngle > 360
			m.lnFinalAngle = m.lnFinalAngle - 360
		ENDIF 
		
		LOCAL ln3D
		m.ln3D = This._3D
		
		WITH _Screen.System.Drawing
		
			IF This.PieEnhancedDrawing 
		
				* Draw the 3D Slice using the GraphicsPath class
				IF m.ln3D > 0 AND (This.Shadow = .F.)
		
					m.x = m.tnX
					m.y = m.tnY
					m.w = m.tnWidth
					m.h = m.tnHeight
		
		
					* Draw the bottom slice
					m.loGfx.FillPie(m.loMainBrush, m.x, m.y + m.ln3D, m.w, m.h, m.tnStart, m.tnSweep)
					m.loGfx.DrawPie(m.loPen, m.x, m.y, m.w, m.h, m.tnStart, m.tnSweep)
		
		
					* Get the start point
					LOCAL loPath as xfcGraphicsPath
					LOCAL loPoint1 as xfcPoint, loPoint2 as xfcPoint
					m.loPath = _Screen.System.Drawing.Drawing2D.GraPHICSPATH.New()
					m.loPath.AddPie(m.x,m.y,m.w,m.h, m.tnStart, 0.0001)
					m.loPoint1 = m.loPath.GetLastpoint()
		
					m.loPath.AddPie(m.x,m.y,m.w,m.h, m.tnStart, m.tnSweep)
					m.loPoint2 = m.loPath.GetLastpoint()
		
		
					* Draw side Polygon 1
					LOCAL laPointsA(4)
					LOCAL lnCenterX, lnCenterY
					m.lnCenterX = m.x + (m.w/2)
					m.lnCenterY = m.y + (m.h/2)
		
					m.laPointsA(1) = .Point.New(m.lnCenterX, m.lnCenterY)
					m.laPointsA(2) = .Point.New(m.lnCenterX, m.lnCenterY + m.ln3D)
					m.laPointsA(3) = .Point.New(m.loPoint1.x, m.loPoint1.Y + m.ln3D)
					m.laPointsA(4) = m.loPoint1
		
		
		
					* Draw side Polygon 2
					LOCAL laPointsB(4)
					m.laPointsB(1) = m.laPointsA(1)
					m.laPointsB(2) = m.laPointsA(2)
					m.laPointsB(3) = .Point.New(m.loPoint2.x, m.loPoint2.Y + m.ln3D)
					m.laPointsB(4) = m.loPoint2
		
		
					IF m.tnStart <= 90 OR m.tnStart > 270
						m.loGfx.DrawPolygon(m.loPen, @m.laPointsA)
						m.loGfx.FillPolygon(m.lo3dBrush, @m.laPointsA)
					ENDIF
		
		
					IF m.lnFinalAngle < 270 AND m.lnFinalAngle > 90
						m.loGfx.FillPolygon(m.lo3dBrush, @m.laPointsB)
						m.loGfx.DrawPolygon(m.loPen, @m.laPointsB)
					ENDIF
		
		
					* Draw the external 3d Face
					LOCAL loPath2 as xfcGraphicsPath
					m.loPath2 = _Screen.System.Drawing.Drawing2D.GraPHICSPATH.New()
					m.loPath2.FillMode = _Screen.System.Drawing.Drawing2D.FILLMODE.winding
		
		
					m.loPath2.StartFigure()
		
					LOCAL lnAdjStart, lnAdjSweep
					m.lnAdjStart = m.tnStart
					m.lnAdjSweep = m.tnSweep
		
		
					IF m.tnStart >= 270 AND ;
							m.tnStart < 360 AND ;
							BETWEEN(m.lnFinalAngle, 0, 270)
		
						m.llAdjRight = .T.
		
						* Create a new partial path for the 1st part
						LOCAL loPath3 as xfcGraphicsPath
						m.loPath3 = _Screen.System.Drawing.Drawing2D.GraPHICSPATH.New()
						m.loPath3.StartFigure()
		
		 
						m.loPath3.AddArc(m.x,m.y,m.w,m.h, m.tnStart, 360 - m.tnStart)
						m.loPath3.Reverse()
						m.loPath3.AddLine(m.loPoint1.x, m.loPoint1.Y, m.loPoint1.x, m.loPoint1.Y + m.ln3D)
						m.loPath3.AddArc(m.x,m.y + m.ln3D, m.w, m.h, m.tnStart, 360 - m.tnStart)
						m.loPath3.AddLine(m.tnX + m.tnWidth, m.lnCenterY + m.ln3D, m.tnX + m.tnWidth, m.lnCenterY)
						m.loGfx.FillPath(m.lo3dBrush, m.loPath3)
						m.loGfx.DrawPath(m.loPen, m.loPath3)
		
						m.loPoint1 = .Point.New(m.tnX + m.tnWidth, m.lnCenterY)
						m.lnAdjStart = 0
						
						m.lnAdjSweep = m.tnSweep - (360 - m.tnStart)
					ENDIF 
		
		
		
					IF (m.tnStart < 180 AND m.lnFinalAngle > 180) OR ;
						(m.tnStart >= 270 AND m.lnFinalAngle > 180 AND m.lnFinalAngle < 270.01)
		
		
		*			IF (m.tnStart < 180 AND lnFinalAngle > 180) OR ;
						(m.tnStart >= 270 AND lnFinalAngle > 180 AND lnFinalAngle < 269.9999)
		
						m.llAdjLeft = .T.
		
						* Create a new partial path for the 1st part
						LOCAL loPath4 as xfcGraphicsPath
						m.loPath4 = _Screen.System.Drawing.Drawing2D.GraphicsPath.New()
						m.loPath4.StartFigure()
						
						IF m.tnStart >= 270
							m.lnAdjStart = 0
							m.lnAdjSweep = 180
						ELSE
							m.lnAdjStart = m.tnStart
							m.lnAdjSweep = 180 - m.tnStart
						ENDIF 
		
		
						m.loPath4.AddArc(m.x,m.y,m.w,m.h, m.lnAdjStart, m.lnAdjSweep)
		
						
						m.loPath4.Reverse()
						m.loPath4.AddLine(m.loPoint1.x, m.loPoint1.Y, m.loPoint1.x, m.loPoint1.Y + m.ln3D)
		
						m.loPath4.AddArc(m.x,m.y + m.ln3D, m.w, m.h, m.lnAdjStart, m.lnAdjSweep)
						m.loPath4.AddLine(m.tnX, m.lnCenterY + m.ln3D, m.tnX, m.lnCenterY)
		
						m.loGfx.FillPath(m.lo3DBrush, m.loPath4)
						m.loGfx.DrawPath(m.loPen, m.loPath4)
		
						m.loPoint1 = .Point.New(m.tnX, m.lnCenterY)
						
						m.lnAdjStart = 180
						m.lnAdjSweep = m.lnFinalAngle - 180
						
		
					ENDIF 
		
		
		
		
					m.loPath2.AddArc(m.x,m.y,m.w,m.h, m.lnAdjStart, m.lnAdjSweep)
					m.loPath2.Reverse()
					m.loPath2.AddLine(m.loPoint1.x, m.loPoint1.Y, m.loPoint1.x, m.loPoint1.Y + m.ln3D)
					m.loPath2.AddArc(m.x,m.y + m.ln3D, m.w, m.h, m.lnAdjStart, m.lnAdjSweep)
					m.loPath2.AddLine(m.loPoint2.x, m.loPoint2.Y + m.ln3D, m.loPoint2.x, m.loPoint2.Y)
					m.loGfx.FillPath(m.lo3dBrush, m.loPath2)
					m.loGfx.DrawPath(m.loPen, m.loPath2)
		
		
					IF m.tnStart > 90 AND m.tnStart < 270
						m.loGfx.DrawPolygon(m.loPen, @m.laPointsA)
						m.loGfx.FillPolygon(m.lo3dBrush, @m.laPointsA)
					ENDIF
		
					IF m.lnFinalAngle > 270 OR m.lnFinalAngle <= 90
						m.loGfx.FillPolygon(m.lo3dBrush, @m.laPointsB)
						m.loGfx.DrawPolygon(m.loPen, @m.laPointsB)
					ENDIF
		
					* Draw the top slice
					m.loGfx.FillPie(m.loMainBrush, m.x, m.y, m.w, m.h, m.tnStart, m.tnSweep)
					m.loGfx.DrawPie(m.loPen, m.x, m.y, m.w, m.h, m.tnStart, m.tnSweep)
		
				ELSE
		
					* Draw shadow
					IF This.Shadow 
						LOCAL loShadowBrush as xfcSolidBrush
						m.loShadowBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel,128,128,128))
						m.loGfx.FillPie(m.loShadowBrush, m.tnX, m.tnY + m.ln3d, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
					ENDIF 
		
					* Draw the main slice
					m.loGfx.FillPie(m.loMainBrush, m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
					m.loGfx.DrawPie(m.loPen, m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
		
				ENDIF
		
		
		
		
		
		
			ELSE
			*** This is the old behavior for Pie slices
		
				LOCAL loBmp as xfcBitmap
				m.loBmp = poTempBmp
		
				LOCAL loTempGfx as xfcGraphics
				m.loTempGfx = .Graphics.FromImage(m.loBmp)
				m.loTempGfx.Clear(.Color.Transparent)
				m.loTempGfx.SmoothingMode = .Drawing2D.SmoothingMode.AntiAlias
		
		
				* Draw the 3D Slice using the Hatch Brush
				IF m.ln3D > 0
		
					LOCAL y1, n
					m.y1 = m.ln3D
		
					* Draw the contour of the 3D Slice
					m.loTempGfx.FillPie(m.loMainBrush, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
					m.loTempGfx.DrawPie(m.loPen, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
		
		
					FOR m.n = 1 TO m.ln3D
						m.y1 = m.y1 - 1
						* Draw the Normal Slice using the Solid Brush
						m.loTempGfx.FillPie(m.lo3dBrush, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) && draw the slice
						IF m.tnStart > 90
							m.loTempGfx.DrawArc(m.loPen, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart, 0.25)
						ENDIF
						m.loTempGfx.DrawArc(m.loPen, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart + m.tnSweep - .25, 0.35)
					ENDFOR
					m.loTempGfx.FillPie(m.loMainBrush, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep) && draw the slice
		
		
					* Draw border line from center of pie
					LOCAL x, y
					m.x = (m.tnWidth / 2)
					m.y = (m.tnHeight / 2) + m.y1
		
		
					IF m.tnStart > 90
						m.loTempGfx.DrawLine(m.loPen, m.x, m.Y, m.x, m.Y + m.ln3D)
					ENDIF
		
		
					m.loTempGfx.DrawPie(m.loPen, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
		
					m.loTempGfx.FillPie(m.loMainBrush, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
					m.loTempGfx.DrawPie(m.loPen, 0, m.y1, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
		
					* Draw the Image
					m.loBmp.ApplyColorMatrix(poClrMatrix)
					m.loGfx.DrawImage(m.loBmp, m.tnX, m.tnY)
		
				ELSE
		
					m.loGfx.FillPie(m.loMainBrush, m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
					m.loGfx.DrawPie(m.loPen, m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
		
				ENDIF
		
			ENDIF
		
		ENDWITH
		
		RETURN  
	ENDPROC

	PROCEDURE _drawsliceexternal
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep, toPoint1, toPoint2
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		LOCAL lo3DBrush as xfcSolidBrush
		m.lo3DBrush = This._o3dBrush 
		
		LOCAL loPen as xfcPen
		m.loPen = This._oBorderPen 
		
		LOCAL ln3D
		m.ln3D = This._3d 
		
		
		* Draw the external 3d Face
		LOCAL loPath as xfcGraphicsPath
		m.loPath = _Screen.System.Drawing.Drawing2D.GraphicsPath.New()
		m.loPath.StartFigure()
		
		m.loPath.AddArc(m.tnX, m.tnY, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
		m.loPath.Reverse()
					
		m.loPath.AddLine(m.toPoint1.x, m.toPoint1.Y, m.toPoint1.x, m.toPoint1.Y + m.ln3D)
		m.loPath.AddArc(m.tnX, m.tnY + m.ln3D, m.tnWidth, m.tnHeight, m.tnStart, m.tnSweep)
		m.loPath.AddLine(m.toPoint2.X, m.toPoint2.Y + m.ln3D, m.toPoint2.x, m.toPoint2.Y)
		
		m.loPath.CloseFigure()
		
		m.loGfx.FillPath(m.lo3dBrush, m.loPath)
		m.loGfx.DrawPath(m.loPen, m.loPath)  
	ENDPROC

	PROCEDURE _drawstackedareachart
		* Generates Stacked and Full-Stacked area Charts (ChartTypes  and 16)
		SELECT(This._DataCursor)
		
		LOCAL lnMargin, lnWidth, lnHeight, lnValue, lnRecs
		LOCAL lnBetween, n, i, lnMaxValue, lnPointHeight, ln3D, lnYBase, lnTipPixels, x1, y1
		LOCAL lnTipPixels
		
		LOCAL llMultiChart
		m.llMultiChart = .F.
		
		m.lnTipPixels = This._TipPixels
		m.lnMargin = This.Margin
		m.ln3D = This._3D
		m.lnRecs = This._nRecords
		
		* Calculate the maximum width of the chart
		m.lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - This._3d
		m.lnWidth = This.ChartCanvas.Width - This._YAxisWidth - This._LeftOffset - m.ln3D - This._RightOffset
		
		IF m.lnWidth < 10 OR m.lnHeight < 10 OR This._nRecords < 2
			RETURN
		ENDIF 
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		* Get the maximum value of the chart
		m.lnMaxValue = This._ScaleRange
		
		* Get the lower Y point
		m.lnYBase = This.ChartCanvas.Height - This._xAxisHeight
		
		* If MultiChart mode, the chart needs to start half a position further
		IF m.llMultiChart
			m.lnBetween = m.lnWidth / (m.lnRecs)
		ELSE
			m.lnBetween = m.lnWidth / (m.lnRecs - 1)
		ENDIF
		
		* Prepare array of points
		* All the main points will be defined here
		LOCAL laPointsX(lnRecs)
		LOCAL laPointsY(lnRecs, This.ChartsCount)
		LOCAL laPointsYAV(lnRecs, This.ChartsCount)
		
		LOCAL laPointsI(lnRecs, This.ChartsCount) && Points Index
		
		LOCAL lnPrevPoint
		
			LOCAL lnTotRow
			LOCAL laValues(This.ChartsCount)
		
		
		SCAN 
			m.n = RECNO()
			m.lnPrevPoint = 0
		
			m.x1 = This._YAxisWidth + (m.lnBetween * (m.n - 1)) + IIF(m.llMultiChart, (m.lnBetween / 2), 0) + This._LeftOffset  && lnMargin 
			m.laPointsX(m.n) = m.x1
		*	This._aPoints(n,1) = laPointsX(n)
			This._aPoints(m.n,1) = m.x1 + m.ln3D
			
		
				m.lnTotRow = 0
				* Get the total for the current row
				FOR m.i = 1 TO This.ChartsCount
					m.lnValue = This._GetValue(m.i)
					m.laValues(m.i) = m.lnValue
					m.lnTotRow = m.lnTotRow + m.lnValue
				ENDFOR 
		
		
			FOR m.i = 1 TO This.ChartsCount
		
				m.lnValue = m.laValues(m.i)
		
				This._ChartIndex = m.i
		
				IF This.ChartType = 16 && Full-stacked Area
					m.lnPointHeight = m.lnValue / m.lnTotRow * m.lnHeight
				ELSE
					m.lnPointHeight = m.lnValue / m.lnMaxValue * m.lnHeight
				ENDIF 
		
				m.y1 = m.lnYBase - (m.lnPointHeight + m.lnPrevPoint)
				m.laPointsY(m.n, m.i) = m.y1
				m.laPointsYAV(m.n, m.i) = m.lnYBase - (m.lnPointHeight / 2 + m.lnPrevPoint)
		
				m.lnPrevPoint = m.lnPointHeight + m.lnPrevPoint
		
				IF m.lnValue = 0
					This._UpdateCoordinates("Rect", 0, 0, 0, 0, m.lnValue, m.lnTotRow)
				ELSE
					This._UpdateCoordinates("Rect", m.X1 - m.lnTipPixels/2, m.Y1, m.lnTipPixels, m.lnPointHeight, m.lnValue, m.lnTotRow)
				ENDIF 
				m.laPointsI(m.n,m.i) = This._nIndex 
			ENDFOR
		
		ENDSCAN
		
		
		* Draw the vertical line only for the first line
		This._DrawVerticalLineBack()
		
		LOCAL laMainPolygon(lnRecs * 2)
		LOCAL laLinePolygon(4)
		LOCAL laSidePolygon(4)
		LOCAL lnCompl
		
		LOCAL loBrush as xfcBrush
		IF This.BrushType = 1
			m.loBrush = "This._o3dbrush"
		ELSE
			m.loBrush = "This._oMainBrush" 
		ENDIF 
		
		WITH _Screen.System.Drawing
		
			FOR m.i = 1 TO This.ChartsCount
		
				* Fill the main polygon
				FOR m.n = 1 TO m.lnRecs
					m.lnCompl = (m.lnRecs * 2) - m.n + 1
					m.laMainPolygon(m.n) = .Point.New(m.laPointsX(m.n), m.laPointsY(m.n, m.i))
		
					IF m.i = 1
						m.laMainPolygon(m.lnCompl) = .Point.New(m.laPointsX(m.n), m.lnYBase)
					ELSE
						m.laMainPolygon(m.lnCompl) = .Point.New(m.laPointsX(m.n), m.laPointsY(m.n, m.i-1))
					ENDIF
				ENDFOR
		
				This._PrepareBrushes(0,0,This.ChartCanvas.Width, This.ChartCanvas.Height, .F., m.i)
		
		
				m.loGfx.FillPolygon(This._oMainBrush, @m.laMainPolygon)
				m.loGfx.DrawPolygon(This._oBorderPen, @m.laMainPolygon)
		
		
				IF m.ln3D > 0
		
					* Draw the 3D line above the main polygon
					FOR m.n = 1 TO m.lnRecs - 1
		
						m.laLinePolygon(1) = m.laMainPolygon(m.n)
						m.laLinePolygon(2) = .Point.New(m.laMainPolygon(m.n).X + m.ln3D, m.laMainPolygon(m.n).Y - m.ln3D)
						m.laLinePolygon(3) = .Point.New(m.laMainPolygon(m.n+1).X + m.ln3D, m.laMainPolygon(m.n+1).Y - m.ln3D)
						m.laLinePolygon(4) = m.laMainPolygon(m.n+1)
		
						This._PrepareBrushes(m.laMainPolygon(m.n).X, m.laMainPolygon(m.n).Y - m.ln3D, ;
							m.laMainPolygon(m.n+1).X + m.ln3D - m.laMainPolygon(m.n).X, ;
							MAX(2,ABS(m.laMainPolygon(m.n).Y - m.laMainPolygon(m.n+1).Y)), .F., m.i)
							
		
		
						m.loGfx.FillPolygon(EVALUATE(m.loBrush), @m.laLinePolygon)
						m.loGfx.DrawPolygon(This._oBorderPen, @m.laLinePolygon)
					ENDFOR
		
					* Fill the right-most external side of the area
					* Draw the last 3D polygon, to fill the Area
					m.laSidePolygon(1) = m.laLinePolygon(3)
					m.laSidePolygon(2) = m.laLinePolygon(4)
					m.laSidePolygon(3) = m.laMainPolygon(m.lnRecs + 1)
					m.laSidePolygon(4) = .Point.New(m.laSidePolygon(3).X + m.ln3D, m.laSidePolygon(3).Y - m.ln3D)
		
					This._PrepareBrushes(m.laSidePolygon(2).X, m.laSidePolygon(1).Y, ;
						m.ln3D, 2, .F., m.i)
		
					m.loGfx.FillPolygon(EVALUATE(m.loBrush), @m.laSidePolygon)
					m.loGfx.DrawPolygon(This._oBorderPen, @m.laSidePolygon)
				ENDIF
		
			ENDFOR
		
		
			* Adjust _aPoints Array to show the information in the correct position
			FOR m.n = 1 TO m.lnRecs
				This._aPoints(m.n,1) = This._aPoints(m.n,1) - m.ln3D
			ENDFOR 
		
		
			IF This.ShowValuesOnShapes 
		
				LOCAL lnIndex
				FOR m.i = 1 TO This.ChartsCount
		
					IF This.Fields(m.i).ShowValuesOnShape
						*** Draw Legends above the points
						FOR m.n = 1 TO m.lnRecs
							m.x1 = m.laPointsX(m.n)
							m.y1 = m.laPointsYAV(m.n, m.i)
		
							m.lnIndex = m.laPointsI(m.n,m.i)
							This._DrawShapeLegend(m.x1, m.y1, m.lnIndex)
						ENDFOR
					ENDIF 
					
				ENDFOR 
			ENDIF 
		
			This._DrawXAxisLegend()
		
		ENDWITH  
	ENDPROC

	PROCEDURE _drawtrianglebar
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnValue
		
		Local loLeftBrush as Object, ;
			loRightBrush as Object
			
		This._PrepareBrushes(m.tnX, m.tnY, m.tnWidth, m.tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex))
		
		
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx
		
		
		LOCAL lnAlpha, lnOrigAlpha
		m.lnOrigAlpha = This.AlphaChannel 
		m.lnAlpha = MIN(255, (This.AlphaChannel * 1.25))
		This.AlphaChannel = m.lnAlpha
		
		LOCAL loTopBrush as xfcBrush
		LOCAL loBotBrush as xfcBrush
		
		WITH _Screen.System.Drawing
		
		
		LOCAL lnColor, ln3D
		LOCAL loPen as xfcPen
		m.lnColor = This.ChangeColor(This._nColor, + 60)
		m.ln3D = MAX(This._3d, 1)
		m.loPen = .Pen.New(.Color.FromRGB(m.lnColor))
		
		
		
		
		DO CASE 
		
		CASE This.BrushType = 1 && SolidColors
			m.loTopBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(This._nColor, - 20)))
			m.loBotBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This._nColor))
			m.loLeftBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(This._nColor, - 20)))
			m.loRightBrush = This._oMainBrush 
		
		CASE This.BrushType = 2 && Gradient
			m.loTopBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This._nColor))
			m.loBotBrush = m.loTopBrush
			m.loLeftBrush = m.loTopBrush
			m.loRightBrush = This._oMainBrush 
		
		OTHERWISE 
			This._PrepareBrushes(m.tnX, m.tnY, m.tnWidth, m.tnHeight, .F., IIF(This.SingleData, RECNO(),This._ChartIndex))
			m.loTopBrush = This._oMainBrush 
			m.loBotBrush = m.loTopBrush
			m.loLeftBrush = m.loTopBrush
			m.loRightBrush = This._oMainBrush 
			
		ENDCASE 
		
		
		This.AlphaChannel = m.lnOrigAlpha
		
		
		IF This._Orientation = 1 && Vertical
		
		
		LOCAL lnCenterX, x0, x1
		m.x0 = m.tnX + m.ln3D / 2
		
		m.x1 = m.x0 + m.tnWidth
		m.lnCenterX = m.x0 + (m.tnWidth / 2)
		
		
		* Prepare the top triangle
		LOCAL laTopPoints(3)
		m.laTopPoints(1) = .Point.New(m.lnCenterX, m.tnY)
		m.laTopPoints(2) = .Point.New(m.x0, m.tnY - m.ln3D)
		m.laTopPoints(3) = .Point.New(m.x1, m.tnY - m.ln3D)
		
		m.loGfx.DrawPolygon(m.loPen, @m.laTopPoints)
		m.loGfx.FillPolygon(m.loTopBrush, @m.laTopPoints)
		
		
		
		
		* Prepare the bottom triangle
		LOCAL yBott
		m.yBott = m.tnY + m.tnHeight
		
		LOCAL laBotPoints(3)
		m.laBotPoints(1) = .Point.New(m.lnCenterX, m.yBott)
		m.laBotPoints(2) = .Point.New(m.x0, m.yBott - m.ln3D)
		m.laBotPoints(3) = .Point.New(m.x1, m.yBott - m.ln3D)
		
		m.loGfx.DrawPolygon(m.loPen, @m.laBotPoints)
		m.loGfx.FillPolygon(m.loBotBrush, @m.laBotPoints)
		
		
		
		
		* Prepare the LEFT face of the 3d triangle (polygon)
		LOCAL laLeftPoints(4)
		m.laLeftPoints(1) = m.laTopPoints(1)
		m.laLeftPoints(2) = m.laTopPoints(2)
		m.laLeftPoints(3) = m.laBotPoints(2)
		m.laLeftPoints(4) = m.laBotPoints(1)
		
		m.loGfx.DrawPolygon(m.loPen, @m.laLeftPoints)
		m.loGfx.FillPolygon(m.loLeftBrush, @m.laLeftPoints)
		
		
		
		
		* Prepare the RIGHT face of the 3d triangle (polygon)
		LOCAL laRightPoints(4)
		m.laRightPoints(1) = m.laTopPoints(1)
		m.laRightPoints(2) = m.laTopPoints(3)
		m.laRightPoints(3) = m.laBotPoints(3)
		m.laRightPoints(4) = m.laBotPoints(1)
		
		m.loGfx.DrawPolygon(m.loPen, @m.laRightPoints)
		m.loGfx.FillPolygon(m.loRightBrush, @m.laRightPoints)
		
		
		
		
		ELSE  && Horizontal
		
		
		
		
		
		LOCAL lnCenterY, y0, y1, ln3D
			m.ln3D = MAX(This._3d, 1)
			m.x0 = m.tnX
			m.x1 = m.x0 + m.tnWidth
			m.lnCenterY = m.tnY + (m.tnHeight / 2)
		
		
			* Prepare the right (top) triangle
			LOCAL laRightPoints(3)
			m.laRightPoints(1) = .Point.New(m.X1, m.lnCenterY)
			m.laRightPoints(2) = .Point.New(m.X1 + m.ln3d, m.tnY)
			m.laRightPoints(3) = .Point.New(m.X1 + m.ln3d, m.tnY + m.tnHeight)
		
			m.loGfx.DrawPolygon(m.loPen, @m.laRightPoints)
			m.loGfx.FillPolygon(m.loTopBrush, @m.laRightPoints)
		
		
		
		
			* Prepare the Left triangle
			LOCAL laLeftPoints(3)
			m.laLeftPoints(1) = .Point.New(m.X0, m.lnCenterY)
			m.laLeftPoints(2) = .Point.New(m.X0 + m.ln3d, m.tnY)
			m.laLeftPoints(3) = .Point.New(m.X0 + m.ln3d, m.tnY + m.tnHeight)
		
			m.loGfx.DrawPolygon(m.loPen, @m.laLeftPoints)
			m.loGfx.FillPolygon(m.loBotBrush, @m.laLeftPoints)
		
		
		
		
			* Prepare the Top face of the 3d triangle (polygon)
			LOCAL laTopPoints(4)
			m.laTopPoints(1) = m.laLeftPoints(1)
			m.laTopPoints(2) = m.laLeftPoints(2)
			m.laTopPoints(3) = m.laRightPoints(2)
			m.laTopPoints(4) = m.laRightPoints(1)
		
			m.loGfx.DrawPolygon(m.loPen, @m.laTopPoints)
			m.loGfx.FillPolygon(m.loLeftBrush, @m.laTopPoints)
		
		
		
		
			* Prepare the BOTTOM face of the 3d triangle (polygon)
			LOCAL laBotPoints(4)
			m.laBotPoints(1) = m.laLeftPoints(1)
			m.laBotPoints(2) = m.laLeftPoints(3)
			m.laBotPoints(3) = m.laRightPoints(3)
			m.laBotPoints(4) = m.laRightPoints(1)
		
			m.loGfx.DrawPolygon(m.loPen, @m.laBotPoints)
			m.loGfx.FillPolygon(m.loRightBrush, @m.laBotPoints)
		
		
		
		ENDIF 
		
		
		
		* Draw the Values inside the shapes
		This._DrawLegendinBar(m.X0, m.tnY, m.tnWidth, m.tnHeight, m.tnValue)
		
		
		ENDWITH 
		
		RETURN
		  
	ENDPROC

	PROCEDURE _drawverticallineback
		IF This._Orientation = 2
			RETURN
		ENDIF
		
		LOCAL n, x0, x1, lnLineColor, lnRectColor, lnDashValue
		LOCAL loBackPen as xfcPen
		LOCAL loBackBrush as xfcSolidBrush
		LOCAL llDrawBack, llDrawLines
		LOCAL ln3D
		
		IF This._DeepChart && AND This._GeneralType = "Bar" && Point, Line, 3d Bars or Area
			m.ln3D = This._3D * This.ChartsCount
		ELSE
			m.ln3D = This._3D
		ENDIF
		
		
		
		m.llDrawBack = .T.
		m.llDrawLines = INLIST(This.ScaleBackLinesType, 2, 3) && Vertical, Both
		
		WITH _Screen.System.Drawing
		
			IF This.BrushType = 3 && Monochrome
				m.lnRectColor = RGB(255,255,255) && White
				m.lnLineColor = 0 && Black
			ELSE
				m.lnRectColor = This.ScaleBackColor
				m.lnLineColor = This.ScaleLineColor
			ENDIF
			m.loBackBrush = .SolidBrush.New(.Color.FromARGB(This.ScaleBackAlpha, m.lnRectColor))
			m.loBackPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, m.lnLineColor),This.ScaleBackLinesWidth - 1)
		ENDWITH
		
		
		m.lnDashValue = This.ScaleBackLinesDash
		IF m.lnDashValue > 0
			m.loBackPen.DashStyle = m.lnDashValue && _Screen.System.Drawing.Drawing2D.DashStyle.Dash
		ENDIF
		
		LOCAL lnLinesDistance, lnRecs
		m.lnRecs = This._nRecords
		
		IF m.lnRecs > 1
			m.lnLinesDistance = This._aPoints(2,1) - This._aPoints(1,1)
		ELSE
			m.lnLinesDistance = 0
		ENDIF
		
		
		IF m.llDrawBack OR m.llDrawLines
		
			FOR m.n = 1 TO m.lnRecs
				m.x0 = This._aPoints(m.n,1) + IIF(This._GeneralType = "Bar", m.ln3D, 0)
		
				IF m.llDrawBack AND (m.n < m.lnRecs)
					* Draw the rectangle bar on the back
					IF INLIST(This.ScaleBackBarsType, 2, 3) && Vertical, Both
						This.oGfx.FillRectangle(m.loBackBrush, m.x0, This._ChartY1, m.lnLinesDistance, This._ChartY0 - This._ChartY1)
					ENDIF
				ENDIF
		
				IF m.llDrawLines && Vertical, Both
					* Draw the diagonal line in the X axis
					IF m.ln3D > 0
						This.oGfx.DrawLine(m.loBackPen, m.x0, This._ChartY0, m.x0 - m.ln3D, This._ChartY0 + m.ln3D)
					ENDIF
					* Draw the vertical line on the back
					This.oGfx.DrawLine(m.loBackPen, m.x0, This._ChartY0, m.x0, This._ChartY1)
				ENDIF
				m.llDrawBack = NOT m.llDrawBack
			ENDFOR
		
		ENDIF  
	ENDPROC

	PROCEDURE _drawxaxislegend
		LPARAMETERS tn3D, tnDistance
		
		Local lnAdjust as Number
		IF EMPTY(This.FieldAxis2)
			RETURN
		ENDIF
		
		IF VARTYPE(m.tn3D) = "N"
			m.lnAdjust = m.tn3D
		ELSE
			m.lnAdjust = 0
		ENDIF 
		
		* Draw Legends on the X Axis
		LOCAL loSize as xfcSize
		LOCAL y0, x0, x1, y1, lcText, lnXPoint, lnXStart
		m.Y0 = ROUND(This.ChartCanvas.Height - This._XAxisHeight,0)
		m.y1 = m.y0 + 6
		
		This.AxisLegend2._Setup()
		
		m.lnXStart = This._aPoints(1,1)
		
		SCAN
		* Measure the legend width
			m.lcText = cAxis2
			This.AxisLegend2.Caption = m.lcText
		
			IF NOT EMPTY(m.tnDistance)
				m.X0 = m.lnXStart + ((RECNO() - 1) * m.tnDistance)
			ELSE 
				m.X0 = This._aPoints(RECNO(),1)
			ENDIF 
		
			IF VARTYPE(m.X0) <> "N"
				LOOP
			ENDIF
		
			* Draw the tic mark
			IF This.ShowAxis2Tics 
				This.oGfx.DrawLine(This._oBlackPen, m.x0 + m.lnAdjust, m.y0, m.x0 + m.lnAdjust, m.y0 + This.TicLength)
			ENDIF 
		
			m.x1 = m.X0 + m.lnAdjust
			
			This.AxisLegend2._DrawString(m.x1, m.y1)
		ENDSCAN  
	ENDPROC

	PROCEDURE _drawyaxis
		LPARAMETERS tn3D, tnMinLeft, tnYAxisHeight, toBrush, toPen, tnIndex
		
		LOCAL ln3d, lnMinLeft, lnYAxisHeight
		LOCAL loBrush AS xfcBrush, loPen AS xfcPen, loGfx AS xfcGraphics
		m.loBrush = m.toBrush
		m.loPen = m.toPen
		m.loGfx = THIS.oGfx
		m.lnMinLeft = m.tnMinLeft
		m.ln3d = m.tn3D
		m.lnYAxisHeight = m.tnYAxisHeight
		
		**************************************************************************************
		* DRAWING THE Y Axis
		
		LOCAL x0, x1, y0, y1
		m.y0 = ROUND(THIS.ChartCanvas.HEIGHT - THIS._XAxisHeight,0)
		m.y1 = ROUND(THIS._TopOffSet,0)
		
		IF m.y0 - m.y1 < m.ln3d
			RETURN
		ENDIF
		
		IF THIS.ShowAxis = .T.
			* Draw the main Y Axis caption
		
			IF tnIndex = 1
				IF EMPTY(THIS.YAxis.CAPTION)
					This._yAxisWidth	 = 0
				ELSE 
					LOCAL lnYaxisWidth
					m.lnYaxisWidth  = m.y0 - m.y1
					IF m.lnYaxisWidth < 5 OR m.lnYAxisHeight < 5
						RETURN
					ENDIF
					THIS._yAxisWidth = MAX(m.lnMinLeft, THIS.YAxis._Height + 3 + THIS._ScaleW)
			
					THIS.YAxis.ROTATION = 270
					THIS.YAxis._DrawString(THIS._LeftOffset, m.y1 + m.lnYaxisWidth, m.lnYaxisWidth, m.lnYAxisHeight)
				ENDIF 
			ENDIF  && tnIndex = 1
		
			IF tnIndex = 2
				IF EMPTY(THIS.YAxis2.CAPTION)
					This._yAxisWidth2	 = 0
				ELSE 
					LOCAL lnYaxisWidth2
					m.lnYaxisWidth2  = m.y0 - m.y1
					IF m.lnYaxisWidth2 < 5 OR m.lnYAxisHeight < 5
						RETURN
					ENDIF
		
					This.YAxis2.Reset()
					THIS._yAxisWidth2 = THIS.YAxis2._Height && + THIS._ScaleW
			
					THIS.YAxis2.ROTATION = 270
		
					* Draw the main Y Axis2 caption
					LOCAL lcYText2
					m.lcYText2 = This.YAxis2.Caption
					m.lnYaxisHeight = CEILING(This.YAxis2._Height)
		
					m.x0 = THIS.ChartCanvas.WIDTH - THIS._RightOffset - m.ln3d - m.lnYaxisHeight + This._ScaleW2 + 6
					THIS.YAxis2._DrawString(x0, m.y1 + m.lnYaxisWidth2, m.lnYaxisWidth2, m.lnYAxisHeight)
		
				ENDIF 
			ENDIF && tnIndex = 2
		
		
		
		
		
			LOCAL lnMaxValue
			m.lnMaxValue = THIS._ScaleRange
		
			WITH _SCREEN.SYSTEM.Drawing
				* Draw the Y Axis
				IF m.tnIndex = 2
					m.x0 = THIS.ChartCanvas.WIDTH - THIS._RightOffset - m.ln3d + 2 - THIS._yAxisWidth2
				ELSE
					m.x0 = THIS._yAxisWidth + THIS._LeftOffset
				ENDIF
		
		
				m.x1 = m.x0 + m.ln3d + THIS._ScaleW
		
				IF m.ln3d = 0
					m.loGfx.DrawLine(m.loPen, m.x0 - 1, m.y0, m.x0 - 1, m.y1)
				ELSE
					LOCAL laPoints(4)
					m.laPoints(1) = .POINT.New(m.x0, m.y0)
					m.laPoints(2) = .POINT.New(m.x0, THIS._TopOffSet + m.ln3d)
					m.laPoints(3) = .POINT.New(m.x0 + m.ln3d, THIS._TopOffSet)
					m.laPoints(4) = .POINT.New(m.x0 + m.ln3d, m.y0 - m.ln3d)
		
					m.loGfx.FillPolygon(m.loBrush, @m.laPoints)
					m.loGfx.DrawPolygon(m.loPen, @m.laPoints)
		
					LOCAL laPointsB(6)
					m.laPointsB(1) = .POINT.New(m.x0, m.y0 + 4)
					m.laPointsB(2) = .POINT.New(m.x0 - 4, m.y0 + 4)
					m.laPointsB(3) = .POINT.New(m.x0 - 4, THIS._TopOffSet + m.ln3d)
		
					m.laPointsB(4) = .POINT.New(m.x0 - 4 + m.ln3d, THIS._TopOffSet)
					m.laPointsB(5) = .POINT.New(m.x0 + m.ln3d, THIS._TopOffSet)
					m.laPointsB(6) = .POINT.New(m.x0, THIS._TopOffSet + m.ln3d)
		
					m.loGfx.FillPolygon(m.loBrush, @m.laPointsB)
					m.loGfx.DrawPolygon(m.loPen, @m.laPointsB)
				ENDIF
			ENDWITH
		ENDIF
	ENDPROC

	PROCEDURE _drawyaxislegend
		* Draws the Y axis legends and the chart background horizontal lines and bars
		
		LOCAL lnHeight as Number, ;
			lnXWidth as Number
		IF EMPTY(This.FieldAxis2)
			RETURN
		ENDIF
		
		SELECT(This._DataCursor)
		
		* Draw Legends on the Y Axis
		LOCAL x1, y1, lcText
		m.y1 = This.ChartCanvas.Height - This._XAxisHeight + 6
		
		This.AxisLegend2._Setup()
		
		* Save original Alignment settings
		LOCAL lnOrigAlignment
		m.lnOrigAlignment = This.AxisLegend2.Alignment
		
		* Force Right alignment
		This.AxisLegend2.Alignment = 1 && Right
		
		SCAN
			* Measure the legend width
			m.lcText = cAxis2
			This.AxisLegend2.Caption = m.lcText
			m.x1 = This._Yaxiswidth + This._LeftOffset - 6
			m.y1 = This._aPoints(RECNO(),2) - This.AxisLegend2._Height / 2
			This.AxisLegend2._DrawString(m.x1, m.y1)
		ENDSCAN
		
		* Restore original Alignment settings
		This.AxisLegend2.Alignment = m.lnOrigAlignment
		
		* There's no need to continue drawing scales if the Axis is not present
		IF NOT This.ShowAxis 
			RETURN
		ENDIF 
		
		
		
		* Continue drawing the scales and background lines or bars
		LOCAL ln3D
		m.ln3D = This._3d 
		
		LOCAL lnRectColor, lnLineColor
		
		IF This.BrushType = 3 && Monochrome
			m.lnRectColor = RGB(255,255,255) && White
			m.lnLineColor = 0 && Black
		ELSE
			m.lnRectColor = This.ScaleBackColor
			m.lnLineColor = This.ScaleLineColor
		ENDIF
		
		* A thin black pen to draw the ticks in the Y Axis
		LOCAL loBlackPen as xfcPen
		m.loBlackPen = This._oBlackPen
		
		LOCAL loBackBrush as xfcSolidBrush
		LOCAL loBackPen as xfcPen
		LOCAL loPen as xfcPen
		
		LOCAL lnDashValue
		LOCAL loGfx as xfcGraphics
		m.loGfx = This.oGfx 
		
		WITH _Screen.System.Drawing
			m.loBackBrush = .SolidBrush.New(.Color.FromARGB(This.ScaleBackAlpha, m.lnRectColor))
			m.loBackPen = .Pen.New(.Color.FromARGB(This.AxisAlpha, m.lnLineColor),This.ScaleBackLinesWidth - 1)
			m.lnDashValue = This.ScaleBackLinesDash
			IF m.lnDashValue > 0
				m.loBackPen.DashStyle = m.lnDashValue && _Screen.System.Drawing.Drawing2D.DashStyle.Dash
			ENDIF 
		
			LOCAL lnAxisBorderColor
			m.lnAxisBorderColor = This.ChangeColor(This.AxisColor, -30)
		
			LOCAL loAxisBorderColor as xfcColor
			m.loAxisBorderColor = .Color.FromARGB(This.AxisAlpha, m.lnAxisBorderColor)
			m.loPen = .Pen.New(m.loAxisBorderColor, 1)
		ENDWITH 
		
		m.lnHeight = This.ChartCanvas.Height - This._XAxisHeight - This._TopOffSet - m.ln3D
		m.lnXWidth = This.ChartCanvas.Width - This._LeftOffset - This._RightOffset - This._yAxisWidth - m.ln3D
		
		LOCAL x0, y0, n, y, llDrawBack
		m.llDrawBack = .T.
		m.y0 = This.ChartCanvas.Height - This._XAxisHeight
		m.x0 = This._yAxisWidth + This._LeftOffset 
		
		LOCAL lnOneScale
		IF This._nRecords  = 1
			m.lnOneScale = 0
		ELSE 
			m.lnOneScale = This._aPoints(2,2) - This._aPoints(1,2) 
		ENDIF 
		
		FOR m.n = 1 TO This._nRecords
		
			m.x1 = This._yAxisWidth + This._LeftOffset 
			m.y1 = This._aPoints(m.n,2)
		
			m.y = ROUND(m.y1,0)
		
			* Draw the tic mark
			IF This.ShowAxis2Tics 
				m.loGfx.DrawLine(m.loBlackPen, m.x0 - 0, m.y, m.x0 - This.TicLength, m.y)
			ENDIF 
				
			IF m.n = This._nRecords
				EXIT
			ENDIF 
				
			m.loGfx.DrawLine(m.loPen, m.x0, m.y, m.x0 + m.ln3D, m.y - m.ln3D)
		
			* Draw the scale background
			LOCAL x1Scale, y1Scale
			m.x1Scale = m.x0 + m.ln3D
			m.y1Scale = m.y - m.ln3D
		
			IF m.llDrawBack
				IF INLIST(This.ScaleBackBarsType, 1, 3) && Horizontal, Both
					m.loGfx.FillRectangle(m.loBackBrush, m.x1Scale, m.y1Scale, m.lnxWidth, m.lnOneScale)
				ENDIF
			ENDIF
		
		
			IF INLIST(This.ScaleBackLinesType, 1, 3) && Horizontal, Both
				IF m.n = 1
					m.loGfx.DrawLine(m.loBackPen, m.x1Scale, (m.y1Scale), m.x1Scale + m.lnxWidth, (m.y1Scale))
				ENDIF 
				m.loGfx.DrawLine(m.loBackPen, m.x1Scale, (m.y1Scale + m.lnOneScale), m.x1Scale + m.lnxWidth, (m.y1Scale + m.lnOneScale))
			ENDIF
			m.llDrawBack = NOT m.llDrawBack
		ENDFOR
		
		RETURN  
	ENDPROC

	PROCEDURE _getadjustedangle
		LPARAMETERS tnAngle, tnWidth, tnHeight
		IF m.tnAngle > 360
			m.tnAngle = m.tnAngle - 360
		ENDIF
		
		IF m.tnAngle < 0
			m.tnAngle = m.tnAngle + 360
		ENDIF
		
		* Fix by Christof Wollenhaupt 2008-10-28
		* http://www.codeplex.com/VFPX/WorkItem/View.aspx?WorkItemId=19211
		* when the angle is around 270.0000001, this passes the test of BETWEEN(tnAngle,90,270), 
		* but fails on the following TAN() function. 
		m.tnAngle = ROUND(m.tnAngle, 4)
		
		
		LOCAL lnNewAngle
		DO CASE
		
		CASE BETWEEN(m.tnAngle, 90, 270)
			m.lnNewAngle = RTOD(ATN2(TAN(DTOR(m.tnAngle)) * m.tnHeight, m.tnWidth)) + 180
		OTHERWISE
			m.lnNewAngle = RTOD(ATN2(TAN(DTOR(m.tnAngle)) * m.tnHeight, m.tnWidth))
		ENDCASE
		
		IF m.lnNewAngle < 0
			m.lnNewAngle = m.lnNewAngle + 360
		ENDIF
		
		IF m.lnNewAngle - m.tnAngle > 170
			m.lnNewAngle = m.lnNewAngle - 180
		ENDIF 
		
		RETURN m.lnNewAngle  
	ENDPROC

	PROCEDURE _getbasiccolor
		* From LMGRAPH, from Luis Maria Guayan, MVP, Argentina
		* www.portalfox.com
		
		
		LPARAMETERS tn
		LOCAL la(28)
		m.tn = MOD(m.tn-1,28)+1
		m.la(1) = RGB(255,0,0) && Rojo
		m.la(2) = RGB(255,255,0) && Amarillo
		m.la(3) = RGB(0,0,255) && Azul
		m.la(4) = RGB(0,128,0) && Verde Oscuro
		m.la(5) = RGB(255,128,0) && Anaranjado
		m.la(6) = RGB(255,0,255) && Magenta
		m.la(7) = RGB(128,0,255) && Violeta
		m.la(8) = RGB(0,255,255) && Cyan
		m.la(9) = RGB(128,64,0) && Marrón
		m.la(10) = RGB(192,192,0) && Amarillo Oscuro
		m.la(11) = RGB(192,0,0) && Rojo Oscuro
		m.la(12) = RGB(0,255,0) && Verde
		m.la(13) = RGB(0,0,128) && Azul Oscuro
		m.la(14) = RGB(255,192,0) && Anaranjado Claro
		m.la(15) = RGB(0,192,255) && Azul claro
		m.la(16) = RGB(128,128,0) && Marrón Claro
		m.la(17) = RGB(255,192,255) && Magenta Claro
		m.la(18) = RGB( 64,128,128) && Verde Azulado
		m.la(19) = RGB(255,0,128) && Fucsia
		m.la(20) = RGB(255,255,192) && Amarillo Claro
		m.la(21) = RGB(192,0,255) && Violeta Claro
		m.la(22) = RGB(192,255,192) && Verde Claro
		m.la(23) = RGB(128,0,128) && Violeta Oscuro
		m.la(24) = RGB(192,255,255) && Cyan Claro
		m.la(25) = RGB(128,128,128) && Gris Oscuro
		m.la(26) = RGB(255,255,255) && Blanco
		m.la(27) = RGB(192,192,192) && Gris
		m.la(28) = RGB(0,0,0) && Negro
		RETURN m.la(m.tn)
		  
	ENDPROC

	PROCEDURE _getcenterpoint
		LPARAMETERS tnX, tnY, tnWidth, tnHeight
		
		* Calculate positions
		LOCAL lnCenterX, lnCenterY
		m.lnCenterX	= (m.tnWidth / 2)
		m.lnCenterY	= (m.tnHeight / 2)
		
		* Create a GraphicsPath object.
		LOCAL lnAngle, lnDistance, xAdjust, yAdjust
		m.lnAngle = This.PieGradCenterAngle
		
		LOCAL loTempPath as xfcGraphicsPath
		LOCAL loPoint as xfcPointF
		LOCAL loRect as xfcRectangle
		m.loTempPath = _Screen.System.Drawing.Drawing2D.GraphicsPath.New()
		
		* Obtaining the needed points
		m.lnDistance = This.PieGradCenterDistance
		m.xAdjust	 = (1 - m.lnDistance) / 2
		m.yAdjust	 = (1 - m.lnDistance) / 2
		
		m.loRect = _Screen.System.Drawing.Rectangle.New(m.tnX + m.xAdjust * m.tnWidth, ;
		  m.tnY + m.yAdjust * m.tnHeight, ;
		  m.lnDistance * m.tnWidth, ;
		  m.lnDistance * m.tnHeight)
		
		m.loTempPath.AddArc(m.loRect, m.lnAngle, 0.0001)
		m.loPoint = m.loTempPath.GetLastPoint()
		
		RETURN m.loPoint
	ENDPROC

	PROCEDURE _getchartprop
		Lparameters toPropertiesList, tcProperty, tnType, toSavedProps, lcDescription, tlShowDescriptions
		
		Local  lcCRLF
		Local lcName as String, ;
			lcType as String, ;
			lcValue as String, ;
			lxValue
		
		m.lcCRLF = Chr(13)
		
		Local lbChanged, lcNewType, lcOldType, lnBlue, lnDope, lnGreen, lnPos, lnRed
		 
		Do Case
		    Case m.tnType = 1
		        m.lbChanged = .T.
		    Case m.tnType = 2
		        If "." $ m.tcProperty
		            m.lnPos = Rat (".", m.tcProperty)
		            m.lbChanged = Pemstatus ( Evaluate ("This." + Left(m.tcProperty, m.lnPos - 1)), Substr(m.tcProperty, m.lnPos + 1), 0)
		        Else
		            m.lbChanged = Pemstatus(This, m.tcProperty, 5) And Pemstatus(This, m.tcProperty, 0)
		
		            *            lbChanged = Pemstatus (This, tcProperty, 0)
		        Endif
		    Case m.tnType = 3
		        m.lcNewType = Vartype(Evaluate("toPropertiesList." + m.tcProperty))
		        m.lcOldType = Vartype(Evaluate("toSavedProps." + m.tcProperty))
		        m.lbChanged = (m.lcNewType # m.lcOldType) Or Not ;
		            EVALUATE("toPropertiesList." + m.tcProperty) ==  Evaluate("toSavedProps." + m.tcProperty)
		Endcase
		
		If Not m.lbChanged
		    Return ''
		Endif
		
		m.lcName  = Trim(m.tcProperty)
		m.lxValue = Evaluate ("toPropertiesList." + m.tcProperty)
		m.lcType  = Vartype (m.lxValue)
		
		Do Case
		    Case m.lcType = 'C'
		        m.lxValue = Trim(m.lxValue)
		        Do Case
		            Case Not ['] $ m.lxValue
		                m.lcValue = ['] + m.lxValue + [']
		            Case Not ["] $ lxValue
		                m.lcValue = ["] + m.lxValue + ["]
		            Otherwise
		                m.lcValue = '[' + m.lxValue + ']'
		        Endcase
		
		    Case m.lcType = "O"
		        m.lcValue = " " + Chr(38) + Chr(38) + "Custom object - " + m.lxValue.Name
		        Return "* ." + m.lcName + " = " + m.lcValue +  m.lcCRLF
		
		    Case m.lcType = "N"
		    	LOCAL lcUpName
		    	m.lcUpName = UPPER(m.lcName)
		        m.lnDope = At('***', m.lcDescription)
		        If Inlist(ALLTRIM(Right('.' + m.lcUpName,10)), ;
		        		'.FORECOLOR', '.BACKCOLOR') Or ;
		        		('BACKCOLOR2' $ m.lcUpName) OR ;
						(').COLOR' $ m.lcUpName) OR ;
		        		(m.lnDope > 0 And "COLOR" == Upper(Alltrim(Substr(m.lcDescription, m.lnDope + 3))))
		            m.lnRed   = Bitand(m.lxValue, 255)
		            m.lnGreen = Bitrshift(Bitand(m.lxValue, 256 * 255), 8)
		            m.lnBlue  = Bitrshift(Bitand(m.lxValue, 256 * 256 * 255), 16)
		            m.lcValue = 'RGB(' + Transform(m.lnRed) + ',' + Transform(m.lnGreen) + ',' + Transform(m.lnBlue) + ')'
		        Else
		            m.lcValue = Transform(m.lxValue)
		        Endif
		
		    Otherwise
		        m.lcValue = Transform(m.lxValue)
		Endcase
		
		Return Iif (Empty (m.lcDescription) or not m.tlShowDescriptions, '', '* ' + m.lcDescription + m.lcCRLF) + "." + m.lcName + " = " + m.lcValue + m.lcCRLF
		  
	ENDPROC

	PROCEDURE _getchartproperties
		****************************************************************
		*   Jim Nelson   10/20/2008
		*
		*  Returns an object with current settings of all FoxCharts properties
		
		Local loProperties
		Local laProperties(1), laSubProperties(1), lcProperty
		Local lcProperties, lcName, lcType, loObject, lnI, lnJ, laFieldMembers(1), lcFieldMem, loData
		Local luPropValue, lcPropType
		Local loFields as "Collection"
		
		m.loProperties = Createobject("Empty")
		
		m.lcProperties = "Format, FontName, FontSize, FontBold, FontItalic, FontUnderline, FontCharSet, ForeColor, ForeColorAlpha, BackColor, BackColorAlpha, Alignment, Rotation, RotationCenter"
		Alines (laSubProperties, m.lcProperties, 5, ',')
		
		With This
		    Local laProperties(1), lcProperty
		
		    Amembers(m.laProperties, This, 3)
		    AddProperty (m.loProperties, "_Descriptions(1)", m.laProperties)
		    Acopy(m.laProperties, m.loProperties._Descriptions)
		
		    For m.lnI = 1 To Alen (m.laProperties,1)
		        m.lcName    = Proper(m.laProperties(m.lnI,1))
		        m.lcType    = Proper(m.laProperties(m.lnI,2))
		
		        Do Case
		
		            Case m.lcType = 'Property' ; && the list of ReadOnly properties
		                And Not Inlist (Upper (m.lcName), "VERSION", "VERSIONA", "CHARTSUM", ;
		                    "OBMP", "OGFX", "ACOORD", "ACOLORS", "SINGLEDATA", ;
		                    "CURRINDEX", "CURRVALUE", "CURRLEGEND", "CURROBJTYPE", ;
		                    "CURRCOLUMN", "CURRRECNO", "LEGEND1", "COLOR1", "FIELDVALUE1", "SHAPE1",;
		                    "CHARTTYPE1", "SHOWVALUESONSHAPE1", "FIELDXAXIS", "APALETTECOLORS", "DEBUG") ;
		                    and  "_" # Left(m.lcName, 1) ;
		                    And (Pemstatus(This, m.lcName, 4) Or ;
		                    Inlist( Upper(m.lcName), 'BACKCOLOR', 'FORECOLOR', 'MARGIN', 'SHOWTIPS', 'WIDTH', 'HEIGHT'))
		
		                AddProperty (m.loProperties, m.lcName, Evaluate ("This." + m.lcName))
		
		            Case m.lcName = 'Fields'
		
		                m.loFields = Createobject("Collection")
		                For m.lnJ = 1 To This.Fields.Count
		                    m.loData = Createobject("Empty")
		                    Amembers(laFieldMembers, This.Fields(m.lnJ))
		                    For Each m.lcFieldMem In m.laFieldMembers
		                        m.luPropValue = Evaluate("This.Fields(lnJ)." + m.lcFieldMem)
								m.lcPropType = VARTYPE(m.luPropValue)                        
		                        IF (m.lcFieldMem = "CHARTTYPE" AND m.lcPropType = "N" AND m.luPropValue = 0) OR ;
									(m.lcFieldMem = "SHOWVALUESONSHAPE" AND m.lcPropType = "L" AND m.luPropValue = .T.) OR ;
									(m.lcFieldMem = "SHAPE" AND m.lcPropType = "N" AND m.luPropValue = 0)
									LOOP
								ENDIF                         
		
		                        AddProperty(m.loData, m.lcFieldMem, m.luPropValue)
		                    Endfor
		
		                    m.loFields.Add(m.loData)
		                Next m.lnJ
		                AddProperty (m.loProperties, m.lcName, m.loFields)
		
		            Case m.lcType = 'Object'                                                     ;
		                    and Inlist (m.lcName, "Title", "Subtitle", "Xaxis", "Axislegend2", "Yaxis", "Shapelegend", "Scalelegend", "Sidelegend", "Yaxis2")
		
		                * create an object
		                AddProperty (m.loProperties, m.lcName, Createobject("Empty"))
		                m.loObject = Evaluate ("loProperties." + m.lcName)
		                * conditionally add caption
		                If Not Inlist (m.lcName, "Axislegend2", "Shapelegend", "Scalelegend", "Sidelegend")
		                    AddProperty (m.loObject, "Caption", Evaluate ("This." + m.lcName + ".Caption"))
		                Endif
		                * and add other properties of that objecgt
		                For Each m.lcProperty In m.laSubProperties
		                    AddProperty (m.loObject, m.lcProperty, Evaluate ("This." + m.lcName + "." + m.lcProperty))
		                Endfor
		        Endcase
		    Endfor
		Endwith
		
		Return m.loProperties  
	ENDPROC

	PROCEDURE _getchartscript		&& Returns a complete script to reproduce the current chart in a separate PRG.
		LOCAL loChart AS FoxCharts OF "FoxCharts.vcx"
		Local laFields[1], ;
			lcField as String
		
		m.loChart = This
		
		LOCAL lcSource, lcCRLF, lcTAB, n, i
		m.lcCRLF = CHR(13) + CHR(10)
		m.lcTAB = CHR(9)
		
		m.lcSource = m.loChart.SourceAlias
		SELECT (m.lcSource)
		
		
		* If using Random colors, convert the chart to custom colors, 
		* and set the colors to the same of the current chart
		IF m.loChart.ColorType = 2 && Random
			m.loChart.ColorType = 1 && Custom colors
		
			IF m.loChart.SingleData 
				SELECT (m.lcSource)
				SCAN
					REPLACE (m.lcSource + "." + ALLTRIM(m.loChart.FieldColor)) WITH m.loChart.aColors(RECNO())
				ENDSCAN 
			ELSE
				FOR m.n = 1 TO m.loChart.ChartsCount 
					m.loChart.Fields(m.n).Color = m.loChart.aColors(m.n)
				ENDFOR 	
			ENDIF 
		ENDIF 
		
		
		LOCAL lcAlias, lcFldType, lcSQL, lnFields, lcFldName, lcFldType, lnFldInteger, lnFldDecimals
		m.lcAlias = ALLTRIM(m.lcSource) && "TempCursor"
		m.lcSQL = "CREATE CURSOR " + m.lcAlias + "( ;" + m.lcCRLF
		
		m.lnFields = AFIELDS(laFields, m.lcSource)  && Create array.
		
		m.lcField = ""
		FOR m.n = 1 TO m.lnFields
		
			m.lcFldName     = m.laFields(m.n,1)
			m.lcFldType     = m.laFields(m.n,2)
			m.lnFldInteger  = m.laFields(m.n,3)
			m.lnFldDecimals = m.laFields(m.n,4)
		
			m.lcField = m.lcField + ;
				m.lcTAB + ;
				m.lcFldName + " " + m.lcFldType + ;
				IIF(m.lnFldInteger = 0 or INLIST(m.lcFldType,"I", "L", "D", "T", "M", "W"), " ", " (" + TRANSFORM(m.lnFldInteger) + ;
					IIF(m.lnFldDecimals = 0, ")", "," + TRANSFORM(m.lnFldDecimals) + ")") ) + ;
				" NULL , ;" + m.lcCRLF
			
		ENDFOR 
			
		m.lcField = LEFT(m.lcField, LEN(m.lcField) -5 )
		m.lcSQL = m.lcSQL + m.lcField + ')' + m.lcCRLF + m.lcCRLF
		
		
		LOCAL lcInserts, lcFields, i, luValue, lcType, lcExpr, lcScript, lcChartScript
		
		m.lcInserts = ""
		SCAN
		
			m.lcFields = ""
			FOR m.i = 1 TO m.lnFields
		
				m.luValue = EVALUATE(TRANSFORM(FIELD(m.I)))
				m.lcType = VARTYPE(m.luValue)
		
				DO CASE
				
				CASE ISNULL(m.luValue)
					m.lcExpr = "NULL"
				
				CASE m.lcType = "C"
					m.lcExpr = ["] + ALLTRIM(m.luValue) + ["]
			
				CASE m.lcType = "L"
					m.lcExpr = TRANSFORM(m.luValue)
		
				CASE m.lcType = "N"
					m.lcExpr = TRANSFORM(m.luValue)
		
				OTHERWISE
				ENDCASE
		
				m.lcFields = m.lcFields + m.lcExpr + ", "
			ENDFOR
		
			m.lcFields = LEFT(m.lcFields, LEN(m.lcFields) -2)
			m.lcInserts = m.lcInserts + 'INSERT INTO ' + m.lcAlias + " VALUES (" + m.lcFields + ")" + m.lcCRLF
		ENDSCAN
		
		m.lcScript = m.lcSQL + m.lcInserts
		
		LOCAL lcChartScript, lcFormInit, lcFormEnd 
		m.lcChartScript = m.loChart.GetChartProperties(2) && Only non default properties
		
		TEXT TO m.lcFormInit NOSHOW 
		
		SET CLASSLIB TO LOCFILE("FoxCharts.vcx")
		
		PUBLIC oForm as Form
		oForm = CREATEOBJECT("Form")
		oForm.Newobject("oChart", "FoxCharts", "FoxCharts.vcx")
		
		LOCAL loChart as FoxCharts OF "FoxCharts.vcx"
		m.loChart = oForm.oChart
		
		WITH m.loChart
		
		ENDTEXT 
		
		
		TEXT TO m.lcFormEnd NOSHOW 
		
		    m.loChart.DrawChart()
			m.loChart.Visible = .T. 
		ENDWITH
		
		oForm.Width = m.loChart.Width
		oForm.Height = m.loChart.Height
		oForm.Show()
		
		ENDTEXT 
		
		LOCAL lcFullScript
		m.lcFullScript = m.lcScript + m.lcCRLF + m.lcCRLF + m.lcFormInit + m.lcChartScript + m.lcFormEnd
		RETURN m.lcFullScript  
	ENDPROC

	PROCEDURE _getcursorpos
		LPARAMETERS tnX, tnY
		
		* This works better than using MROW() and MCOL() when FoxCharts is not at the active window
		LOCAL lqPoint AS String
		DECLARE INTEGER GetCursorPos IN win32api AS FoxCharts_GetCursorPos STRING @lqPoint
		m.lqPoint = 0h0000000000000000
		FoxCharts_GetCursorPos(@m.lqPoint)
		
		m.tnx = CTOBIN(SUBSTR(m.lqPoint, 1, 4), "4rs")
		m.tny = CTOBIN(SUBSTR(m.lqPoint, 5, 4), "4rs")
		  
	ENDPROC

	PROCEDURE _getfieldtype
		LPARAMETERS tcAlias, tcField, tlMask
		
		LOCAL gnFieldcount, lnCount, lcCurrField, lnInteger, lnDecimals, lcType
		LOCAL ARRAY gaMyArray[1]
		
		m.gnFieldcount = AFIELDS(gaMyArray, m.tcAlias)  && Create array.
		
		FOR m.lnCount = 1 TO m.gnFieldcount 
			m.lcCurrField = ALLTRIM(m.gaMyArray(m.lnCount,1))  && Display field names.
			IF UPPER(m.lcCurrField) = ALLTRIM(UPPER(m.tcField))
				m.lnInteger  = m.gaMyArray(m.lnCount,3)
				m.lnDecimals = m.gaMyArray(m.lnCount,4)
		
				IF m.tlMask && Return the mask for the format property
					m.lcType = REPLICATE("9", m.lnInteger) + ;
						IIF(m.lnDecimals > 0, "." + REPLICATE("9", m.lnDecimals), "")
		
				ELSE && Return the field type - eg N(8,2)
					m.lcType = "N(" + ALLTRIM(STR(m.lnInteger)) + "," + ALLTRIM(STR(m.lnDecimals)) + ")"
				ENDIF 
		
				EXIT
			ENDIF 
		ENDFOR
		
		RETURN m.lcType
		
		
		
		*!*	Column number  Field info  Data type  
		*!*	1
		*!*	 Field name
		*!*	 Character
		*!*	 
		*!*	2
		*!*	 Field type: 
		
		*!*	C = Character
		*!*	Y = Currency
		*!*	D = Date
		*!*	T = DateTime
		*!*	B = Double
		*!*	F = Float
		*!*	G = General
		*!*	I = Integer
		*!*	L = Logical
		*!*	M = Memo
		*!*	N = Numeric
		*!*	Q = Varbinary
		*!*	V = Varchar and Varchar (Binary)
		*!*	W = Blob Character
		*!*	 
		
		*!*	3
		*!*	 Field width
		*!*	 Numeric
		*!*	 
		*!*	4
		*!*	 Decimal places
		*!*	 Numeric   
	ENDPROC

	PROCEDURE _getgradientcolor
		LPARAMETERS tnCount
		
		LOCAL lnBasicColor, lnNewColor
		m.lnBasicColor = This.Fields(1).Color
		
		m.tnCount = m.tnCount - 1
		
		IF INLIST(This.ChartType, 5, 6) && Line or Area
			m.lnNewColor = This.ChangeColor(lnBasicColor, 100 * m.tnCount / This.ChartsCount)
		ELSE
			m.lnNewColor = This.ChangeColor(lnBasicColor, 100 * m.tnCount / This._nRecords)
		ENDIF
		
		RETURN m.lnNewColor
		
	ENDPROC

	PROCEDURE _getpalettecolor
		LPARAMETERS tnPalette, tnIndex
		
		LOCAL lnPosition, lnMaxColors
		m.lnPosition = (m.tnPalette * 8) + m.tnIndex
		
		m.lnMaxColors = This._PaletteColors 
		
		IF m.lnPosition > m.lnMaxColors
			m.lnPosition = m.lnPosition - m.lnMaxColors
		ENDIF 
		
		RETURN This.aPaletteColors(m.lnPosition)  
	ENDPROC

	PROCEDURE _getrandomcolor
		RETURN RGB(;
			INT(RAND() * 255), ;
			INT(RAND() * 255), ;
			INT(RAND() * 255))
	ENDPROC

	PROCEDURE _getrelativepositions
		IF This._InsideForm 
			This._xRelative = This._OBJTOCLIENTex(This, 2) && Left
			This._yRelative = This._OBJTOCLIENTex(This, 1) && Top
		ELSE 
			This._xRelative = OBJTOCLIENT(This, 2) && Left
			This._yRelative = OBJTOCLIENT(This, 1) && Top
		ENDIF 
	ENDPROC

	PROCEDURE _getrgb
		LPARAMETERS tuColor
		
		Local lnColor as Number
		IF VARTYPE(m.tuColor) = "N"
			RETURN m.tuColor
		ENDIF
		
		IF VARTYPE(m.tuColor) = "C"
			DO CASE 
			CASE LEFT(m.tuColor,1) = "="
				m.lnColor = EVALUATE(SUBSTR(m.tuColor,2))
			CASE EMPTY(m.tuColor)
				m.lnColor = 0
			OTHERWISE
				m.lnColor = EVALUATE("RGB(" + m.tuColor + ")")
			ENDCASE 
			
			RETURN m.lnColor
		ENDIF 	  
	ENDPROC

	PROCEDURE _getshapepath
		LPARAMETERS tnShape
		
		WITH _Screen.System.Drawing 
		
		LOCAL loPath as xfcGraphicsPath
		m.loPath = _Screen.System.Drawing.Drawing2D.GraphicsPath.New()
		m.loPath.StartFigure()
		
		LOCAL lnShape, lcType
		m.lcType = VARTYPE(m.tnShape)
		IF m.lcType = "N"
			IF m.tnShape = 0 && NO shape selected - go in Automatic mode
				m.lnShape = This._ChartIndex
			ELSE
				m.lnShape = m.tnShape
			ENDIF
		ENDIF
		
		
		DO CASE
		
		CASE m.lcType = "O"
			m.loPath = m.tnShape
		
		CASE m.lnShape = 1 && Round
			m.loPath.AddEllipse(0, 0, 6, 6)
		
		CASE m.lnShape = 2 && Square
			m.loPath.AddRectangle(0,0,6,6)
		
		CASE m.lnShape = 3 && Triangle
			LOCAL laPoints(3)
			m.laPoints(1) = .Point.New(3,0)
			m.laPoints(2) = .Point.New(0,6)
			m.laPoints(3) = .Point.New(6,6)
			m.loPath.AddPolygon(@m.laPoints)
		
		CASE m.lnShape = 4 && Cross
			m.loPath.AddLine(2,0, 4,0)
			m.loPath.AddLine(4,0, 4,2)
			m.loPath.AddLine(4,2, 6,2)
			m.loPath.AddLine(6,2, 6,4)
			m.loPath.AddLine(6,4, 4,4)
			m.loPath.AddLine(4,4, 4,6)
			m.loPath.AddLine(4,6, 2,6)
			m.loPath.AddLine(2,6, 2,4)
			m.loPath.AddLine(2,4, 0,4)
			m.loPath.AddLine(0,4, 0,2)
			m.loPath.AddLine(0,2, 2,2)
			m.loPath.AddLine(2,2, 2,0)
		
		CASE m.lnShape = 5 && Star
			LOCAL lnRadius, lnPi, lnRadian72, n
			m.lnRadius = 6.0
			m.lnPi = 3.141592
			m.lnRadian72 = (m.lnPi * 4.0 ) / 5.0
		
			LOCAL laPoints(5), n
		
			FOR m.n = 1 TO 5
				m.laPoints(m.n) = .Point.New(;
					+ m.lnRadius * SIN( m.n * m.lnRadian72 ) + 3, ;
					- m.lnRadius * COS( m.n * m.lnRadian72 ) + 2)
			ENDFOR
			m.loPath.AddPolygon(@m.laPoints)
			m.loPath.FillMode = _Screen.System.Drawing.Drawing2D.FillMode.Winding 
		
		CASE m.lnShape = 6 && Cross 2
			m.loPath.AddRectangle(0,0,7,7)
			m.loPath.AddRectangle(1,1,2,2)
			m.loPath.AddRectangle(4,1,2,2)
			m.loPath.AddRectangle(1,4,2,2)
			m.loPath.AddRectangle(4,4,2,2)
		
		CASE m.lnShape = 7 && Box
			m.loPath.FillMode = _Screen.System.Drawing.Drawing2D.FillMode.Alternate 
			m.loPath.AddRectangle(0,0,6,6)
			m.loPath.AddRectangle(2,2,2,2)
		
		CASE m.lnShape = 8 && Button
			m.loPath.AddEllipse(0, 0, 6, 6)
			m.loPath.StartFigure()
			m.loPath.AddEllipse(2,2,2,2)
			m.loPath.FillMode = _Screen.System.Drawing.Drawing2D.FillMode.Alternate 
		
		CASE m.lnShape = 9 && Box2
			m.loPath.AddLine(9,0,6,5)
			m.loPath.AddLine(6,5,10,4)
			m.loPath.AddLine(10,4,2,10)
			m.loPath.AddLine(2,10,3,5)
			m.loPath.AddLine(3,5,0,6)
			m.loPath.AddLine(0,6,6,0)
			m.loPath.AddLine(6,0,9,0)
			
		CASE m.lnShape = 10 && Small Man
			m.loPath.AddEllipse(3, 0, 3, 3)
			m.loPath.AddLine(2, 4, 8, 4)
			m.loPath.AddLine(10, 10, 8, 10)
			m.loPath.AddLine(7, 6, 7, 10)
			m.loPath.AddLine(9, 19, 7, 19)
			m.loPath.AddLine(5, 12, 4, 19)
			m.loPath.AddLine(2, 19, 3, 10)
			m.loPath.AddLine(3, 6, 2, 10)
			m.loPath.AddLine(0, 10, 2, 4)
		
		
		CASE m.lnShape = 55 && Big Man
			m.loPath.AddEllipse(23, 1, 14, 14)
			m.loPath.AddLine(18, 16, 42, 16)
			m.loPath.AddLine(50, 40, 44, 42)
			m.loPath.AddLine(38, 25, 37, 42)
			m.loPath.AddLine(45, 75, 37, 75)
			m.loPath.AddLine(30, 50, 23, 75)
			m.loPath.AddLine(16, 75, 23, 42)
			m.loPath.AddLine(22, 25, 16, 42)
			m.loPath.AddLine(10, 40, 18, 16)
		
		
		CASE m.lnShape = 98 && GDI+X Graphics Path
		CASE m.lnShape = 99 && Image
		
		OTHERWISE
			* 2013-02-21 CCHALOM
			* If no valid shape number was sent, then we'll use a basic circle
			* Like Shape #1 above
			m.loPath.AddEllipse(0, 0, 6, 6)
		
		ENDCASE
		
		ENDWITH
		
		RETURN m.loPath  
	ENDPROC

	PROCEDURE _getvalue
		LPARAMETERS tiIndex, tlAcceptNULL
		
		LOCAL luValue, llIsNull
		m.luValue = EVALUATE((This._DataCursor) + ".nValue" +  This._Str(m.tiIndex))
		
		IF ISNULL(m.luValue) AND NOT m.tlAcceptNULL
			m.luValue = 0
		ENDIF
		
		RETURN m.luValue  
	ENDPROC

	PROCEDURE _getylegendsize
		LPARAMETERS tnAxis
		
		tnAxis = EVL(tnAxis, 1)
		
		Local lnScaleW, lnScaleH
		Local lnWidth as Number
		
		If This._Orientation = 1 && Vertical
		
			If This.ShowScale
				****************************************************************
				*  Jim Nelson 10/13/2008
				*
				*  Modified to call GetScaleLegend to get representative used to calculate maximum width
				LOCAL luLegend
		
				IF tnAxis = 2
					m.luLegend = TRANSFORM(This._MaxScale2)
				ELSE 
					m.luLegend = This.GetScaleLegend(-1)
				ENDIF 
				
				IF VARTYPE(m.luLegend) = "N"
					This.ScaleLegend._Value = m.luLegend
				ELSE 
					This.ScaleLegend.Caption = m.luLegend
				ENDIF 
		
				m.lnScaleW = This.ScaleLegend._Width + 2
				m.lnScaleH = This.ScaleLegend._Height
			Else
				m.lnScaleW = 0
				m.lnScaleH = 0
			Endif
		
		ELSE  && Horizontal
		
			Local lnMaxWidth, lcText
			Local loFont As xfcFont
			Local loSize As xfcSize
		
			This.AxisLegend2._Setup()
			m.loFont = This.AxisLegend2._oFont
			m.lnMaxWidth = 0
		
			Scan
				* Measure the legend width
				m.lcText = cAxis2
				This.AxisLegend2.Caption = m.lcText
				m.lnWidth = This.AxisLegend2._Width 
				m.lnMaxWidth = Max(m.lnMaxWidth, m.lnWidth)
			Endscan
		
			m.lnScaleH = This.AxisLegend2._Width 
			m.lnScaleW = m.lnMaxWidth
		Endif
		
		IF tnAxis = 1
			This._ScaleH = m.lnScaleH
			This._ScaleW = m.lnScaleW
		ELSE  && tnAxis = 2
			This._ScaleH2 = m.lnScaleH
			This._ScaleW2 = m.lnScaleW
		ENDIF 
		
		Return  
	ENDPROC

	PROCEDURE _initchart
		IF TYPE("Thisform.Name") = "C"
			This._InsideForm = .T.
			* Add the tooltips object to the form
			IF NOT PEMSTATUS(Thisform, "FoxChartsToolTip", 5)
				Thisform.AddObject("FoxChartsToolTip", "Label")
			ENDIF
		ELSE
			This._InsideForm = .F.
		ENDIF 
		
		This.BorderWidth = 0
		This.BackStyle   = 0 && Transparent
		
		IF VARTYPE(This._3D) = "L" && Undefined
			This._Using3D = .F.
			This._3D = This.Depth 
		ELSE 
			This._Using3D = .T.
			This.Depth = This._3D
		ENDIF 
		
		* Prepare basic color objects
		This._oClrBlack = _Screen.System.Drawing.Color.FromRGB(0)
		This._oClrWhite = _Screen.System.Drawing.Color.FromRGB(255,255,255)
		
		* A thin black pen to draw the ticks in the Y Axis
		LOCAL loBlackPen As xfcPen
		m.loBlackPen = _Screen.System.Drawing.Pen.New(This._oClrBlack, 0)
		This._oBlackPen = m.loBlackPen
		
		* Store the original Mouse Pointer
		This._OrigMousePointer = This.MousePointer
		
		* Initialize the color palettes
		This._InitPalettes()
		
		*!*	* GdiPlus API call declarations
		*!*	* to ensure compatibility with all GdiPlusX versions
		
		* They are being "Redeclared" here to avoid compiling errors.
		DECLARE Long GdipSetPathGradientSurroundColorsWithCount IN GDIPLUS.DLL AS xfcGdipSetPathGradientSurroundColorsWithCount Long brush, String @Argb, Long @Count
		DECLARE Long GdipSetPathGradientCenterPoint IN GDIPLUS.DLL AS xfcGdipSetPathGradientCenterPoint Long brush, String pPoint
		
		This.ChartCanvas.ZOrder(0)
		
		* Prepare the Fields collection, forcing at least 1 item
		* for not obliging users to set .ChartsCount in "SingleData" charts
		IF This.ChartsCount = 0
			This._SetFieldsCount(1)
		ENDIF 
		
		This._Started = .T.
		
		IF _VFP.StartMode = 0
			SET ASSERTS ON 
		ENDIF 
		
		DODEFAULT()  
	ENDPROC

	PROCEDURE _initpalettes
		LOCAL lnMaxColors
		m.lnMaxColors = 184
		
		This._PaletteColors = m.lnMaxColors
		DIMENSION This.aPaletteColors(m.lnMaxColors)
		
		WITH This
			.aPaletteColors(1)   = RGB(151,186,235)  && In a fog
			.aPaletteColors(2)   = RGB(239,158,169)
			.aPaletteColors(3)   = RGB(214,164,225)
			.aPaletteColors(4)   = RGB(165,159,230)
			.aPaletteColors(5)   = RGB(242,199,152)
			.aPaletteColors(6)   = RGB(224,218,142)
			.aPaletteColors(7)   = RGB(166,224,144)
			.aPaletteColors(8)   = RGB(147,217,210)
			.aPaletteColors(9)   = RGB(166,141,45)  && Apex
			.aPaletteColors(10)  = RGB(102,124,76)
			.aPaletteColors(11)  = RGB(52,133,162)
			.aPaletteColors(12)  = RGB(44,80,166)
			.aPaletteColors(13)  = RGB(72,51,159)
			.aPaletteColors(14)  = RGB(116,68,146)
			.aPaletteColors(15)  = RGB(222,208,153)
			.aPaletteColors(16)  = RGB(187,202,172)
			.aPaletteColors(17)  = RGB(181,88,4)  && Aspect
			.aPaletteColors(18)  = RGB(109,24,33)
			.aPaletteColors(19)  = RGB(15,60,88)
			.aPaletteColors(20)  = RGB(51,93,42)
			.aPaletteColors(21)  = RGB(64,47,84)
			.aPaletteColors(22)  = RGB(156,113,52)
			.aPaletteColors(23)  = RGB(248,170,93)
			.aPaletteColors(24)  = RGB(209,84,97)
			.aPaletteColors(25)  = RGB(49,138,210)  && Chameleon
			.aPaletteColors(26)  = RGB(203,181,112)
			.aPaletteColors(27)  = RGB(212,120,185)
			.aPaletteColors(28)  = RGB(189,223,120)
			.aPaletteColors(29)  = RGB(109,181,229)
			.aPaletteColors(30)  = RGB(212,196,136)
			.aPaletteColors(31)  = RGB(209,135,189)
			.aPaletteColors(32)  = RGB(172,202,117)
			.aPaletteColors(33)  = RGB(167,60,35)  && Civic
			.aPaletteColors(34)  = RGB(148,129,0)
			.aPaletteColors(35)  = RGB(85,126,127)
			.aPaletteColors(36)  = RGB(98,85,76)
			.aPaletteColors(37)  = RGB(87,128,83)
			.aPaletteColors(38)  = RGB(173,105,36)
			.aPaletteColors(39)  = RGB(185,123,108)
			.aPaletteColors(40)  = RGB(255,228,40)
			.aPaletteColors(41)  = RGB(26,111,134)  && Concourse
			.aPaletteColors(42)  = RGB(159,18,24)
			.aPaletteColors(43)  = RGB(172,62,11)
			.aPaletteColors(44)  = RGB(33,60,101)
			.aPaletteColors(45)  = RGB(42,44,75)
			.aPaletteColors(46)  = RGB(81,35,45)
			.aPaletteColors(47)  = RGB(92,190,216)
			.aPaletteColors(48)  = RGB(233,101,107)
			.aPaletteColors(49)  = RGB(158,47,13)  && Equity / Brick
			.aPaletteColors(50)  = RGB(107,26,18)
			.aPaletteColors(51)  = RGB(112,96,66)
			.aPaletteColors(52)  = RGB(95,60,48)
			.aPaletteColors(53)  = RGB(96,85,85)
			.aPaletteColors(54)  = RGB(89,59,59)
			.aPaletteColors(55)  = RGB(235,114,76)
			.aPaletteColors(56)  = RGB(214,76,61)
			.aPaletteColors(57)  = RGB(7,71,137)  && Flow
			.aPaletteColors(58)  = RGB(0,108,156)
			.aPaletteColors(59)  = RGB(5,134,41)
			.aPaletteColors(60)  = RGB(7,132,95)
			.aPaletteColors(61)  = RGB(67,146,43)
			.aPaletteColors(62)  = RGB(125,152,44)
			.aPaletteColors(63)  = RGB(66,156,240)
			.aPaletteColors(64)  = RGB(57,197,255)
			.aPaletteColors(65)  = RGB(76,124,80)  && Foundry
			.aPaletteColors(66)  = RGB(86,139,86)
			.aPaletteColors(67)  = RGB(67,140,161)
			.aPaletteColors(68)  = RGB(123,118,94)
			.aPaletteColors(69)  = RGB(150,136,64)
			.aPaletteColors(70)  = RGB(190,61,61)
			.aPaletteColors(71)  = RGB(150,183,154)
			.aPaletteColors(72)  = RGB(182,207,182)
			.aPaletteColors(73)  = RGB(61,115,162)  && Median
			.aPaletteColors(74)  = RGB(179,81,27)
			.aPaletteColors(75)  = RGB(109,115,73)
			.aPaletteColors(76)  = RGB(159,118,33)
			.aPaletteColors(77)  = RGB(70,111,102)
			.aPaletteColors(78)  = RGB(108,98,98)
			.aPaletteColors(79)  = RGB(165,193,217)
			.aPaletteColors(80)  = RGB(231,168,130)
			.aPaletteColors(81)  = RGB(81,150,29)  && Metro
			.aPaletteColors(82)  = RGB(169,11,81)
			.aPaletteColors(83)  = RGB(181,124,1)
			.aPaletteColors(84)  = RGB(0,108,142)
			.aPaletteColors(85)  = RGB(51,75,146)
			.aPaletteColors(86)  = RGB(14,123,107)
			.aPaletteColors(87)  = RGB(162,222,117)
			.aPaletteColors(88)  = RGB(240,102,155)
			.aPaletteColors(89)  = RGB(224,165,57)  && Nature
			.aPaletteColors(90)  = RGB(113,178,30)
			.aPaletteColors(91)  = RGB(207,80,34)
			.aPaletteColors(92)  = RGB(217,184,56)
			.aPaletteColors(93)  = RGB(120,211,64)
			.aPaletteColors(94)  = RGB(160,60,26)
			.aPaletteColors(95)  = RGB(9,141,8)
			.aPaletteColors(96)  = RGB(165,165,0)
			.aPaletteColors(97)  = RGB(49,116,216)  && Northern lights
			.aPaletteColors(98)  = RGB(215,59,165)
			.aPaletteColors(99)  = RGB(75,202,249)
			.aPaletteColors(100) = RGB(205,45,222)
			.aPaletteColors(101) = RGB(142,184,242)
			.aPaletteColors(102) = RGB(238,139,207)
			.aPaletteColors(103) = RGB(147,213,244)
			.aPaletteColors(104) = RGB(212,115,222)
			.aPaletteColors(105) = RGB(46,89,140)  && Office
			.aPaletteColors(106) = RGB(138,45,43)
			.aPaletteColors(107) = RGB(102,130,47)
			.aPaletteColors(108) = RGB(77,58,101)
			.aPaletteColors(109) = RGB(38,115,137)
			.aPaletteColors(110) = RGB(207,89,6)
			.aPaletteColors(111) = RGB(134,168,208)
			.aPaletteColors(112) = RGB(215,148,145)
			.aPaletteColors(113) = RGB(132,138,70)  && Opulent
			.aPaletteColors(114) = RGB(124,56,139)
			.aPaletteColors(115) = RGB(162,62,20)
			.aPaletteColors(116) = RGB(194,123,4)
			.aPaletteColors(117) = RGB(154,44,104)
			.aPaletteColors(118) = RGB(208,82,3)
			.aPaletteColors(119) = RGB(206,112,144)
			.aPaletteColors(120) = RGB(204,159,213)
			.aPaletteColors(121) = RGB(71,80,115)  && Origin
			.aPaletteColors(122) = RGB(71,113,149)
			.aPaletteColors(123) = RGB(161,172,41)
			.aPaletteColors(124) = RGB(228,167,5)
			.aPaletteColors(125) = RGB(129,77,60)
			.aPaletteColors(126) = RGB(93,73,67)
			.aPaletteColors(127) = RGB(154,162,187)
			.aPaletteColors(128) = RGB(174,195,213)
			.aPaletteColors(129) = RGB(106,127,83)  && Paper
			.aPaletteColors(130) = RGB(205,109,10)
			.aPaletteColors(131) = RGB(169,131,15)
			.aPaletteColors(132) = RGB(153,60,90)
			.aPaletteColors(133) = RGB(94,64,135)
			.aPaletteColors(134) = RGB(61,96,140)
			.aPaletteColors(135) = RGB(189,201,176)
			.aPaletteColors(136) = RGB(246,190,124)
			.aPaletteColors(137) = RGB(225,102,82)  && Pastel Kit
			.aPaletteColors(138) = RGB(49,141,206)
			.aPaletteColors(139) = RGB(239,203,78)
			.aPaletteColors(140) = RGB(147,219,103)
			.aPaletteColors(141) = RGB(177,223,252)
			.aPaletteColors(142) = RGB(244,140,77)
			.aPaletteColors(143) = RGB(145,111,189)
			.aPaletteColors(144) = RGB(189,189,189)
			.aPaletteColors(145) = RGB(34,100,117)  && Solstice
			.aPaletteColors(146) = RGB(195,133,1)
			.aPaletteColors(147) = RGB(131,25,26)
			.aPaletteColors(148) = RGB(80,107,28)
			.aPaletteColors(149) = RGB(97,39,2)
			.aPaletteColors(150) = RGB(44,58,95)
			.aPaletteColors(151) = RGB(97,179,199)
			.aPaletteColors(152) = RGB(255,206,91)
			.aPaletteColors(153) = RGB(244,213,46)  && Technic
			.aPaletteColors(154) = RGB(68,117,134)
			.aPaletteColors(155) = RGB(140,118,4)
			.aPaletteColors(156) = RGB(86,83,110)
			.aPaletteColors(157) = RGB(68,80,55)
			.aPaletteColors(158) = RGB(105,96,70)
			.aPaletteColors(159) = RGB(82,87,94)
			.aPaletteColors(160) = RGB(152,186,197)
			.aPaletteColors(161) = RGB(217,98,64)  && Terracotta
			.aPaletteColors(162) = RGB(174,139,76)
			.aPaletteColors(163) = RGB(212,121,18)
			.aPaletteColors(164) = RGB(252,193,168)
			.aPaletteColors(165) = RGB(240,227,176)
			.aPaletteColors(166) = RGB(247,204,116)
			.aPaletteColors(167) = RGB(231,146,122)
			.aPaletteColors(168) = RGB(186,156,101)
			.aPaletteColors(169) = RGB(126,195,71)  && Trees
			.aPaletteColors(170) = RGB(208,153,62)
			.aPaletteColors(171) = RGB(230,220,78)
			.aPaletteColors(172) = RGB(191,238,103)
			.aPaletteColors(173) = RGB(83,210,136)
			.aPaletteColors(174) = RGB(184,161,43)
			.aPaletteColors(175) = RGB(172,69,28)
			.aPaletteColors(176) = RGB(79,192,63)
			.aPaletteColors(177) = RGB(255,44,122)
			.aPaletteColors(178) = RGB(224,0,85)
			.aPaletteColors(179) = RGB(163,0,57)
			.aPaletteColors(180) = RGB(102,0,81)
			.aPaletteColors(181) = RGB(62,0,78)
			.aPaletteColors(182) = RGB(0,55,139)
			.aPaletteColors(183) = RGB(0,31,108)
			.aPaletteColors(184) = RGB(255,105,167)
		ENDWITH  
	ENDPROC

	PROCEDURE _newfield
		LOCAL loData
		
		m.loData = CREATEOBJECT("Empty")
		ADDPROPERTY(m.loData,"ChartType",0)
		ADDPROPERTY(m.loData,"FieldValue","")
		ADDPROPERTY(m.loData,"Legend","")
		ADDPROPERTY(m.loData,"Color",0)
		ADDPROPERTY(m.loData,"Shape",0)
		ADDPROPERTY(m.loData,"ShowValuesOnShape",.T.)
		ADDPROPERTY(m.loData,"AxisIndex",1)
		
		RETURN m.loData  
	ENDPROC

	PROCEDURE _objtoclientex
		*********************************************************************
		* FUNCTION ObjToClientEx
		*********************************************************************
		** Method: xfcBitmap.ObjToClientEx
		**
		** This replaces OBJTOCLIENT that has bugs with pageframes and SP2
		**
		** History:
		**	2007/11/26: CAlloatti/CChalom - Coded Made small adaptation from the original code from Carlos Alloatti in his CTL32SContainer
		*********************************************************************
		LPARAMETERS toControl, tnType && 1 = Top  2 = Left
		
		*!* TabOrientation parameters
		#DEFINE CON_TABOR_TOP							0
		#DEFINE CON_TABOR_BOTTOM						1
		#DEFINE CON_TABOR_LEFT							2
		#DEFINE CON_TABOR_RIGHT							3
		
		LOCAL lnPosition AS INTEGER
		m.lnPosition = 0
		
		DO CASE
		
		CASE m.tnType = 1 && Top
			DO WHILE NOT UPPER(m.toControl.BASECLASS) == [FORM]
				IF PEMSTATUS(m.toControl, [Top],5) THEN && Defined Property
					m.lnPosition = m.lnPosition + m.toControl.TOP
				ENDIF
				IF UPPER(m.toControl.BASECLASS) == [PAGE] THEN
					IF m.toControl.PARENT.TABORIENTATION = CON_TABOR_TOP THEN	&& Top
						m.lnPosition = m.lnPosition + ;
							m.toControl.PARENT.HEIGHT - ;
							m.toControl.PARENT.PAGEHEIGHT - ;
							m.toControl.PARENT.BORDERWIDTH * 2
					ELSE
						m.lnPosition = m.lnPosition + 1
					ENDIF
				ENDIF
				m.toControl = m.toControl.PARENT
			ENDDO
		
		CASE m.tnType = 2 && Left
			DO WHILE NOT UPPER(m.toControl.BASECLASS) == [FORM]
				IF PEMSTATUS(m.toControl, [Left], 5) THEN && Defined Property
					m.lnPosition = m.lnPosition + m.toControl.LEFT
				ENDIF
				IF UPPER(m.toControl.BASECLASS) == [PAGE]
					IF m.toControl.PARENT.TABORIENTATION = CON_TABOR_LEFT THEN	&& Left
						m.lnPosition = m.lnPosition + ;
							m.toControl.PARENT.WIDTH - ;
							m.toControl.PARENT.PAGEWIDTH - ;
							m.toControl.PARENT.BORDERWIDTH * 2
					ELSE
						m.lnPosition = m.lnPosition + 1
					ENDIF
				ENDIF
				m.toControl = m.toControl.PARENT
			ENDDO
		ENDCASE
		
		RETURN m.lnPosition  
	ENDPROC

	PROCEDURE _preparebackground
		WITH _SCREEN.SYSTEM.Drawing
		
		IF This.BrushType = 3 && Monochrome
			This.ChartCanvas.Clear(This._oClrWhite)
		
		ELSE
		
			LOCAL lcType
			m.lcType = VARTYPE(This.BackColor2)
		
			DO CASE
			
			CASE m.lcType <> "N"
				This.ChartCanvas.Clear(.Color.FromARGB(This.BackColorAlpha, This.BackColor))
				
			CASE m.lcType = "N" AND (This.BackColor = This.BackColor2)
				This.ChartCanvas.Clear(.Color.FromARGB(This.BackColorAlpha, This.BackColor))
		
			OTHERWISE 
		
				LOCAL loGradBrush as xfcLinearGradientBrush
				m.loGradBrush = .Drawing2D.LinearGradientBrush.New(This.ChartCanvas.Rectangle, ;
					.Color.FromARGB(This.BackColorAlpha, This.BackColor), ;
					.Color.FromARGB(This.BackColorAlpha, This.BackColor2), ;
					This.BackGradientMode)
				This.oGfx.FillRectangle(m.loGradBrush, This.ChartCanvas.Rectangle)
		
			ENDCASE 
		
		ENDIF 
		
		ENDWITH  
	ENDPROC

	PROCEDURE _preparebrushes
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tlRect, tnCount
		
		LOCAL lnShape as Number
		IF VARTYPE(m.tnCount) = "L"
			m.tnCount = 1
		ENDIF 
		
		
		IF PCOUNT() = 0
			m.tnX = 0
			m.tnY = 0
			m.tnWidth = This.ChartCanvas.Width
			m.tnHeight = This.ChartCanvas.Height
		ENDIF
		
		m.tnWidth  = MAX(1,m.tnWidth)
		m.tnHeight = MAX(1,m.tnHeight)
		
		LOCAL lnBrushType, lnMainColor
		m.lnBrushType = This.BrushType 
		
		m.lnMainColor = This.aColors(m.tnCount)
		
		IF VARTYPE(m.lnMainColor) <> "N"
			m.lnMainColor = This._GetRandomColor()
		ENDIF 
		This._nColor = m.lnMainColor
		
		
		WITH _Screen.System.Drawing
		
		IF This.BrushType = 3 && Monochrome
			This._oBorderPen = .Pen.New(This._oClrBlack)
		ELSE 
		
			LOCAL lnColor
			m.lnColor = This.ChangeColor(m.lnMainColor, +30)
			This._oBorderPen = .Pen.New(.Color.FromRGB(m.lnColor))
		
		
			* Check if we are drawing on the selected shape
			IF NOT This._InLegend AND This.ChangeColoronMouse AND ;
						This._GeneralType <> "Point"
				LOCAL m.lnShape
				m.lnShape = This._nMouseOnShape
				IF m.lnShape > 0 AND This._nMouseOnShape = This._nIndex
					m.lnMainColor = This.SelectedShapeColor
				ENDIF 
			ENDIF 
		ENDIF 
		
		
		
		DO CASE
		CASE m.lnBrushType = 1 && Solid Brush
			This._oMainBrush = .SolidBrush.New(.COLOR.FromARGB(This.AlphaChannel, m.lnMainColor))
			This._o3DBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(m.lnMainColor, - 20)))
		
		CASE m.lnBrushType = 2 && Gradient Path Brush
		
			LOCAL loColor1 as xfcColor
			m.loColor1 = .Color.FromARGB(This.AlphaChannel, This.ChangeColor(m.lnMainColor, - 10))
			
			LOCAL loColor2 as xfcColor
			m.loColor2 = .COLOR.FromARGB(This.AlphaChannel, This.ChangeColor(m.lnMainColor, This.GradientLevel * 10))
		
			IF This.GradientInvertColors 
				LOCAL loTmpColor as xfcColor
				m.loTmpColor = m.loColor2
				m.loColor2 = m.loColor1
				m.loColor1 = m.loTmpColor
			ENDIF 
		
			DO CASE 
		
			CASE This._GeneralType = "Pie" AND NOT m.tlRect && Pie or Donut Chart and still not at legend
				LOCAL loPath as xfcGraphicsPath
				m.loPath = .Drawing2D.GraphicsPath.New()
				m.loPath.AddEllipse(m.tnX, m.tnY, m.tnWidth, m.tnHeight)
		
				LOCAL loPathGradBrush as xfcPathGradientBrush
				m.loPathGradBrush = .Drawing2D.PathGradientBrush.New(m.loPath)
				m.loPathGradBrush.CenterColor = m.loColor2
				
				IF This.PieGradCenterDistance > 0
					LOCAL loCenterPt as xfcPointF
					m.loCenterPt = This._GetCenterPoint(m.tnX, m.tnY, m.tnWidth, m.tnHeight)
		
					* Set the center using direct API call because the original funciorn has bugs
					* When fixed, the line below should work instead:
					*	m.loPathGradBrush.CenterPoint = m.loCenterPt
					=xfcGdipSetPathGradientCenterPoint(m.loPathGradBrush.Handle, m.loCenterPt.ToVarBinary())
				ENDIF 
		
		* Not working on version 1.20 official		
		*		loPathGradBrush.SurroundColors[1] = loColor1
		*		loPathGradBrush.SurroundColors = loColor1
		
		
				* Workaround using direct API call to assign the surround colors
				LOCAL lqColors
				m.lqColors = BINTOC(m.loColor1.ARGB,"4rs")
				=xfcGdipSetPathGradientSurroundColorsWithCount(m.loPathGradBrush.Handle, @m.lqColors, 1)
		
		
				IF This.GradientType = 0 && SigmaBell
					m.loPathGradBrush.SetSigmaBellShape(This.GradientPosition, 1.0)
				ELSE && BlendTriangularShape
					m.loPathGradBrush.SetBlendTriangularShape(This.GradientPosition, 1.0)
				ENDIF 
		
				This._oMainBrush = m.loPathGradBrush
		
		
			CASE This._GeneralType = "Bar" OR m.tlRect && Bar Chart
		
				m.tnWidth  = MAX(1, m.tnWidth)
				m.tnHeight = MAX(1, m.tnHeight)
				LOCAL loLinGradBrush as xfcLinearGradientBrush
				m.loLinGradBrush = .Drawing2D.LinearGradientBrush.New(;
					.Rectangle.New(m.tnX, m.tnY, m.tnWidth, m.tnHeight), ;
					m.loColor1, m.loColor2, This.GradientShapeDirection)
				
				IF This.GradientType = 0 && SigmaBell
					m.loLinGradBrush.SetSigmaBellShape(This.GradientPosition, 1)
				ELSE && BlendTriangularShape
					m.loLinGradBrush.SetBlendTriangularShape(This.GradientPosition, 1.0)
				ENDIF 
		
				This._oMainBrush = m.loLinGradBrush
				
				
			CASE This._GeneralType = "Point" && Line, Point or Area Chart
		
				m.loColor2 = .COLOR.FromRGB(This.ChangeColor(m.lnMainColor, This.GradientLevel * 8))
		
				LOCAL loLinGradBrush as xfcLinearGradientBrush
				m.loLinGradBrush = .Drawing2D.LinearGradientBrush.New(;
					.Rectangle.New(m.tnX, m.tnY, m.tnWidth, m.tnHeight), ;
					m.loColor1, m.loColor2, This.GradientShapeDirection)
				IF This.GradientType = 0 && SigmaBell
					m.loLinGradBrush.SetSigmaBellShape(This.GradientPosition, 1)
				ELSE && BlendTriangularShape
					m.loLinGradBrush.SetBlendTriangularShape(This.GradientPosition, 1.0)
				ENDIF 
		
				This._oMainBrush = m.loLinGradBrush
		
			ENDCASE 
		
			This._o3DBrush = .SolidBrush.New(.Color.FromARGB(This.AlphaChannel, This.ChangeColor(m.lnMainColor, - 15)))
		
			
		
		CASE m.lnBrushType = 3 && Monochrome - HatchBrush
		
			LOCAL lnHatchBrushValue
			IF This.ChartsCount > 1 AND NOT This.SingleData && Pie, Bar or Donut
				m.lnHatchBrushValue = 4 + m.tnCount * 2
			ELSE
				m.lnHatchBrushValue = m.lnMainColor * 2
			ENDIF 
		
			This._oMainBrush = .Drawing2D.HatchBrush.New( ;
				m.lnHatchBrushValue, ; && HatchStyle
				This._oClrBlack, ; && ForeColor
				This._oClrWhite ) && BackColor
		
			This._o3DBrush = .Drawing2D.HatchBrush.New( ;
				m.lnHatchBrushValue , ; && HatchStyle
				.COLOR.Gray, ; && ForeColor
				.COLOR.LightGray ) && BackColor
		ENDCASE
		
		ENDWITH 
		
		RETURN  
	ENDPROC

	PROCEDURE _preparecolors
		SELECT(This._DataCursor)
		
		LOCAL lnColorType, n
		m.lnColorType = This.ColorType 
		
		
			IF NOT This.SingleData
		
				LOCAL lnColor, lcIndex
		
				DIMENSION This.aColors(This.ChartsCount)
			
				FOR m.n = 1 TO This.ChartsCount
					m.lcIndex = This._Str(m.N)
		
					DO CASE 
		
					CASE This.BrushType = 3 && Monochrome
						m.lnColor = 0
		
					CASE m.lnColorType = 0 && Basic Colors
						m.lnColor = This._GetBasicColor(m.n)
		
					CASE m.lnColorType = 1 && Custom
						m.lnColor = This.Fields(m.n).Color
		
						IF VARTYPE(m.lnColor) <> "N"
							m.lnColor = This._GetRandomColor()
						ENDIF 
		
		*			CASE m.lnColorType = 2 AND This._UpdateRandomColors   && Random
					CASE m.lnColorType = 2 AND ;
						(This._UpdateRandomColors OR VARTYPE(This.aColors(m.n)) = "L")    && Random or not initialized
		
						m.lnColor = This._GetRandomColor()
					
					CASE m.lnColorType = 2 AND NOT This._UpdateRandomColors   && Random
						RETURN  && Keep the current color
					
					CASE m.lnColorType = 3 && Gradient
						m.lnColor = This._GetGradientColor(m.n)	
		
					CASE m.lnColorType >= 4
						m.lnColor = This._GetPaletteColor(m.lnColorType - 4, m.n)
						
					ENDCASE 
					
					This.aColors(m.n) = m.lnColor
					
				ENDFOR 	
			ELSE
		
				DIMENSION This.aColors(This._nRecords)
		
				SCAN 
					m.n = RECNO()
					DO CASE 
				
					CASE This.BrushType = 3 && Monochrome
						m.lnColor = m.n
		
					CASE m.lnColorType = 0 && Basic Colors
						m.lnColor = This._GetBasicColor(m.n)
						
		*			CASE m.lnColorType = 2 AND This._UpdateRandomColors   && Random
					CASE m.lnColorType = 2 AND ;
						(This._UpdateRandomColors OR VARTYPE(This.aColors(m.n)) = "L")    && Random or not initialized
						m.lnColor = This._GetRandomColor()
					
					CASE m.lnColorType = 2 AND NOT This._UpdateRandomColors   && Random
						RETURN 
		
					CASE m.lnColorType = 3 && Gradient
						m.lnColor = This._GetGradientColor(m.n)
					
		
					CASE m.lnColorType = 1 AND NOT EMPTY(This.FieldColor) && Custom
						m.lnColor = nColor && Retrieve color from Field
		
					CASE m.lnColorType = 1 AND EMPTY(This.FieldColor) && Custom
						IF This._UpdateRandomColors
							m.lnColor = This._GetRandomColor()
						ELSE && no need to update, keep using the same prev color
							RETURN
						ENDIF 
		
		
					CASE m.lnColorType >= 4
						m.lnColor = This._GetPaletteColor(m.lnColorType - 4, m.n)
		
		
					OTHERWISE && Custom color and not Line or Area chart
								
					ENDCASE 
		
					This.aColors(m.n) = m.lnColor
		
				ENDSCAN 	
			ENDIF 
		
			This._UpdateRandomColors = .F.  
	ENDPROC

	PROCEDURE _preparedata
		LOCAL lcAlias, lcLegend, lcDetach, lcColor, lcSliceHidden, lcNumType, lcCast, lcCursor
		LOCAL lcAxis2 as String, ;
			lcValue1 as String, ;
			loExc as Object
		
		IF EMPTY(This._DataCursor) OR NOT USED(This._DataCursor)
			m.lcCursor		 = "FCharts_" + SYS(2015)
			This._DataCursor = m.lcCursor
		ELSE
			m.lcCursor = This._DataCursor
		ENDIF
		
		IF This.OldStyleProperties
			LOCAL luValue, n, lcN
			FOR m.n = 1 TO This.ChartsCount
				m.lcN = This._Str(m.n)
		
				m.luValue = EVALUATE("This.ChartType" + m.lcN)
				IF NOT EMPTY(m.luValue)
					This.Fields(m.n).ChartType = m.luValue
				ENDIF
		
				m.luValue = EVALUATE("This.FieldValue" + m.lcN)
				IF NOT EMPTY(m.luValue)
					This.Fields(m.n).FieldValue = m.luValue
				ENDIF
		
				m.luValue = EVALUATE("This.Legend" + m.lcN)
				IF NOT EMPTY(m.luValue)
					This.Fields(m.n).Legend = m.luValue
				ENDIF
		
				m.luValue = EVALUATE("This.Color" + m.lcN)
				IF NOT EMPTY(m.luValue)
					This.Fields(m.n).Color = m.luValue
				ENDIF
		
				m.luValue = EVALUATE("This.Shape" + m.lcN)
				IF NOT EMPTY(m.luValue)
					This.Fields(m.n).Shape  = m.luValue
				ENDIF
		
				m.luValue = EVALUATE("This.ShowValuesOnShape" + m.lcN)
				IF This.Fields(m.n).ShowValuesOnShape <> .F.
					This.Fields(m.n).ShowValuesOnShape = m.luValue
				ENDIF
		
				IF NOT EMPTY(This.FieldxAxis)
					This.FieldAxis2 = This.FieldxAxis
				ENDIF
		
			ENDFOR
		ENDIF
		
		
		
		
		WITH This
			m.lcAlias	  = .SourceAlias
			m.lcValue1	  = .Fields(1).FieldValue
			m.lcLegend	  = IIF(EMPTY(.FieldLegend), "SPACE(0)", .FieldLegend)
			m.lcDetach	  = IIF(EMPTY(.FieldDetachSlice), ".F.", .FieldDetachSlice)
			m.lcColor	  = IIF(EMPTY(.FieldColor), "EVALUATE('00000000')", .FieldColor)
			m.lcSliceHidden = IIF(EMPTY(.FieldHideSlice), ".F.", .FieldHideSlice)
			m.lcAxis2	  = IIF(EMPTY(.FieldAxis2), "SPACE(0)", .FieldAxis2)
		ENDWITH
		
		IF EMPTY(m.lcAlias) OR EMPTY(m.lcValue1) OR ("CC" <> (VARTYPE(m.lcAlias) + VARTYPE(m.lcValue1)))
			ERROR "Must specify properties SourceAlias and FieldValue"
			RETURN .F.
		ENDIF
		
		LOCAL lcFieldType, lnDecimals
		m.lcFieldType			= This._GetFieldType(m.lcAlias, m.lcValue1)
		m.lnDecimals			= VAL(GETWORDNUM(m.lcFieldType, 2, ","))
		This._ValueDecimals	= m.lnDecimals
		
		IF VARTYPE(EVALUATE(m.lcAlias + "." + m.lcValue1)) == "Y" && Currency
			This._ValueType	  = This._GetFieldType(m.lcAlias, m.lcValue1)
			This._ValueFormat = "Y"
			m.lcNumType		  = " AS " + This._ValueType
			m.lcCast			  = " CAST("
		ELSE
			This._ValueFormat = "N"
			m.lcNumType		  = ""
			m.lcCast			  = ""
		ENDIF
		
		LOCAL n, lcN, lcSQL, lcNameZ, lcValueZ, lcField
		m.lcSQL = ""
		
		
		
		
		FOR m.n = 1 TO This.ChartsCount
			m.lcN		= This._Str(m.N)
			m.lcField	= This.Fields(m.n).FieldValue
			m.lcNameZ	= m.lcCast + m.lcField + m.lcNumType + IIF(NOT EMPTY(m.lcCast), ") ", "")
			m.lcSQL	= m.lcSQL + m.lcNameZ + " AS nValue" + m.lcN + ", "
		
		* The field property cannot be empty.
			ASSERT (NOT EMPTY(m.lcField))  MESSAGE "Property: Fields(" + m.lcN + ").FieldValue was NOT assigned"
		
		ENDFOR
		
		
		SELECT * FROM (This.SourceAlias) INTO CURSOR FCharts_TempData READWRITE
		
		TRY
			SELECT &lcSQL ;
			&lcLegend AS cLegend, ;
			&lcDetach AS lDetach, ;
			&lcColor  AS nColor, ;
			&lcSliceHidden AS lSliceHidden, ;
			&lcAxis2 AS cAxis2 ;
			FROM FCharts_TempData ;
			INTO CURSOR &lcCursor READWRITE
		CATCH TO m.loExc
		
			LOCAL lcVersion, lcError, lcCRLF, lcLine
			m.lcCRLF = CHR(13) + CHR(10)
			m.lcError = "FoxCharts Error in the data source passed" + m.lcCRLF + m.lcCRLF + ;
			[Message: ] + m.loExc.MESSAGE +  m.lcCRLF + ;
			[Details: ] + m.loExc.DETAILS
			MESSAGEBOX(m.lcError, 16, "FoxCharts error")
		
			SELECT &lcSQL ;
			&lcLegend AS cLegend, ;
			&lcDetach AS lDetach, ;
			&lcColor  AS nColor, ;
			&lcSliceHidden AS lSliceHidden, ;
			&lcAxis2 AS cAxis2 ;
			FROM FCharts_TempData ;
			INTO CURSOR &lcCursor READWRITE
		ENDTRY
		
		This._nRecords = _Tally
		
		USE IN FCharts_TempData
		
		* Empty cursor stop processing
		IF This._nRecords = 0
			RETURN .F.
		ENDIF
		
		
		SELECT (m.lcCursor)
		
		* Prepare the array of points
		DIMENSION This._aPoints(This._nRecords, 3) && X, Y, Value
		
		* Create a DESCENDING index that can be used in some specific chart types
		INDEX ON RECNO() TAG Revert DESCENDING
		SET INDEX TO
		
		This._SkipPrepareData = .F.
		This._nMouseonShape	  = 0
		    
	ENDPROC

	PROCEDURE _preparelegend
		* Calculate the height of the X Axis
		SELECT(This._DataCursor)
		
		This.XAxis.Reset()
		
		LOCAL lcCaption, lnCurrWidth, lnMaxWidth, lnCurrHeight, lnMaxHeight, lnRotation, lnAxis2Height, lnMaxAxis2Width, lnWidth, lnHeight
		
		STORE 0 TO m.lnMaxWidth, m.lnMaxHeight, m.lnAxis2Height
		
		SCAN
			m.lcCaption =	ALLTRIM(TRANSFORM(cAxis2))
			IF NOT EMPTY(m.lcCaption)
				This.AxisLegend2.Caption = m.lcCaption
				m.lnCurrWidth = This.AxisLegend2._Width
				m.lnMaxWidth = MAX(m.lnMaxWidth, m.lnCurrWidth)
				
				m.lnCurrHeight = This.AxisLegend2._Height
				m.lnMaxHeight = MAX(m.lnMaxHeight, m.lnCurrHeight)
			ENDIF 
		ENDSCAN
		m.lnMaxAxis2Width = m.lnMaxWidth
		m.lnAxis2Height   = m.lnMaxHeight
		
		IF This._Orientation = 1 && Vertical
		
			m.lnRotation = This.AxisLegend2.Rotation
		
			IF This.AxisLegend2.Alignment = 1 && Right
				m.lnRotation = 360 - m.lnRotation
			ENDIF
		
			m.lnHeight = (SIN(DTOR(m.lnRotation)) * m.lnMaxAxis2Width) + This.AxisLegend2._Height
			m.lnHeight = MAX(m.lnAxis2Height, m.lnHeight)
		ELSE 
			IF This.ShowScale 
				This.ScaleLegend._Value = This._ScaleRange
				m.lnWidth = This.ScaleLegend._Width 	
				m.lnRotation = This.ScaleLegend.Rotation
				m.lnHeight = (SIN(DTOR(m.lnRotation)) * m.lnWidth) + This.ScaleLegend._Height
				m.lnAxis2Height = This.ScaleLegend._Height
				m.lnHeight = MAX(m.lnAxis2Height, m.lnHeight)
			ELSE
				m.lnHeight = 0
			ENDIF 
		ENDIF 
		
		This._XAxisHeight = IIF(EMPTY(This.XAxis.Caption), 0, This.XAxis._Height) + ;
							m.lnHeight + ;
							This.Margin + This.MarginBottom + ;
							IIF(INLIST(This.LegendPosition, 8, 9, 10), This._LegendHeight, 0) + ; && Bottom Side
							6
		
		This._LegendPixHeight = m.lnHeight
		
		RETURN  
	ENDPROC

	PROCEDURE _preparelegendinslice
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tnStart, tnSweep, tnValue, tnDistance
		
		IF EMPTY(m.tnDistance)
			m.tnDistance = MAX(This.PieLegendDistance, 0.10)
		ENDIF 
		
		* Calculate the coordinates to draw the Values inside the shapes
		This._AdjustStartSweep(@m.tnStart, @m.tnSweep, m.tnWidth, m.tnHeight)
		
		
		
			* Calculate positions
			LOCAL lnCenterX, lnCenterY
			m.lnCenterX = (m.tnWidth / 2)
			m.lnCenterY = (m.tnHeight / 2)
		
			* Create a GraphicsPath object.
			LOCAL lnAngle, lnDistance, xAdjust, yAdjust
			m.lnAngle = m.tnStart + (m.tnSweep / 2)
			m.lnDistance = m.tnDistance && This.PieLegendDistance 
		*	lnDistance = IIF(EMPTY(tnDistance), 0.75, tnDistance)
		
			LOCAL loTempPath as xfcGraphicsPath
			LOCAL loPoint as xfcPointF
			LOCAL loRect as xfcRectangle
			m.loTempPath = _Screen.System.Drawing.Drawing2D.GraphicsPath.New()
		
			* Obtaining the needed points
			m.xAdjust = (1 - m.lnDistance) / 2
			m.yAdjust = (1 - m.lnDistance) / 2
		
			m.loRect = _Screen.System.Drawing.Rectangle.New(m.tnX + m.xAdjust * m.tnWidth, ;
				m.tnY + m.yAdjust * m.tnHeight, ;
				m.lnDistance * m.tnWidth, ;
				m.lnDistance * m.tnHeight)
		
			m.loTempPath.AddArc(m.loRect, m.lnAngle, 0.0001)
			m.loPoint = m.loTempPath.GetLastPoint()
		
			* Send back the coordinates
			m.tnX = m.loPoint.X
			m.tnY = m.loPoint.Y
		
		RETURN  
	ENDPROC

	PROCEDURE _preparesidelegend
		*!*	Property LegendPosition
		*!*	Numeric, 
		*!*	Determines the position where the side legend wiil be drawn in the canvas.
		*1* 0 - No Legend
		*!*	1 - Vertical Top Left
		*!*	2 - Vertical Bottom Left
		*!*	3 - Vertical Top Right
		*!*	4 - Vertical Bottom Right
		*!*	5 - Horiz Top Left
		*!*	6 - Horiz Top Center
		*!*	7 - Horiz Top Right
		*!*	8 - Horiz Bottom Left
		*!*	9 - Horiz Bottom Center
		*!*	10 - Horiz Bottom Right
		*!*	11 - Vertical Center Left
		
		LOCAL lnChartsCount
		m.lnChartsCount = This.ChartsCount
		
		IF This.ChartType = 17 && Paired Bars
			m.lnChartsCount = MIN(2, m.lnChartsCount)
		ENDIF 
		
		
		LOCAL lnScale2W
		m.lnScale2W = 0
		IF This._MaxScale2 > 0
			LOCAL lnScale2W, lcCaption
			IF NOT EMPTY(This.ScaleLegend._ForceFormat)
				m.lcCaption = This._ScaleLegAxis2ForceFormat
			ELSE 
				m.lcCaption = TRANSFORM(This._MaxScale2, This.ScaleLegend.Format)
			ENDIF
			This.ScaleLegend.Caption = m.lcCaption
			m.lnScale2W = This.ScaleLegend._Width
			This._Axis2ScaleWidth = m.lnScale2W
		ENDIF 
		
		
		
		IF NOT This.ShowSideLegend OR This.LegendPosition = 0
			This._LegendWidth = MAX(5, (This.Margin + This.MarginRight))
			This._LegendHeight = 0
			This._TopOffSet    = This.Margin + This.MarginTop + This._TitleHeight
			This._LeftOffset   = This.Margin + This.MarginLeft
			This._RightOffSet  = This.Margin + This.MarginRight + m.lnScale2W
		
			* Leaving some extra space for the X Axis legends
			IF NOT EMPTY(This.FieldAxis2) AND This._AllowAxis
				* Measure the legend width
				This.AxisLegend2._Setup()
		
				* Last legend
				GO BOTTOM 
				
				LOCAL ln3D
				IF This._DeepChart && Point, Line or Area
					m.ln3D = This._3D * m.lnChartsCount
				ELSE
					m.ln3D = This._3D
				ENDIF
				
				This.AxisLegend2.Caption = cAxis2 && Field text
		
				IF m.ln3D < (This.AxisLegend2._Width / 2)
					This._RightOffSet  = This._RightOffSet + (This.AxisLegend2._Width / 2) - m.ln3D
				ENDIF 
			ENDIF 
			
			RETURN 
		ENDIF
		
		SELECT(This._DataCursor)
		
		This.SideLegend.Caption = "12"
		This.SideLegend.Reset()
		
		LOCAL lnCurrWidth, lnMaxWidth, lnCurrHeight, lnMaxHeight, lnLegendHeight, lnLegendPosition, n
		LOCAL loFont as xfcFont
		LOCAL loSize as xfcSize
		
		m.loFont = This.SideLegend._oFont 
		
		m.lnMaxWidth  = 0
		m.lnMaxHeight = 0
		m.lnLegendPosition = This.LegendPosition 
		
		* Measure the maximum legend width
		IF This.SingleData
			DIMENSION This._aSideLegends(This._nRecords, 2)
			SCAN
				m.n = RECNO()
				m.lcCaption = TRANSFORM(cLegend)
				IF This.LegendHideWhenNull
					IF ISNULL(This._GetValue(This.ChartRow, .T.)) && Accept NULLs
						m.lcCaption = ""
					ENDIF 
				ENDIF 
				
				m.loSize = This.oGfx.MeasureString(m.lcCaption, m.loFont)
		
				m.lnCurrWidth = m.loSize.Width
				m.lnMaxWidth = Max(m.lnMaxWidth, m.lnCurrWidth)
				
				m.lnCurrHeight = m.loSize.Height
				m.lnMaxHeight = Max(m.lnMaxHeight, m.lnCurrHeight)
				
				This._aSideLegends(m.n, 1) = m.lcCaption
				This._aSideLegends(m.n, 2) = m.lnCurrWidth
			ENDSCAN
			GO TOP
		
		ELSE 
			DIMENSION This._aSideLegends(m.lnChartsCount, 2)
			FOR m.n = 1 To m.lnChartsCount
				m.lcCaption = TRANSFORM(This.Fields(m.n).Legend)
				m.loSize = This.oGfx.MeasureString(m.lcCaption, m.loFont)
		
				m.lnCurrWidth = m.loSize.Width
				m.lnMaxWidth = Max(m.lnMaxWidth, m.lnCurrWidth)
				
				m.lnCurrHeight = m.loSize.Height
				m.lnMaxHeight = Max(m.lnMaxHeight, m.lnCurrHeight)
				
				This._aSideLegends(m.n, 1) = m.lcCaption
				This._aSideLegends(m.n, 2) = m.lnCurrWidth
			NEXT m.n
		
		ENDIF 
		
		DO CASE
		CASE INLIST(m.lnLegendPosition, 1, 2, 11) && Left Side
			This._LegendWidth = m.lnMaxWidth + m.lnMaxHeight + This._LegendExternalMargin * 2
			This._LegendHeight = 0
			This._LeftOffset  = This.Margin + This.MarginLeft + This._LegendWidth
			This._RightOffSet = This.Margin + This.MarginRight + m.lnScale2W
			This._TopOffSet   = This.Margin + This.MarginTop + This._TitleHeight
		
		CASE INLIST(m.lnLegendPosition, 3, 4, 12) && Right Side (Default)
			This._LegendWidth = m.lnMaxWidth + m.lnMaxHeight + This._LegendExternalMargin 
			This._LegendHeight = 0
			This._LeftOffset  = This.Margin + This.MarginLeft
			This._RightOffSet = This.Margin + This.MarginRight + This._LegendWidth + m.lnScale2W
			This._TopOffSet   = This.Margin + This.MarginTop + This._TitleHeight
		
		CASE INLIST(m.lnLegendPosition, 5, 6, 7) && Top Side
			This._LegendWidth = 0
			This._LegendHeight = m.lnMaxHeight + (This._LegendExternalMargin * 2)
			This._LeftOffset  = This.Margin + This.MarginLeft
			This._RightOffSet = This.Margin + This.MarginRight + m.lnScale2W
			This._TopOffSet   = This.Margin + This.MarginTop + This._TitleHeight + This._LegendHeight
			
		CASE INLIST(m.lnLegendPosition, 8, 9, 10) && Bottom Side
			This._LegendWidth = 0
			This._LegendHeight = m.lnMaxHeight + (This._LegendExternalMargin * 2)
			This._LeftOffset  = This.Margin + This.MarginLeft
			This._RightOffSet = This.Margin + This.MarginRight + m.lnScale2W
			This._TopOffSet   = This.Margin + This.MarginTop + This._TitleHeight
			
		OTHERWISE
		
		ENDCASE  
	ENDPROC

	PROCEDURE _preparetitle
		LOCAL lnTitleHeight, lnSubTitleHeight, lnTitleColor
		STORE 0 TO m.lnTitleHeight, m.lnSubTitleHeight
		
		* Check if Title was assigned
		IF NOT EMPTY(This.Title.Caption)
			This.Title.Reset()
			This.Title._DrawString(0, This.Margin + This.MarginTop, This.ChartCanvas.Width, This.ChartCanvas.Height)
			m.lnTitleHeight = This.Title._height 
		ENDIF
		
		
		* Check if SubTitle was assigned
		IF NOT EMPTY(This.SubTitle.Caption)
			This.SubTitle.Reset()
			This.SubTitle._DrawString(0, This.Margin + This.MarginTop + m.lnTitleHeight, This.ChartCanvas.Width, This.ChartCanvas.Height)
			m.lnSubTitleHeight = This.SubTitle._Height
		ENDIF
		
		This._TitleHeight = m.lnTitleHeight + m.lnSubTitleHeight
		
		RETURN     
	ENDPROC

	PROCEDURE _preparetooltip
		IF NOT This.ShowTips OR NOT This._InsideForm 
			RETURN
		ENDIF 
		
		LOCAL loTip as Label
		m.loTip = This.ToolTip 
		
		* Add the tooltips object to the form
		IF NOT PEMSTATUS(Thisform, "FoxChartsToolTip", 5)
			Thisform.AddObject("FoxChartsToolTip", "Label")
		ENDIF 
		
		
		WITH Thisform.FoxChartsToolTip as Label 
			.Alignment      = m.loTip.Alignment
			.Autosize       = m.loTip.AutoSize
			.BackColor      = m.loTip.BackColor
			.BackStyle      = m.loTip.BackStyle
			.BorderStyle    = m.loTip.BorderStyle
			.FontBold       = m.loTip.FontBold 
			.FontItalic     = m.loTip.FontItalic 
			.FontName       = m.loTip.FontName 
			.FontSize       = m.loTip.FontSize 
			.FontStrikethru = m.loTip.FontStrikethru 
			.FontUnderline  = m.loTip.FontUnderline 
			.ForeColor      = m.loTip.ForeColor 
			.WordWrap       = m.loTip.WordWrap
			.ZOrder(0)
		ENDWITH 
		
		BINDEVENT(Thisform.FoxChartsToolTip, "MouseMove", This.ToolTip, "MouseMove")  
	ENDPROC

	PROCEDURE _preparevariables
		LOCAL lnSumValue as Number, ;
			loExc as Object
		
		*TRY 
		
		SELECT(This._DataCursor)
		
		This._HasNegatives = .F.
		
		LOCAL lnValue
		
		DO CASE
		
			CASE INLIST(This.ChartType, 9, 10, 14) && Stacked Bars or Stacked Area
				* Get the maximum value of the chart
				Local i, lnTotal, lnMaxValue, lnMinValue
				m.lnMaxValue = 0
				Scan
					m.lnTotal = 0
		
					For m.i = 1 To This.ChartsCount
						m.lnValue = This._GetValue(m.i)
						IF m.lnValue < 0
							This._HasNegatives = .T.
						ENDIF 
						m.lnTotal = m.lnTotal + m.lnValue
					Endfor
					If Recno() = 1
						m.lnMinValue = m.lnTotal
					Else
						m.lnMinValue = Min(m.lnMinValue, m.lnTotal)
					Endif
		
					m.lnMaxValue = Max(m.lnMaxValue, m.lnTotal)
				Endscan
		
		
			Case This.SingleData
				Local lnMaxValue, lcField, lnMinValue
				m.lcField = (This._DataCursor) + ".nValue" + This._Str(This.ChartRow)
				Calculate Max (&lcField.) To m.lnMaxValue	for not IsNull (&lcField.)
				Calculate Min (&lcField.) To m.lnMinValue	for not IsNull (&lcField.)
				Calculate Sum (&lcField.) To m.lnSumValue for Nvl(&lcField. , 0) > 0
		
				This.ChartSum = m.lnSumValue
		
		
			CASE This.ChartType = 18 && Double Axis lines
		
		*!*	2Axis
		*!*	This.Fields(n).AxisIndex = 2
		
				* Get the maximum value of the chart
				* Start with the 2nd axis
				Local lnMaxValue, lnMaxValue1, i, lcField, lnRealChartsCount, lnMinValue, lnMinValue1
				m.lnMaxValue = 0
				m.lnRealChartsCount = This.ChartsCount
		
				LOCAL llHas2Axis  && Used to make sure we have data on the 2nd Y axis
				m.llHas2Axis = .F.
		
				FOR m.i = 1 To m.lnRealChartsCount
					IF This.Fields(m.i).AxisIndex = 1
						LOOP
					ENDIF
		
					m.llHas2Axis = .T.
					m.lcField = (This._DataCursor) + ".nValue" + This._Str(m.i)
		
					Calculate Max (&lcField.) To m.lnMaxValue1	for not IsNull (&lcField.)
					Calculate Min (&lcField.) To m.lnMinValue1	for not IsNull (&lcField.)
		
					* CCHALOM 2013-02-21
					* Fix in obtaining the Minimum value
					IF VARTYPE(m.lnMinValue) <> "N"
						m.lnMinValue = m.lnMinValue1
					ENDIF 
		
					IF m.lnMinValue1 < 0
						This._HasNegatives = .T.
					ENDIF 
		
					If m.i = 1
						m.lnMaxValue 	= m.lnMaxValue1
						m.lnMinValue 	= m.lnMinValue1
					Else
						m.lnMaxValue 	= Max(m.lnMaxValue, m.lnMaxValue1)
						* CCHALOM 2013-02-21
						* Fix in obtaining the Minimum value
						m.lnMinValue	= Min(m.lnMinValue, m.lnMinValue1)
					Endif
				Endfor
				IF m.llHas2Axis
					This._CalculateScale(m.lnMaxValue, m.lnMinValue, 2)
					This._ScaleLegend2ForceFormat = This.ScaleLegend._ForceFormat
					
					* CCHALOM 2013-02-21
					* Fix in getting a nice Scale legend format for both axes
					* New properties inserted: _ScaleLegAxis1ForceFormat , _ScaleLegAxis2ForceFormat 
					This._ScaleLegAxis2ForceFormat = This.ScaleLegend._ForceFormat
				ENDIF
		
				* Do the same for the 1st axis
				* Get the maximum value of the chart
				m.lnMaxValue = 0
				For m.i = 1 To m.lnRealChartsCount
		
					IF This.Fields(m.i).AxisIndex = 2
						LOOP
					ENDIF
		
					m.lcField = (This._DataCursor) + ".nValue" + This._Str(m.i)
		
					Calculate Max (&lcField.) To m.lnMaxValue1	for not IsNull (&lcField.)
					Calculate Min (&lcField.) To m.lnMinValue1	for not IsNull (&lcField.)
		
					IF m.lnMinValue1 < 0
						This._HasNegatives = .T.
					ENDIF 
		
					If m.i = 1
						m.lnMaxValue 	= m.lnMaxValue1
						m.lnMinValue 	= m.lnMinValue1
					Else
						m.lnMaxValue 	= Max(m.lnMaxValue, m.lnMaxValue1)
						m.lnMinValue	= Min(m.lnMinValue, m.lnMinValue1)
					Endif
				Endfor
		
		
			OTHERWISE
		
				* Get the maximum value of the chart
				Local lnMaxValue, lnMaxValue1, i, lcField, lnRealChartsCount, lnMinValue, lnMinValue1
				m.lnMaxValue = 0
				m.lnRealChartsCount = Iif(Inlist(This.ChartType, 1,2,7,12),1,This.ChartsCount)
				For m.i = 1 To m.lnRealChartsCount
					m.lcField = (This._DataCursor) + ".nValue" + This._Str(m.i)
		
					Calculate Max (&lcField.) To m.lnMaxValue1	for not IsNull (&lcField.)
					Calculate Min (&lcField.) To m.lnMinValue1	for not IsNull (&lcField.)
		
					IF VARTYPE(m.lnMinValue) <> "N"
						m.lnMinValue = m.lnMinValue1
					ENDIF 
		
					IF m.lnMinValue1 < 0
						This._HasNegatives = .T.
					ENDIF 
		
					If m.i = 1
						m.lnMaxValue 	= m.lnMaxValue1
						m.lnMinValue 	= m.lnMinValue1
					Else
						m.lnMaxValue 	= Max(m.lnMaxValue, m.lnMaxValue1)
						m.lnMinValue	= Min(m.lnMinValue, m.lnMinValue1)
					Endif
				Endfor
		
		Endcase
		
		This._CalculateScale(m.lnMaxValue, m.lnMinValue)
		
		* CCHALOM 2013-02-21
		* Fix in getting a nice Scale legend format for both axes
		* New properties inserted: _ScaleLegAxis1ForceFormat , _ScaleLegAxis2ForceFormat 
		This._ScaleLegAxis1ForceFormat = This.ScaleLegend._ForceFormat
		
		DIMENSION This._aShapes(This.ChartsCount,3)
		This._aShapes = ""
		
		IF NOT This._Using3D
			This._3D = This.Depth 
		ENDIF 
		
		**	CATCH TO m.loExc
		**		SET STEP ON 
		
		**	ENDTRY 
		
	ENDPROC

	PROCEDURE _ps
		LPARAMETERS tcPrp, toCtrl, tnType
		
		LOCAL lcExpr as String
		DO CASE
		CASE m.tnType = 1 && GETCOLOR
		
			LOCAL luOrig,lnClr,lcRet
			m.lcExpr = EVAL("toCtrl."+m.tcPrp)
			IF VARTY(m.lcExpr)="C"
				IF LEFT(m.lcExpr,1) = "="
					m.lcExpr=EVALUATE(STRTR(m.lcExpr,"=","",1,1))
				ELSE
					m.lcExpr = 0
				ENDIF
			ENDIF
		
			m.luOrig = EVL(m.lcExpr, 0)
			m.lnClr = GETCOLOR(m.luOrig)
			m.lnClr = IIF(m.lnClr=-1,m.luOrig,m.lnClr)
		
			m.lcRet = TEXTMERGE( ;
				"<<MOD(lnClr,256)>>,<<MOD(INT(lnClr/256),256))>>,<<MOD(INT(lnClr/65536),256)))>>")
			m.toCtrl.WRITEEXPRESSION(m.tcPrp, "")
			STORE m.lcRet TO ("toCtrl." + m.tcPrp)
		
		OTHERWISE
		
		ENDCASE  
	ENDPROC

	PROCEDURE _setfieldscount
		LPARAMETERS tnCnt
		LOCAL loData
		
		*--MW-->The stock method handled adding fields to the collection but not removing them.
		IF This.Fields.Count <> m.tnCnt
			LOCAL lnIncr, lnFieldNo
			m.lnIncr = m.tnCnt - This.Fields.Count
		
			DO WHILE This.Fields.Count <> m.tnCnt
				IF m.lnIncr > 0
					*--Adding fields
					m.loData = This._NewField()
					This.Fields.Add(m.loData)
				ELSE
					*--Removing fields
					m.lnFieldNo = This.Fields.Count
					This.Fields.Remove(m.lnFieldNo)
				ENDIF
			ENDDO
		
			*--Make sure the ChartsCount matches.
			This.ChartsCount = m.tnCnt
		ENDIF    
	ENDPROC

	PROCEDURE _spellproperty
		LPARAMETERS tcProperty
		
		* Returns upper/lower case name of property
		
		LOCAL lcList, lnPos
		
		IF EMPTY(This._SpellingList)
		
			m.lcList = ".AlphaChannel.Area3dTop.AreaDrawBorders.AxisAlpha.AxisColor.AxisLegend2.Alignment.BackColor.BackColorAlpha.FontBold"
			m.lcList = m.lcList + ".FontCharSet.FontItalic.FontName.FontSize.FontUnderline.ForeColor.ForeColorAlpha.Format.Rotation.BackColor2.BackGradientMode"
			m.lcList = m.lcList + ".BarsPerScale.BarsSpaceBetween.BarType.BrushType.ChangeColorOnMouse.ChartRow.ChartsCount.ChartType"
			m.lcList = m.lcList + ".ColorType.Depth.DonutRatio.FieldAxis2.FieldColor.FieldDetachSlice.FieldHideSlice.FieldLegend.Fields.Color"
			m.lcList = m.lcList + ".FieldValue.Legend.Shape.Gradientlevel.LegendHideWhenNull.LineCaps.Margin"
			m.lcList = m.lcList + ".MarginBottom.MarginLeft.MarginRight.MarginTop.MaxValue.MinNumberScaleLegends.MinValue.MultiChart.OldStyleProperties"
			m.lcList = m.lcList + ".PieCompensateAngles.PieDetachAnimationSteps.PieDetachPixels.PieDetachSliceOnClick.PieEnhancedDrawing.PieShowPercent"
			m.lcList = m.lcList + ".PointShapeWidth.Scale.ScaleBackAlpha.ScaleBackBarsType.ScaleBackColor.ScaleBackLinesDash.ScaleBackLinesType"
			m.lcList = m.lcList + ".ScaleBackLinesWidth.ScaleLegend.ScaleLineColor.ScaleLineZeroColor.ScaleStartValue.SelectedShapeColor.Shape1"
			m.lcList = m.lcList + ".ShapeLegend.ShowAxis.ShowLineZero.ShowScale.ShowSideLegend.ShowTips.ShowValuesOnShapes.ShowValueZero.SideLegend"
			m.lcList = m.lcList + ".SourceAlias.SubTitle.Title.XAxis.YAxis.YAxis2.Caption"
		
			* Add the new Properties since version 1.00RC
			m.lcList = m.lcList + ".GradientInvertColors.GradientPosition.GradientShapeDirection.GradientType.PieGradCenterAngle"
			m.lcList = m.lcList + ".PieGradCenterDistance.ScaleDivider.Shadow.ShapeMousePointer.LegendPosition"
			m.lcList = m.lcList + ".Debug.ScaleAutoFormat.ShowValuesOnShape.ShowValuesOnShapes.BarLegendDirection"
			m.lcList = m.lcList + ".QualityCompositing.QualitySmoothing.QualityTextRenderingHint.BarLegendType"
			m.lcList = m.lcList + ".LineCapsShape.PieDetachSliceOnLegendClick.MultiChartMargin.BarLegendDirection"
			m.lcList = m.lcList + ".PieForceCircle.RotationCenter"
			m.lcList = m.lcList + ".PieLegendDistance.ShapeLegendExpression.ShowAxis2Tics.TicLength"
			m.lcList = m.lcList + ".PieDirection.Width.Height.ShowPercentages"
		
			This._spellinglist = m.lcList
		
		ENDIF 
		
		m.lnPos = ATCC("." + UPPER(m.tcProperty) + ".", This._spellinglist + ".")
		IF m.lnPos # 0
			RETURN SUBSTR(This._spellingList, m.lnPos + 1, LEN(m.tcProperty))
		ELSE
			RETURN m.tcProperty
		ENDIF
		  
	ENDPROC

	PROCEDURE _str
		LPARAMETERS tnValue
		RETURN ALLTRIM(STR(m.tnValue,2,0))  
	ENDPROC

	PROCEDURE _updatechartinfo
		*!*	Chart Type Values:
		*!*		 1 - Pie
		*!*		 2 - Doughnut
		*!*		 3 - Full-Stacked Bars
		*!*		 4 - Points
		*!*		 5 - Lines
		*!*		 6 - Area
		*!*		 7 - Simple Bars
		*!*		 8 - Multiple Bars
		*!*		 9 - Stacked Bars
		*!*		10 - Stacked Area
		*!*		11 - 3D Bars
		*!*		12 - Horiz. Simple Bars
		*!*		13 - Horiz. Multiple Bars
		*!*		14 - Horiz. Stacked Bars
		*!*		15 - Horiz. Full-Stacked Bars
		*!*		16 - Full-Stacked Area
		*!*     17 - Paired Bars 
		*!*		18 - Double-Axis Lines
		
		LOCAL lnChart, llDeep, llAxis, llSingleData, lnOrientation, llFullStacked, ;
				llAbsoluteScale, llChartsCount, llScalePercent
		Local lcType as String, ;
			llStacked as Boolean, ;
			llUseAxis as Boolean
		m.lnChart = This.ChartType 
		
		
		DO CASE
		CASE m.lnChart = 1 && Pie
			m.llDeep = .F.
			m.llAxis = .F.
			m.llSingleData = .T.
			m.lcType = "Pie"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .F.
			m.llFullStacked = .T.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
		
		CASE m.lnChart = 2 && Doughnut
			m.llDeep = .F.
			m.llAxis = .F.
			m.llSingleData = .T.
			m.lcType = "Pie"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .F.
			m.llFullStacked = .T.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
						
		CASE m.lnChart = 4 && Point
			m.llDeep = .T.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Point"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .F.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
					
		CASE INLIST(m.lnChart, 5, 18) && Line
			m.llDeep = .T.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Point"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .F.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
			
		CASE m.lnChart = 6 && Area
			m.llDeep = .T.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Point"
			m.lnOrientation = 1 && Vertical	
			m.llUseAxis = .T.
			m.llFullStacked = .F.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
				
		CASE m.lnChart = 7 && Simple Bar
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .T.
			m.lcType = "Bar"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .T.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
			
		CASE m.lnChart = 8 && Multiple Bars
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Bar"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .T.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
		
		CASE m.lnChart = 9 && Stacked Bars
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Bar"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .F.
			m.llStacked = .T.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
					
		CASE m.lnChart = 10 && Stacked Area
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Point"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .T.
			m.llStacked = .T.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
		
		CASE m.lnChart = 11 && 3d Bars
			m.llDeep = .T.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Bar"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .F.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
		
		CASE m.lnChart = 12 && Horizontal Bars
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .T.
			m.lcType = "Bar"
			m.lnOrientation = 2 && Horizontal
			m.llUseAxis = .T.
			m.llFullStacked = .T.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
		
		CASE m.lnChart = 13 && Horizontal Multiple Bars
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Bar"
			m.lnOrientation = 2 && Horizontal
			m.llUseAxis = .T.
			m.llFullStacked = .T.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
		
		CASE m.lnChart = 14 && Horizontal Stacked Bars
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Bar"
			m.lnOrientation = 2 && Horizontal
			m.llUseAxis = .T.
			m.llFullStacked = .F.
			m.llStacked = .T.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .F.
		
		CASE m.lnChart = 3 && Full-Stacked Bars
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Bar"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .T.
			m.llStacked = .T.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .T.
		
		CASE m.lnChart = 15 && Horizontal Full-Stacked Bars
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Bar"
			m.lnOrientation = 2 && Horizontal
			m.llUseAxis = .T.
			m.llFullStacked = .T.
			m.llStacked = .F.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .T.
		
		CASE m.lnChart = 16 && Full-Stacked Area
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Point"
			m.lnOrientation = 1 && Vertical
			m.llUseAxis = .T.
			m.llFullStacked = .T.
			m.llStacked = .T.
			m.llAbsoluteScale = .F.
			m.llScalePercent = .T.
			
		CASE m.lnChart = 17 && Paired Bars
			m.llDeep = .F.
			m.llAxis = .T.
			m.llSingleData = .F.
			m.lcType = "Bar"
			m.lnOrientation = 2 && Horizontal
			m.llUseAxis = .T.
			m.llFullStacked = .T. && F
			m.llStacked = .F.
			m.llAbsoluteScale = .T.
			m.llScalePercent = .F.
					
		OTHERWISE
		*	ERROR "Chart type " + TRANSFORM(lnChart) + " does not exist"
			
		ENDCASE
		
		This._DeepChart   = m.llDeep
		This._AllowAxis   = m.llAxis
		This.SingleData   = m.llSingleData
		This._GeneralType = m.lcType
		This._Orientation = m.lnOrientation
		This._UseAxis     = m.llUseAxis
		This._SumRow      = m.llFullStacked
		This._STACKED     = m.llStacked
		This._AbsoluteScaleValues = m.llAbsoluteScale
		This._ScaleInPercent = m.llScalePercent
		
		
		* Clear the chart coodinates
		IF NOT This._InReport
			This.aCoord = .F.
		ENDIF 
		
		This._nIndex = 0
		This.ShapeLegend._ForceFormat = ""  
	ENDPROC

	PROCEDURE _updatecoordinates
		LPARAMETERS tcObjType, tnX, tnY, tnWidth, tnHeight, tnValue, tnStart, tnSweep
		***                                                          SumofTheRow  
		SELECT (This._DataCursor)
		
		* During DrawReport(), there's no need to update the coordinates
		*!*	IF This._InReport 
		*!*		RETURN
		*!*	ENDIF 
		
		*!*	IF NOT This.ShowTips
		*!*		RETURN
		*!*	ENDIF
		
		LOCAL n
		m.n = This._nIndex + 1
		This._nIndex = m.n
		
		DIMENSION This.aCoord(m.n,12)
		
		This.aCoord(m.n,1) = m.tnX
		This.aCoord(m.n,2) = m.tnY
		This.aCoord(m.n,3) = m.tnWidth
		This.aCoord(m.n,4) = m.tnHeight
		This.aCoord(m.n,5) = m.tnValue
		* This.aCoord(n,6) = Legend
		This.aCoord(m.n,7) = m.tnStart
		This.aCoord(m.n,8) = m.tnSweep
		This.aCoord(m.n,9) = This._ChartIndex && ChartRow
		
		IF m.tcObjType = "Legend"
			&& on "Legend" mode, tnValue passes the index
			This.aCoord(m.n,10) = IIF(NOT EMPTY(This._Currentrow), This._CurrentRow, m.tnValue)
			This.aCoord(m.n,6) = IIF(VARTYPE(m.tnStart) = "C", m.tnStart, "")
		ELSE
			This.aCoord(m.n,10) = IIF(NOT EMPTY(This._Currentrow), This._CurrentRow, RECNO())
		
			LOCAL lcLegend
			IF This.SingleData && Pie, Donut or Single Bar
				m.lcLegend = cLegend 
			ELSE
				m.lcLegend = This.Fields(This._ChartIndex).Legend
			ENDIF
			This.aCoord(m.n,6) = ALLTRIM(TRANSFORM(m.lcLegend))
		ENDIF 
		
		This.aCoord(m.n,11) = m.tcObjType
		This.aCoord(m.n,12) = IIF(m.tcObjType = "Rect" and not EMPTY(m.tnStart), m.tnStart, 0) && Sum of the current row
		  
	ENDPROC

	PROCEDURE _updatequality
		LOCAL loCanvas as xfcImgCanvas OF "GdiPlusX.vcx"
		m.loCanvas = This.ChartCanvas
		
		m.loCanvas.SmoothingMode = This.QualitySmoothing
		m.loCanvas.TextRenderingHint = This.QualityTextRenderingHint 
		m.loCanvas.oGfx.CompositingQuality = This.QualityCompositing   
	ENDPROC

	PROCEDURE ChartCanvas.activate
		DODEFAULT()
		This.Parent._GetRelativePositions()
	ENDPROC

	PROCEDURE ChartCanvas.beforedraw
		This.Parent._BeforeDraw()
	ENDPROC

	PROCEDURE ChartCanvas.Click
		LOCAL lnValue, lcLegend, lcObjType, lnCoordIndex
		lnCoordIndex = 0
		
		LOCAL lnX, lnY
		lnX = MCOL(0,3)
		lnY = MROW(0,3)
		
		This.Parent._CheckMousePosition(0, 0, lnX, lnY, @lnValue, @lcLegend, @lnCoordIndex, @lcObjType)
		
		This.Parent.CurrValue = lnValue
		This.Parent.CurrLegend = lcLegend
		This.Parent.CurrIndex = lnCoordIndex
		This.Parent.CurrObjType = lcObjType
		
		This.Parent.Click()
		
		RETURN
	ENDPROC

	PROCEDURE ChartCanvas.DblClick
		LOCAL lnValue, lcLegend, lcObjType, lnCoordIndex, lnX, lnY
		lnCoordIndex = 0
		lnX = MCOL(0,3)
		lnY = MROW(0,3)
		**12.4.2013 KP: changed parameters - set tcLegend 
		*!*Lparameters                  tnButton, tnShift, tnXCoord, tnYCoord, tlnValue, tcLegend, tlnCoordIndex, tlcObjType
		This.Parent._CheckMousePosition(0,              0,      lnX,      lnY, @lnValue, '',       @lnCoordIndex, @lcObjType)
		This.Parent.CurrIndex = lnCoordIndex
		This.Parent.DblClick()
		
		RETURN
	ENDPROC

	PROCEDURE ChartCanvas.Destroy
		IF NOT EMPTY(This.Parent._DataCursor) AND USED(This.Parent._DataCursor)
			USE IN (This.Parent._DataCursor)
		ENDIF 
		
		DODEFAULT()
		
		
	ENDPROC

	PROCEDURE ChartCanvas.Init
		This.Width  = This.Parent.Width
		This.Height = This.Parent.Height 
		
		DODEFAULT()
	ENDPROC

	PROCEDURE ChartCanvas.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		Thisform.FoxChartsToolTip.Visible = .F.
		
		WITH This.Parent
			IF .ChangeColoronMouse AND ;
					(NOT BETWEEN(.Left, nXCoord - .Left, .Width  - .Left) AND ;
					NOT BETWEEN(.Top , nXCoord - .Top , .Height - .Top ))
		
				._nMouseOnShape = 0
				._SkipPrepareData = .T.
		
				IF ._Drawing = .F.
					.DrawChart()
				ELSE 
					._Redraw = .T.
				ENDIF 
		
			ENDIF 
		ENDWITH 
	ENDPROC

	PROCEDURE ChartCanvas.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		
		LOCAL lnValue, lcLegend, lcObjType, lnCoordIndex
		m.lnCoordIndex = 0
		
		WITH This.Parent
		
			._CheckMousePosition(nButton, nShift, nXCoord, nYCoord, @lnValue, @lcLegend, @lnCoordIndex, @lcObjType)
		
		
			* Update the index property, that will allow all the other "curr"properties to be up to date
			This.Parent.Currindex = lnCoordIndex
		
			* Prepare the ToolTips
			LOCAL lcType
			m.lcType = VARTYPE(m.lnValue) + VARTYPE(m.lcLegend)
		
			LOCAL loTip as Label
			m.loTip = Thisform.FoxChartsToolTip
		
			IF m.lcType <> "NC"
				m.loTip.Visible = .F.
				This.MousePointer = ._OrigMousePointer &&   = 0 && Default
			ELSE
				IF .ShowTips
					.ShapeToolTip(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex, m.lcObjType)
		
		
		* Fix by Christof Wollenhaupt
		* WorkItem #20978
		* http://www.codeplex.com/VFPX/WorkItem/View.aspx?WorkItemId=20978
		*
		*			IF 	TYPE("_Screen.ActiveForm") == "O" AND ;
							(_Screen.ActiveForm = Thisform) AND ;
							NOT EMPTY(m.loTip.Caption)
		
					IF 	TYPE("_Screen.ActiveForm") == "O" AND ;
							NOT EMPTY(m.loTip.Caption)
		
		
		
						LOCAL lnLeft, lnTop, lnWidth, lnHeight, lnX, lnY
						lnX = m.nXCoord
						lnY = m.nYCoord 
						
						m.lnWidth  = m.loTip.Width
						m.lnHeight = m.loTip.Height
		
						m.lnLeft = lnX + 1
						IF m.lnLeft + m.lnWidth > Thisform.Width
							m.lnLeft = Thisform.Width - m.lnWidth
						ENDIF
		
						m.lnTop = lnY - m.lnHeight - 1
						IF m.lnTop < 0
							m.lnTop = 0
						ENDIF
		
						m.loTip.Left = m.lnLeft
						m.loTip.Top  = m.lnTop
		
						IF m.loTip.Visible = .F.
							m.loTip.Visible = .T.
						ENDIF
					ELSE
						m.loTip.Visible = .F.
					ENDIF 
		
				ENDIF
			ENDIF
		
			m.lcObjType = IIF(EMPTY(m.lcObjType),"", m.lcObjType)
			m.lcLegend  = IIF(EMPTY(m.lcLegend),"", m.lcLegend)
		
			.MouseMove(nButton, nShift, nXCoord, nYCoord, m.lnValue, m.lcLegend, m.lnCoordIndex, m.lcObjType)
		
		ENDWITH
		
		RETURN
	ENDPROC

	PROCEDURE ChartCanvas.MouseUp
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		
		LOCAL lnValue, lcLegend, lcObjType, lnCoordIndex
		lnCoordIndex = 0
		
		
		This.Parent._CheckMousePosition(nButton, nShift, nXCoord, nYCoord, @lnValue, @lcLegend, @lnCoordIndex, @lcObjType)
		
		* Update the index property, that will allow all the other "curr"properties to be up to date
		This.Parent.Currindex = lnCoordIndex
		
		This.Parent.MouseUp(nButton, nShift, nXCoord, nYCoord, lnValue, lcLegend, lnCoordIndex, lcObjType)
		
		IF This.Parent._GeneralType = "Pie"
		
			IF lcObjType = "Pie" AND This.Parent.PieDetachSliceonClick
				This.Parent._DetachClickedSlice(lnCoordIndex)
			ENDIF 
		
			IF lcObjType = "Legend" AND This.Parent.PieDetachSliceonLegendClick
				This.Parent._DetachClickedSlice(lnCoordIndex)
			ENDIF 
		
		ENDIF
		
		RETURN
	ENDPROC

	PROCEDURE ScaleLegend._updatemeasures
		LPARAMETERS tlNumeric
		
		IF VARTYPE(This.Parent.oGfx) <> "O"
			RETURN
		ENDIF 
		
		* Measure the Legend height
		IF VARTYPE(This._oBrush) + VARTYPE(This._oFont) <> "OO" OR (This._initialized = .F.)
			This._Setup()
		ENDIF 
		
		LOCAL lcCaption, lcFormat
		
		* _ForceFormat is a forced formatting managed directly from FoxCharts
		lcFormat = IIF(EMPTY(ALLTRIM(This._ForceFormat)), This.Format, ALLTRIM(This._ForceFormat))
		
		IF tlNumeric
			lcCaption = ALLTRIM(TRANSFORM(This._Value, lcFormat))
		ELSE
			lcCaption = This.Caption
		ENDIF
		
		LOCAL loSize as xfcSize
		
		IF NOT EMPTY(lcCaption) && Modified by Paul Newton 12 Jul 2010
			loSize = This.Parent.oGfx.MeasureString(lcCaption, This._oFont) &&, This._oStringFormat)
			This._Height = loSize.Height
			This._Width = loSize.Width
		ELSE
			This._Height = 0
			This._Width = 0
		ENDIF
		
		This._TransfCaption = lcCaption
	ENDPROC

	PROCEDURE ShapeLegend.caption_assign
		lparameters tcText
		This.Caption = tcText
		
		This._UpdateMeasures()
		
	ENDPROC

	PROCEDURE ShapeLegend._drawstring
		LPARAMETERS tnX, tnY, tnWidth, tnHeight, tlVertical
		
		LOCAL x1, y1, lnAlign, lnMode, xBack, llBar
		llBar = IIF(This.Parent.Name = "ShapeLegend",.T., .F.)
		
		lnMode = 0 && 0 = x,y Coordinates    ;    1 = xfcRectangle coordinates
		lnAlign = This.Alignment
			* 0 = Left    1 = Right    2 = Center
		
		LOCAL loGfx as xfcGraphics
		loGfx = This.Parent.oGfx
		
		
		WITH _Screen.System.Drawing
		
			DO CASE
		
			CASE VARTYPE(tnWidth) + VARTYPE(tnHeight) = "NN"
				lnMode = 1
		
				* Create a STRINGFORMAT object in order to draw the string centered in the image
				LOCAL loStringFmt as xfcStringFormat
				LOCAL lnGdipAlign
				loStringFmt = .StringFormat.New()
				DO CASE
				CASE lnAlign = 2 && Center
					lnGdipAlign = .StringAlignment.Center
				CASE lnAlign = 1
					lnGdipAlign = .StringAlignment.Far
				OTHERWISE 
					lnGdipAlign = .StringAlignment.Near
				ENDCASE
				loStringFmt.Alignment = lnGdipAlign
		
				IF tlVertical
					loStringFmt.FormatFlags   = .StringFormatFlags.DirectionVertical
					loStringFmt.LineAlignment = .StringAlignment.Center
				ENDIF
		
				LOCAL loSize as xfcSize
				IF tlVertical
					loSize = .Size.New(This.Parent.Width, This.Parent.Height)
				ELSE
		 			loSize = .Size.New(tnWidth, tnHeight)
				ENDIF 
		
				loSize = loGfx.MeasureString(;
					This._TransfCaption, This._oFont, loSize, loStringFmt)
				This._Height = CEILING(loSize.Height)
				This._Width  = CEILING(loSize.Width)
		
				LOCAL loRect as xfcRectangle
				loRect = .Rectangle.New(tnX, tnY, tnWidth, This._Height)
		
				x1 = tnX
				y1 = tnY
		
				IF tlVertical
					xBack = tnX + tnWidth / 2 - (This._Width / 2)
		
					DO CASE
					CASE lnAlign = 0 && Left
						y1 = tnY
					CASE lnAlign = 1 && Right
						y1 = tnY + tnHeight - This._Height
					CASE lnAlign = 2 && Center
						y1 = tnY + (tnHeight / 2) - (This._Height / 2)
					ENDCASE
		
				ELSE
		
					DO CASE
					CASE lnAlign = 0 && Left
						xBack = tnX
		
					CASE lnAlign = 1 && Right
						xBack = tnX + tnWidth - This._Width
		
					CASE lnAlign = 2 && Center
						xBack = tnX + (tnWidth - This._Width) / 2
		
					ENDCASE
				ENDIF
		
			CASE lnAlign = 0 && Left
				STORE tnX TO x1, xBack
				y1 = tnY
		
			CASE lnAlign = 1 && Right
				x1 = tnX - This._Width
				xBack = x1
				y1 = tnY
		
			CASE lnAlign = 2 && Center
				x1 = tnX - (This._Width / 2)
				xBack = x1
				y1 = tnY
		
			ENDCASE
		
		
			LOCAL lnRotation
			lnRotation = This.Rotation
		
			IF lnRotation <> 0
				WITH _SCREEN.System.Drawing
					LOCAL loPointF as xfcPointF
					LOCAL loMatrix as xfcMatrix
					loMatrix = .Drawing2D.Matrix.New()
		
					IF lnMode = 1
						loPointF = .PointF.New(tnX, tnY) && this is the point of rotation
		
					ELSE
		
						DO CASE
						CASE lnAlign = 0 && Left
							loPointF = .PointF.New(x1 + 5, y1 + This._Height / 2) && this is the point of rotation
		
						CASE lnAlign = 1 && Right
							loPointF = .PointF.New(x1 + This._Width - 5, y1 + This._Height / 2) && this is the point of rotation
		
						CASE lnAlign = 2 && Center
							loPointF = .PointF.New(x1 + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation
		
						ENDCASE
					ENDIF
		
					loMatrix.RotateAt(lnRotation, loPointF)
					loGfx.MultiplyTransform(loMatrix)
				ENDWITH
			ENDIF
		
			lnRotationCenter = This.RotationCenter
			* Center Rotation
			IF lnRotationCenter <> 0
				WITH _SCREEN.System.Drawing
					LOCAL loPointFC as xfcPointF
					LOCAL loMatrixC as xfcMatrix
					loMatrixC = .Drawing2D.Matrix.New()
		*			loPointFC = .PointF.New(x1 + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation
					loPointFC = .PointF.New(xBack + This._Width / 2, y1 + This._Height / 2) && this is the point of rotation
		
					loMatrixC.RotateAt(lnRotationCenter, loPointFC)
					loGfx.MultiplyTransform(loMatrixC)
				ENDWITH
			ENDIF
		
		
			IF This.BackColorAlpha > 0
				* Draw the BackGround Rectangle
				WITH _Screen.System.Drawing
					IF lnMode = 0 && default
						loGfx.FillRectangle( ;
							.SolidBrush.New(.Color.FromARGB(This.BackColorAlpha, This.BackColor)), ;
							x1, y1, This._Width, This._Height)
					ELSE
						loGfx.FillRectangle( ;
							.SolidBrush.New(.Color.FromARGB(This.BackColorAlpha, This.BackColor)), ;
							xBack, y1, This._Width, This._Height)
					ENDIF
				ENDWITH
			ENDIF
		
			* Draw the Text
			IF lnMode = 0
				LOCAL loStringFmt as xfcStringFormat
				LOCAL lnGdipAlign
				loStringFmt = .StringFormat.New()
				DO CASE
				CASE lnAlign = 2 && Center
					lnGdipAlign = .StringAlignment.Center
				CASE lnAlign = 1
					lnGdipAlign = .StringAlignment.Far
				OTHERWISE 
					lnGdipAlign = .StringAlignment.Near
				ENDCASE
				loStringFmt.Alignment = lnGdipAlign
		
				loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, ;
					.Rectangle.New(x1, y1, CEILING(This._Width), This._Height + 2), ;
					loStringFmt)
			ELSE
				IF tlVertical
					loRect = .Rectangle.New(xBack, y1, This._Width, This._Height)
					loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, loRect, loStringFmt)
				ELSE
					loGfx.DrawString(This._TransfCaption, This._oFont, This._oBrush, loRect, loStringFmt)
				ENDIF
			ENDIF
		
			IF lnRotation <> 0 OR lnRotationCenter <> 0
				loGfx.ResetTransform()
			ENDIF
		
		ENDWITH
		RETURN
	ENDPROC

	PROCEDURE ShapeLegend._updatemeasures
		LPARAMETERS tlNumeric
		IF VARTYPE(THIS.oGfx)#'O' AND THIS.IsParent
			THIS.oGfx = THIS.PARENT.oGfx
		ENDIF
		
		IF VARTYPE(THIS.oGfx) <> "O"
			RETURN
		ENDIF
		
		* Measure the Legend height
		IF VARTYPE(THIS._oBrush) + VARTYPE(THIS._oFont) <> "OO" OR NOT THIS._initialized
			THIS._Setup()
		ENDIF
		
		LOCAL lcCaption, lcFormat
		
		* _ForceFormat is a forced formatting managed directly from FoxCharts
		lcFormat = IIF(EMPTY(ALLTRIM(THIS._ForceFormat)), THIS.FORMAT, ALLTRIM(THIS._ForceFormat))
		
		IF tlNumeric
			IF VARTYPE(THIS._Value) = "C"
				lcCaption = THIS._Value
			ELSE
		
				IF this.IsParent and EMPTY(lcFormat)
					lcFormat = "999,999,999,999" + ;
						IIF(THIS.PARENT._ValueDecimals > 0, ;
						"." + REPLICATE("9", THIS.PARENT._ValueDecimals), "")
				ENDIF
				lcCaption = ALLTRIM(TRANSFORM(THIS._Value, lcFormat))
				IF this.IsParent and THIS.PARENT._ValueDecimals>0
					lcCaption=RTRIM(RTRIM(lcCaption,'0'),'.')
				ENDIF
			ENDIF
		
		ELSE
			lcCaption = STRTRAN(THIS.CAPTION,[CHR(13)+CHR(10)], CHR(13)+CHR(10),-1,-1,1)
			lcCaption = ALLTRIM(textmerge(lcCaption))
		ENDIF
		
		LOCAL loSize AS xfcSize
		loSize = THIS.oGfx.MeasureString(lcCaption, THIS._oFont) &&, This._oStringFormat)
		THIS._Height = loSize.HEIGHT
		
		THIS._Width = CEILING(loSize.WIDTH)
		THIS._TransfCaption = lcCaption
		
	ENDPROC

	PROCEDURE SideLegend.caption_assign
		lparameters tcText
		
		This.Caption = tcText
		
		This._UpdateMeasures()
		
	ENDPROC

	PROCEDURE ToolTip.caption_assign
		LPARAMETERS tcCaption
		
		This.Caption = tcCaption
		
		LOCAL llWordWrap
		llWordWrap  = This.WordWrap 
		
		WITH Thisform.FoxChartsToolTip
		
		*	.Autosize       = This.AutoSize
		
			.Alignment      = This.Alignment
			.BackColor      = This.BackColor
			.BackStyle      = This.BackStyle
			.BorderStyle    = This.BorderStyle
			.FontBold       = This.FontBold 
			.FontItalic     = This.FontItalic 
			.FontName       = This.FontName 
			.FontSize       = This.FontSize 
			.FontStrikethru = This.FontStrikethru 
			.FontUnderline  = This.FontUnderline 
			.ForeColor      = This.ForeColor 
			.Zorder(0)
		
			IF llWordWrap
				.WordWrap = .F.
				.Caption = tcCaption
				.WordWrap = .T.
				.Autosize = .T.
			ELSE
				.Caption = tcCaption
			ENDIF
			 
		ENDWITH 
	ENDPROC

	PROCEDURE ToolTip.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		This.Parent.ChartCanvas.MouseMove(nButton, nShift, nXCoord, nYCoord)
	ENDPROC

	PROCEDURE YAxis._updatemeasures
		Lparameters tlNumeric
		
		If Vartype(This.Parent.oGfx) <> "O"
			Return
		Endif
		
		* Measure the Legend height
		If Vartype(This._oBrush) + Vartype(This._oFont) <> "OO"
			This._Setup()
		Endif
		
		Local lcCaption, lcFormat
		lcFormat = This._ForceFormat
		If Empty(lcFormat)
			lcFormat = This.Format
		Endif
		
		****************************************************************
		* Jim Nelson 10/13/2008
		*
		* modified to accept text data even when expecting numeric (specifically for case GetScaleLegend(-1)
		
		**** old way
		*!*	If tlNumeric
		*!*		lcCaption = Alltrim(Transform(This._Value, lcFormat))
		*!*	Else
		*!*		lcCaption = Alltrim(Transform(This.Caption, lcFormat))
		*!*		*	lcCaption = ALLTRIM(TRANSFORM(This.Caption, IIF("%" $ lcFormat, "", lcFormat)))
		*!*	Endif
		
		**** new way
		Do Case
			Case tlNumeric And "N" = Vartype (This._Value)
				lcCaption = Alltrim(Transform(This._Value, lcFormat))
			Case tlNumeric And "N" # Vartype (This._Value)
				lcCaption = This._Value
			Otherwise
				lcCaption = Alltrim(Transform(This.Caption, lcFormat))
		Endcase
		
		Local loSize As xfcSize
		loSize = This.Parent.oGfx.MeasureString(lcCaption, This._oFont) &&, This._oStringFormat)
		This._Height = loSize.Height
		This._Width = loSize.Width
		This._TransfCaption = lcCaption
		
	ENDPROC

	PROCEDURE YAxis2._updatemeasures
		Lparameters tlNumeric
		
		If Vartype(This.Parent.oGfx) <> "O"
			Return
		Endif
		
		* Measure the Legend height
		If Vartype(This._oBrush) + Vartype(This._oFont) <> "OO"
			This._Setup()
		Endif
		
		Local lcCaption, lcFormat
		lcFormat = This._ForceFormat
		If Empty(lcFormat)
			lcFormat = This.Format
		Endif
		
		****************************************************************
		* Jim Nelson 10/13/2008
		*
		* modified to accept text data even when expecting numeric (specifically for case GetScaleLegend(-1)
		
		**** old way
		*!*	If tlNumeric
		*!*		lcCaption = Alltrim(Transform(This._Value, lcFormat))
		*!*	Else
		*!*		lcCaption = Alltrim(Transform(This.Caption, lcFormat))
		*!*		*	lcCaption = ALLTRIM(TRANSFORM(This.Caption, IIF("%" $ lcFormat, "", lcFormat)))
		*!*	Endif
		
		**** new way
		Do Case
			Case tlNumeric And "N" = Vartype (This._Value)
				lcCaption = Alltrim(Transform(This._Value, lcFormat))
			Case tlNumeric And "N" # Vartype (This._Value)
				lcCaption = This._Value
			Otherwise
				lcCaption = Alltrim(Transform(This.Caption, lcFormat))
		Endcase
		
		Local loSize As xfcSize
		loSize = This.Parent.oGfx.MeasureString(lcCaption, This._oFont) &&, This._oStringFormat)
		This._Height = loSize.Height
		This._Width = loSize.Width
		This._TransfCaption = lcCaption
		
	ENDPROC

ENDDEFINE
