main.dfm

完成虚拟的多功能电能表

object mainForm: TmainForm
  Left = 9
  Top = 39
  Width = 987
  Height = 696
  Caption = '虚拟多功能表'
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 979
    Height = 41
    ButtonHeight = 33
    ButtonWidth = 33
    Caption = 'ToolBar1'
    TabOrder = 0
    object ToolButton2: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsDivider
    end
    object SpeedItem1: TSpeedButton
      Left = 8
      Top = 2
      Width = 32
      Height = 33
      Hint = '系统设置|'
      Caption = '设置'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Pitch = fpVariable
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        00003333330FFFFFFFF000300000FF0F00F0E00BFBFB0FFFFFF0E0BFBF000FFF
        F0F0E0FBFBFBF0F00FF0E0BFBF00000B0FF0E0FBFBFBFBF0FFF0E0BF0000000F
        FFF0000BFB00B0FF00F03330000B0FFFFFF0333330B0FFFF000033330B0FF00F
        0FF03330B00FFFFF0F033309030FFFFF00333330330000000333}
      Layout = blGlyphTop
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = 1
      OnClick = N2Click
    end
    object ToolButton1: TToolButton
      Left = 40
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 1
      Style = tbsDivider
    end
    object SpeedItem4: TSpeedButton
      Left = 48
      Top = 2
      Width = 33
      Height = 33
      Hint = '电表检定'
      Caption = '检定'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
        195058000FF05559190380FFFF05555919330F00FF055559193300550F055559
        193508550F05559999955580F085501111155500085503330555555555503335
        0555550055033355055550505033355505550500033355550555000000355558
        0855550000055558085555300008555808555533500000555555}
      Layout = blGlyphTop
      ParentShowHint = False
      ShowHint = True
      Spacing = 1
      OnClick = J1Click
    end
    object ToolButton3: TToolButton
      Left = 81
      Top = 2
      Width = 8
      AllowAllUp = True
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object SpeedButton4: TSpeedButton
      Left = 89
      Top = 2
      Width = 32
      Height = 33
      Hint = '退出系统|'
      Caption = '退出'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333300000000003333330FFFFFFFF03333330FFFFFFFF03333330F00F0
        00F03330330FFFFFFFF03339030F0700F0F03339900FFFFFFFF00999990F00F0
        000009999990FFF0FF030999999907F0F03309999990FFF00333099999000000
        3333333990333333333333390333333333333330333333333333}
      Layout = blGlyphTop
      ParentShowHint = False
      ShowHint = True
      Spacing = 1
      OnClick = E1Click
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 96
    Top = 96
    object N1: TMenuItem
      Caption = '设置[&S]'
      object N2: TMenuItem
        Caption = '参数设置'
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = '时段设置'
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = '显示项设置'
      end
    end
    object J1: TMenuItem
      Caption = '校验[&J]'
      OnClick = J1Click
    end
    object E1: TMenuItem
      Caption = '退出[&E]'
      OnClick = E1Click
    end
  end
end