Hot Shareware 35/hot35.iso/ficheros/9APLI/CBAR200E.ZIP/CBAR20.EX_/CBAR20.EX/0/RCDATA/TFORMINPUT/TFORMINPUT.txt

Text File | 1997-10-15 | 38KB | 1,641 lines

object FormInput: TFormInput
  Left = 267
  Top = 14
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FormInput'
  ClientHeight = 395
  ClientWidth = 372
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Menu = MainMenu
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LtitCod: TLabel
    Left = 34
    Top = 10
    Width = 86
    Height = 13
    Alignment = taRightJustify
    Caption = 'Tipo di codice:'
  end
  object ChooseBar: TComboBox
    Left = 122
    Top = 6
    Width = 209
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
    OnChange = ChooseBarChange
    OnEnter = ChooseBarEnter
  end
  object PageSpec: TPageControl
    Left = 8
    Top = 32
    Width = 349
    Height = 227
    ActivePage = TabSheetCODE39
    TabOrder = 1
    TabStop = False
    object TabSheetEAN: TTabSheet
      Caption = 'TabSheetEAN'
      TabVisible = False
      object Lmag_EAN: TLabel
        Left = 89
        Top = 62
        Width = 142
        Height = 13
        Alignment = taRightJustify
        Caption = 'Fattore di ingrandimento:'
      end
      object NameFontEan: TLabel
        Left = 14
        Top = 154
        Width = 30
        Height = 13
        Caption = 'Font:'
      end
      object Ltbt_EAN: TLabel
        Left = 70
        Top = 10
        Width = 161
        Height = 13
        Alignment = taRightJustify
        Caption = 'Spessore della barra stretta:'
      end
      object Lhig_EAN: TLabel
        Left = 58
        Top = 36
        Width = 173
        Height = 13
        Alignment = taRightJustify
        Caption = 'Altezza delle barre del codice:'
      end
      object Lbwr_EAN: TLabel
        Left = 23
        Top = 88
        Width = 210
        Height = 13
        Alignment = taRightJustify
        Caption = 'Riduzione dello spessore delle barre:'
      end
      object Lcor_EAN: TLabel
        Left = 38
        Top = 198
        Width = 125
        Height = 13
        Alignment = taRightJustify
        Caption = 'Rotazione del codice:'
        Visible = False
      end
      object mm1: TLabel
        Left = 290
        Top = 12
        Width = 26
        Height = 13
        Caption = 'mm1'
      end
      object mm2: TLabel
        Left = 290
        Top = 36
        Width = 26
        Height = 13
        Caption = 'mm2'
      end
      object mm3: TLabel
        Left = 290
        Top = 90
        Width = 26
        Height = 13
        Caption = 'mm3'
      end
      object E_mag_EAN: TEdit
        Left = 234
        Top = 58
        Width = 49
        Height = 21
        MaxLength = 6
        TabOrder = 2
        OnEnter = E_mag_EANEnter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object Cptc_EAN: TCheckBox
        Left = 8
        Top = 126
        Width = 219
        Height = 17
        Caption = 'Stampo il testo sotto il codice'
        TabOrder = 5
        OnEnter = Cptc_EANEnter
      end
      object FontEAN: TButton
        Left = 222
        Top = 148
        Width = 75
        Height = 25
        Caption = 'Font'
        TabOrder = 6
        OnClick = FontEANClick
        OnEnter = FontEANEnter
      end
      object CautoCheck: TCheckBox
        Left = 8
        Top = 106
        Width = 305
        Height = 17
        Caption = 'Calcolo automatico del carattere di controllo'
        TabOrder = 4
        OnEnter = CautoCheckEnter
      end
      object E_wtb_EAN: TEdit
        Left = 234
        Top = 6
        Width = 49
        Height = 21
        AutoSize = False
        MaxLength = 6
        TabOrder = 0
        OnEnter = E_wtb_EANEnter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_hig_EAN: TEdit
        Left = 234
        Top = 32
        Width = 49
        Height = 21
        MaxLength = 6
        TabOrder = 1
        OnEnter = E_hig_EANEnter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_red_EAN: TEdit
        Left = 234
        Top = 84
        Width = 49
        Height = 21
        MaxLength = 6
        TabOrder = 3
        OnEnter = E_red_EANEnter
        OnKeyPress = E_red_EANKeyPress
      end
      object Ccor_EAN: TComboBox
        Left = 168
        Top = 194
        Width = 69
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          '0'
          '90'
          '180'
          '270')
        TabOrder = 7
        Visible = False
        OnEnter = Ccor_CODE39Enter
      end
    end
    object TabSheetCODE39: TTabSheet
      Caption = 'TabSheetCODE39'
      TabVisible = False
      object Ltbt_CODE39: TLabel
        Left = 70
        Top = 10
        Width = 161
        Height = 13
        Alignment = taRightJustify
        Caption = 'Spessore della barra stretta:'
      end
      object Lrtl_CODE39: TLabel
        Left = 32
        Top = 34
        Width = 199
        Height = 13
        Alignment = taRightJustify
        Caption = 'Rapporto tra barre strette e larghe:'
      end
      object Lhig_CODE39: TLabel
        Left = 58
        Top = 60
        Width = 173
        Height = 13
        Alignment = taRightJustify
        Caption = 'Altezza delle barre del codice:'
      end
      object Ltsi_CODE39: TLabel
        Left = 23
        Top = 86
        Width = 208
        Height = 13
        Alignment = taRightJustify
        Caption = 'Spessore dello spazio intercarattere:'
      end
      object Lbwr_CODE39: TLabel
        Left = 21
        Top = 112
        Width = 210
        Height = 13
        Alignment = taRightJustify
        Caption = 'Riduzione dello spessore delle barre:'
      end
      object NameFontCode39: TLabel
        Left = 16
        Top = 174
        Width = 26
        Height = 13
        Caption = 'Font'
      end
      object Lcor_CODE39: TLabel
        Left = 38
        Top = 198
        Width = 125
        Height = 13
        Alignment = taRightJustify
        Caption = 'Rotazione del codice:'
        Visible = False
      end
      object mm4: TLabel
        Left = 290
        Top = 10
        Width = 26
        Height = 13
        Caption = 'mm4'
      end
      object mm5: TLabel
        Left = 290
        Top = 60
        Width = 26
        Height = 13
        Caption = 'mm5'
      end
      object mm6: TLabel
        Left = 290
        Top = 112
        Width = 26
        Height = 13
        Caption = 'mm6'
      end
      object mm13: TLabel
        Left = 290
        Top = 86
        Width = 33
        Height = 13
        Caption = 'mm13'
      end
      object E_wtb_CODE39: TEdit
        Left = 234
        Top = 6
        Width = 49
        Height = 21
        AutoSize = False
        MaxLength = 5
        TabOrder = 0
        OnEnter = E_wtb_CODE39Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_rbr_CODE39: TEdit
        Left = 234
        Top = 30
        Width = 49
        Height = 21
        MaxLength = 5
        TabOrder = 1
        OnEnter = E_rbr_CODE39Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_hig_CODE39: TEdit
        Left = 234
        Top = 56
        Width = 49
        Height = 21
        MaxLength = 5
        TabOrder = 2
        OnEnter = E_hig_CODE39Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_icr_CODE39: TEdit
        Left = 234
        Top = 82
        Width = 49
        Height = 21
        MaxLength = 5
        TabOrder = 3
        OnEnter = E_icr_CODE39Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_red_CODE39: TEdit
        Left = 234
        Top = 108
        Width = 49
        Height = 21
        MaxLength = 5
        TabOrder = 4
        OnEnter = E_red_CODE39Enter
        OnKeyPress = E_red_EANKeyPress
      end
      object Cack_CODE39: TCheckBox
        Left = 18
        Top = 132
        Width = 221
        Height = 17
        Caption = 'Aggiungo il carattere di controllo'
        TabOrder = 5
        OnEnter = Cack_CODE39Enter
      end
      object Cptc_CODE39: TCheckBox
        Left = 18
        Top = 150
        Width = 255
        Height = 17
        Caption = 'Stampo il testo sotto il codice'
        TabOrder = 6
        OnEnter = Cptc_CODE39Enter
      end
      object FontCode39: TButton
        Left = 252
        Top = 166
        Width = 75
        Height = 25
        Caption = 'Font'
        TabOrder = 7
        OnClick = FontEANClick
        OnEnter = FontCode39Enter
      end
      object Ccor_CODE39: TComboBox
        Left = 168
        Top = 194
        Width = 69
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          '0'
          '90'
          '180'
          '270')
        TabOrder = 8
        Visible = False
        OnEnter = Ccor_CODE39Enter
      end
    end
    object TabSheetCODE32: TTabSheet
      Caption = 'TabSheetCODE32'
      TabVisible = False
      object NameFontCode32: TLabel
        Left = 16
        Top = 174
        Width = 26
        Height = 13
        Caption = 'Font'
      end
      object Ltbt_CODE32: TLabel
        Left = 70
        Top = 10
        Width = 161
        Height = 13
        Alignment = taRightJustify
        Caption = 'Spessore della barra stretta:'
      end
      object Lrtl_CODE32: TLabel
        Left = 32
        Top = 36
        Width = 199
        Height = 13
        Alignment = taRightJustify
        Caption = 'Rapporto tra barre strette e larghe:'
      end
      object Lhig_CODE32: TLabel
        Left = 58
        Top = 62
        Width = 173
        Height = 13
        Alignment = taRightJustify
        Caption = 'Altezza delle barre del codice:'
      end
      object Lbwr_CODE32: TLabel
        Left = 21
        Top = 112
        Width = 210
        Height = 13
        Alignment = taRightJustify
        Caption = 'Riduzione dello spessore delle barre:'
      end
      object Lcor_CODE32: TLabel
        Left = 38
        Top = 198
        Width = 125
        Height = 13
        Alignment = taRightJustify
        Caption = 'Rotazione del codice:'
        Visible = False
      end
      object mm7: TLabel
        Left = 290
        Top = 10
        Width = 26
        Height = 13
        Caption = 'mm7'
      end
      object mm8: TLabel
        Left = 290
        Top = 62
        Width = 26
        Height = 13
        Caption = 'mm8'
      end
      object mm9: TLabel
        Left = 290
        Top = 112
        Width = 26
        Height = 13
        Caption = 'mm9'
      end
      object FontCode32: TButton
        Left = 212
        Top = 166
        Width = 75
        Height = 25
        Caption = 'Font'
        TabOrder = 5
        OnClick = FontEANClick
        OnEnter = FontCode32Enter
      end
      object E_wtb_CODE32: TEdit
        Left = 234
        Top = 6
        Width = 49
        Height = 21
        AutoSize = False
        TabOrder = 0
        OnEnter = E_wtb_CODE32Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_rbr_CODE32: TEdit
        Left = 234
        Top = 32
        Width = 49
        Height = 21
        TabOrder = 1
        OnEnter = E_rbr_CODE32Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_hig_CODE32: TEdit
        Left = 234
        Top = 58
        Width = 49
        Height = 21
        TabOrder = 2
        OnEnter = E_hig_CODE32Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_red_CODE32: TEdit
        Left = 234
        Top = 108
        Width = 49
        Height = 21
        TabOrder = 3
        OnEnter = E_red_CODE32Enter
        OnKeyPress = E_red_EANKeyPress
      end
      object Cptc_CODE32: TCheckBox
        Left = 14
        Top = 138
        Width = 219
        Height = 17
        Caption = 'Stampo il testo sotto il codice'
        TabOrder = 4
        OnEnter = Cptc_CODE32Enter
      end
      object Ccor_CODE32: TComboBox
        Left = 168
        Top = 194
        Width = 69
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          '0'
          '90'
          '180'
          '270')
        TabOrder = 6
        Visible = False
        OnEnter = Ccor_CODE39Enter
      end
    end
    object TabSheetINT25: TTabSheet
      Caption = 'TabSheetINT25'
      TabVisible = False
      object NameFontInt25: TLabel
        Left = 16
        Top = 174
        Width = 26
        Height = 13
        Caption = 'Font'
      end
      object Ltbt_INT25: TLabel
        Left = 70
        Top = 10
        Width = 161
        Height = 13
        Alignment = taRightJustify
        Caption = 'Spessore della barra stretta:'
      end
      object Lrtl_INT25: TLabel
        Left = 32
        Top = 36
        Width = 199
        Height = 13
        Alignment = taRightJustify
        Caption = 'Rapporto tra barre strette e larghe:'
      end
      object Lhig_INT25: TLabel
        Left = 58
        Top = 62
        Width = 173
        Height = 13
        Alignment = taRightJustify
        Caption = 'Altezza delle barre del codice:'
      end
      object Lbwr_INT25: TLabel
        Left = 21
        Top = 112
        Width = 210
        Height = 13
        Alignment = taRightJustify
        Caption = 'Riduzione dello spessore delle barre:'
      end
      object Lcor_INT25: TLabel
        Left = 38
        Top = 198
        Width = 125
        Height = 13
        Alignment = taRightJustify
        Caption = 'Rotazione del codice:'
        Visible = False
      end
      object mm10: TLabel
        Left = 292
        Top = 12
        Width = 33
        Height = 13
        Caption = 'mm10'
      end
      object mm11: TLabel
        Left = 292
        Top = 62
        Width = 33
        Height = 13
        Caption = 'mm11'
      end
      object mm12: TLabel
        Left = 292
        Top = 110
        Width = 33
        Height = 13
        Caption = 'mm12'
      end
      object Cack_INT25: TCheckBox
        Left = 18
        Top = 132
        Width = 221
        Height = 17
        Caption = 'Aggiungo il carattere di controllo'
        TabOrder = 4
        OnEnter = Cack_INT25Enter
      end
      object Cptc_INT25: TCheckBox
        Left = 18
        Top = 150
        Width = 255
        Height = 17
        Caption = 'Stampo il testo sotto il codice'
        TabOrder = 5
        OnEnter = Cptc_INT25Enter
      end
      object FontInt25: TButton
        Left = 214
        Top = 166
        Width = 75
        Height = 25
        Caption = 'Font'
        TabOrder = 6
        OnClick = FontEANClick
        OnEnter = FontInt25Enter
      end
      object E_wtb_INT25: TEdit
        Left = 234
        Top = 6
        Width = 49
        Height = 21
        AutoSize = False
        MaxLength = 5
        TabOrder = 0
        OnEnter = E_wtb_INT25Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_rbr_INT25: TEdit
        Left = 234
        Top = 32
        Width = 49
        Height = 21
        MaxLength = 5
        TabOrder = 1
        OnEnter = E_rbr_INT25Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_hig_INT25: TEdit
        Left = 234
        Top = 58
        Width = 49
        Height = 21
        MaxLength = 5
        TabOrder = 2
        OnEnter = E_hig_INT25Enter
        OnKeyPress = E_wtb_EANKeyPress
      end
      object E_red_INT25: TEdit
        Left = 234
        Top = 106
        Width = 49
        Height = 21
        MaxLength = 5
        TabOrder = 3
        OnEnter = E_red_INT25Enter
        OnKeyPress = E_red_EANKeyPress
      end
      object Ccor_INT25: TComboBox
        Left = 168
        Top = 194
        Width = 69
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          '0'
          '90'
          '180'
          '270')
        TabOrder = 7
        Visible = False
        OnEnter = Ccor_CODE39Enter
      end
    end
  end
  object ButMemo: TButton
    Left = 16
    Top = 366
    Width = 75
    Height = 25
    Caption = 'Memorizza'
    TabOrder = 2
    OnClick = ButMemoClick
    OnEnter = ButMemoEnter
  end
  object ButLoad: TButton
    Left = 104
    Top = 366
    Width = 75
    Height = 25
    Caption = 'Load'
    TabOrder = 3
    OnClick = ButLoadClick
    OnEnter = ButLoadEnter
  end
  object PageDesc: TPageControl
    Left = 8
    Top = 262
    Width = 349
    Height = 93
    ActivePage = TabSheetDescCodeEANUCC
    TabOrder = 5
    TabStop = False
    object TabSheetDescEAN13: TTabSheet
      Caption = 'TabSheetDescEAN13'
      TabVisible = False
      object Image1: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image000.bmp>}
      end
      object MemoDescEAN13: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescEAN8: TTabSheet
      Caption = 'TabSheetDescEAN8'
      TabVisible = False
      object Image2: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image001.bmp>}
      end
      object MemoDescEAN8: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescCODE39: TTabSheet
      Caption = 'TabSheetDescCODE39'
      TabVisible = False
      object Image3: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image002.bmp>}
      end
      object MemoDescCode39: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescCODE32: TTabSheet
      Caption = 'TabSheetDescCODE32'
      TabVisible = False
      object Image4: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image003.bmp>}
      end
      object MemoDescCODE32: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescINT25: TTabSheet
      Caption = 'TabSheetDescINT25'
      TabVisible = False
      object Image5: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image004.bmp>}
      end
      object MemoDescINT25: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescCODABAR: TTabSheet
      Caption = 'TabSheetDescCODABAR'
      TabVisible = False
      object Image6: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image005.bmp>}
      end
      object MemoDescCODABAR: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescThinBar: TTabSheet
      Caption = 'TabSheetDescThinBar'
      TabVisible = False
      object Image7: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image006.bmp>}
      end
      object MemoDescThinBar: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescRapBar: TTabSheet
      Caption = 'TabSheetDescRapBar'
      TabVisible = False
      object Image8: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image007.bmp>}
      end
      object MemoDescRapBar: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          'MemoDescRapBar')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescHigh: TTabSheet
      Caption = 'TabSheetDescHigh'
      TabVisible = False
      object Image9: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image008.bmp>}
      end
      object MemoDescHigh: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescIntCar: TTabSheet
      Caption = 'TabSheetDescIntCar'
      TabVisible = False
      object Image10: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image009.bmp>}
      end
      object MemoDescIntCar: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescMagnify: TTabSheet
      Caption = 'TabSheetDescMagnify'
      TabVisible = False
      object Image11: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image010.bmp>}
      end
      object MemoDescMagnify: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescReduction: TTabSheet
      Caption = 'TabSheetDescReduction'
      TabVisible = False
      object Image12: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image011.bmp>}
      end
      object MemoDescReduction: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescAddCheck: TTabSheet
      Caption = 'TabSheetDescAddCheck'
      TabVisible = False
      object Image13: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image012.bmp>}
      end
      object MemoDescAddCheck: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescAddCheckCODABAR: TTabSheet
      Caption = 'TabSheetDescAddCheckCODABAR'
      TabVisible = False
      object Image14: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image013.bmp>}
      end
      object MemoDescAddCheck_CODABAR: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescAddCheckINT25: TTabSheet
      Caption = 'TabSheetDescAddCheckINT25'
      TabVisible = False
      object Image15: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image014.bmp>}
      end
      object MemoDescAddCheck_INT25: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescAutoCheck: TTabSheet
      Caption = 'TabSheetDescAutoCheck'
      TabVisible = False
      object Image16: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image015.bmp>}
      end
      object MemoDescAutoCheck: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescPrintTextCODE39: TTabSheet
      Caption = 'TabSheetDescPrintTextCODE39'
      TabVisible = False
      object Image17: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image016.bmp>}
      end
      object MemoDescPrintTextCODE39: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescPrintTextEAN8: TTabSheet
      Caption = 'TabSheetDescPrintTextEAN8'
      TabVisible = False
      object Image18: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image017.bmp>}
      end
      object MemoDescPrintTextEAN8: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescPrintTextEAN13: TTabSheet
      Caption = 'TabSheetDescPrintTextEAN13'
      TabVisible = False
      object Image19: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image018.bmp>}
      end
      object MemoDescPrintTextEAN13: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescPrintTextCODE32: TTabSheet
      Caption = 'TabSheetDescPrintTextCODE32'
      TabVisible = False
      object Image20: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image019.bmp>}
      end
      object MemoDescPrintTextCODE32: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescPrintTextINT25: TTabSheet
      Caption = 'TabSheetDescPrintTextINT25'
      TabVisible = False
      object Image21: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image020.bmp>}
      end
      object MemoDescPrintTextINT25: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescPrintTextCODABAR: TTabSheet
      Caption = 'TabSheetDescPrintTextCODABAR'
      TabVisible = False
      object Image22: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image021.bmp>}
      end
      object MemoDescPrintTextCODABAR: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescRot: TTabSheet
      Caption = 'TabSheetDescRot'
      TabVisible = False
      object Image23: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image022.bmp>}
      end
      object MemoDescRot: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescUPCA: TTabSheet
      Caption = 'TabSheetDescUPCA'
      TabVisible = False
      object Image24: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image023.bmp>}
      end
      object MemoDescUPCA: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescUPCE: TTabSheet
      Caption = 'TabSheetDescUPCE'
      TabVisible = False
      object Image25: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image024.bmp>}
      end
      object MemoDescUPCE: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescCode39Ascii: TTabSheet
      Caption = 'TabSheetDescCode39Ascii'
      TabVisible = False
      object Image26: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image025.bmp>}
      end
      object MemoDescCode39Ascii: TMemo
        Left = 116
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescCODE93: TTabSheet
      Caption = 'TabSheetDescCODE93'
      TabVisible = False
      object Image27: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image026.bmp>}
      end
      object MemoDescCode93: TMemo
        Left = 118
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescCode128: TTabSheet
      Caption = 'TabSheetDescCode128'
      TabVisible = False
      object Image28: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image027.bmp>}
      end
      object MemoDescCode128: TMemo
        Left = 118
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object TabSheetDescCodeEANUCC: TTabSheet
      Caption = 'TabSheetDescCodeEANUCC'
      TabVisible = False
      object Image29: TImage
        Left = 6
        Top = 4
        Width = 105
        Height = 77
        Center = True
        Picture.Data = {<image028.bmp>}
      end
      object MemoDescCodeEANUCC: TMemo
        Left = 118
        Top = 2
        Width = 221
        Height = 79
        TabStop = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
  end
  object ButTest: TButton
    Left = 192
    Top = 366
    Width = 75
    Height = 25
    Caption = 'Test'
    TabOrder = 4
    OnClick = ButTestClick
    OnEnter = ButTestEnter
  end
  object ButExit: TButton
    Left = 280
    Top = 366
    Width = 75
    Height = 25
    Caption = 'Chiudi'
    TabOrder = 6
    OnClick = ButExitClick
    OnEnter = ButExitEnter
  end
  object MainMenu: TMainMenu
    Left = 340
    Top = 340
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object MenuNewCode: TMenuItem
        Caption = '&Nuovo formato di codice a barre'
        ShortCut = 0
        OnClick = MenuNewCodeClick
      end
      object MenuModCode: TMenuItem
        Caption = '&Modifica formato di codice a barre'
        ShortCut = 0
        OnClick = MenuModCodeClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuSave: TMenuItem
        Caption = '&Salva il formato di codice a barre'
        ShortCut = 0
        OnClick = MenuSaveClick
      end
      object MenuSaveAs: TMenuItem
        Caption = 'Salva il formato di codice a barre con &nome'
        ShortCut = 0
        OnClick = MenuSaveAsClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuExit: TMenuItem
        Caption = '&Chiudi'
        ShortCut = 0
        OnClick = MenuExitClick
      end
    end
    object MenuOptions: TMenuItem
      Caption = '&Opzioni'
      ShortCut = 0
      object MenuUnita: TMenuItem
        Caption = '&Unit� di misura'
        ShortCut = 0
        object MenuMM: TMenuItem
          Caption = '&millimetri'
          ShortCut = 0
          OnClick = MenuMMClick
        end
        object MenuInch: TMenuItem
          Caption = '&pollici'
          ShortCut = 0
          OnClick = MenuInchClick
        end
      end
    end
    object MenuHelp: TMenuItem
      Caption = '&Guida'
      ShortCut = 0
      object MenuSommario: TMenuItem
        Caption = '&Sommario'
        ShortCut = 0
        OnClick = MenuSommarioClick
      end
      object MenuCodice: TMenuItem
        Caption = 'Codice'
        ShortCut = 0
        OnClick = MenuCodiceClick
      end
    end
  end
  object SaveBarCode: TSaveDialog
    DefaultExt = 'brc'
    FileEditStyle = fsEdit
    FileName = '*.brc'
    Filter = 'CreaBar files|*.brc'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Salva il formato del codice a barre'
    Left = 340
    Top = 366
  end
  object LoadBarCode: TOpenDialog
    DefaultExt = 'brc'
    FileEditStyle = fsEdit
    FileName = '*.brc'
    Filter = 'CreaBar files|*.brc'
    Options = [ofHideReadOnly, ofFileMustExist]
    Title = 'Carica un formato di codice a barre'
    Left = 318
    Top = 364
  end
end