home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / printsrc / main.dfm / main.txt
Encoding:
Text File  |  1995-03-21  |  5.0 KB  |  174 lines
  1. object Form1: TForm1
  2.   Left = 64
  3.   Top = 103
  4.   Width = 503
  5.   Height = 281
  6.   Caption = 'Form1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnCreate = FormCreate
  13.   TextHeight = 16
  14.   object ListBox1: TListBox
  15.     Left = 11
  16.     Top = 40
  17.     Width = 321
  18.     Height = 153
  19.     Font.Color = clBlack
  20.     Font.Height = -13
  21.     Font.Name = 'Times New Roman'
  22.     Font.Style = []
  23.     ItemHeight = 15
  24.     ParentFont = False
  25.     TabOrder = 0
  26.   end
  27.   object DirectoryListBox1: TDirectoryListBox
  28.     Left = 339
  29.     Top = 72
  30.     Width = 145
  31.     Height = 121
  32.     DirLabel = Label1
  33.     ItemHeight = 16
  34.     TabOrder = 1
  35.   end
  36.   object DriveComboBox1: TDriveComboBox
  37.     Left = 339
  38.     Top = 40
  39.     Width = 145
  40.     Height = 22
  41.     DirList = DirectoryListBox1
  42.     TabOrder = 2
  43.   end
  44.   object Panel1: TPanel
  45.     Left = 0
  46.     Top = 0
  47.     Width = 495
  48.     Height = 25
  49.     Align = alTop
  50.     TabOrder = 3
  51.     object Label1: TLabel
  52.       Left = 6
  53.       Top = 5
  54.       Width = 128
  55.       Height = 16
  56.       Caption = 'c:\...\elves4\printsrc'
  57.     end
  58.     object Label2: TLabel
  59.       Left = 293
  60.       Top = 5
  61.       Width = 65
  62.       Height = 16
  63.       Caption = 'Extension'
  64.     end
  65.     object EExt: TEdit
  66.       Left = 363
  67.       Top = 4
  68.       Width = 121
  69.       Height = 17
  70.       TabOrder = 0
  71.       Text = '*.pas'
  72.     end
  73.   end
  74.   object ChooseFiles: TBitBtn
  75.     Left = 132
  76.     Top = 208
  77.     Width = 114
  78.     Height = 33
  79.     Caption = 'Choose Files'
  80.     TabOrder = 4
  81.     OnClick = ChooseFilesClick
  82.     Glyph.Data = {
  83.       78010000424D7801000000000000760000002800000020000000100000000100
  84.       04000000000000000000120B0000120B00000000000000000000000000000000
  85.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  86.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  87.       3333333333333333333333333333333333333FFF333333333333000333333333
  88.       3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
  89.       3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
  90.       0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
  91.       BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
  92.       33337777773FF733333333333300033333333333337773333333333333333333
  93.       3333333333333333333333333333333333333333333333333333333333333333
  94.       33333333333333333333333333333333333333333333333333330000}
  95.     NumGlyphs = 2
  96.   end
  97.   object PrintFiles: TBitBtn
  98.     Left = 249
  99.     Top = 208
  100.     Width = 114
  101.     Height = 33
  102.     Caption = 'Print Files'
  103.     Enabled = False
  104.     TabOrder = 5
  105.     OnClick = PrintFilesClick
  106.     Glyph.Data = {
  107.       78010000424D7801000000000000760000002800000020000000100000000100
  108.       04000000000000000000120B0000120B00000000000000000000000000000000
  109.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  110.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  111.       3333333333333333333333333333333333333FFF333333333333000333333333
  112.       3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
  113.       3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
  114.       0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
  115.       BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
  116.       33337777773FF733333333333300033333333333337773333333333333333333
  117.       3333333333333333333333333333333333333333333333333333333333333333
  118.       33333333333333333333333333333333333333333333333333330000}
  119.     NumGlyphs = 2
  120.   end
  121.   object PrinterFont: TBitBtn
  122.     Left = 14
  123.     Top = 208
  124.     Width = 114
  125.     Height = 33
  126.     Caption = 'Printer Font'
  127.     TabOrder = 6
  128.     OnClick = PrinterFontClick
  129.     Glyph.Data = {
  130.       78010000424D7801000000000000760000002800000020000000100000000100
  131.       04000000000000000000120B0000120B00000000000000000000000000000000
  132.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  133.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  134.       3333333333333333333333333333333333333FFF333333333333000333333333
  135.       3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
  136.       3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
  137.       0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
  138.       BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
  139.       33337777773FF733333333333300033333333333337773333333333333333333
  140.       3333333333333333333333333333333333333333333333333333333333333333
  141.       33333333333333333333333333333333333333333333333333330000}
  142.     NumGlyphs = 2
  143.   end
  144.   object BitBtn1: TBitBtn
  145.     Left = 367
  146.     Top = 208
  147.     Width = 114
  148.     Height = 33
  149.     TabOrder = 7
  150.     OnClick = BitBtn1Click
  151.     Kind = bkCancel
  152.   end
  153.   object FileIterator1: TFileIterator
  154.     OnFoundFile = FileIterator1FoundFile
  155.     UseFileList = False
  156.     UseDirList = False
  157.   end
  158.   object PrintDialog1: TPrintDialog
  159.     Top = 64
  160.   end
  161.   object PrinterSetupDialog1: TPrinterSetupDialog
  162.     Top = 96
  163.   end
  164.   object FontDialog1: TFontDialog
  165.     Font.Color = clWindowText
  166.     Font.Height = -13
  167.     Font.Name = 'System'
  168.     Font.Style = []
  169.     MinFontSize = 0
  170.     MaxFontSize = 0
  171.     Top = 32
  172.   end
  173. end
  174.