User (Legacy) Posted February 23, 2000 Report Share Posted February 23, 2000 We're experiencing the same problem: no matter what settings we use, even with a simple chart, the legend _always_ appears docked on the right hand side. The legend can be enabled/disabled with the Chart.SerLegBox attribute, but if it is enabled, all positional settings are ignored. The sample at http://support.softwarefx.com/Samples/CfxIE/Labels/MoveLegend.asp'>http://support.softwarefx.com/Samples/CfxIE/Labels/MoveLegend.asp works correctly. However, the same code run from our own installation does not produce a properly located legend. This makes me think that it is a server-side component problem. The code we are running locally is: <% option explicit %> <!-- #include virtual="/Include/CfxIE.inc" --> <% dim chart Set chart = Server.CreateObject("ChartFX.WebServer") ' The samples look better in white chart.RgbBk = RGB(255,255,255) ' In this case we are hardcoding the labels ' but it would be the same if the labels are retrieved from the database Chart.SerLeg(0) = "ChartFX" Chart.SerLeg(1) = "ReportFX" ' Show the Series Legend Window Chart.SerLegBox = True ' Set the position to the bottom Chart.SerLegBoxObj.Docked = TGFP_BOTTOM %> <%= chart.GetHtmlTag("500","350") %> This issue is currently gating the launch of our reporting product - a quick investigation and response would be much appreciated. Paul Rechsteiner webHancer Corp. "Lost Sailor" <sharasin@mbakercorp.com> wrote in message news:DE0379D14694D211B4CE00609770710D04B197@sftfx-221.wamnet.net... > 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 > > > Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.