main.~dfm

Host software written in Delphi-pascal for programming, reading and erasing of Atmel s AT90S23X fami

object Form1: TForm1
  Left = 348
  Top = 128
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Atmel Object Burner - Adirson Mauro da Silva Junior - 2004'
  ClientHeight = 504
  ClientWidth = 664
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 7
    Top = 65
    Width = 234
    Height = 98
    BevelInner = bvLowered
    BevelWidth = 3
    TabOrder = 5
    object Dev_ID: TLabel
      Left = 117
      Top = 39
      Width = 9
      Height = 16
      Caption = '?'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object VPP_ID: TLabel
      Left = 117
      Top = 59
      Width = 9
      Height = 16
      Caption = '?'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Manufacturer: TLabel
      Left = 24
      Top = 20
      Width = 83
      Height = 16
      Caption = 'Fabricante :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Device: TStaticText
      Left = 20
      Top = 39
      Width = 90
      Height = 20
      Caption = 'Dispositivo :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object VPP: TStaticText
      Left = 70
      Top = 59
      Width = 40
      Height = 20
      Caption = 'Vpp :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object MFC_ID: TStaticText
      Left = 117
      Top = 20
      Width = 12
      Height = 20
      Caption = '?'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
  end
  object Panel1: TPanel
    Left = 254
    Top = 65
    Width = 403
    Height = 432
    BevelInner = bvLowered
    BevelWidth = 3
    TabOrder = 3
    object Splitter1: TSplitter
      Left = 15
      Top = 295
      Width = 378
      Height = 124
      Cursor = crHSplit
      Align = alNone
      Color = clGrayText
      ParentColor = False
    end
    object MC_LockBits: TButton
      Left = 50
      Top = 346
      Width = 127
      Height = 40
      Caption = '&Prote玢o'
      TabOrder = 0
      OnClick = MC_LockBitsClick
    end
    object Protection: TRadioGroup
      Left = 219
      Top = 305
      Width = 150
      Height = 105
      Caption = '  Prote玢o  '
      Enabled = False
      Items.Strings = (
        'Sem prote玢o'
        'LB1'
        'LB1,LB2'
        'LB1,LB2,LB3')
      TabOrder = 1
      OnClick = ProtectionClick
    end
    object FlashGroup: TGroupBox
      Left = 168
      Top = 7
      Width = 225
      Height = 129
      Caption = '  Flash  '
      TabOrder = 2
    end
    object EepromGroup: TGroupBox
      Left = 168
      Top = 144
      Width = 225
      Height = 129
      Caption = '  Eeprom  '
      TabOrder = 3
      object E2P_Read: TButton
        Left = 51
        Top = 25
        Width = 126
        Height = 40
        Caption = 'Ler E&2PROM'
        TabOrder = 0
        OnClick = E2P_ReadClick
      end
      object E2P_Burn: TButton
        Left = 51
        Top = 74
        Width = 126
        Height = 39
        Caption = 'G&ravar E2PROM'
        TabOrder = 1
        OnClick = E2P_BurnClick
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 267
    Top = 72
    Width = 150
    Height = 265
    Caption = '  Tipo de Microcontrolador  '
    TabOrder = 0
    object MC_Type: TButton
      Left = 20
      Top = 20
      Width = 111
      Height = 46
      Caption = 'L