Steema Central

Narcís,

No I made it with the eval version of the activex control. But with the latest (registered) version I can view the Chart too with Ghostview. Only... the layout is different. My gridlines are disapeared and the colors are switched as you can see in the files in the links below. png and jpg are as I would like the eps to be.

I Also included a the code in my ASP web file.
Am I doing something wrong ???


http://test.findigit.net/apigraph/graph ... 173855.png
http://test.findigit.net/apigraph/graph ... 173855.jpg
http://test.findigit.net/apigraph/graph ... 173855.eps
http://test.findigit.net/apigraph/graph ... 173855.pdf


I've installed the multi lang version of teechart 7.0.0.4


Patrick Schalkwijk

Set chart = Server.CreateObject("TeeChart.TChart")
chart.AddSeries(scLine)
chart.AddSeries(scLine)

Chart.Series(1).Marks.Visible=False
Chart.Series(1).Color = RGB(220,220,220)
Chart.Series(1).AsLine.ColorEachLine = False


Chart.Series(0).Marks.Visible=False
Chart.Series(0).Color = RGB(220,220,220)
Chart.Series(0).AsLine.ColorEachLine = False

Chart.Legend.Visible=False

Chart.Panel.Gradient.Visible=false
Chart.Panel.Color = RGB(220,220,220)
Chart.Panel.BackImageInside = true
Chart.Panel.BackImageMode = pbmStretch
Chart.Panel.BackImageLoad Server.MapPath("blackdot.bmp")

Chart.Axis.Top.Gridpen.Color = RGB(220,220,220)
Chart.Axis.Top.Gridpen.Style = psSolid
Chart.Axis.Top.MinorGrid.Visible = False


Chart.Axis.Bottom.Gridpen.Color = RGB(220,220,220)
Chart.Axis.Bottom.Gridpen.Style = psClear
Chart.Axis.Bottom.MinorGrid.Visible = False
Chart.Axis.Bottom.Title.Font.Bold=True
Chart.Axis.Bottom.Title.Font.Color = RGB(76,76,76)
Chart.Axis.Bottom.Title.Font.Size = 10

Chart.Axis.Bottom.Labels.Visible=True
Chart.Axis.Bottom.Labels.Font.Color = RGB(76,76,76)
Chart.Axis.Bottom.Labels.Font.Size = 10
Chart.Axis.Top.Labels.Font.Size = 1

If Request.QueryString("h") <> "" And IsNumeric(Request.QueryString("h"))Then
Chart.Height = Request.QueryString("h")
Else
Chart.Height = 200
End If

If Request.QueryString("b") <> "" And IsNumeric(Request.QueryString("b"))Then
Chart.Width = Request.QueryString("b")
Else
Chart.Width = cint(Chart.Height * 2.37)
End If



Chart.Aspect.View3D = False
Dim LastDateMonth, LastDateDay
LastDateMonth = Month(ArrayXValues(Ubound(ArrayXValues)-1))
LastDateDay = Day(ArrayXValues(Ubound(ArrayXValues)-1))

Chart.Header.Text(0)=Left(Header, 45)

Chart.SubHeader.Customposition = True
Chart.SubHeader.Left = Chart.Width*2 - 198
Chart.SubHeader.Top = 9
Chart.SubHeader.Text.Add(LastDateDay & " " & MonthName(LastDateMonth) & " " & FormatNumber(Round(Replace(ArrayYValues(Ubound(ArrayYValues)-1), ".", ","), 4), , , ,True ))
Chart.SubHeader.Font.Color = RGB(76,76,76)
Chart.SubHeader.Font.Size = 14
Chart.SubHeader.Alignment = taCenter
Chart.SubHeader.AdjustFrame = false
Chart.SubHeader.Font.Bold=True
Chart.SubHeader.alignment = taCenter

Chart.Header.Font.Color = RGB(76,76,76)
Chart.Header.Font.Size = 14
Chart.Header.Font.Bold=True
Chart.Header.alignment = taLeftJustify

Chart.Axis.Right.Title.Visible = False
Chart.Axis.Right.Ticks.Visible = False
Chart.Axis.Right.TicksInner.Visible = False
Chart.Axis.Right.MinorTicks.Visible= False
Chart.Axis.Right.Gridpen.Color = RGB(220,220,220)
Chart.Axis.Right.Gridpen.Style = psSolid
Chart.Axis.Right.Labels.Font.Color = RGB(76,76,76)
Chart.Axis.Right.Labels.Font.Bold = True
Chart.Axis.Right.Labels.Font.Size = 10

Chart.Axis.Bottom.Ticks.Visible = False
Chart.Axis.Bottom.TicksInner.Visible = False
Chart.Axis.Bottom.MinorTicks.Visible= False
Chart.Axis.Top.Ticks.Visible = False
Chart.Axis.Top.TicksInner.Visible = False
Chart.Axis.Top.MinorTicks.Visible= False

Chart.Series(1).HorizontalAxis = aTopAxis
Chart.Series(1).XValues.DateTime = True
Chart.Series(1).VerticalAxis = aRightAxis
Chart.Series(1).Pen.Width = 3
Chart.Series(1).Pen.Color = RGB(220,220,220)


Chart.Series(0).XValues.DateTime = True
Chart.Axis.Bottom.Labels.DateTimeFormat = "mmmm"
Chart.Axis.Bottom.ExactDateTime = True
Chart.Axis.Bottom.Increment = Chart.GetDateTimeStep(dtOneMonth)

