Jump to content
Software FX Community

Scroll Bars & Drill Down

User (Legacy)

By User (Legacy)
in Server

Recommended Posts

User (Legacy) Newbie

User (Legacy)

Posted
Posted 

2 problems?

1. I have created a Gantt Chart with multiple activities, but when the

number of activities gets larger than the defined width it drops the labels.

I have the scroll bars turned on, but they are not being displayed.

2. I am also trying to do a drilldown on each bar. I have set the flags to

RELOAD. I am using the region.asp sample file. for the new chart. The

problem is that it is opening up in a new window rather than replacing the

current chart. Also, in reading the documentation I thought that there was a

way to reload the previous chart.

Here is my source code for the test...

Any help will be greatly appreciated.

Randy

<html>

<head>

<title>Gantt Chart Tests</title>

<!-- #include virtual="/Include/CfxIE.inc" -->

<SCRIPT LANGUAGE=javascript>

<!--

// --- helpmaster.js

// --- by Josef Becker, Mediendidaktische Beratung

// --- http://www.helpmaster.com

// --- popupon and popupoff base on a script written by Andrew Castles bound

to use with Dreamweaver 1.2

// --- http://www.arrakis.es/~andrewc/downloads/archives/tooltipdemo.htm

function popupon(text, eventObj)

{ 

  ieLayer = 'document.all[\'popup\']';

  nnLayer = 'document.layers[\'popup\']';

  borderColor = '#000000';

  bgColor = '#ffffcc';

  border = 1;

  padding = 3;

  xOffset = 3;

  yOffset = 3;

  Font = 'face="Verdana, Arial, Helvetica, sans-serif" size=2';

  if (!(document.all || document.layers)) return;

  if (null != document.all) document.popup = eval(ieLayer); else document.popup = eval(nnLayer);

  var table = "";

  var bigTable = ""; // Workaround for Netscape

  if (null != document.all) 

    { // If IE4+

    table += "<table bgcolor= "+ bgColor +" border= "+ border +" cellpadding= "+ padding +" cellspacing=0>";

    table += "<tr><td>";

    table += "<table cellspacing=0 cellpadding="+ padding +">";

    table += "<tr><td bgcolor= "+ bgColor +"><font "+ Font +">" + text + "</font></td></tr>";

    table += "</table></td></tr></table>"

    } 

  else 

    { // If NN4+

    t

ab

le += "<table cellpadding="+ padding +" border="+ border +" cellspacing=0

bordercolor="+ borderColor +">";

    bigTable += "<table width="+(document.width - xOffset -

eventObj.layerX - 30)+"cellpadding="+ padding +" border="+ border +"

cellspacing=0 bordercolor="+ borderColor +">";

    table += "<tr><td bgcolor="+ bgColor +"><font "+ Font +">" + text +

"</font></td></tr></table>";

    bigTable += "<tr><td bgcolor="+ bgColor +"><font "+ Font +">" + text +

"</font></td></tr></table>";

    }

  if (null != document.all)

    { // If IE4+

    document.popup.innerHTML = table;

    document.popup.style.left = eventObj.x + xOffset;

    document.popup.style.top  = eventObj.y + yOffset;

    document.popup.style.visibility = "visible";

    }

  else

    { // If NN4+

    document.popup.document.open();

    document.popup.document.write(table);

    document.popup.document.close();

    if ((document.popup.document.width + xOffset + eventObj.layerX) >

document.width)

    { // If the layer runs off the right hand side

      document.popup.document.open();

      document.popup.document.write(bigTable);

      document.popup.document.close();

    }

    document.popup.left = eventObj.layerX + xOffset;

    document.popup.top  = eventObj.layerY + yOffset;

    document.popup.visibility = "visible";

  }

}

function popupoff()

{ 

  if (!(document.all || document.layers)) return;

  if (null == document.popup) {

  } else if (null != document.all)

    document.popup.style.visibility = "hidden";

  else

    document.popup.visibility = "hidden";

    document.popup = null;

}

</SCRIPT>

</head> 

<body> 

<% 

Set chartfx1 = Server.CreateObject("ChartFX.WebServer") 

With ChartFX1

 'DrillDown Test 

     .URL(0) = "Region.asp"

     .URLOptions = CHART_URL_RELOAD Or CHART_URL_GLOBAL

     .URLParamMask = "Region=%l"

     .DblClk CHART_URLCLK,0

 .MultipleColors = True 

    .Gallery = GANTT

    .Chart3D = True ' 3D won't look overlapped

    .Cluster = True ' All segments in the same l

