io Programmo 81/IOPROG_81.ISO/soft/Codice/SymmeticEncryption/SpuntoHardwareKeyProgrammerUnit.dfm/SpuntoHardwareKeyProgrammerUnit.txt

Text File | 2004-04-28 | 10.5 KB | 426 lines

object SpuntoHardwareKeyProgrammerForm: TSpuntoHardwareKeyProgrammerForm
  Left = 98
  Top = 28
  Width = 700
  Height = 550
  BorderIcons = [biSystemMenu]
  Caption = 'Spunto Hardware Key Programmer: [e-mail]'
  Color = clBtnFace
  Constraints.MaxHeight = 550
  Constraints.MaxWidth = 700
  Constraints.MinHeight = 550
  Constraints.MinWidth = 700
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpuntoHardwarePort: TSpuntoHardwarePortIO
    Left = 400
    Top = 136
    Width = 25
    Height = 17
    Brush.Color = clMaroon
    Shape = stCircle
    Visible = False
  end
  object Label5: TLabel
    Left = 16
    Top = 69
    Width = 52
    Height = 20
    Caption = 'Period'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 80
    Top = 69
    Width = 55
    Height = 20
    Caption = 'Label1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 128
    Top = 69
    Width = 46
    Height = 20
    Caption = 'mSec'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Image1: TImage
    Left = 48
    Top = 112
    Width = 393
    Height = 401
    Picture.Data = {<image000.bmp>}
  end
  object COMGroupBox: TGroupBox
    Left = 504
    Top = 472
    Width = 185
    Height = 41
    Caption = 'COM Port: '
    TabOrder = 0
    object COM1RadioButton: TRadioButton
      Left = 32
      Top = 16
      Width = 57
      Height = 17
      Caption = 'COM1'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = COM1RadioButtonClick
    end
    object COM2RadioButton: TRadioButton
      Left = 104
      Top = 16
      Width = 57
      Height = 17
      Caption = 'COM2'
      TabOrder = 1
      OnClick = COM2RadioButtonClick
    end
  end
  object WaveformGroupBox: TGroupBox
    Left = 8
    Top = 8
    Width = 225
    Height = 97
    Caption = 'Waveform'
    TabOrder = 1
    object Label1: TLabel
      Left = 136
      Top = 77
      Width = 9
      Height = 16
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 48
      Top = 77
      Width = 51
      Height = 16
      Caption = 'Period:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object PeriodTrackBar: TTrackBar
      Left = 8
      Top = 16
      Width = 209
      Height = 57
      Max = 500000
      Min = 1
      Orientation = trHorizontal
      Frequency = 50000
      Position = 1000
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      ThumbLength = 30
      TickMarks = tmTopLeft
      TickStyle = tsAuto
      OnChange = PeriodTrackBarChange
    end
  end
  object EEPROM: TGroupBox
    Left = 504
    Top = 8
    Width = 185
    Height = 457
    Caption = 'Hardware Key: '
    TabOrder = 2
    object Label19: TLabel
      Left = 8
      Top = 144
      Width = 41
      Height = 13
      Caption = 'Address:'
    end
    object Label20: TLabel
      Left = 96
      Top = 144
      Width = 26
      Height = 13
      Caption = 'Data:'
    end
    object Label21: TLabel
      Left = 40
      Top = 24
      Width = 76
      Height = 13
      Caption = 'EEPROM Type:'
    end
    object AckLabel: TLabel
      Left = 72
      Top = 104
      Width = 45
      Height = 13
      Caption = 'AckLabel'
    end
    object Label2: TLabel
      Left = 8
      Top = 104
      Width = 56
      Height = 13
      Caption = 'Last Action:'
    end
    object EEPROMTitleLabel: TLabel
      Left = 8
      Top = 88
      Width = 67
      Height = 13
      Caption = 'DeviceStatus:'
    end
    object EEPROMStatusLabel: TLabel
      Left = 80
      Top = 88
      Width = 102
      Height = 13
      Caption = 'EEPROMStatusLabel'
    end
    object CSpinEditAddress: TCSpinEdit
      Left = 8
      Top = 160
      Width = 81
      Height = 22
      TabStop = True
      MaxValue = 2047
      ParentColor = False
      TabOrder = 0
      OnChange = CSpinEditAddressChange
    end
    object CSpinEditData: TCSpinEdit
      Left = 96
      Top = 160
      Width = 81
      Height = 22
      TabStop = True
      MaxValue = 255
      MinValue = 1
      ParentColor = False
      TabOrder = 1
      Value = 255
    end
    object WriteEEPROM: TBitBtn
      Left = 8
      Top = 264
      Width = 169
      Height = 41
      Caption = 'Write EEPROM'
      TabOrder = 2
      OnClick = WriteEEPROMClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      Layout = blGlyphTop
      NumGlyphs = 2
    end
    object ComboBoxEEPROMType: TComboBox
      Left = 40
      Top = 40
      Width = 105
      Height = 21
      DropDownCount = 1
      ItemHeight = 13
      Items.Strings = (
        '24C16')
      Sorted = True
      TabOrder = 3
      Text = '24C16'
    end
    object SDA_LOW_Button: TButton
      Left = 16
      Top = 384
      Width = 75
      Height = 25
      Caption = 'SDA LOW'
      TabOrder = 4
      OnClick = SDA_LOW_ButtonClick
    end
    object SDA_HIGH_Button: TButton
      Left = 96
      Top = 384
      Width = 75
      Height = 25
      Caption = 'SDA HIGH'
      TabOrder = 5
      OnClick = SDA_HIGH_ButtonClick
    end
    object SCL_LOW_Button: TButton
      Left = 16
      Top = 416
      Width = 75
      Height = 25
      Caption = 'SCL LOW'
      TabOrder = 6
      OnClick = SCL_LOW_ButtonClick
    end
    object SCL_HIGH_Button: TButton
      Left = 96
      Top = 416
      Width = 75
      Height = 25
      Caption = 'SCL HIGH'
      TabOrder = 7
      OnClick = SCL_HIGH_ButtonClick
    end
    object HardwareKeyONButton: TBitBtn
      Left = 8
      Top = 216
      Width = 169
      Height = 41
      Caption = 'Hardware Key ON'
      TabOrder = 8
      OnClick = HardwareKeyONButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337FF3333333333330003333333333333777F333333333333080333
        3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
        33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
        B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
        BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
        B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
        3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
        333333333337F33333333333333B333333333333333733333333}
      Layout = blGlyphTop
      NumGlyphs = 2
    end
    object ReadEEPROMButton: TBitBtn
      Left = 8
      Top = 312
      Width = 169
      Height = 41
      Caption = 'Read EEPROM'
      TabOrder = 9
      OnClick = ReadEEPROMButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
        07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
        0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      Layout = blGlyphTop
      NumGlyphs = 2
    end
  end
  object KeyGroupBox: TGroupBox
    Left = 240
    Top = 8
    Width = 257
    Height = 97
    Caption = 'Key:'
    TabOrder = 3
    object Label4: TLabel
      Left = 8
      Top = 20
      Width = 41
      Height = 13
      Caption = 'Address:'
    end
    object Label8: TLabel
      Left = 88
      Top = 20
      Width = 26
      Height = 13
      Caption = 'Data:'
    end
    object KeyOKLabel: TLabel
      Left = 187
      Top = 72
      Width = 70
      Height = 13
      Caption = 'KeyOKLabel'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object KeyAddressSpinEdit: TCSpinEdit
      Left = 8
      Top = 40
      Width = 73
      Height = 22
      TabStop = True
      MaxValue = 2047
      ParentColor = False
      TabOrder = 0
    end
    object KeyDataSpinEdit: TCSpinEdit
      Left = 88
      Top = 40
      Width = 57
      Height = 22
      TabStop = True
      MaxValue = 255
      MinValue = 1
      ParentColor = False
      TabOrder = 1
      Value = 255
    end
    object CheckEEPROMButton: TBitBtn
      Left = 168
      Top = 16
      Width = 73
      Height = 41
      Caption = 'Verify Key '
      TabOrder = 2
      OnClick = CheckEEPROMButtonClick
    end
  end
end