pascal__obarcode/ubarcodeform.dfm

object fmBarCodeForm: TfmBarCodeForm
  Left = 288
  Top = 240
  Width = 1608
  Height = 827
  ActiveControl = edValue
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object pnTop: TPanel
    Left = 0
    Top = 0
    Width = 1600
    Height = 749
    Align = alClient
    Caption = 'pnTop'
    TabOrder = 0
    object StBarCode1: TStBarCode
      Left = 1
      Top = 1
      Width = 1598
      Height = 747
      Align = alClient
      Color = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -64
      Font.Name = 'OCR A Extended'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      AddCheckChar = True
      BarCodeType = bcCode128
      BarColor = clBlack
      BarToSpaceRatio = 1.000000000000000000
      BarWidth = 120.000000000000000000
      BearerBars = False
      Code = '3418556'
      Code128Subset = csCodeC
      ShowCode = True
      ShowGuardChars = True
      TallGuardBars = True
    end
  end
  object pnBottom: TPanel
    Left = 0
    Top = 749
    Width = 1600
    Height = 32
    Align = alBottom
    TabOrder = 1
    object pnB1: TPanel
      Left = 1
      Top = 1
      Width = 176
      Height = 30
      Align = alLeft
      Caption = 'pnB1'
      TabOrder = 0
      object lbValue: TLabel
        Left = 8
        Top = 8
        Width = 30
        Height = 13
        Caption = '&Value:'
      end
      object edValue: TEdit
        Left = 42
        Top = 4
        Width = 121
        Height = 21
        TabOrder = 0
        Text = '3418556'
        OnChange = edValueChange
      end
    end
    object pnB2: TPanel
      Left = 177
      Top = 1
      Width = 288
      Height = 30
      Align = alLeft
      TabOrder = 1
      object lbSize: TLabel
        Left = 8
        Top = 8
        Width = 51
        Height = 13
        Caption = 'Code &Size:'
      end
      object Label1: TLabel
        Left = 136
        Top = 8
        Width = 45
        Height = 13
        Caption = '&Font size:'
      end
      object edSize: TEdit
        Left = 64
        Top = 4
        Width = 45
        Height = 21
        TabOrder = 0
        Text = '120'
        OnChange = edSizeChange
      end
      object udBarWidth: TUpDown
        Left = 109
        Top = 4
        Width = 15
        Height = 21
        Associate = edSize
        Max = 1000
        Increment = 10
        Position = 120
        TabOrder = 1
      end
      object edFontSize: TEdit
        Left = 184
        Top = 4
        Width = 25
        Height = 21
        TabOrder = 2
        Text = '48'
        OnChange = edFontSizeChange
      end
      object udFotnSize: TUpDown
        Left = 209
        Top = 4
        Width = 15
        Height = 21
        Associate = edFontSize
        Position = 48
        TabOrder = 3
      end
    end
    object pnB3: TPanel
      Left = 465
      Top = 1
      Width = 288
      Height = 30
      Align = alLeft
      TabOrder = 2
      object lbFormat: TLabel
        Left = 8
        Top = 8
        Width = 35
        Height = 13
        Caption = '&Format:'
      end
      object coBarCodeType: TComboBox
        Left = 48
        Top = 4
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnChange = coBarCodeTypeChange
      end
      object coCode128Subsets: TComboBox
        Left = 199
        Top = 4
        Width = 81
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        Visible = False
        OnChange = coCode128SubsetsChange
      end
    end
    object pnB4: TPanel
      Left = 753
      Top = 1
      Width = 208
      Height = 30
      Align = alLeft
      TabOrder = 3
      object cbShowCode: TCheckBox
        Left = 8
        Top = 8
        Width = 81
        Height = 17
        Caption = 'Show &code'
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = cbShowCodeClick
      end
      object cbAddCheckChar: TCheckBox
        Left = 104
        Top = 8
        Width = 97
        Height = 17
        Caption = 'Add chec&k char'
        TabOrder = 1
        OnClick = cbAddCheckCharClick
      end
    end
    object pnBLast: TPanel
      Left = 961
      Top = 1
      Width = 638
      Height = 30
      Align = alClient
      TabOrder = 4
      object Button1: TButton
        Left = 5
        Top = 2
        Width = 105
        Height = 25
        Caption = 'C&opy to clipboard'
        Default = True
        TabOrder = 0
        OnClick = Button1Click
      end
    end
  end
  object sb: TStatusBar
    Left = 0
    Top = 781
    Width = 1600
    Height = 19
    Panels = <
      item
        Width = 60
      end>
  end
end