unit1.dfm

《TeeChart应用技术详解》(屈景辉)源代码

object Form1: TForm1
  Left = 178
  Top = 102
  Width = 576
  Height = 423
  Caption = #39044#35272'ChartPreviewer'#19982#39044#35272#25176#30424'TeePreviewPanel'#32452#20214#28436#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TeePreviewPanel1: TTeePreviewPanel
    Left = 370
    Top = 0
    Width = 198
    Height = 343
    AsBitmap = True
    DragImage = True
    Margins.Color = clAqua
    Margins.SmallDots = False
    Orientation = ppoLandscape
    PaperColor = clCaptionText
    PaperShadow.HorizSize = 6
    PaperShadow.VertSize = 7
    Title = #28909#21488
    OnChangeMargins = TeePreviewPanel1ChangeMargins
    Gradient.Balance = 77
    Gradient.EndColor = clActiveBorder
    Gradient.Visible = True
    Align = alClient
    BevelInner = bvRaised
    TabOrder = 0
    AutoSize = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 343
    Width = 568
    Height = 46
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25171#21360#26041#21521#65306
    end
    object Button1: TButton
      Left = 472
      Top = 8
      Width = 75
      Height = 25
      Caption = #21512#24182#22810#22270
      TabOrder = 0
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Left = 80
      Top = 11
      Width = 145
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = #27178#21521' poLandscape'
      OnChange = ComboBox1Change
      Items.Strings = (
        #27178#21521' poLandscape'
        #31446#21521' poPortrait')
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 343
    Align = alLeft
    Caption = 'Panel2'
    TabOrder = 2
    object Chart1: TChart
      Left = 1
      Top = 1
      Width = 183
      Height = 168
      Gradient.EndColor = clGray
      Gradient.MidColor = clWhite
      Gradient.StartColor = clSilver
      Gradient.Visible = True
      Legend.Visible = False
      Title.Text.Strings = (
        'Polar'#22352#26631)
      BottomAxis.Increment = 10.000000000000000000
      View3D = False
      Align = alTop
      TabOrder = 0
      OnClick = Chart1Click
      PrintMargins = (
        15
        30
        15
        30)
      object Series1: TPolarSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        SeriesColor = clAqua
        AngleIncrement = 10.000000000000000000
        AngleValues.Name = 'Angle'
        AngleValues.Order = loAscending
        Brush.Color = clWhite
        Brush.Style = bsClear
        Pen.Color = clAqua
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = True
      end
    end
    object Chart2: TChart
      Left = 1
      Top = 169
      Width = 183
      Height = 173
      Gradient.EndColor = clGray
      Gradient.MidColor = clWhite
      Gradient.StartColor = clSilver
      Gradient.Visible = True
      Legend.Visible = False
      Title.Text.Strings = (
        'Radar'#22352#26631)
      BottomAxis.Increment = 72.000000000000000000
      View3D = False
      Align = alClient
      TabOrder = 1
      OnClick = Chart2Click
      PrintMargins = (
        15
        34
        15
        34)
      object Series2: TRadarSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        Brush.Color = clWhite
        Brush.Style = bsClear
        Pen.Color = clRed
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = True
      end
    end
  end
  object Panel3: TPanel
    Left = 185
    Top = 0
    Width = 185
    Height = 343
    Align = alLeft
    Caption = 'Panel3'
    TabOrder = 3
    object Chart3: TChart
      Left = 1
      Top = 1
      Width = 183
      Height = 168
      Gradient.EndColor = clGray
      Gradient.MidColor = clWhite
      Gradient.StartColor = clSilver
      Gradient.Visible = True
      LeftWall.Gradient.EndColor = clGray
      LeftWall.Gradient.MidColor = clWhite
      LeftWall.Gradient.StartColor = clSilver
      LeftWall.Gradient.Visible = True
      Legend.Visible = False
      Title.Text.Strings = (
        'Clock'#22352#26631)
      AxisVisible = False
      BottomAxis.Increment = 30.000000000000000000
      View3D = False
      Align = alTop
      TabOrder = 0
      OnClick = Chart3Click
      PrintMargins = (
        15
        30
        15
        30)
      object Series3: TClockSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        SeriesColor = clAqua
        ShowInLegend = True
        Brush.Color = clWhite
      end
      object ChartTool1: TAxisScrollTool
      end
    end
    object Chart4: TChart
      Left = 1
      Top = 169
      Width = 183
      Height = 173
      Gradient.EndColor = clGray
      Gradient.MidColor = clWhite
      Gradient.StartColor = clSilver
      Gradient.Visible = True
      Legend.Visible = False
      Title.Text.Strings = (
        'Dubble3D'#22352#26631)
      Align = alClient
      TabOrder = 1
      OnClick = Chart4Click
      object Series4: TBubble3DSeries
        Marks.Callout.Brush.Color = clBlack
        Marks.Visible = False
        LinePen.Visible = False
        Pointer.HorizSize = 8
        Pointer.InflateMargins = True
        Pointer.Style = psCircle
        Pointer.VertSize = 8
        Pointer.Visible = True
        XValues.Name = 'X'
        XValues.Order = loNone
        YValues.Name = 'Y'
        YValues.Order = loNone
        ZValues.Name = 'Z'
        ZValues.Order = loNone
        RadiusValues.Name = 'Radius'
        RadiusValues.Order = loNone
      end
    end
  end
  object ChartPreviewer1: TChartPreviewer
    Left = 168
    Top = 303
  end
end