object Form1: TForm1
  Left = 349
  Top = 110
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Barcode Demo'
  ClientHeight = 314
  ClientWidth = 498
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 320
    Top = 24
    Width = 23
    Height = 13
    Caption = 'Data'
  end
  object Label2: TLabel
    Left = 320
    Top = 56
    Width = 18
    Height = 13
    Caption = 'DPI'
  end
  object Edit1: TEdit
    Left = 352
    Top = 16
    Width = 137
    Height = 21
    TabOrder = 0
    Text = 'H-P'
  end
  object Edit2: TEdit
    Left = 352
    Top = 48
    Width = 33
    Height = 21
    TabOrder = 1
  end
  object ChooseBarType: TRadioGroup
    Left = 320
    Top = 80
    Width = 169
    Height = 105
    Caption = 'Barcode type'
    ItemIndex = 0
    Items.Strings = (
      'EAN 13'
      'CODE39'
      'XCODE39')
    TabOrder = 2
  end
  object BitBtn1: TBitBtn
    Left = 320
    Top = 272
    Width = 169
    Height = 33
    Caption = 'Make barcode'
    TabOrder = 3
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 297
    Height = 297
    BevelOuter = bvLowered
    TabOrder = 4
    object Image1: TImage
      Left = 8
      Top = 8
      Width = 281
      Height = 281
    end
  end
  object BitBtn2: TBitBtn
    Left = 320
    Top = 232
    Width = 169
    Height = 33
    Caption = 'Print'
    ModalResult = 4
    TabOrder = 5
    OnClick = BitBtn2Click
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0003377777777777777308888888888888807F33333333333337088888888888
      88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
      8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
      8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
      33333337FFFF77333333333000000333333333377777733333330000}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 320
    Top = 192
    Width = 169
    Height = 33
    Caption = 'Choose printer'
    TabOrder = 6
    OnClick = BitBtn3Click
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
      1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
      1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
      193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
      11155557F755F777777555000755033305555577755F75F77F55555555503335
      0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
      05555757F75F75557F5505000333555505557F777FF755557F55000000355557
      07557777777F55557F5555000005555707555577777FF5557F55553000075557
      0755557F7777FFF57555553350000055555555775777775555550000}
    NumGlyphs = 2
  end
  object Button1: TButton
    Left = 448
    Top = 48
    Width = 41
    Height = 25
    Caption = 'Prn DPI'
    TabOrder = 7
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 392
    Top = 48
    Width = 49
    Height = 25
    Caption = 'Scrn DPI'
    TabOrder = 8
    OnClick = Button2Click
  end
  object PrintDialog1: TPrintDialog
    Left = 424
  end
  object BarCode1: TBarCode
    BarcodeHeight = 100
    BarType = EAN_13
    Barcode = '5709576806522'
    DPI = 96
    Left = 456
  end
end