main.dfm

最小二乘法拟合 最小二乘法拟合 最小二乘法拟合

object MainForm: TMainForm
  Left = 189
  Top = 118
  ActiveControl = se
  AutoScroll = False
  AutoSize = True
  Caption = 'MainForm'
  ClientHeight = 321
  ClientWidth = 522
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 280
    Width = 7
    Height = 13
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 522
    Height = 33
    ButtonHeight = 26
    ButtonWidth = 26
    Caption = 'ToolBar'
    TabOrder = 1
    object open: TButton
      Left = 0
      Top = 2
      Width = 44
      Height = 26
      Hint = 'Open'
      Caption = 'Open'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = OpenClick
    end
    object save: TButton
      Left = 44
      Top = 2
      Width = 44
      Height = 26
      Hint = 'Save'
      Caption = 'Save'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = SaveClick
    end
    object fit: TButton
      Left = 88
      Top = 2
      Width = 44
      Height = 26
      Hint = 'Fit'
      Caption = 'Fit'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = FitClick
    end
    object picture: TButton
      Left = 132
      Top = 2
      Width = 44
      Height = 26
      Hint = 'Picture'
      Caption = 'Picture'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = PictureClick
    end
    object se: TSpinEdit
      Left = 176
      Top = 2
      Width = 45
      Height = 26
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxValue = 20
      MinValue = 1
      ParentFont = False
      TabOrder = 0
      Value = 10
      OnChange = seChange
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 296
    Width = 522
    Height = 25
    Panels = <
      item
        Text = #9671#35831#23558#25968#25454#23384#30424#21518#20877#36827#34892#25311#21512#65281#9671
        Width = 190
      end
      item
        Width = 50
      end>
  end
  object sg: TStringGrid
    Left = 8
    Top = 40
    Width = 241
    Height = 235
    ColCount = 4
    DefaultColWidth = 40
    DefaultRowHeight = 20
    RowCount = 11
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 2
    ColWidths = (
      40
      40
      40
      112)
    RowHeights = (
      20
      20
      20
      20
      20
      20
      20
      20
      20
      20
      20)
  end
  object sp_XYPlot: Tsp_XYPlot
    Left = 264
    Top = 8
    Width = 249
    Height = 249
    Color = clBtnFace
    ParentColor = False
    TabOrder = 3
    LeftAxis.Margin = 4
    LeftAxis.LineAttr.Color = clBlack
    LeftAxis.LineAttr.Visible = True
    LeftAxis.GridAttr.Color = clGray
    LeftAxis.GridAttr.Visible = True
    LeftAxis.LabelFormat = '###0.##'
    LeftAxis.SFlags = 193
    LeftAxis.SLinePos = (
      27
      227
      222)
    LeftAxis.fMin = 0.775000000000000000
    LeftAxis.fMax = 10.225000000000000000
    RightAxis.Margin = 4
    RightAxis.LineAttr.Color = clBlack
    RightAxis.LineAttr.Visible = True
    RightAxis.GridAttr.Color = clGray
    RightAxis.GridAttr.Visible = False
    RightAxis.LabelFormat = '###0.##'
    RightAxis.SFlags = 57
    RightAxis.SLinePos = (
      244
      227
      222)
    RightAxis.fMax = 10.000000000000000000
    BottomAxis.Margin = 4
    BottomAxis.LineAttr.Color = clBlack
    BottomAxis.LineAttr.Visible = True
    BottomAxis.GridAttr.Color = clGray
    BottomAxis.GridAttr.Visible = True
    BottomAxis.LabelFormat = '###0.##'
    BottomAxis.SFlags = 128
    BottomAxis.SLinePos = (
      28
      228
      215)
    BottomAxis.fMin = -0.225000000000000000
    BottomAxis.fMax = 9.230625000000000000
    TopAxis.Margin = 4
    TopAxis.LineAttr.Color = clBlack
    TopAxis.LineAttr.Visible = True
    TopAxis.GridAttr.Color = clGray
    TopAxis.GridAttr.Visible = False
    TopAxis.LabelFormat = '###0.##'
    TopAxis.SFlags = 56
    TopAxis.SLinePos = (
      28
      4
      215)
    TopAxis.fMax = 100.000000000000000000
    BorderStyle = bs_None
    FieldColor = clWhite
  end
  object rb1: TRadioButton
    Left = 296
    Top = 264
    Width = 73
    Height = 17
    Caption = #19968#27425#32447#24615
    Checked = True
    TabOrder = 4
    TabStop = True
    OnClick = rb1Click
  end
  object rb2: TRadioButton
    Left = 400
    Top = 264
    Width = 73
    Height = 17
    Caption = #20108#27425#32447#24615
    TabOrder = 5
    OnClick = rb2Click
  end
  object sp_XYLine1: Tsp_XYLine
    Plot = sp_XYPlot
    LineAttr.Color = clLime
    LineAttr.Width = 2
    LineAttr.Visible = True
    PointAttr.Color = clCaptionText
    PointAttr.Kind = ptCross
    PointAttr.VSize = 7
    PointAttr.Visible = True
    Left = 400
    Top = 160
  end
  object sp_XYLine2: Tsp_XYLine
    Plot = sp_XYPlot
    LineAttr.Color = clBlue
    LineAttr.Style = psInsideFrame
    LineAttr.Visible = True
    PointAttr.Style = bsClear
    PointAttr.Kind = ptTriangle
    PointAttr.Visible = True
    PointAttr.BorderColor = clRed
    Left = 432
    Top = 160
  end
  object ImageList: TImageList
    Left = 296
    Top = 24
  end
  object MainMenu: TMainMenu
    Left = 328
    Top = 24
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = '&Open...'
        OnClick = OpenClick
      end
      object SaveAs1: TMenuItem
        Caption = '&Save As...'
        OnClick = SaveClick
      end
      object Close1: TMenuItem
        Caption = '&Close'
        OnClick = Close1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Fit1: TMenuItem
        Caption = 'Fit'
        Enabled = False
        OnClick = FitClick
      end
      object Picture1: TMenuItem
        Caption = '&Picture'
        Enabled = False
        OnClick = PictureClick
      end
      object LineStyle1: TMenuItem
        Caption = '&LineStyle'
        object line1: TMenuItem
          Caption = #19968#27425#32447#24615'(&Y)'
          Checked = True
          OnClick = line1Click
        end
        object line2: TMenuItem
          Caption = #20108#27425#32447#24615'(&R)'
          OnClick = line2Click
        end
      end
      object AvailableDigits1: TMenuItem
        Caption = 'Available Digits'
        object N4digits1: TMenuItem
          Caption = '4 digits'
          OnClick = N4digits1Click
        end
        object N6digits1: TMenuItem
          Caption = '6 digits'
          OnClick = N6digits1Click
        end
        object N8digits1: TMenuItem
          Caption = '8 digits'
          Checked = True
          OnClick = N8digits1Click
        end
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Caption = '&About...'
        OnClick = About1Click
      end
    end
  end
  object od: TOpenDialog
    DefaultExt = '*.dat'
    Filter = 'Data files|*.dat|Text files|*.txt|All files|*.*'
    Left = 360
    Top = 24
  end
  object sd: TSaveDialog
    DefaultExt = '*.dat'
    Filter = 'Data files|*.dat|Text files|*.txt|All files|*.*'
    Left = 392
    Top = 24
  end
end