Steema Central

Code: Select all

; INF file for TeeChart2011.ocx
[version] 
; version signature (same for both NT and Win95) do not remove
signature="$CHICAGO$"
AdvancedINF=2.0  

[Add.Code]
teechart2011.ocx=teechart2011.ocx
TeeUserx2011.hlp=TeeUserx2011.hlp

; needed hlpfile
[TeeUserx2011.hlp]
file-win32-x86=thiscab
DestDir=11
RegisterServer=yes

[teechart2011.ocx]
file-win32-x86=thiscab
clsid={FCB4B50A-E3F1-4174-BD18-54C3B3287258} 
FileVersion=9,0,0,0 
RegisterServer=yes  
; end of INF file

Code: Select all

.....
    <script language="VBScript">
    SUB FillChart

     With Chart1
         'sets up Chart to print from IE's print option
         .Environment.IEPrintWithPage=True
         .RemoveAllSeries
         .AddSeries(1)
         .Aspect.gdiplus.active = True
         .Aspect.View3D=False
     	 .Legend.Visible=False
         .Panel.Gradient.Visible=False
         .Panel.Color=RGB(255, 255, 255)
    	 .Walls.Visible = False
     End With

     With Chart1.Header
         .Text.Clear
         .Text.Add("Publication Date")
         .Transparent = True
     End with

     With Chart1.Footer.Font
         .Name = "Tahoma"
         .Bold = False
     End With

     With Chart1.Series(0)
         .Clear
         .Title="MyPatent"
         .ColorEachPoint=True

         .Add 47, "1998", 536870912
.Add 41, "2000", 536870912
.Add 20, "1990", 536870912
.Add 3, "1989", 536870912
.Add 36, "1992", 536870912
.Add 30, "2001", 536870912
.Add 50, "1994", 536870912
.Add 33, "1997", 536870912
.Add 49, "1999", 536870912
.Add 39, "1996", 536870912
.Add 37, "1991", 536870912
.Add 44, "1995", 536870912
.Add 32, "1993", 536870912


		 .Marks.Transparent = True
         .Marks.Style = smsValue
   	     .asBar.BarStyle = 8
		 .asBar.BarPen.Visible = false
		 .asBar.Transparency = 35

         .asBar.Shadow.Visible = False
         .asBar.Emboss.Visible = True
         .asBar.Emboss.VertSize = 3
         .asBar.Emboss.HorizSize = -4
         .asBar.Emboss.color = RGB(192, 192, 192)

         .Cursor = 2020
     End With
    END SUB

    Sub Chart1_OnClickSeries(SeriesIndex, ValueIndex, Button, Shift, X, Y)
        Chart1.StopMouse
	    if Chart1.Series(SeriesIndex).PointLabel(ValueIndex) <> "" then
          msgbox Chart1.Series(SeriesIndex).PointLabel(ValueIndex)
        else
          msgbox Chart1.Series(SeriesIndex).YValues.Value(ValueIndex)
        end if
    end sub

	Sub Window_Onload()
		FillChart
	End Sub
   </script>
....
....
            <object
               id="Chart1"
               width="400"
               height="320"
               type="application/x-oleobject"
               hspace="0"
               vspace="0"
               classid="CLSID:FCB4B50A-E3F1-4174-BD18-54C3B3287258"
               codebase="http://XX.XXX.X.152:20080/tchart/Teechart2011Eval.cab#Version=9,0,0,0">
            </object>