object Form1: TForm1
  Left = 94
  Top = 119
  Width = 623
  Height = 572
  Caption = 'Visual Graph ActiveX'#25554#20214#37096#20998#21151#33021#28436#31034#65292#24744#21487#20197#24320#21457#33258#24049#30340#36229#32423#22270#24418#31995#32479#65281#65281
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 615
    Height = 538
    ActivePage = TabSheet4
    Align = alClient
    TabIndex = 3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #28436#31034#25991#26723
      object Panel3: TPanel
        Left = 134
        Top = 0
        Width = 473
        Height = 511
        Align = alClient
        BevelInner = bvLowered
        BorderWidth = 4
        TabOrder = 0
        object vgctrl1: Tvgctrl
          Left = 6
          Top = 6
          Width = 461
          Height = 506
          Align = alClient
          TabOrder = 0
          ControlData = {
            545046300D544D7957696E436F6E74726F6C00044C656674020603546F700206
            05576964746803CD010648656967687403FA010000}
        end
      end
      object ListBox2: TListBox
        Left = 0
        Top = 0
        Width = 134
        Height = 511
        Align = alLeft
        ItemHeight = 12
        Items.Strings = (
          #39068#33394#28216#25103
          #34920#26684#35745#31639
          #21160#24577#26834#22270
          #26041#22359#28216#25103
          #21160#30011#20043#19968
          #21160#30011#20043#20108
          #21160#30011#20043#19977
          #31649#29702#27969#31243
          #20132#20114#35774#22791
          #36830#26438#21407#29702
          #36830#32447#20351#29992
          #26354#32447#22270#24418
          #22825#24179#21407#29702
          #25968#23398#20989#25968
          #25991#23383#21333#20803
          #25644#31665#28216#25103
          #20027#25509#32447#22270
          #30005#32593#22320#22270
          #31383#21475#20307#31995
          #22810#39029#30011#38754
          #35843#29992'C++'
          'baobiao-1'
          'baobiao-2'
          'baobiao-3'
          'baobiao-4'
          'baobiao-5'
          'baobiao-6'
          'baobiao-7'
          'baobiao-8'
          'baobiao-9'
          'baobiao-10'
          'baobiao-11'
          'baobiao-12'
          'baobiao-13'
          'baobiao-14'
          'baobiao-15'
          'baobiao-16'
          'baobiao-17'
          'baobiao-18')
        TabOrder = 1
        OnClick = ListBox2Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25191#34892#21629#20196
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 133
        Height = 511
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        DesignSize = (
          133
          511)
        object ListBox1: TListBox
          Left = 0
          Top = 0
          Width = 133
          Height = 389
          Align = alTop
          Anchors = [akLeft, akTop, akRight, akBottom]
          ItemHeight = 12
          Items.Strings = (
            'Text1=This.AddUnit("Text",10,10,200,200)'
            'Text1.Text='#39'Hello World!'#39
            'Text1.FontName="Arial"'
            'Text1.FontSize=24'
            'Text1.FontBold=true'
            'Text1.Angle=45'
            'Text1.TextAlign=5'
            'Text1.FontColor=$FF'
            'Text1.Pattern=8'
            'Text1.FontUnderLine=2'
            'Text1.BackColor=$FF0000'
            '-------------------------------'
            'R=This.AddUnit("Shape",10,10,100,100 )'
            'R.Type="Rect"'
            'R.BackColor =$C0C0C0'
            'R.LineColor = $FF'
            'R.Height =200'
            'R.Width = 200'
            'R.LineType = 3'
            'R.SetPropertyValue( "Corner", 50 )'
            'R.Pattern =$F2'
            'R.FrontColor = 0'
            'R.BackColor =$FF'
            '-------------------------------'
            'ln=AddUnit("Line",10,10,100,100 )'
            'ln.LineWidth = 8'
            'ln.StartArrow=1'
            'ln.EndArrow=1'
            'ln.Pattern=0'
            'ln.PointCount=3'
            'ln.Points[2].x=200'
            'ln.Points[2].y=10'
            'ln.Refresh()'
            '-------------------------------'
            'e=AddUnit("Shape",10,10,200,200)'
            'e.Type="Circle"'
            'e.LineWidth=3'
            'e.LineColor=$FF'
            'e.Pattern =$F1'
            'e.FrontColor=0'
            'e.BackColor=$FF'
            '-------------------------------'
            'a=AddUnit("Shape",10,10,200,200)'
            'a.Type="Arc"'
            'a.SetPropertyValue( "StartAngle", 45 )'
            'a.SetPropertyValue( "EndAngle", 270 )'
            'a.LineWidth=6'
            '-------------------------------'
            'a=AddUnit("Shape",10,10,200,200)'
            'a.Type="Arc"'
            'a.SetPropertyValue( "StartAngle", 45 )'
            'a.SetPropertyValue( "EndAngle", 270 )'
            'a.Pattern=1'
            'a.BackColor=$FF00'
            '-------------------------------'
            'ln=AddUnit("Line",10,10,100,100 )'
            'ln.Pattern=1'
            'ln.BackColor=$FF'
            'ln.PointCount=3'
            'ln.Points[2].x=200'
            'ln.Points[2].y = 10'
            'ln.Refresh()'
            '-------------------------------'
            #39#27880#37322#65306#19968#34892#34920#26684#29983#25104
            'i=0'
            'x = 10'
            'while i < 5'
            '  d = AddUnit( "Text", x, 10, 100, 28 )'
            '  x = x + d.Width'
            '  d.Text = Str( i, 0 )'
            '  i = i + 1'
            'wend'
            '-------------------------------'
            #39#27880#37322#65306#22810#34892#34920#26684#29983#25104
            'i=0'
            'x = 10'
            'Selection.Clear()'
            'while i < 5'
            '  d = AddUnit( "Text", x, 10, 100, 28 )'
            '  x = x + d.Width'
            '  d.Text = Str( i, 0 )'
            '  Selection.Add(d)'
            '  i = i + 1'
            'wend'
            'i = 0'
            'y = 10+28'
            'while i < 4'
            '  CopyGroup(Selection)'
            '  Selection.MoveTo( 10, y )'
            '  y = y + 28'
            '  i = i + 1'
            'wend'
            '-------------------------------'
            #39#27880#37322#65306#22810#34892#34920#26684#29983#25104
            'i=0'
            'x = 10'
            'Selection.Clear()'
            'while i < 5'
            '  d = AddUnit( "Text", x, 10, 100, 28 )'
            '  x = x + d.Width'
            '  d.Text = Str( i, 0 )'
            '  Selection.Add(d)'
            '  i = i + 1'
            'wend'
            'i = 0'
            'y = 10+28'
            'while i < 4'
            '  CopyGroup(Selection)'
            '  Selection.MoveTo( 10, y )'
            '  y = y + 28'
            '  i = i + 1'
            'wend'
            #39#27880#37322#65306#36873#25321#25152#26377#25991#23383#21333#20803
            'Selection.Clear()'
            'i=0'
            'n = UnitCount'
            'while i < n'
            '  d = Units[i]'
            '  Selection.Add(d)'
            '  i = i + 1'
            'wend'
            #39#27880#37322#65306#35774#32622#36793#26694
            'Selection.SetBorder( 9,9,9,9,5,5)'
            '-------------------------------'
            #39#27880#37322#65306#25991#23383#21333#20803#25968#32452
            'i=0'
            'x = 10'
            'Selection.Clear()'
            'while i < 5'
            '  d = AddUnit( "Text", x, 10, 100, 28 )'
            '  Selection.Add( d )'
            '  x = x + d.Width'
            '  i = i + 1'
            'wend'
            'g=AddGroup()'
            'i = 0'
            'while i < 5'
            '  g.Units[i].Text="'#25968#32452#20803#32032'"+ Str(i,0)'
            '  i = i + 1'
            'wend'
            '-------------------------------'
            #39#27880#37322#65306#25991#23383#21333#20803#25968#23383#26684#24335
            'y = 10'