unit1.dfm

《Delphi7编程100例》代码,书配资料

object Form1: TForm1
  Left = 217
  Top = 111
  Width = 442
  Height = 419
  Caption = 'Form1'
  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 GroupBox1: TGroupBox
    Left = 96
    Top = 328
    Width = 201
    Height = 49
    Caption = #25928#26524
    TabOrder = 4
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 417
    Height = 120
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBChart1: TDBChart
    Left = 8
    Top = 128
    Width = 417
    Height = 194
    AllowPanning = pmNone
    AllowZoom = False
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Pen.Visible = False
    Gradient.EndColor = clGreen
    Gradient.Visible = True
    Title.Text.Strings = (
      'DBChart  Demo')
    AxisVisible = False
    ClipPoints = False
    Frame.Visible = False
    View3DOptions.Elevation = 315
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    View3DWalls = False
    TabOrder = 1
    object Series1: TPieSeries
      Marks.ArrowLength = 8
      Marks.Visible = True
      DataSource = Table1
      SeriesColor = clRed
      XLabelsSource = 'NAME'
      OtherSlice.Text = 'Other'
      PieValues.DateTime = False
      PieValues.Name = 'Pie'
      PieValues.Multiplier = 1.000000000000000000
      PieValues.Order = loNone
      PieValues.ValueSource = 'WEIGHT'
    end
  end
  object CheckBox1: TCheckBox
    Left = 111
    Top = 348
    Width = 74
    Height = 20
    Caption = #19977#32500#25928#26524
    TabOrder = 2
    OnClick = CheckBox1Click
  end
  object CheckBox2: TCheckBox
    Left = 208
    Top = 348
    Width = 73
    Height = 17
    Caption = #26174#31034#36724#32447
    TabOrder = 3
    OnClick = CheckBox2Click
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 226
    Top = 81
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 144
    Top = 80
  end
end