User (Legacy) Posted October 4, 2002 Report Share Posted October 4, 2002 Hello Everyone, I'm using a trial version of Chart Fx Ie 5.5. The object works fine when I use client Activex, but I have problem to display a good image, large enough, to display points and lines with a good definition. The result image has always the following properties: width="300" height="300", even if I use the statement <% = chart.GetHtmlTag("700","500", "Image", "ChartFX1") %> My full demo page to evaluate ChartFx (according our requirements) is : <HTML> <HEAD> </HEAD> <BODY bgcolor="#ffffff"> <!-- #include virtual="/Include/CfxIE.inc" --> <% Set chart = Server.CreateObject("ChartFX.WebServer") chart.RgbBk = RGB(255,255,255) chart.Rgb2DBk = RGB(255,255,255) chart.Chart3D = False chart.Gallery = SCATTER chart.AxesStyle = CAS_FLATFRAME Chart.MarkerShape = MK_CIRCLE Chart.SerLegBox = True Chart.SerLegBoxObj.Docked = TGFP_BOTTOM Chart.ToolBar = True Chart.CloseData COD_VALUES Chart.CloseData COD_XVALUES Randomize l_MaxPoint = 100 i = 0 Chart.OpenDataEx COD_VALUES, 5, COD_UNKNOWN Chart.OpenDataEx COD_XVALUES, 5, COD_UNKNOWN p = 0 For j = 0 To l_MaxPoint -1 Chart.ValueEx(0,p) = (j / l_MaxPoint) * 1000000 + Rnd() * 50000 Chart.XValueEx(0,p) = (j / l_MaxPoint) * 1200 + Rnd() * 10 p = p + 1 Next lMin = 2000000 lMax = 0 k = 0 For j = 0 To l_MaxPoint -1 if k = 10 then k = 0 if k = 0 Then l_Value = (j / l_MaxPoint) * 1200 + Rnd() * 50 k = k + 1 lValueY = (j / l_MaxPoint) * 500000 + Rnd() * 500000 Chart.ValueEx(0,p) = lValueY Chart.XValueEx(0,p) = l_Value + Rnd() * 5 p = p + 1 Next Chart.XValueEx(1,0) = 50 Chart.ValueEx(1,0) = 100000 Chart.XValueEx(1,1) = 900 Chart.ValueEx(1,1) = 900000 FOR j = 2 to (l_MaxPoint * 2) - 1 Chart.XValueEx(1,j) = 0 Chart.ValueEx(1,j) = CHART_HIDDEN NEXT Chart.XValueEx(2,0) = 50 Chart.ValueEx(2,0) = 200000 Chart.XValueEx(2,1) = 300 Chart.ValueEx(2,1) = 400000 Chart.XValueEx(2,2) = 700 Chart.ValueEx(2,2) = 850000 Chart.XValueEx(2,3) = 1150 Chart.ValueEx(2,3) = 1050000 FOR j = 4 to (l_MaxPoint * 2) - 1 Chart.XValueEx(2,j) = 0 Chart.ValueEx(2,j) = CHART_HIDDEN NEXT Chart.XValueEx(3,0) = 200 Chart.ValueEx(3,0) = 100000 Chart.XValueEx(3,1) = 1150 Chart.ValueEx(3,1) = 850000 FOR j = 2 to (l_MaxPoint * 2) - 1 Chart.XValueEx(3,j) = 0 Chart.ValueEx(3,j) = CHART_HIDDEN NEXT Chart.XValueEx(4,0) = 150 Chart.ValueEx(4,0) = 300000 Chart.XValueEx(4,1) = 350 Chart.ValueEx(4,1) = 550000 Chart.XValueEx(4,2) = 350 Chart.ValueEx(4,2) = CHART_HIDDEN Chart.XValueEx(4,3) = 350 Chart.ValueEx(4,3) = 600000 Chart.XValueEx(4,4) = 750 Chart.ValueEx(4,4) = 800000 Chart.XValueEx(4,5) = 750 Chart.ValueEx(4,5) = CHART_HIDDEN Chart.XValueEx(4,6) = 750 Chart.ValueEx(4,6) = 650000 Chart.XValueEx(4,7) = 1100 Chart.ValueEx(4,7) = 1100000 Chart.XValueEx(4,8) = 1100 Chart.ValueEx(4,8) = CHART_HIDDEN FOR j = 9 to (l_MaxPoint * 2) - 1 Chart.XValueEx(4,j) = 0 Chart.ValueEx(4,j) = CHART_HIDDEN NEXT Chart.CloseData COD_VALUES Chart.CloseData COD_XVALUES Chart.Series(0).Gallery = SCATTER Chart.Series(0).Legend = "Stipendi" Chart.Series(1).Gallery = LINES Chart.Series(1).BorderColor = Rgb(255, 0,0) Chart.Series(1).border = True Chart.Series(1).Legend = "Prassi" Chart.Series(2).Gallery = LINES Chart.Series(2).border = True Chart.Series(2).BorderColor = Rgb(0, 0,255) Chart.Series(2).LineWidth = 2 Chart.Series(2).LineStyle = CHART_DASHDOT Chart.Series(2).Legend = "Politica" Chart.Series(3).Gallery = LINES Chart.Series(3).BorderColor = Rgb(0,255,255) Chart.Series(3).border = True Chart.Series(3).Legend = "Regressione" Chart.Series(4).Gallery = LINES Chart.Series(4).BorderColor = Rgb(255,0,255) Chart.Series(4).border = True Chart.Series(4).Legend = "Mercato" Chart.Axis(2).Max = 1300 Chart.Axis(2).MinorStep = 10 Chart.Axis(2).STEP = 100 Chart.Axis(2).Title = "job_worth" Chart.Axis(0).Max = 1300000 Chart.Axis(0).MinorStep = 10000 Chart.Axis(0).STEP = 100000 Chart.Axis(0).Title = "" Chart.Title(CHART_TOPTIT) = "Gross Year to Date" %> <% = chart.GetHtmlTag("700","500", "Image", "ChartFX1") %> </BODY> </HTML> Regards, Maurizio Romano Embedded Software Development Engineer Microsoft Certified Professional C Link to comment Share on other sites More sharing options...
Software FX Posted October 4, 2002 Report Share Posted October 4, 2002 Replace "700","500" with 700,500 -- Regards, JC Software FX Support "Maurizio" <maurizio.romano@cezannesw.com> wrote in message news:gv2jX$7aCHA.3620@webserver1.softwarefx.com... > Hello Everyone, > I'm using a trial version of Chart Fx Ie 5.5. > The object works fine when I use client Activex, but I have problem to > display a good image, large enough, to display points and lines with a good > definition. > The result image has always the following properties: width="300" > height="300", even if I use the statement > > <% = chart.GetHtmlTag("700","500", "Image", "ChartFX1") %> > > My full demo page to evaluate ChartFx (according our requirements) is : > > <HTML> > <HEAD> > </HEAD> > <BODY bgcolor="#ffffff"> > > <!-- #include virtual="/Include/CfxIE.inc" --> > > <% > Set chart = Server.CreateObject("ChartFX.WebServer") > > chart.RgbBk = RGB(255,255,255) > chart.Rgb2DBk = RGB(255,255,255) > chart.Chart3D = False > chart.Gallery = SCATTER > chart.AxesStyle = CAS_FLATFRAME > Chart.MarkerShape = MK_CIRCLE > Chart.SerLegBox = True > Chart.SerLegBoxObj.Docked = TGFP_BOTTOM > Chart.ToolBar = True > > Chart.CloseData COD_VALUES > Chart.CloseData COD_XVALUES > > Randomize > > l_MaxPoint = 100 > i = 0 > Chart.OpenDataEx COD_VALUES, 5, COD_UNKNOWN > Chart.OpenDataEx COD_XVALUES, 5, COD_UNKNOWN > > p = 0 > For j = 0 To l_MaxPoint -1 > Chart.ValueEx(0,p) = (j / l_MaxPoint) * 1000000 + Rnd() * 50000 > Chart.XValueEx(0,p) = (j / l_MaxPoint) * 1200 + Rnd() * 10 > p = p + 1 > Next > lMin = 2000000 > lMax = 0 > k = 0 > For j = 0 To l_MaxPoint -1 > if k = 10 then k = 0 > if k = 0 Then l_Value = (j / l_MaxPoint) * 1200 + Rnd() * 50 > k = k + 1 > lValueY = (j / l_MaxPoint) * 500000 + Rnd() * 500000 > Chart.ValueEx(0,p) = lValueY > Chart.XValueEx(0,p) = l_Value + Rnd() * 5 > p = p + 1 > Next > > Chart.XValueEx(1,0) = 50 > Chart.ValueEx(1,0) = 100000 > Chart.XValueEx(1,1) = 900 > Chart.ValueEx(1,1) = 900000 > > FOR j = 2 to (l_MaxPoint * 2) - 1 > Chart.XValueEx(1,j) = 0 > Chart.ValueEx(1,j) = CHART_HIDDEN > NEXT > > Chart.XValueEx(2,0) = 50 > Chart.ValueEx(2,0) = 200000 > Chart.XValueEx(2,1) = 300 > Chart.ValueEx(2,1) = 400000 > Chart.XValueEx(2,2) = 700 > Chart.ValueEx(2,2) = 850000 > Chart.XValueEx(2,3) = 1150 > Chart.ValueEx(2,3) = 1050000 > > FOR j = 4 to (l_MaxPoint * 2) - 1 > Chart.XValueEx(2,j) = 0 > Chart.ValueEx(2,j) = CHART_HIDDEN > NEXT > > Chart.XValueEx(3,0) = 200 > Chart.ValueEx(3,0) = 100000 > Chart.XValueEx(3,1) = 1150 > Chart.ValueEx(3,1) = 850000 > > FOR j = 2 to (l_MaxPoint * 2) - 1 > Chart.XValueEx(3,j) = 0 > Chart.ValueEx(3,j) = CHART_HIDDEN > NEXT > > Chart.XValueEx(4,0) = 150 > Chart.ValueEx(4,0) = 300000 > Chart.XValueEx(4,1) = 350 > Chart.ValueEx(4,1) = 550000 > Chart.XValueEx(4,2) = 350 > Chart.ValueEx(4,2) = CHART_HIDDEN > Chart.XValueEx(4,3) = 350 > Chart.ValueEx(4,3) = 600000 > Chart.XValueEx(4,4) = 750 > Chart.ValueEx(4,4) = 800000 > Chart.XValueEx(4,5) = 750 > Chart.ValueEx(4,5) = CHART_HIDDEN > Chart.XValueEx(4,6) = 750 > Chart.ValueEx(4,6) = 650000 > Chart.XValueEx(4,7) = 1100 > Chart.ValueEx(4,7) = 1100000 > Chart.XValueEx(4,8) = 1100 > Chart.ValueEx(4,8) = CHART_HIDDEN > > FOR j = 9 to (l_MaxPoint * 2) - 1 > Chart.XValueEx(4,j) = 0 > Chart.ValueEx(4,j) = CHART_HIDDEN > NEXT > > Chart.CloseData COD_VALUES > Chart.CloseData COD_XVALUES > > Chart.Series(0).Gallery = SCATTER > Chart.Series(0).Legend = "Stipendi" > > Chart.Series(1).Gallery = LINES > Chart.Series(1).BorderColor = Rgb(255, 0,0) > Chart.Series(1).border = True > Chart.Series(1).Legend = "Prassi" > > > Chart.Series(2).Gallery = LINES > Chart.Series(2).border = True > Chart.Series(2).BorderColor = Rgb(0, 0,255) > Chart.Series(2).LineWidth = 2 > Chart.Series(2).LineStyle = CHART_DASHDOT > Chart.Series(2).Legend = "Politica" > > Chart.Series(3).Gallery = LINES > Chart.Series(3).BorderColor = Rgb(0,255,255) > Chart.Series(3).border = True > Chart.Series(3).Legend = "Regressione" > > Chart.Series(4).Gallery = LINES > Chart.Series(4).BorderColor = Rgb(255,0,255) > Chart.Series(4).border = True > Chart.Series(4).Legend = "Mercato" > > Chart.Axis(2).Max = 1300 > Chart.Axis(2).MinorStep = 10 > Chart.Axis(2).STEP = 100 > Chart.Axis(2).Title = "job_worth" > > Chart.Axis(0).Max = 1300000 > Chart.Axis(0).MinorStep = 10000 > Chart.Axis(0).STEP = 100000 > Chart.Axis(0).Title = "" > > Chart.Title(CHART_TOPTIT) = "Gross Year to Date" > > %> > > > <% = chart.GetHtmlTag("700","500", "Image", "ChartFX1") %> > > </BODY> > </HTML> > > > Regards, > > Maurizio Romano > > Embedded Software Development Engineer > > Microsoft Certified Professional > > C Link to comment Share on other sites More sharing options...
User (Legacy) Posted October 4, 2002 Author Report Share Posted October 4, 2002 Thanks a lot "Software FX Support" <support@softwarefx.com> wrote in message news:hAoVBE8aCHA.3620@webserver1.softwarefx.com... > Replace "700","500" with 700,500 > > -- > Regards, > > JC > Software FX Support > "Maurizio" <maurizio.romano@cezannesw.com> wrote in message > news:gv2jX$7aCHA.3620@webserver1.softwarefx.com... > > Hello Everyone, > > I'm using a trial version of Chart Fx Ie 5.5. > > The object works fine when I use client Activex, but I have problem to > > display a good image, large enough, to display points and lines with a > good > > definition. > > The result image has always the following properties: width="300" > > height="300", even if I use the statement > > > > <% = chart.GetHtmlTag("700","500", "Image", "ChartFX1") %> > > > > My full demo page to evaluate ChartFx (according our requirements) is : > > > > <HTML> > > <HEAD> > > </HEAD> > > <BODY bgcolor="#ffffff"> > > > > <!-- #include virtual="/Include/CfxIE.inc" --> > > > > <% > > Set chart = Server.CreateObject("ChartFX.WebServer") > > > > chart.RgbBk = RGB(255,255,255) > > chart.Rgb2DBk = RGB(255,255,255) > > chart.Chart3D = False > > chart.Gallery = SCATTER > > chart.AxesStyle = CAS_FLATFRAME > > Chart.MarkerShape = MK_CIRCLE > > Chart.SerLegBox = True > > Chart.SerLegBoxObj.Docked = TGFP_BOTTOM > > Chart.ToolBar = True > > > > Chart.CloseData COD_VALUES > > Chart.CloseData COD_XVALUES > > > > Randomize > > > > l_MaxPoint = 100 > > i = 0 > > Chart.OpenDataEx COD_VALUES, 5, COD_UNKNOWN > > Chart.OpenDataEx COD_XVALUES, 5, COD_UNKNOWN > > > > p = 0 > > For j = 0 To l_MaxPoint -1 > > Chart.ValueEx(0,p) = (j / l_MaxPoint) * 1000000 + Rnd() * 50000 > > Chart.XValueEx(0,p) = (j / l_MaxPoint) * 1200 + Rnd() * 10 > > p = p + 1 > > Next > > lMin = 2000000 > > lMax = 0 > > k = 0 > > For j = 0 To l_MaxPoint -1 > > if k = 10 then k = 0 > > if k = 0 Then l_Value = (j / l_MaxPoint) * 1200 + Rnd() * 50 > > k = k + 1 > > lValueY = (j / l_MaxPoint) * 500000 + Rnd() * 500000 > > Chart.ValueEx(0,p) = lValueY > > Chart.XValueEx(0,p) = l_Value + Rnd() * 5 > > p = p + 1 > > Next > > > > Chart.XValueEx(1,0) = 50 > > Chart.ValueEx(1,0) = 100000 > > Chart.XValueEx(1,1) = 900 > > Chart.ValueEx(1,1) = 900000 > > > > FOR j = 2 to (l_MaxPoint * 2) - 1 > > Chart.XValueEx(1,j) = 0 > > Chart.ValueEx(1,j) = CHART_HIDDEN > > NEXT > > > > Chart.XValueEx(2,0) = 50 > > Chart.ValueEx(2,0) = 200000 > > Chart.XValueEx(2,1) = 300 > > Chart.ValueEx(2,1) = 400000 > > Chart.XValueEx(2,2) = 700 > > Chart.ValueEx(2,2) = 850000 > > Chart.XValueEx(2,3) = 1150 > > Chart.ValueEx(2,3) = 1050000 > > > > FOR j = 4 to (l_MaxPoint * 2) - 1 > > Chart.XValueEx(2,j) = 0 > > Chart.ValueEx(2,j) = CHART_HIDDEN > > NEXT > > > > Chart.XValueEx(3,0) = 200 > > Chart.ValueEx(3,0) = 100000 > > Chart.XValueEx(3,1) = 1150 > > Chart.ValueEx(3,1) = 850000 > > > > FOR j = 2 to (l_MaxPoint * 2) - 1 > > Chart.XValueEx(3,j) = 0 > > Chart.ValueEx(3,j) = CHART_HIDDEN > > NEXT > > > > Chart.XValueEx(4,0) = 150 > > Chart.ValueEx(4,0) = 300000 > > Chart.XValueEx(4,1) = 350 > > Chart.ValueEx(4,1) = 550000 > > Chart.XValueEx(4,2) = 350 > > Chart.ValueEx(4,2) = CHART_HIDDEN > > Chart.XValueEx(4,3) = 350 > > Chart.ValueEx(4,3) = 600000 > > Chart.XValueEx(4,4) = 750 > > Chart.ValueEx(4,4) = 800000 > > Chart.XValueEx(4,5) = 750 > > Chart.ValueEx(4,5) = CHART_HIDDEN > > Chart.XValueEx(4,6) = 750 > > Chart.ValueEx(4,6) = 650000 > > Chart.XValueEx(4,7) = 1100 > > Chart.ValueEx(4,7) = 1100000 > > Chart.XValueEx(4,8) = 1100 > > Chart.ValueEx(4,8) = CHART_HIDDEN > > > > FOR j = 9 to (l_MaxPoint * 2) - 1 > > Chart.XValueEx(4,j) = 0 > > Chart.ValueEx(4,j) = CHART_HIDDEN > > NEXT > > > > Chart.CloseData COD_VALUES > > Chart.CloseData COD_XVALUES > > > > Chart.Series(0).Gallery = SCATTER > > Chart.Series(0).Legend = "Stipendi" > > > > Chart.Series(1).Gallery = LINES > > Chart.Series(1).BorderColor = Rgb(255, 0,0) > > Chart.Series(1).border = True > > Chart.Series(1).Legend = "Prassi" > > > > > > Chart.Series(2).Gallery = LINES > > Chart.Series(2).border = True > > Chart.Series(2).BorderColor = Rgb(0, 0,255) > > Chart.Series(2).LineWidth = 2 > > Chart.Series(2).LineStyle = CHART_DASHDOT > > Chart.Series(2).Legend = "Politica" > > > > Chart.Series(3).Gallery = LINES > > Chart.Series(3).BorderColor = Rgb(0,255,255) > > Chart.Series(3).border = True > > Chart.Series(3).Legend = "Regressione" > > > > Chart.Series(4).Gallery = LINES > > Chart.Series(4).BorderColor = Rgb(255,0,255) > > Chart.Series(4).border = True > > Chart.Series(4).Legend = "Mercato" > > > > Chart.Axis(2).Max = 1300 > > Chart.Axis(2).MinorStep = 10 > > Chart.Axis(2).STEP = 100 > > Chart.Axis(2).Title = "job_worth" > > > > Chart.Axis(0).Max = 1300000 > > Chart.Axis(0).MinorStep = 10000 > > Chart.Axis(0).STEP = 100000 > > Chart.Axis(0).Title = "" > > > > Chart.Title(CHART_TOPTIT) = "Gross Year to Date" > > > > %> > > > > > > <% = chart.GetHtmlTag("700","500", "Image", "ChartFX1") %> > > > > </BODY> > > </HTML> > > > > > > Regards, > > > > Maurizio Romano > > > > Embedded Software Development Engineer > > > > Microsoft Certified Professional > > > > C Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.