main.~dfm

轴承表面质量缺陷识别与统计系统,基于DELPHI 7.0

object MainForm: TMainForm
  Left = 116
  Top = 164
  Width = 864
  Height = 452
  Caption = ' '#36724#25215#34920#38754#36136#37327#32570#38519#35782#21035#19982#32479#35745#31995#32479
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010001001010000001001800680300001600000028000000100000002000
    000001001800000000004003000000000000000000000000000000000000EFEF
    EFF7F7F7F7F7F7F7F7F7EFEFEFEFE7EFE7E7E7DEDFDECECFCECECFCECEC7CEC6
    C7C6C6C7C6BDBEBDBDBEBDB5B6B5EFEFEFF7F7F7F7F7F7F7F7F7E7E7E7949694
    5251523938393938394A494A7B797BB5B6B5BDBEBDBDBEBDB5B6B5B5B6B5F7EF
    F7F7F7F7F7F7F7BDB6BD5251523938395251525A595A5A595A5251524249424A
    494A9C9E9CB5B6B5B5B6B5B5B6B5F7EFF7F7F7F7C6C7C63941395A595A6B696B
    6361635A615A5A595A6B696B7B797B5A595A4241429C9E9CADAEADB5B6B5F7F7
    F7DEDFDE5251525251527371736B696BADAEADB5B6B59C9E9C6B696B5A595A8C
    8E8C5A595A5A595AA5A6A5B5AEB5F7EFF7949694393839737173737173DEDFDE
    EFEFEFE7E7E7E7E7E7CECFCE8486846361639496944241428C8E8CADAEADE7E7
    E75A595A525152737173B5B6B5EFEFEFF7EFF7EFEFEFEFEFEFE7E7E7BDBEBD6B
    696B8486846B696B6B696BADAEADD6D7D6525152636163737173E7DFE7F7F7F7
    F7F7F7F7F7F7F7EFF7EFE7EFDED7DE7B797B6B696B9496945A595AB5AEB5CECF
    CE424142636163737973EFEFEFF7F7F7FFF7FFF7F7F7F7EFF7EFE7EFDEDFDE84
    86846B696BADAEAD525152B5B6B5D6D7D65251526361637B797BDEDFDEF7F7F7
    F7F7F7F7F7F7EFEFEFEFE7EFDED7DE7B797B7B797BB5AEB55A595ABDBEBDEFEF
    EF6B696B5251527B797BA5A6A5F7F7F7F7F7F7F7EFF7EFEFEFEFE7EFBDBEBD5A
    595AA5A6A58486847B797BD6D7D6FFFFFFADAEAD4241427B797B737173C6C7C6
    F7EFF7EFEFEFEFE7EFD6D7D67B797B5A595ABDBEBD4A494ABDBEBDE7DFE7FFFF
    FFEFE7EF6361635A595A9496946B696B949694BDBEBDADAEAD7371735A595A9C
    9E9C6B696B6B696BE7E7E7EFE7EFFFFFFFFFFFFFD6D7D65251526B696B9C9E9C
    7371735251525251526B696B9496947371734A514ADEDFDEF7EFF7EFEFEFFFFF
    FFFFFFFFFFFFFFE7DFE76361634A494A5251525A595A5A595A5A595A42414263
    6163DEDFDEF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6C7C6
    7B797B5A615A5A595A7B797BBDBEBDF7F7F7FFF7FFFFFFFFFFFFFFFFF7FF0000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  WindowMenu = Window1
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = -94
    Top = 283
    Width = 1156
    Height = 45
    AutoSize = False
    Caption = '                           '#36724#25215#34920#38754#36136#37327#32570#38519#35782#21035#19982#32479#35745#31995#32479'V1.0.0'
    Color = clActiveCaption
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -32
    Font.Name = 'Arial Black'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = False
  end
  object Label2: TLabel
    Left = -33
    Top = 281
    Width = 954
    Height = 45
    AutoSize = False
    Caption = '                      '#36724#25215#34920#38754#36136#37327#32570#38519#35782#21035#19982#32479#35745#31995#32479'V1.0.0'
    Color = clGradientActiveCaption
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -32
    Font.Name = 'Arial Black'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 0
    Width = 1062
    Height = 30
    BorderWidth = 1
    ButtonWidth = 28
    Color = cl3DLight
    Images = ImageList1
    Indent = 5
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Wrapable = False
    object ToolButton1: TToolButton
      Left = 5
      Top = 2
      Hint = 'Open|Open a file'
      Caption = #25171#24320
      ImageIndex = 7
      MenuItem = FileOpenItem
      OnClick = FileOpen1Execute
    end
    object ToolButton2: TToolButton
      Left = 33
      Top = 2
      Hint = 'Save|Save current file'
      Caption = #20445#23384
      ImageIndex = 8
      MenuItem = FileSaveItem
    end
    object ToolButton3: TToolButton
      Left = 61
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 2
      Caption = #25764#28040
      Enabled = False
      ImageIndex = 3
      MenuItem = MDIChild.withdraw
    end
    object ToolButton5: TToolButton
      Left = 97
      Top = 2
      Caption = #37325#26032#36733#20837
      ImageIndex = 4
      MenuItem = MDIChild.loadAgain
    end
    object ToolButton6: TToolButton
      Left = 125
      Top = 2
      Caption = #31995#32479#24110#21161
      ImageIndex = 11
      MenuItem = help
    end
    object ToolButton7: TToolButton
      Left = 153
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 161
      Top = 2
      Action = WindowCascade1
    end
    object ToolButton10: TToolButton
      Left = 189
      Top = 2
      Action = WindowTileHorizontal1
    end
    object ToolButton11: TToolButton
      Left = 217
      Top = 2
      Action = WindowTileVertical1
    end
    object ToolButton9: TToolButton
      Left = 245
      Top = 2
      Width = 12
      Caption = 'ToolButton9'
      Style = tbsSeparator
    end
    object ToolButton12: TToolButton
      Left = 257
      Top = 2
      Hint = 
        'About|Displays program information, version number, and copyrigh' +
        't'
      Caption = #20851#20110#31995#32479
      ImageIndex = 12
      MenuItem = HelpAboutItem
    end
    object ToolButton13: TToolButton
      Left = 285
      Top = 2
      Caption = #35745#31639#22120
      ImageIndex = 10
      MenuItem = calculator
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 362
    Width = 1062
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 250
      end
      item
        Width = 250
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 8
    Top = 40
    object File1: TMenuItem
      Caption = #25991#20214
      Hint = 'File related commands'
      object FileOpenItem: TMenuItem
        Caption = #25171#24320
        GroupIndex = 20
        Hint = 'Open|Open a file'
        ImageIndex = 7
        ShortCut = 16463
        OnClick = FileOpen1Execute
      end
      object FileCloseItem: TMenuItem
        Caption = #20851#38381
        GroupIndex = 20
        Hint = 'Close|Close current file'
        OnClick = FileCloseItemClick
      end
      object FileSaveItem: TMenuItem
        Caption = #20445#23384
        GroupIndex = 20
        Hint = 'Save|Save current file'
        ImageIndex = 8
        ShortCut = 16467
        OnClick = FileSaveItemClick
      end
      object N1: TMenuItem
        Caption = '-'
        GroupIndex = 20
      end
      object FileExitItem: TMenuItem
        Caption = #36864#20986
        GroupIndex = 20
        Hint = 'Exit|Exit application'
        ImageIndex = 18
        OnClick = FileExit1Execute
      end
    end
    object Edit1: TMenuItem
      Caption = #32534#36753
      GroupIndex = 1
      Hint = 'Edit commands'
      object CutItem: TMenuItem
        Caption = 'Cu&t'
        Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
        ImageIndex = 0
        ShortCut = 16472
      end
      object CopyItem: TMenuItem
        Caption = '&Copy'
        Hint = 'Copy|Copies the selection and puts it on the Clipboard'
        ImageIndex = 1
        ShortCut = 16451
      end
      object PasteItem: TMenuItem
        Caption = '&Paste'
        Hint = 'Paste|Inserts Clipboard contents'
        ImageIndex = 2
        ShortCut = 16470
      end
    end
    object Window1: TMenuItem
      Caption = #35270#31383
      GroupIndex = 2
      Hint = 'Window related commands'
      object WindowCascadeItem: TMenuItem
        Action = WindowCascade1
      end
      object WindowTileItem: TMenuItem