home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PRESPM.ZIP / FNTDEMO.INC < prev    next >
Text File  |  1990-09-19  |  4KB  |  79 lines
  1. # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
  2. # <FntDemo.inc 
  3.  
  4. subroutine ChangeHANDLE_FontToPOINTSFACE_
  5.     ( integer   : Handle                    # input   handle of CONTROL
  6.     , string    : PointsDotFaceName         # input   e.g., "12.Helv"
  7.     )                                       #
  8.     library "FNTDEMO"                       # sets errorlevel
  9.  
  10. subroutine ChangeHANDLE_FontToDefault
  11.     ( integer   : Handle                    # input   handle of CONTROL
  12.     )                                       #
  13.     library "FNTDEMO"                       # sets errorlevel
  14.  
  15. function   ErrMsgFromChangeHANDLEFont
  16.     ( integer   : Errorlevel                # input   errorlevel 
  17.     ) 
  18.     returns string                          # output  error message
  19.     library "FNTDEMO"                       #
  20.  
  21. subroutine MakeHANDLE_PP_COLOR_
  22.     ( integer   : Handle                    # input   handle of CONTROL
  23.     , integer   : PresParamConstant         # input   e.g., PP_BORDERCOLOR
  24.     , integer   : ColorNumber               # input   e.g., 1
  25.     )                                       #
  26.     library "FNTDEMO"                       # sets errorlevel
  27.  
  28. subroutine MakeHANDLE_ForeCOLOR_
  29.     ( integer   : Handle                    # input   handle of CONTROL
  30.     , integer   : ColorNumber               # input   e.g., 1
  31.     )                                       #
  32.     library "FNTDEMO"                       # sets errorlevel
  33.  
  34. subroutine MakeHANDLE_BackCOLOR_
  35.     ( integer   : Handle                    # input   handle of CONTROL
  36.     , integer   : ColorNumber               # input   color, e.g., 1
  37.     )                                       #
  38.     library "FNTDEMO"                       # sets errorlevel
  39.  
  40. subroutine MakeHANDLE_HiliteForeCOLOR_
  41.     ( integer   : Handle                    # input   handle of CONTROL
  42.     , integer   : ColorNumber               # input   e.g., 1
  43.     )                                       #
  44.     library "FNTDEMO"                       # sets errorlevel
  45.  
  46. subroutine MakeHANDLE_HiliteBackCOLOR_
  47.     ( integer   : Handle                    # input   handle of CONTROL
  48.     , integer   : ColorNumber               # input   color, e.g., 1
  49.     )                                       #
  50.     library "FNTDEMO"                       # sets errorlevel
  51.  
  52. subroutine MakeHANDLE_DisabledForeCOLOR_
  53.     ( integer   : Handle                    # input   handle of CONTROL
  54.     , integer   : ColorNumber               # input   e.g., 1
  55.     )                                       #
  56.     library "FNTDEMO"                       # sets errorlevel
  57.  
  58. subroutine MakeHANDLE_DisabledBackCOLOR_
  59.     ( integer   : Handle                    # input   handle of CONTROL
  60.     , integer   : ColorNumber               # input   color, e.g., 1
  61.     )                                       #
  62.     library "FNTDEMO"                       # sets errorlevel
  63.  
  64. subroutine MakeHANDLE_BorderCOLOR_
  65.     ( integer   : Handle                    # input   handle of CONTROL
  66.     , integer   : ColorNumber               # input   e.g., 1
  67.     )                                       #
  68.     library "FNTDEMO"                       # sets errorlevel
  69.  
  70. function   ErrMsgFromMakeHANDLECOLOR 
  71.     ( integer   : Errorlevel                # input   errorlevel 
  72.     ) 
  73.     returns string                          # output  error message
  74.     library "FNTDEMO"                       #
  75.  
  76.  
  77. #                                                              FntDemo.inc> #
  78. # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
  79.