tagdef.dfm

《WinCE.NET嵌入式工业用控制器及自动控制系统设计》的源代码

object Form2: TForm2
  Left = 99
  Top = 107
  Width = 637
  Height = 375
  Caption = 'TAG Define Form'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 629
    Height = 25
    Align = alTop
    Caption = 'TAG Define Form'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 96
      Height = 13
      Caption = 'Relay/Register TAG'
    end
  end
  object ListView1: TListView
    Left = 0
    Top = 25
    Width = 629
    Height = 304
    Align = alClient
    Columns = <>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = ListView1DblClick
  end
  object MainMenu1: TMainMenu
    Left = 560
    object Relay1: TMenuItem
      Caption = '&Coil'
      object OutputCoil1: TMenuItem
        Caption = 'Input Coil'
        OnClick = OutputCoil1Click
      end
      object OutputCoil2: TMenuItem
        Caption = 'Output Coil'
        OnClick = OutputCoil2Click
      end
      object InputCoilSoft1: TMenuItem
        Caption = 'Input Coil Soft'
        OnClick = InputCoilSoft1Click
      end
      object OutputCoilSoft1: TMenuItem
        Caption = 'Output Coil Soft'
        OnClick = OutputCoilSoft1Click
      end
    end
    object Register1: TMenuItem
      Caption = '&Register'
      object InputRegister1: TMenuItem
        Caption = 'Input Register'
        OnClick = InputRegister1Click
      end
      object HoldingRegister1: TMenuItem
        Caption = 'Holding Register'
        OnClick = HoldingRegister1Click
      end
      object InputRegisterSoft1: TMenuItem
        Caption = 'Input Register Soft'
        OnClick = InputRegisterSoft1Click
      end
      object HoldingRegisterSoft1: TMenuItem
        Caption = 'Holding Register Soft'
        OnClick = HoldingRegisterSoft1Click
      end
    end
    object TimerCounter1: TMenuItem
      Caption = 'Timer/Counter'
      object TimerTable1: TMenuItem
        Caption = 'Timer Table'
        OnClick = TimerTable1Click
      end
      object CounterTable1: TMenuItem
        Caption = 'Counter Table'
        OnClick = CounterTable1Click
      end
    end
    object Exit1: TMenuItem
      Caption = 'Quit'
      object Cancelnosave1: TMenuItem
        Caption = 'Exit and not Save'
        OnClick = Cancelnosave1Click
      end
      object ExitandSave1: TMenuItem
        Caption = 'Exit and Save'
        OnClick = ExitandSave1Click
      end
    end
  end
end