home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 April / DPCB0498.iso / DTP / MyFonts / Setup.exe / MyFonts.exe / 0 / RCDATA / TFRMFONTDIR / TFRMFONTDIR.txt
Text File  |  1997-12-08  |  7KB  |  256 lines
  1. object FrmFontDir: TFrmFontDir
  2.   Left = 237
  3.   Top = 106
  4.   BorderIcons = []
  5.   BorderStyle = bsDialog
  6.   Caption = ' Select Font Folder'
  7.   ClientHeight = 433
  8.   ClientWidth = 328
  9.   Color = 12639424
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clBlack
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = [fsBold]
  15.   OnActivate = FormActivate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Label2: TLabel
  19.     Left = 12
  20.     Top = 9
  21.     Width = 290
  22.     Height = 26
  23.     Caption = 
  24.       'Select the type of fonts to work with, the drive, and the folder' +
  25.       ' where the fonts are located.'
  26.     Font.Charset = DEFAULT_CHARSET
  27.     Font.Color = clBlack
  28.     Font.Height = -11
  29.     Font.Name = 'MS Sans Serif'
  30.     Font.Style = []
  31.     ParentFont = False
  32.     WordWrap = True
  33.   end
  34.   object LB_CurDir: TLabel
  35.     Left = 12
  36.     Top = 249
  37.     Width = 235
  38.     Height = 16
  39.     AutoSize = False
  40.     Caption = 'c:\'
  41.     Font.Charset = DEFAULT_CHARSET
  42.     Font.Color = clBlack
  43.     Font.Height = -13
  44.     Font.Name = 'MS Sans Serif'
  45.     Font.Style = [fsBold]
  46.     ParentFont = False
  47.   end
  48.   object LB_NumberOfFiles: TLabel
  49.     Left = 12
  50.     Top = 267
  51.     Width = 151
  52.     Height = 16
  53.     Caption = 'No Fonts in this folder'
  54.     Font.Charset = DEFAULT_CHARSET
  55.     Font.Color = clBlack
  56.     Font.Height = -13
  57.     Font.Name = 'MS Sans Serif'
  58.     Font.Style = [fsBold]
  59.     ParentFont = False
  60.   end
  61.   object LB_SearchResult: TLabel
  62.     Left = 14
  63.     Top = 412
  64.     Width = 99
  65.     Height = 13
  66.     Caption = 'LB_SearchResult'
  67.   end
  68.   object FD_Drive: TDriveComboBox
  69.     Left = 12
  70.     Top = 68
  71.     Width = 145
  72.     Height = 19
  73.     TabStop = False
  74.     Font.Charset = DEFAULT_CHARSET
  75.     Font.Color = clBlack
  76.     Font.Height = -11
  77.     Font.Name = 'MS Sans Serif'
  78.     Font.Style = []
  79.     ParentFont = False
  80.     TabOrder = 0
  81.   end
  82.   object FD_Dir: TDirectoryListBox
  83.     Tag = 1100
  84.     Left = 12
  85.     Top = 90
  86.     Width = 145
  87.     Height = 149
  88.     Hint = 'Pick a folder that has font files which you are interested in.'
  89.     Font.Charset = DEFAULT_CHARSET
  90.     Font.Color = clRed
  91.     Font.Height = -11
  92.     Font.Name = 'MS Sans Serif'
  93.     Font.Style = [fsBold]
  94.     ItemHeight = 16
  95.     ParentFont = False
  96.     ParentShowHint = False
  97.     ShowHint = True
  98.     TabOrder = 1
  99.   end
  100.   object FD_Filter: TFilterComboBox
  101.     Left = 12
  102.     Top = 44
  103.     Width = 145
  104.     Height = 21
  105.     TabStop = False
  106.     Filter = 
  107.       'All Font Files|*.ttf;*.pfm|TrueType Fonts only|*.ttf|Type 1 Post' +
  108.       'script Fonts|*.pfm|ALL Files (*.*) for Browsing|*.*'
  109.     Font.Charset = DEFAULT_CHARSET
  110.     Font.Color = clBlack
  111.     Font.Height = -11
  112.     Font.Name = 'MS Sans Serif'
  113.     Font.Style = []
  114.     ParentFont = False
  115.     ParentShowHint = False
  116.     ShowHint = False
  117.     TabOrder = 2
  118.   end
  119.   object Panel1: TPanel
  120.     Left = 164
  121.     Top = 43
  122.     Width = 153
  123.     Height = 197
  124.     BevelInner = bvLowered
  125.     ParentColor = True
  126.     TabOrder = 3
  127.     object Label1: TLabel
  128.       Left = 9
  129.       Top = 4
  130.       Width = 136
  131.       Height = 39
  132.       Caption = 
  133.         'This file list is shown for your reference only. You do not need' +
  134.         ' to select any files.'
  135.       Font.Charset = DEFAULT_CHARSET
  136.       Font.Color = clBlack
  137.       Font.Height = -11
  138.       Font.Name = 'MS Sans Serif'
  139.       Font.Style = []
  140.       ParentFont = False
  141.       WordWrap = True
  142.     end
  143.     object FD_Files: TFileListBox
  144.       Tag = 1101
  145.       Left = 5
  146.       Top = 46
  147.       Width = 142
  148.       Height = 145
  149.       Cursor = crNo
  150.       Hint = 
  151.         'Font files listed here will be available to you after you click ' +
  152.         'the '#39'OK'#39'  button.'
  153.       TabStop = False
  154.       Font.Charset = DEFAULT_CHARSET
  155.       Font.Color = clGray
  156.       Font.Height = -11
  157.       Font.Name = 'MS Sans Serif'
  158.       Font.Style = [fsBold]
  159.       ItemHeight = 13
  160.       Mask = '*.ttf;*.pfm'
  161.       ParentFont = False
  162.       ParentShowHint = False
  163.       ShowHint = True
  164.       TabOrder = 0
  165.     end
  166.   end
  167.   object B_OK: TBitBtn
  168.     Left = 260
  169.     Top = 249
  170.     Width = 55
  171.     Height = 33
  172.     Cursor = 50
  173.     Cancel = True
  174.     Caption = 'OK'
  175.     Default = True
  176.     ModalResult = 1
  177.     TabOrder = 4
  178.     OnClick = B_OKClick
  179.     Glyph.Data = {
  180.       DE010000424DDE01000000000000760000002800000024000000120000000100
  181.       0400000000006801000000000000000000001000000000000000000000000000
  182.       80000080000000808000800000008000800080800000C0C0C000808080000000
  183.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  184.       3333333333333333333333330000333333333333333333333333F33333333333
  185.       00003333344333333333333333388F3333333333000033334224333333333333
  186.       338338F3333333330000333422224333333333333833338F3333333300003342
  187.       222224333333333383333338F3333333000034222A22224333333338F338F333
  188.       8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
  189.       33333338F83338F338F33333000033A33333A222433333338333338F338F3333
  190.       0000333333333A222433333333333338F338F33300003333333333A222433333
  191.       333333338F338F33000033333333333A222433333333333338F338F300003333
  192.       33333333A222433333333333338F338F00003333333333333A22433333333333
  193.       3338F38F000033333333333333A223333333333333338F830000333333333333
  194.       333A333333333333333338330000333333333333333333333333333333333333
  195.       0000}
  196.     NumGlyphs = 2
  197.   end
  198.   object L_SearchResult: TListBox
  199.     Left = 12
  200.     Top = 320
  201.     Width = 303
  202.     Height = 86
  203.     Font.Charset = DEFAULT_CHARSET
  204.     Font.Color = clRed
  205.     Font.Height = -11
  206.     Font.Name = 'MS Sans Serif'
  207.     Font.Style = [fsBold]
  208.     ItemHeight = 13
  209.     ParentFont = False
  210.     Sorted = True
  211.     TabOrder = 5
  212.     OnClick = L_SearchResultClick
  213.   end
  214.   object B_Search: TColorButton
  215.     Left = 12
  216.     Top = 290
  217.     Width = 303
  218.     Height = 22
  219.     BevelSize = 3
  220.     Caption = 'Search the current drive for all font files'
  221.     Color = 440799
  222.     Font.Charset = DEFAULT_CHARSET
  223.     Font.Color = clMaroon
  224.     Font.Height = -11
  225.     Font.Name = 'MS Sans Serif'
  226.     Font.Style = [fsBold]
  227.     TabOrder = 6
  228.     OnClick = B_SearchClick
  229.   end
  230.   object DISK: TDISK
  231.     Left = 230
  232.     Top = 254
  233.   end
  234.   object FileScan: TFileScan
  235.     DirType = [dtReadOnly, dtHidden, dtSystem, dtArchive]
  236.     FileType = [ftReadOnly, ftArchive, ftNormal]
  237.     Directory = 'C:\'
  238.     FileSpecs = '*.*'
  239.     SearchStringType = sst_Normal
  240.     SearchType = st_Or
  241.     FileSize = 0
  242.     FileAge = 0
  243.     CurrInfoLabel = LB_CurDir
  244.     MatchLimit = 0
  245.     StartYear = 0
  246.     StartMonth = 0
  247.     StartDay = 0
  248.     EndYear = 0
  249.     EndMonth = 0
  250.     EndDay = 0
  251.     OnFoundFile = FileScanFoundFile
  252.     Left = 199
  253.     Top = 254
  254.   end
  255. end
  256.