main.dfm

DelphiOPCClien delphi 编写的opc客户端 源程序代码

object FrmMain: TFrmMain
  Left = 205
  Top = 114
  Width = 762
  Height = 546
  Caption = 'OPC'#23458#25143#31471#24320#21457#21253#28436#31034#31243#24207
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000770000000000000000000
    0000000007777770000000000000000000000007777007777000000000000000
    0000077770000007777000000000000000077770000A20000777700000000000
    077770000A78222000077770000000077770000A788AA2222000077770000777
    70000A782AAAAAA20220000777700077000A782A2AAAAA22F202200007000000
    0A782A2F822A228822F202200000000A788A2F82288788228822F22220000078
    8AAF8228877000882288AAA22200008AAAAAA8877000000088AAAAAAA20000AA
    AAAAA7700000000000AAAAAAAA00000AAAAAA00000000000000AAAAAA0000000
    0AA228800000000008822AA00000000000088228800000088228800000000000
    00000882288008822880000000000000000000088AAAAAA88000000000000000
    000000000AAAAAA0000000000000000000000000000AA0000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFE7FFFFFF81FFFFFE007FFFF8001FFFE00007FF800001FE00000078000
    0001C0000003E00000078000000180000001800000018000000180000001E000
    0007F800001FFE00007FFF8001FFFFE007FFFFF81FFFFFFE7FFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object ActionMainMenuBar2: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 754
    Height = 23
    UseSystemFont = False
    ActionManager = ActionManager1
    Caption = 'ActionMainMenuBar2'
    ColorMap.HighlightColor = 14410210
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = 14410210
    EdgeOuter = esNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    PersistentHotKeys = True
    Spacing = 0
  end
  object ActionToolBar1: TActionToolBar
    Left = 0
    Top = 23
    Width = 754
    Height = 28
    ActionManager = ActionManager1
    Caption = 'ActionToolBar1'
    ColorMap.HighlightColor = 14410210
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = 14410210
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Spacing = 0
  end
  object ListView1: TListView
    Left = 0
    Top = 51
    Width = 754
    Height = 449
    Align = alClient
    Columns = <
      item
        Caption = #26631#31614#21517#31216
        Width = 150
      end
      item
        Alignment = taCenter
        Caption = #25968#25454#31867#22411
        Width = 80
      end
      item
        Alignment = taRightJustify
        Caption = #20540
        Width = 130
      end
      item
        Alignment = taCenter
        Caption = #36136#37327
        Width = 60
      end
      item
        Alignment = taRightJustify
        Caption = #26102#38388
        Width = 140
      end
      item
        Alignment = taCenter
        Caption = #35835#20889#26435#38480
        Width = 70
      end
      item
        Alignment = taCenter
        Caption = #25152#23646#32452
        Width = 100
      end>
    FullDrag = True
    RowSelect = True
    PopupMenu = PopupMenu1
    TabOrder = 2
    ViewStyle = vsReport
    OnContextPopup = ListView1ContextPopup
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 500
    Width = 754
    Height = 19
    Panels = <>
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = ActionConnect
                Caption = #36830#25509#26381#21153#22120'(&Z)'
                ImageIndex = 0
                ShortCut = 16462
              end
              item
                Caption = '-'
              end
              item
                Action = ActionGroup
                Caption = #31649#29702#32452'(&Y)'
                ImageIndex = 1
                ShortCut = 16455
              end
              item
                Action = ActionTag
                Caption = #31649#29702#26631#31614'(&X)'
                ImageIndex = 2
                ShortCut = 16468
              end
              item
                Caption = '-'
              end
              item
                Action = ActionDisConn
                Caption = #26029#24320#26381#21153#22120'(&W)'
                ImageIndex = 3
                ShortCut = 16465
              end
              item
                Caption = '-'
              end
              item
                Action = FileExit1
                Caption = #36864#20986'(&V)'
                ImageIndex = 4
                ShortCut = 16472
              end>
            Caption = #25991#20214'(&F)'
          end
          item
            Items = <
              item
                Action = ActionAbout
                Caption = #20851#20110'(&Z)'
                ImageIndex = 5
                ShortCut = 16449
              end>
            Caption = #24110#21161'(&H)'
          end>
        Visible = False
        ActionBar = ActionMainMenuBar2
      end
      item
        Items = <
          item
            Action = ActionConnect
            Caption = #36830#25509#26381#21153#22120'(&Z)'
            ImageIndex = 0
            ShowCaption = False
            ShortCut = 16462
          end
          item
            Caption = '-'
            ImageIndex = 1
          end
          item
            Action = ActionGroup
            Caption = #31649#29702#32452'(&Y)'
            ImageIndex = 1
            ShowCaption = False
            ShortCut = 16455
          end
          item
            Action = ActionTag
            Caption = #31649#29702#26631#31614'(&X)'
            ImageIndex = 2
            ShowCaption = False
            ShortCut = 16468
          end
          item
            Caption = '-'
            ImageIndex = 3
          end
          item
            Action = ActionDisConn
            Caption = #26029#24320#26381#21153#22120'(&W)'
            ImageIndex = 3
            ShowCaption = False
            ShortCut = 16465
          end
          item
            Caption = '-'
            ImageIndex = 4
          end
          item
            Action = ActionAbout
            Caption = #20851#20110'(&U)'
            ImageIndex = 5
            ShowCaption = False
            ShortCut = 16449
          end
          item
            Caption = '-'
            ImageIndex = 5
          end
          item
            Action = FileExit1
            Caption = #36864#20986'(&V)'
            ImageIndex = 4
            ShowCaption = False
            ShortCut = 16472
          end>
        ActionBar = ActionToolBar1
      end>
    Images = ImageList1
    Left = 24
    Top = 280
    StyleName = 'XP Style'
    object ActionConnect: TAction
      Category = 'File'
      Caption = #36830#25509#26381#21153#22120
      Hint = #36830#25509#26381#21153#22120
      ImageIndex = 0
      ShortCut = 16462
      OnExecute = ActionConnectExecute
    end
    object ActionGroup: TAction
      Category = 'File'
      Caption = #31649#29702#32452
      Enabled = False
      Hint = #31649#29702#32452
      ImageIndex = 1
      ShortCut = 16455