main.~dfm

delphi 血液红细胞识别统计源代码

object MainForm: TMainForm
  Left = 215
  Top = 104
  Width = 645
  Height = 452
  Caption = #34880#28082#32418#32454#32990#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
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  WindowMenu = Window1
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = -92
    Top = 283
    Width = 1112
    Height = 45
    AutoSize = False
    Caption = '                            '#34880#28082#32418#32454#32990#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 = 860
    Height = 45
    AutoSize = False
    Caption = '                       '#34880#28082#32418#32454#32990#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 = 1020
    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 = 371
    Width = 1020
    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