in

e

 'Changes Bar color for a particular series

 .OpenDataEx COD_COLORS,14,0

 .Color(0) = RGB(255,0,0)

 .Color(1) = RGB(255,0,0) 'Red

 .Color(2) = RGB(255,255,0)

 .Color(3) = RGB(255,0,0)

 .Color(4) = RGB(255,255,0)

 .Color(5) = RGB(255,0,0)

 .Color(6) = RGB(255,0,0)

 .Color(7) = RGB(255,255,0)

 .Color(8) = RGB(255,0,0)

 .Color(9) = RGB(255,0,0)

 .Color(10) = RGB(0,255,0)  'Green

 .Color(11) = RGB(255,0,0)

 .Color(12) = RGB(0,255,0)

 .Color(13) = RGB(255,255,0)  'Yellow

 .CloseData COD_COLORS

    .OpenDataEx COD_VALUES, 1, 12

    .OpenDataEx COD_INIVALUES, 1, 12

    ' Set up Y-Axis (bottom) for Date display

    With .Axis(AXIS_Y)

        .Format = "dM/dd"

        .Min = CDate("5/1/00")

        .Max = CDate("6/1/01")

        .Step = 30 'Month

        .Grid = True

    End With

    .Legend(0) = "Line 0"

    .IniValueEx(0, 0) = CDate("05/1/01")

    .ValueEx(0, 0) = CDate("06/1/01")

    .Legend(1) = "Line 1"

    .IniValueEx(0, 1) = CDate("03/1/01")

    .ValueEx(0, 1) = CDate("05/1/01")

    .Legend(2) = "Line 2"

    .IniValueEx(0, 2) = CDate("01/1/01")

    .ValueEx(0, 2) = CDate("02/28/01")

    .Legend(3) = "Line 3"

    .IniValueEx(0, 3) = CDate("01/1/01")

    .ValueEx(0, 3) = CDate("02/28/01")

    .Legend(4) = "Line 4"

    .IniValueEx(0, 4) = CDate("11/1/00")

    .ValueEx(0, 4) = CDate("12/31/00")

    .Legend(5) = "Line 5"

    .IniValueEx(0, 5) = CDate("09/1/00")

    .ValueEx(0, 5) = CDate("10/31/00")

    .Legend(6) = "Line 6"

    .IniValueEx(0, 6) = CDate("05/1/00")

    .ValueEx(0, 6) = CDate("10/19/00")

    .Legend(7) = "Line 7"

    .IniValueEx(0, 7) = CDate("08/10/00")

    .ValueEx(0, 7) = CDate("08/31/00")

    .Legend(8) = "Line 8"

    .IniValueEx(0, 8) = CDate("08/1/00")

    .ValueEx(0, 8) = CDate("08/20/00")

    .Legend(9) = "Line 9"

    .IniValueEx(0, 9) = CDate("06/1/00")

    .ValueEx(0, 9) = CDate("07/10/00")

    .Legend(10) = "Line 10"

    .IniValueEx(0, 10) = CDate("05/15/00")

    .ValueEx(0, 10) = CDate("010/16/00")

    .Legend(11) = "Line 11"

    .IniValueEx(0, 11) = CDate("05/1/00")

    .ValueEx(0, 11) = CDate("05/31/00")

    .Legend(12) = "Line 12"

    .IniValueEx(0, 12) = CDate("05/15/00")

    .ValueEx(0, 12) = CDate("07/16/00")

    .Legend(13) = "Line 13"

    .IniValueEx(0, 13) = CDate("05/1/00")

    .ValueEx(0, 13) = CDate("09/30/00")

    .CloseData COD_INIVALUES

    .CloseData COD_VALUES

    .Axis(AXIS_Y).Style = .Axis(AXIS_Y).Style Or AS_2LEVELS

 .TipMask = "Value: %v. Percentage %p"

 .Scrollable = TRUE

 .Axis(AXIS_X).SetScrollView 80,100

 .ShowTips = true

 .ImgMap = CHART_MAP_MOUSETIP

    .TipMask = CHART_INFOTIP

End With

%>

<div id="popup" style="position:absolute; z-index:1;

visibility:hidden"></div>

<%= chartFX1.GetHtmlTag(550,275) %>

</body>

</html>
Link to comment
Share on other sites

Archived

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

Go to topic listing
×
×
  • Create New...