unit1.dfm

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

object Form1: TForm1
  Left = 177
  Top = 103
  Width = 422
  Height = 327
  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 Chart1: TChart
    Left = 1
    Top = 120
    Width = 408
    Height = 177
    AllowPanning = pmNone
    AnimatedZoom = True
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Color = clBtnFace
    Title.Text.Strings = (
      #22270#34920#28436#31034)
    BackColor = clBtnFace
    Chart3DPercent = 20
    RightAxis.LabelStyle = talNone
    View3DOptions.Elevation = 325
    View3DOptions.HorizOffset = -9
    View3DOptions.Perspective = 0
    View3DOptions.VertOffset = 9
    View3DOptions.Zoom = 104
    View3DOptions.ZoomText = False
    BevelInner = bvSpace
    BevelWidth = 5
    BorderWidth = 7
    BorderStyle = bsSingle
    DragCursor = crHelp
    TabOrder = 0
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Clip = True
      Marks.Transparent = True
      Marks.Visible = False
      SeriesColor = clRed
      BarStyle = bsPyramid
      BarWidthPercent = 30
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series2: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clGreen
      BarStyle = bsPyramid
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series3: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clYellow
      BarStyle = bsPyramid
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series4: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clBlue
      BarStyle = bsPyramid
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 8
    Width = 321
    Height = 107
    ColCount = 6
    Ctl3D = True
    DefaultColWidth = 50
    DefaultRowHeight = 20
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnGetEditMask = StringGrid1GetEditMask
  end
  object ChBoxMarks: TCheckBox
    Left = 333
    Top = 80
    Width = 76
    Height = 17
    Caption = #26174#31034#25968#25454
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsUnderline]
    ParentFont = False
    TabOrder = 2
    OnClick = ChBoxMarksClick
  end
  object UpdateButton: TBitBtn
    Left = 328
    Top = 24
    Width = 81
    Height = 33
    Caption = '&'#26356#26032#25968#25454
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = UpdateButtonClick
    Kind = bkRetry
  end
end