home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / ruzkomp / BARCODE.ZIP / Unit1.dfm / Unit1.txt
Encoding:
Text File  |  1997-04-15  |  4.0 KB  |  158 lines
  1. object Form1: TForm1
  2.   Left = 349
  3.   Top = 110
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Barcode Demo'
  7.   ClientHeight = 314
  8.   ClientWidth = 498
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OnCreate = FormCreate
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Label1: TLabel
  17.     Left = 320
  18.     Top = 24
  19.     Width = 23
  20.     Height = 13
  21.     Caption = 'Data'
  22.   end
  23.   object Label2: TLabel
  24.     Left = 320
  25.     Top = 56
  26.     Width = 18
  27.     Height = 13
  28.     Caption = 'DPI'
  29.   end
  30.   object Edit1: TEdit
  31.     Left = 352
  32.     Top = 16
  33.     Width = 137
  34.     Height = 21
  35.     TabOrder = 0
  36.     Text = 'H-P'
  37.   end
  38.   object Edit2: TEdit
  39.     Left = 352
  40.     Top = 48
  41.     Width = 33
  42.     Height = 21
  43.     TabOrder = 1
  44.   end
  45.   object ChooseBarType: TRadioGroup
  46.     Left = 320
  47.     Top = 80
  48.     Width = 169
  49.     Height = 105
  50.     Caption = 'Barcode type'
  51.     ItemIndex = 0
  52.     Items.Strings = (
  53.       'EAN 13'
  54.       'CODE39'
  55.       'XCODE39')
  56.     TabOrder = 2
  57.   end
  58.   object BitBtn1: TBitBtn
  59.     Left = 320
  60.     Top = 272
  61.     Width = 169
  62.     Height = 33
  63.     Caption = 'Make barcode'
  64.     TabOrder = 3
  65.     OnClick = BitBtn1Click
  66.     Kind = bkOK
  67.   end
  68.   object Panel1: TPanel
  69.     Left = 8
  70.     Top = 8
  71.     Width = 297
  72.     Height = 297
  73.     BevelOuter = bvLowered
  74.     TabOrder = 4
  75.     object Image1: TImage
  76.       Left = 8
  77.       Top = 8
  78.       Width = 281
  79.       Height = 281
  80.     end
  81.   end
  82.   object BitBtn2: TBitBtn
  83.     Left = 320
  84.     Top = 232
  85.     Width = 169
  86.     Height = 33
  87.     Caption = 'Print'
  88.     ModalResult = 4
  89.     TabOrder = 5
  90.     OnClick = BitBtn2Click
  91.     Glyph.Data = {
  92.       78010000424D7801000000000000760000002800000020000000100000000100
  93.       04000000000000000000120B0000120B00000000000000000000000000000000
  94.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  95.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  96.       0003377777777777777308888888888888807F33333333333337088888888888
  97.       88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
  98.       8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
  99.       8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
  100.       03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  101.       03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  102.       33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
  103.       33333337FFFF77333333333000000333333333377777733333330000}
  104.     NumGlyphs = 2
  105.   end
  106.   object BitBtn3: TBitBtn
  107.     Left = 320
  108.     Top = 192
  109.     Width = 169
  110.     Height = 33
  111.     Caption = 'Choose printer'
  112.     TabOrder = 6
  113.     OnClick = BitBtn3Click
  114.     Glyph.Data = {
  115.       78010000424D7801000000000000760000002800000020000000100000000100
  116.       04000000000000000000120B0000120B00000000000000000000000000000000
  117.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  118.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
  119.       1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
  120.       1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
  121.       193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
  122.       11155557F755F777777555000755033305555577755F75F77F55555555503335
  123.       0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
  124.       05555757F75F75557F5505000333555505557F777FF755557F55000000355557
  125.       07557777777F55557F5555000005555707555577777FF5557F55553000075557
  126.       0755557F7777FFF57555553350000055555555775777775555550000}
  127.     NumGlyphs = 2
  128.   end
  129.   object Button1: TButton
  130.     Left = 448
  131.     Top = 48
  132.     Width = 41
  133.     Height = 25
  134.     Caption = 'Prn DPI'
  135.     TabOrder = 7
  136.     OnClick = Button1Click
  137.   end
  138.   object Button2: TButton
  139.     Left = 392
  140.     Top = 48
  141.     Width = 49
  142.     Height = 25
  143.     Caption = 'Scrn DPI'
  144.     TabOrder = 8
  145.     OnClick = Button2Click
  146.   end
  147.   object PrintDialog1: TPrintDialog
  148.     Left = 424
  149.   end
  150.   object BarCode1: TBarCode
  151.     BarcodeHeight = 100
  152.     BarType = EAN_13
  153.     Barcode = '5709576806522'
  154.     DPI = 96
  155.     Left = 456
  156.   end
  157. end
  158.