Re: Series Legend Position Not Working

[User (Legacy)]

Yes, I am using the include file.  I checked for TGFP_BOTTOM and the value 

is &H102&. 

I have tried using other positions as well as TGFP_BOTTOM, however the 

legend is always shown on the right. 

Sean Harasin 

"Juan Cegarra" <JuanC@softwarefx.com> wrote in message 

news:DE0379D14694D211B4CE00609770710D04B15E@sftfx-221.wamnet.net... 

> 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 

>