Jump to content
Software FX Community

How to display a larger image ?

User (Legacy)

By User (Legacy)
in Server

Recommended Posts

User (Legacy) Newbie

User (Legacy)

Posted
Posted 

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
Software FX Newbie

Software FX

Posted
Posted 

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
User (Legacy) Newbie

User (Legacy)

Posted
  • Author
Posted 

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

Archived

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

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