pashostconfig.dfm

一个电力企业的后台管理程序

object Frm_hostconfig: TFrm_hostconfig
  Left = 47
  Top = 107
  Width = 757
  Height = 454
  Caption = '存储设备管理'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 26
    Width = 749
    Height = 401
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 178
      Top = 2
      Width = 3
      Height = 366
      Cursor = crHSplit
    end
    object tvstructure: TTreeView
      Left = 2
      Top = 2
      Width = 176
      Height = 366
      Align = alLeft
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsBold]
      Images = ImageList2
      Indent = 19
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TabStop = False
      OnChange = tvstructureChange
    end
    object Panel3: TPanel
      Left = 181
      Top = 2
      Width = 562
      Height = 366
      Align = alClient
      BevelInner = bvSpace
      BevelOuter = bvLowered
      Caption = 'Panel3'
      TabOrder = 1
      object Panel4: TPanel
        Left = 2
        Top = 2
        Width = 558
        Height = 362
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 32
          Top = 50
          Width = 78
          Height = 12
          Caption = '主 机 名 称：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 32
          Top = 104
          Width = 84
          Height = 12
          Caption = '虚拟设备名称：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 48
          Top = 160
          Width = 60
          Height = 12
          Caption = '路    径：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 32
          Top = 218
          Width = 84
          Height = 12
          Caption = '虚拟设备说明：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object sbfind: TSpeedButton
          Left = 544
          Top = 154
          Width = 23
          Height = 22
          Caption = '...'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          OnClick = sbfindClick
        end
        object ed_hostname: TEdit
          Tag = 1
          Left = 125
          Top = 46
          Width = 438
          Height = 20
          Color = clAqua
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnKeyPress = ed_hostnameKeyPress
        end
        object ed_item: TEdit
          Left = 125
          Top = 97
          Width = 438
          Height = 20
          TabStop = False
          Color = clAqua
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnKeyPress = ed_itemKeyPress
        end
        object ed_text: TEdit
          Left = 128
          Top = 156
          Width = 412
          Height = 20
          TabStop = False
          Color = clAqua
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          OnKeyPress = ed_textKeyPress
        end
        object mem_note: TMemo
          Left = 125
          Top = 216
          Width = 438
          Height = 179
          TabStop = False
          Color = clAqua
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = [fsBold]
          Lines.Strings = (
            '')
          ParentFont = False
          TabOrder = 3
        end
      end
    end
    object StatusBar: TStatusBar
      Left = 2
      Top = 368
      Width = 741
      Height = 27
      Panels = <
        item
          Width = 50
        end>
      SimplePanel = False
    end
  end
  object Dock971: TDock97
    Left = 0
    Top = 0
    Width = 749
    Height = 26
    object tbar97_HostConfig: TToolbar97
      Left = 0
      Top = 0
      Caption = '存储设备配置'
      DockPos = 0
      TabOrder = 0
      object ToolbarButton971: TToolbarButton97
        Left = 61
        Top = 0
        Width = 55
        Height = 22
        Action = Actiondelete
        Caption = '删除'
        ImageIndex = 1
        Images = ImageList1
      end
      object ToolbarButton972: TToolbarButton97
        Left = 0
        Top = 0
        Width = 55
        Height = 22