main.dfm

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

object Form1: TForm1
  Left = 236
  Top = 116
  Width = 646
  Height = 418
  Caption = 'Utility for WinCON 8000 Demo Program'
  Color = clMenu
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 353
    Width = 638
    Height = 19
    Panels = <
      item
        Text = '0000/00/00 00:00:00'
        Width = 120
      end
      item
        Text = 'Message'
        Width = 250
      end
      item
        Text = 'Set Value'
        Width = 300
      end
      item
        Text = 'Disconnect'
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 638
    Height = 20
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 1
      Top = 1
      Width = 636
      Height = 18
      Align = alClient
      Alignment = taCenter
    end
  end
  object ListView1: TListView
    Left = 0
    Top = 20
    Width = 638
    Height = 333
    Align = alClient
    Columns = <>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    TabOrder = 2
    ViewStyle = vsReport
    OnDblClick = ListView1DblClick
  end
  object MainMenu1: TMainMenu
    Left = 568
    object Link1: TMenuItem
      Caption = '&Link'
      object OpenTCP1: TMenuItem
        Caption = '&Open TCP'
        OnClick = OpenTCP1Click
      end
      object CloseTCP1: TMenuItem
        Caption = '&Close TCP'
        OnClick = CloseTCP1Click
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Control1: TMenuItem
      Caption = 'Online &Control'
      object InputCoil1: TMenuItem
        Caption = 'Input Coil'
        OnClick = InputCoil1Click
      end
      object OutputCoil1: TMenuItem
        Caption = 'Output Coil'
        OnClick = OutputCoil1Click
      end
      object InputRegister1: TMenuItem
        Caption = 'Input Register'
        OnClick = InputRegister1Click
      end
      object HoldingRegister1: TMenuItem
        Caption = 'Holding Register'
        OnClick = HoldingRegister1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object InputCoilSoft1: TMenuItem
        Caption = 'Input Coil Soft'
        OnClick = InputCoilSoft1Click
      end
      object OutputCoilSoft1: TMenuItem
        Caption = 'Output Coil Soft'
        OnClick = OutputCoilSoft1Click
      end
      object InputRegisterSoft1: TMenuItem
        Caption = 'Input Register Soft'
        OnClick = InputRegisterSoft1Click
      end
      object OutputRegisterSoft1: TMenuItem
        Caption = 'Output Register Soft'
        OnClick = OutputRegisterSoft1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object TimerTable1: TMenuItem
        Caption = 'Timer Table'
        OnClick = TimerTable1Click
      end
      object CounterTable1: TMenuItem
        Caption = 'Counter Table'
        OnClick = CounterTable1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MixDisplay1: TMenuItem
        Caption = 'Mix Display'
        OnClick = MixDisplay1Click
      end
    end
    object OffLine1: TMenuItem
      Caption = '&Offline Configure'
      object TAGDefine1: TMenuItem
        Caption = 'TAG Define'
        OnClick = TAGDefine1Click
      end
      object ModbusMasterUnit1: TMenuItem
        Caption = 'Modbus Master Unit'
        OnClick = ModbusMasterUnit1Click
      end
      object ParallelIOModule1: TMenuItem
        Caption = 'Parallel I/O Module'
        OnClick = ParallelIOModule1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 520
    Top = 2
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer2Timer
    Left = 576
    Top = 32
  end
end