Chart.Series(1).XValues.DateTime = True
Chart.Axis.top.Labels.DateTimeFormat = " "
Chart.Axis.top.ExactDateTime = True
Chart.Axis.top.Increment = Chart.GetDateTimeStep(dtOneWeek)

Chart.Series(0).VerticalAxis = aRightAxis
Chart.Series(0).Pen.Width = 3
Chart.Series(0).Pen.Color = RGB(220,220,220)

For x = 0 To UBound(ArrayXValues) - 1
Chart.Series(0).AddXY cDate(ArrayXValues(x)), cDbl(ArrayYValues(x)), "", clTeeColor
Next

For x = 0 To UBound(ArrayXValues) - 1
Chart.Series(1).AddXY cDate(ArrayXValues(x)), cDbl(ArrayYValues(x)), "", clTeeColor
Next

'2percent of min
min = Chart.Series(0).YValues.Minimum - Chart.Series(0).YValues.Minimum/100*2
max = Chart.Series(0).YValues.Maximum + Chart.Series(0).YValues.Minimum/100*2

Chart.Axis.Right.SetMinMax min, max
Chart.Axis.Right.Labels.OnAxis = true

Dim Randomname

Randomname = XML_UniversalDatetime (Now())
Randomname = Replace(Replace(Randomname, ":", ""), " ", "")
Randomize
Randomname = Randomname & Rnd()

Chart.Export.asBMP.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".bmp"
Chart.Export.asEPS.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".eps"
Chart.Export.asGIF.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".gif"
Chart.Export.asJPEG.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".jpg"
Chart.Export.asMetafile.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".wmf"
Chart.Export.asPCX.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".pcx"
Chart.Export.asPDF.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".pdf"
Chart.Export.asPNG.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".png"
Chart.Export.asSVG.SaveToFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "apigraph\graph\" & Randomname & ".svg"



----- Original Message -----
From: Narcís Calvet
Newsgroups: steema.public.teechart7.activex
Sent: Tuesday, June 28, 2005 11:33 AM
Subject: Re: EPS format


Hi Patrick,

I'm able to open them using Photoshop, however yours gave me an error. Please find attached a TeeChart EPS generated file which I can open with Photoshop. Are you creating your files as shown on TeeChart features demo, available at TeeChart's program group?

--
Best Regards,

Narcís Calvet
http://support.steema.com

"Important note: If you are a TeeChart registered customer, please post your
support questions at Steema's Support monitored Forums for customers:
http://support.steema.com for a prompter reply."

"Patrick Schalkwijk" <patrick.schalkwijk@12move.nl> wrote in message news:Yo0ZVtKeFHA.1808@TEEPC.Steema.local...
Hi,

I have created some charts in EPS format.
Which software do I have to use to view the generated EPS formatted file.
Because, all software I tried, I only get: damaged file, or errors while
reading the
generated file (ghostview, IrfanView, Ad Viewer).
Attached a file, generated by TeeChart. Can anyone see what's in it? If
so...please tell me the name of the viewer.


Patrick



"Narcís Calvet" <support@steema.com> schreef in bericht news:ZFF9FV8eFHA.1808@TEEPC.Steema.local...
Hi Patrick,

I'm able to open them using Photoshop, however yours gave me an error. Please find attached a TeeChart EPS generated file which I can open with Photoshop. Are you creating your files as shown on TeeChart features demo, available at TeeChart's program group?

--
Best Regards,

Narcís Calvet
http://support.steema.com

"Important note: If you are a TeeChart registered customer, please post your
support questions at Steema's Support monitored Forums for customers:
http://support.steema.com for a prompter reply."

"Patrick Schalkwijk" <patrick.schalkwijk@12move.nl> wrote in message news:Yo0ZVtKeFHA.1808@TEEPC.Steema.local...
Hi,

I have created some charts in EPS format.
Which software do I have to use to view the generated EPS formatted file.
Because, all software I tried, I only get: damaged file, or errors while
reading the
generated file (ghostview, IrfanView, Ad Viewer).
Attached a file, generated by TeeChart. Can anyone see what's in it? If
so...please tell me the name of the viewer.


Patrick

The EPS files created on my test server I can create viewable eps files. On the live machines I cann't.
No difference in software. Both win 2003. Only diff is that the live servers don't accept (web)session. So no Session object on the live server.

Is that the problem?

Hi Patrick,

sorry, but te URLs you posted seem to be user protected. Could you please arrange that so we can see them?

Thanks in advance.

ya your right.
I changed some security settings.
Now the links work.

Please try and see the differences. Hope you can help me make this work.
Any idea why EPS isn't working on the other server?

Thanks Patrick,

Could you please export that chart to a .tee file and send it to us so that we can reproduce your problem here?

Thanks in advance.

Certainly

the links below (it's a .t file and a .tee file (also the others). Only I can’t download a .tee file, I don't know why, but that’s another problem I do not care about right now)

http://test.findigit.net/apigraph/graph ... ,9734766.t
http://test.findigit.net/apigraph/graph ... 734766.tee
http://test.findigit.net/apigraph/graph ... 734766.png
http://test.findigit.net/apigraph/graph ... 734766.eps
http://test.findigit.net/apigraph/graph ... 734766.wmf
http://test.findigit.net/apigraph/graph ... 734766.pdf



Hope you can find the reason(s).


Patrick

Hi Patrick,

Thank you very much for your collaboration. I've been able to reproduce your problem here and noticed that's a bug. I've already added it to our defect list to be fixed for future releases.