home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00049 / s / disk1 / msttfont.in_ / msttfont.in
Text File  |  1992-03-11  |  2KB  |  74 lines
  1.  
  2. DECLARE FUNCTION SafeCreateFOT   LIB "fontname.dll" (a%,b$,c$,d$) AS INTEGER
  3. DECLARE FUNCTION GetFontFacename LIB "fontname.dll" (a$,b$,c%) AS INTEGER
  4.  
  5.  
  6. DECLARE FUNCTION CreateFOT (ttfPath$) AS STRING
  7. DECLARE FUNCTION GetFaceName (ttfPath$) AS STRING
  8.  
  9.  
  10. FUNCTION GetFaceName (ttfPath$) STATIC AS STRING
  11.     szBuf$ = string$(256, 32)
  12.     res% = GetFontFacename(ttfPath$, szBuf$, 256)
  13.  
  14.     IF res% = 0 THEN
  15.         GetFaceName = ""
  16.     ELSE
  17.         GetFaceName = szBuf$
  18.     END IF
  19.  
  20.     szBuf$ = ""
  21. END FUNCTION
  22.  
  23.  
  24. FUNCTION CreateFOT (ttfPath$) STATIC AS STRING
  25.     sysDir$ = GetWindowsSysDir()
  26.     SPLITPATH ttfPath$, ttfDrv$, ttfDir$, ttfBase$, ttfExt$
  27.  
  28.     fotExt$ = ".FOT"
  29.     fotPath$ = sysDir$ + ttfBase$ + fotExt$
  30.  
  31.     fotExists% = DoesFileExist (fotPath$, femExists)
  32.     IF fotExists% = 0 THEN
  33.         fotBase$ = ttfBase$
  34.     ELSE
  35.         i% = 1
  36.         WHILE (fotExists% = 1) AND (i% < 1000)
  37.         fotDigits$ = STR$(i%)
  38.         fotDigits$ = "_" + MID$(fotDigits$,2,LEN(fotDigits$)-1)
  39.             fotBase$ = MID$(ttfBase$, 1, (8-LEN(fotDigits$))) + fotDigits$
  40.         fotPath$ = sysDir$ + fotBase$ + fotExt$
  41.         fotExists% = DoesFileExist (fotPath$, femExists)
  42.             i% = i% + 1
  43.         WEND
  44.     END IF
  45.  
  46.     CreateFOT = ""
  47.  
  48.     IF  fotExists% = 0 THEN
  49.     IF  MID$(sysDir$,LEN(sysDir$),1) = "\" THEN
  50.         sysDir$ = MID$(sysDir$,1,LEN(sysDir$)-1)
  51.     END IF
  52.  
  53.     ttfName$ = ttfBase$+ttfExt$
  54.  
  55.     res% = SafeCreateFOT (0, fotPath$, ttfName$, sysDir$)
  56.     IF res% <> 0 THEN
  57.         CreateFOT = fotBase$+fotExt$
  58.     END IF
  59.     END IF
  60.  
  61.     fotBase$ = ""
  62.     fotExt$ = ""
  63.     fotPath$ = ""
  64.     sysDir$ = ""
  65.     ttfBase$ = ""
  66.     ttfDir$ = ""
  67.     ttfDrv$ = ""
  68.     ttfExt$ = ""
  69.     ttfName$ = ""
  70.     fotDigits$ = ""
  71. END FUNCTION
  72.  
  73.  
  74.