unit1.~dfm

来自「OPCserver OPCserver.rar」· ~DFM 代码 · 共 110 行

object frmMain: TfrmMain
  Left = 193
  Top = 113
  Width = 544
  Height = 375
  Caption = 'TuoLin OPC Server For CB6 Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 64
    Top = 16
    Width = 81
    Height = 13
    AutoSize = False
    Caption = #25805#20316#27493#39588':'
  end
  object Label2: TLabel
    Left = 96
    Top = 64
    Width = 51
    Height = 13
    Caption = '1. Register'
  end
  object Label3: TLabel
    Left = 96
    Top = 88
    Width = 59
    Height = 13
    Caption = '2. Add Items'
  end
  object Label4: TLabel
    Left = 96
    Top = 112
    Width = 82
    Height = 13
    Caption = '3. Start Data time'
  end
  object MainMenu: TMainMenu
    Left = 408
    Top = 32
    object OPC1: TMenuItem
      Caption = 'OPC'
      object register1: TMenuItem
        Caption = 'Register'
        OnClick = register1Click
      end
      object UnRegister1: TMenuItem
        Caption = 'UnRegister'
        OnClick = UnRegister1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ServerStatus1: TMenuItem
        Caption = 'Server Status'
        OnClick = ServerStatus1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object AddItem1: TMenuItem
        Caption = 'Add Item'
        OnClick = AddItem1Click
      end
      object DelItem1: TMenuItem
        Caption = 'Delete Item'
        OnClick = DelItem1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Datatime1: TMenuItem
      Caption = 'Data time'
      object start1: TMenuItem
        Caption = 'start'
        OnClick = start1Click
      end
      object stop1: TMenuItem
        Caption = 'stop'
        OnClick = stop1Click
      end
    end
    object about1: TMenuItem
      Caption = 'about'
      OnClick = about1Click
    end
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 408
    Top = 64
  end
end