iomain.dfm

human interface devices.zip 一套组件

object MainForm: TMainForm
  Left = 192
  Top = 116
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'IO-Warrior Starter Kit - Delphi Example'
  ClientHeight = 185
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LED7: TSpeedButton
    Left = 112
    Top = 56
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 8
    Enabled = False
    Glyph.Data = {
      76020000424D7602000000000000760000002800000040000000100000000100
      0400000000000002000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333330000033
      3333333330000033333333333000003333333333300000333333333008877700
      3333333008877700333333300887770033333330088777003333330887000777
      0333330887000777033333088700077703333308870007770333308800000007
      7033308800000007703330880FAFAF07703330880FAFAF077033308000000000
      703330800000000070333080F00000F070333080F00000F07033087000222000
      77030870002220007703087F00A2200F7703087F00A2200F7703080002222200
      07030800022222000703080A0A2A220A0703080A0A2A220A07030F0002222200
      07030F000222220007030F0F0AAAA20F07030F0F0AAAA20F07030F0008222200
      08030F000822220008030F0A0FAA2A0A08030F0A0FAA2A0A08030F7000882000
      78030F700088200078030F7F00FFA00F78030F7F00FFA00F7803308000000000
      803330800000000080333080F00000F080333080F00000F0803330F800000008
      803330F800000008803330F80FAFAF08803330F80FAFAF088033330F87000788
      0333330F870007880333330F870007880333330F87000788033333300FFF8800
      333333300FFF8800333333300FFF8800333333300FFF88003333333330000033
      3333333330000033333333333000003333333333300000333333}
    NumGlyphs = 4
    OnClick = LEDClick
  end
  object LED6: TSpeedButton
    Left = 136
    Top = 56
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 7
    Enabled = False
    Glyph.Data = {
      76020000424D7602000000000000760000002800000040000000100000000100
      0400000000000002000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333330000033
      3333333330000033333333333000003333333333300000333333333008877700
      3333333008877700333333300887770033333330088777003333330887000777
      0333330887000777033333088700077703333308870007770333308800000007
      7033308800000007703330880FAFAF07703330880FAFAF077033308000000000
      703330800000000070333080F00000F070333080F00000F07033087000222000
      77030870002220007703087F00A2200F7703087F00A2200F7703080002222200
      07030800022222000703080A0A2A220A0703080A0A2A220A07030F0002222200
      07030F000222220007030F0F0AAAA20F07030F0F0AAAA20F07030F0008222200
      08030F000822220008030F0A0FAA2A0A08030F0A0FAA2A0A08030F7000882000
      78030F700088200078030F7F00FFA00F78030F7F00FFA00F7803308000000000
      803330800000000080333080F00000F080333080F00000F0803330F800000008
      803330F800000008803330F80FAFAF08803330F80FAFAF088033330F87000788
      0333330F870007880333330F870007880333330F87000788033333300FFF8800
      333333300FFF8800333333300FFF8800333333300FFF88003333333330000033
      3333333330000033333333333000003333333333300000333333}
    NumGlyphs = 4
    OnClick = LEDClick
  end
  object LED5: TSpeedButton
    Left = 160
    Top = 56
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 6
    Enabled = False
    Glyph.Data = {
      76020000424D7602000000000000760000002800000040000000100000000100
      0400000000000002000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333330000033
      3333333330000033333333333000003333333333300000333333333008877700
      3333333008877700333333300887770033333330088777003333330887000777
      0333330887000777033333088700077703333308870007770333308800000007
      7033308800000007703330880FAFAF07703330880FAFAF077033308000000000
      703330800000000070333080F00000F070333080F00000F07033087000222000
      77030870002220007703087F00A2200F7703087F00A2200F7703080002222200
      07030800022222000703080A0A2A220A0703080A0A2A220A07030F0002222200
      07030F000222220007030F0F0AAAA20F07030F0F0AAAA20F07030F0008222200
      08030F000822220008030F0A0FAA2A0A08030F0A0FAA2A0A08030F7000882000
      78030F700088200078030F7F00FFA00F78030F7F00FFA00F7803308000000000
      803330800000000080333080F00000F080333080F00000F0803330F800000008
      803330F800000008803330F80FAFAF08803330F80FAFAF088033330F87000788
      0333330F870007880333330F870007880333330F87000788033333300FFF8800
      333333300FFF8800333333300FFF8800333333300FFF88003333333330000033
      3333333330000033333333333000003333333333300000333333}
    NumGlyphs = 4
    OnClick = LEDClick
  end
  object LED4: TSpeedButton
    Left = 184
    Top = 56
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 5
    Enabled = False
    Glyph.Data = {
      76020000424D7602000000000000760000002800000040000000100000000100
      0400000000000002000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333330000033
      3333333330000033333333333000003333333333300000333333333008877700
      3333333008877700333333300887770033333330088777003333330887000777
      0333330887000777033333088700077703333308870007770333308800000007
      7033308800000007703330880FAFAF07703330880FAFAF077033308000000000
      703330800000000070333080F00000F070333080F00000F07033087000222000
      77030870002220007703087F00A2200F7703087F00A2200F7703080002222200
      07030800022222000703080A0A2A220A0703080A0A2A220A07030F0002222200
      07030F000222220007030F0F0AAAA20F07030F0F0AAAA20F07030F0008222200
      08030F000822220008030F0A0FAA2A0A08030F0A0FAA2A0A08030F7000882000
      78030F700088200078030F7F00FFA00F78030F7F00FFA00F7803308000000000
      803330800000000080333080F00000F080333080F00000F0803330F800000008
      803330F800000008803330F80FAFAF08803330F80FAFAF088033330F87000788
      0333330F870007880333330F870007880333330F87000788033333300FFF8800
      333333300FFF8800333333300FFF8800333333300FFF88003333333330000033
      3333333330000033333333333000003333333333300000333333}
    NumGlyphs = 4
    OnClick = LEDClick
  end
  object LED3: TSpeedButton
    Left = 208
    Top = 56
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 4
    Enabled = False
    Glyph.Data = {
      76020000424D7602000000000000760000002800000040000000100000000100
      0400000000000002000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333330000033
      3333333330000033333333333000003333333333300000333333333008877700
      3333333008877700333333300887770033333330088777003333330887000777
      0333330887000777033333088700077703333308870007770333308800000007
      7033308800000007703330880FAFAF07703330880FAFAF077033308000000000
      703330800000000070333080F00000F070333080F00000F07033087000222000
      77030870002220007703087F00A2200F7703087F00A2200F7703080002222200
      07030800022222000703080A0A2A220A0703080A0A2A220A07030F0002222200
      07030F000222220007030F0F0AAAA20F07030F0F0AAAA20F07030F0008222200
      08030F000822220008030F0A0FAA2A0A08030F0A0FAA2A0A08030F7000882000
      78030F700088200078030F7F00FFA00F78030F7F00FFA00F7803308000000000
      803330800000000080333080F00000F080333080F00000F0803330F800000008
      803330F800000008803330F80FAFAF08803330F80FAFAF088033330F87000788
      0333330F870007880333330F870007880333330F87000788033333300FFF8800
      333333300FFF8800333333300FFF8800333333300FFF88003333333330000033
      3333333330000033333333333000003333333333300000333333}
    NumGlyphs = 4
    OnClick = LEDClick
  end
  object LED2: TSpeedButton
    Left = 232
    Top = 56
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 3
    Enabled = False
    Glyph.Data = {
      76020000424D7602000000000000760000002800000040000000100000000100
      0400000000000002000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333330000033
      3333333330000033333333333000003333333333300000333333333008877700
      3333333008877700333333300887770033333330088777003333330887000777
      0333330887000777033333088700077703333308870007770333308800000007
      7033308800000007703330880FAFAF07703330880FAFAF077033308000000000
      703330800000000070333080F00000F070333080F00000F07033087000222000
      77030870002220007703087F00A2200F7703087F00A2200F7703080002222200
      07030800022222000703080A0A2A220A0703080A0A2A220A07030F0002222200
      07030F000222220007030F0F0AAAA20F07030F0F0AAAA20F07030F0008222200
      08030F000822220008030F0A0FAA2A0A08030F0A0FAA2A0A08030F7000882000
      78030F700088200078030F7F00FFA00F78030F7F00FFA00F7803308000000000
      803330800000000080333080F00000F080333080F00000F0803330F800000008
      803330F800000008803330F80FAFAF08803330F80FAFAF088033330F87000788
      0333330F870007880333330F870007880333330F87000788033333300FFF8800
      333333300FFF8800333333300FFF8800333333300FFF88003333333330000033
      3333333330000033333333333000003333333333300000333333}
    NumGlyphs = 4
    OnClick = LEDClick
  end
  object LED1: TSpeedButton
    Left = 256
    Top = 56
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 2
    Enabled = False
    Glyph.Data = {
      76020000424D7602000000000000760000002800000040000000100000000100
      0400000000000002000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333330000033
      3333333330000033333333333000003333333333300000333333333008877700
      3333333008877700333333300887770033333330088777003333330887000777
      0333330887000777033333088700077703333308870007770333308800000007
      7033308800000007703330880FAFAF07703330880FAFAF077033308000000000
      703330800000000070333080F00000F070333080F00000F07033087000222000
      77030870002220007703087F00A2200F7703087F00A2200F7703080002222200
      07030800022222000703080A0A2A220A0703080A0A2A220A07030F0002222200
      07030F000222220007030F0F0AAAA20F07030F0F0AAAA20F07030F0008222200
      08030F000822220008030F0A0FAA2A0A08030F0A0FAA2A0A08030F7000882000
      78030F700088200078030F7F00FFA00F78030F7F00FFA00F7803308000000000
      803330800000000080333080F00000F080333080F00000F0803330F800000008
      803330F800000008803330F80FAFAF08803330F80FAFAF088033330F87000788
      0333330F870007880333330F870007880333330F87000788033333300FFF8800
      333333300FFF8800333333300FFF8800333333300FFF88003333333330000033
      3333333330000033333333333000003333333333300000333333}
    NumGlyphs = 4
    OnClick = LEDClick
  end
  object LED0: TSpeedButton
    Left = 280
    Top = 56
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 1
    Enabled = False
    Glyph.Data = {
      76020000424D7602000000000000760000002800000040000000100000000100
      0400000000000002000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333330000033
      3333333330000033333333333000003333333333300000333333333008877700
      3333333008877700333333300887770033333330088777003333330887000777
      0333330887000777033333088700077703333308870007770333308800000007
      7033308800000007703330880FAFAF07703330880FAFAF077033308000000000
      703330800000000070333080F00000F070333080F00000F07033087000222000
      77030870002220007703087F00A2200F7703087F00A2200F7703080002222200
      07030800022222000703080A0A2A220A0703080A0A2A220A07030F0002222200
      07030F000222220007030F0F0AAAA20F07030F0F0AAAA20F07030F0008222200
      08030F000822220008030F0A0FAA2A0A08030F0A0FAA2A0A08030F7000882000
      78030F700088200078030F7F00FFA00F78030F7F00FFA00F7803308000000000
      803330800000000080333080F00000F080333080F00000F0803330F800000008
      803330F800000008803330F80FAFAF08803330F80FAFAF088033330F87000788
      0333330F870007880333330F870007880333330F87000788033333300FFF8800
      333333300FFF8800333333300FFF8800333333300FFF88003333333330000033
      3333333330000033333333333000003333333333300000333333}
    NumGlyphs = 4
    OnClick = LEDClick
  end
  object IOWarriorDetected: TLabel
    Left = 0
    Top = 16
    Width = 417
    Height = 13
    Alignment = taCenter
    AutoSize = False
  end
  object InputBits: TLabel
    Left = 0
    Top = 144
    Width = 416
    Height = 13
    Alignment = taCenter
    AutoSize = False
  end
  object BlockingRead: TSpeedButton
    Left = 144
    Top = 104
    Width = 129
    Height = 22
    Hint = 'press the button on the IO-Warrior to generate some input'
    Caption = 'Blocking Read'
    OnClick = BlockingReadClick
  end
  object HidCtl: TJvHidDeviceController
    Left = 384
    Top = 72
  end
end