Jump to content
Software FX Community

RE: Series Legend Position Not Working

Software FX

Recommended Posts

Are you including our INC file ? 

If so, can you open CfxIE.inc in a text editor and check if TGFP_BOTTOM is defined ?

It should be defined as

Const TGFP_BOTTOM = &H102&


Juan Cegarra

Software FX, Inc.


-----Original Message-----

From: Lost Sailor [ mailto:sharasin@mbakercorp.com]

Posted At: Sunday, February 20, 2000 1:43 PM

Posted To: Server

Conversation: Series Legend Position Not Working

Subject: Series Legend Position Not Working

I am using the code below to setup my chart. I am using

Chart1.SerLegBoxObj.Docked = TGFP_BOTTOM

to position the series legend, but it doesn't seem to be working for me.

I read KB article 1342029, and it seemed to say that this was a known

problem with some builds of the software.

I am using the Trial Edition of CFXIE 2k, that I downloaded about 10 days

ago. Is this version affected by the bug, or am I doing something wrong?


Sean Harasin

Dim Chart1

Set Chart1 = Server.CreateObject ("ChartFX.Webserver.4")

Chart1.Axis(AXIS_Y).AutoScale = True

Chart1.Title(CHART_RIGHTTIT) = TitleBlock 'Right Border Information

Chart1.Title (CHART_TOPTIT) = title 'Top Title

Chart1.Title(CHART_LEFTTIT) = YAxisLabel 'Left Title

Chart1.Grid = True 'Grid On

Chart1.ToolBar = True 'Toolbar On

Chart1.Gallery = LINES 'Chart Type = Line

Chart1.Chart3D = False '2D Chart

Chart1.AllowEdit = False 'Restrict Data Editor

Chart1.AllowDrag = False 'Restrict Points From Being Moved

Chart1.RGBBk = RGB(255,255,255) 'White BackGround

Chart1.RGB2DBk = RGB(255,255,255)

Chart1.Border = True

Chart1.MarkerStep = 5 'Display a marker at every 5 points.

(Looks Cleaner Than Default)

Chart1.Printer.Compress = True

Chart1.SerLegBox = True 'Show Series Legend

Chart1.SerLegBoxObj.Docked = TGFP_BOTTOM 'Why Doesn't This Work?

'Define Fields of the result set to display

'Fields 0 and 1 are the same no matter how many values we are looking for

Chart1.DataType(0) = 0 'date x-axis

Chart1.DataType(1) = -2 'time not used for display

For intLoopCount = 2 To intLimit

If intLoopCount < intLimit Then Chart1.DataType(intLoopCount) = 2 Else

Chart1.DataType(intLoopCount) = -2 End If


'Pass data to chart object

Chart1.AdoResultset objRecSet

For intLoopCount = 2 To intLimit-1

Select Case intLoopCount

Case "2"

Chart1.Series(0).MarkerShape = MK_CIRCLE

Chart1.Series(0).LineStyle = CHART_SOLID

Case "3"

Chart1.Series(1).MarkerShape = MK_RECT

Chart1.Series(1).LineStyle = CHART_SOLID

Case "4"

Chart1.Series(2).MarkerShape = MK_NONE

Chart1.Series(2).LineStyle = CHART_SOLID

Case "5"

Chart1.Series(3).MarkerShape = MK_NONE

Chart1.Series(3).LineStyle = CHART_DOT

Case "6"

Chart1.Series(4).MarkerShape = MK_NONE

Chart1.Series(4).LineStyle = CHART_DASHDOT

Case "7"

Chart1.Series(5).MarkerShape = MK_NONE

Chart1.Series(5).LineStyle = CHART_DASHDOTDOT

Case "8"

Chart1.Series(6).MarkerShape = MK_NONE

Chart1.Series(6).LineStyle = CHART_DASH

End Select


Dim NewMin, NewMax, Range

NewMin = Int((Chart1.Axis(AXIS_Y).Min - 1))

NewMax = Int((Chart1.Axis(AXIS_Y).Max + 1))

Range = Int((NewMax - NewMin) / 10)

Chart1.Axis(AXIS_Y).Min = NewMin

Chart1.Axis(AXIS_Y).Max = NewMax

Chart1.Axis(AXIS_Y).STEP = Range


Link to comment
Share on other sites


This topic is now archived and is closed to further replies.

  • Create New...