home *** CD-ROM | disk | FTP | other *** search
/ Polish Programs 2 / polishprograms2.iso / inne / projekt / fonts.in_ / fonts.bin
Text File  |  1996-10-27  |  3KB  |  62 lines
  1. '*************************************************************************
  2. '****************  Fonts Basic Wrapper Declarations  *********************
  3. '*************************************************************************
  4.  
  5. DECLARE SUB InstallTTF (szTTFFile$)
  6.  
  7.  
  8. '**************************************************************************
  9. '*************************  Fonts Setup API's  ****************************
  10. '**************************************************************************
  11.  
  12. DECLARE FUNCTION CreateScalableFontResource LIB "gdi" (nHidden%, szResFile$, szFontFile$, szCurPath$) AS INTEGER
  13. DECLARE FUNCTION AddFontResource LIB "gdi" (szFile$) AS INTEGER
  14.  
  15. '**
  16. '** Purpose:
  17. '**     Installs TrueType Font file in system 
  18. '** Arguments:
  19. '**     szTTFFile$ - filename (with path) of TTF file
  20. '*************************************************************************
  21. SUB InstallTTF (szTTFFile$) STATIC
  22.  
  23.     cbBuff% = 50
  24.     szBuff$ = STRING$(cbBuff%, 32)
  25.  
  26.     WriteToLogFile "Instalacja czcionki TTF: '" + szTTFFile$ + "':"
  27.  
  28.     IF GetExistingFOTFileForTTF(szTTFFile$, szBuff$, cbBuff%) = 0 THEN    
  29.         IF UCASE$(MID$(szTTFFile$, LEN(szTTFFile$) - 3, 4)) = ".TTF" THEN
  30.             szFOTFile$ = MID$(szTTFFile$, 1, LEN(szTTFFile$) - 4) + ".FOT"    
  31.         ELSE
  32.             szFOTFile$ = szTTFFile$ + ".FOT"    
  33.                szTTFFile$ = szTTFFile$ + ".TTF"
  34.         ENDIF
  35.         WriteToLogFile "    Utworzenie pliku FOT: '" + szFOTFile$ + "' ..."
  36.         IF CreateScalableFontResource(0, szFOTFile$, szTTFFile$, NULL) = 0 THEN
  37.             i% = DoMsgBox("Uwaga! Dla czcionki True Type " + szTTFFile$ + " nie mozna utwozyµ pliku FOT. Po zako±czeniu instalacji spr≤b≤j zainstalowaµ czcionkΩ manualnie.", "B│╣d instalacji czcionki", MB_OK + MB_TASKMODAL + MB_ICONHAND)
  38.             ERROR STFERR
  39.          ENDIF
  40.         WriteToLogFile "    Utworzenie pliku FOT poprawne."
  41.     ELSE
  42.         szFOTFile$ = szBuff$
  43.         WriteToLogFile "    Plik: '" + szFOTFile$ + "' juz istnieje."
  44.     ENDIF
  45.  
  46.     WriteToLogFile "    Pobranie nazwy z TTF ..."
  47.     i% = GetTypeFaceNameFromTTF(szTTFFile$, szBuff$, cbBuff%)
  48.     WriteToLogFile "    Pobrana nazwa: '" + szBuff$ + "'"
  49.  
  50.     WriteToLogFile "    Rejestracja w WIN.INI ..."
  51.     CreateIniKeyValue "WIN.INI", "fonts", szBuff$ + " (TrueType)", szFOTFile$, cmoOverwrite
  52.  
  53.     WriteToLogFile "    Dodanie zasobu ..."
  54.     IF AddFontResource(szFOTFile$) = 0 THEN
  55.         i% = DoMsgBox("Uwaga! Nie mozna zarejestrowac czcionki True Type " + szTTFFile$ + ".", "B│╣d instalacji czcionki", MB_OK + MB_TASKMODAL + MB_ICONHAND)
  56.         ERROR STFERR
  57.      ENDIF
  58.  
  59.     WriteToLogFile "    Instalacja czcionki OK."
  60.  
  61. END SUB
  62.