Re: Series Legend Position Not Working

[User (Legacy)]

No, 

It seems that the service pack is only avaliable to registered users.  I am 

using the trial edition. 

Sean Harasin 

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

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

> Are you using the latest ChartFX IE Service Pack ? 

> 

> Regards, 

> 

> Juan Cegarra 

> Software FX, Inc. 

> http://support.softwarefx.com 

> 

> 

> -----Original Message----- 

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

> Posted At: Tuesday, February 22, 2000 10:20 AM 

> Posted To: Server 

> Conversation: Series Legend Position Not Working 

> Subject: Re: Series Legend Position Not Working 

> 

> 

> 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 

> > 

>