RE: Series Legend Position Not Working

[Software FX]

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& 

Regards, 

Juan Cegarra 

Software FX, Inc. 

http://support.softwarefx.com 

-----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? 

Thanks, 

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 

 Next 

 '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 

Next 

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 

Chart1.Axis(AXIS_Y).AdjustScale