home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / GPIFONT.BI < prev    next >
Text File  |  1989-08-16  |  3KB  |  91 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: GpiFont.BI
  4. '*
  5. '* Requires:     none
  6. '*
  7. '* Description:  Font Manager
  8. '*
  9. '**************************************************************
  10.  
  11. '  return codes from GpiCreateLogFont
  12. CONST  FONTDEFAULT   =    1
  13. CONST  FONTMATCH     =    2
  14.  
  15. '  lcid type for GpiQuerySetIds
  16. CONST  LCIDTFONT     =    6
  17.  
  18. CONST  LCIDTBITMAP   =    7
  19.  
  20. '  constant used to delete all lcids by GpiDeleteSetId
  21. CONST  LCIDALL         =    -1
  22.  
  23. '  kerning data returned by GpiQueryKerningPairs
  24. TYPE KERNINGPAIRS   '  krnpr
  25.     sFirstChar AS INTEGER
  26.     sSecondChar AS INTEGER
  27.     sKerningAmount AS INTEGER
  28. END TYPE
  29.  
  30. '  options for GpiQueryFonts
  31. CONST  QFPUBLIC       =        &H0001
  32. CONST  QFPRIVATE      =        &H0002
  33.  
  34. ' ** physical and logical font functions
  35. DECLARE FUNCTION GpiDeleteSetId%( BYVAL HPS AS LONG,_
  36.                   BYVAL ALONG AS LONG )
  37.  
  38. DECLARE FUNCTION GpiQueryNumberSetIds&( BYVAL HPS AS LONG )
  39.  
  40. DECLARE FUNCTION GpiQuerySetIds%( BYVAL HPS AS LONG,_
  41.                   BYVAL ALONG AS LONG,_
  42.                   BYVAL APLONG AS LONG,_
  43.                   BYVAL PSTR8 AS LONG,_
  44.                   BYVAL BPLONG AS LONG )
  45.  
  46. DECLARE FUNCTION GpiLoadFonts%( BYVAL HAB AS LONG,_
  47.                 BYVAL PSZ AS LONG )
  48.  
  49. DECLARE FUNCTION GpiUnloadFonts%( BYVAL HAB AS LONG,_
  50.                   BYVAL PSZ AS LONG )
  51.  
  52. DECLARE FUNCTION GpiCreateLogFont&( BYVAL HPS AS LONG,_
  53.                     BYVAL PSTR8 AS LONG,_
  54.                     BYVAL ALONG AS LONG,_
  55.                     BYVAL PFATTRS AS LONG)
  56.  
  57. DECLARE FUNCTION GpiQueryFonts&( BYVAL HPS AS LONG,_
  58.                  BYVAL ULONG AS LONG,_
  59.                  BYVAL PSZ AS LONG,_
  60.                  BYVAL PLONG AS LONG,_
  61.                  BYVAL ALONG AS LONG,_
  62.                  BYVAL PFONTMETRICS AS LONG)
  63.  
  64. DECLARE FUNCTION GpiQueryFontMetrics%( BYVAL HPS AS LONG,_
  65.                        BYVAL ALONG AS LONG,_
  66.                        BYVAL PFONTMETRICS AS LONG)
  67.  
  68. DECLARE FUNCTION GpiQueryKerningPairs&( BYVAL HPS AS LONG,_
  69.                     BYVAL ALONG AS LONG,_
  70.                     BYVAL PKERNINGPAIRS AS LONG)
  71.  
  72. DECLARE FUNCTION GpiQueryWidthTable%( BYVAL HPS AS LONG,_
  73.                       BYVAL ALONG AS LONG,_
  74.                       BYVAL BLONG AS LONG,_
  75.                       BYVAL PLONG AS LONG )
  76.  
  77. DECLARE FUNCTION GpiSetCp%( BYVAL HPS AS LONG,_
  78.                 BYVAL USHORT AS INTEGER)
  79.  
  80. DECLARE FUNCTION GpiQueryCp%( BYVAL HPS AS LONG )
  81.  
  82. DECLARE FUNCTION GpiQueryFontFileDescriptions&( BYVAL HAB AS LONG,_
  83.                         BYVAL PSZ AS LONG,_
  84.                         BYVAL PLONG AS LONG,_
  85.                         BYVAL PFFDESCS AS LONG)
  86.  
  87. DECLARE FUNCTION  GpiSetCharSet%( BYVAL HPS AS LONG,_
  88.                   BYVAL ALONG AS LONG )
  89.  
  90. DECLARE FUNCTION  GpiQueryCharSet&( BYVAL HPS AS LONG )
  91.