home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / bpos2i.zip / PMPIC.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-31  |  2KB  |  66 lines
  1. (* ====================================================== *)
  2. (*                         PMPIC.PAS                      *)
  3. (*     Implementation of the functions of PMPIC.DLL       *)
  4. (*            Translation to Pascal by jb/toolbox mag     *)
  5. (* ====================================================== *)
  6.  
  7. {$IFNDEF OS2}
  8.   Error: Wrong target/Compiler not patched
  9. {$ENDIF}
  10.  
  11. UNIT PMPic;
  12.  
  13. INTERFACE
  14.  
  15. USES
  16.   Os2Def;
  17.  
  18. CONST
  19.   PIP_MF        = 1;
  20.   PIP_PIF       = 2;
  21.  
  22.   PIC_PIFTOMET  = 0;
  23.   PIC_SSTOFONT  = 2;
  24.  
  25.   FUNCTION PicPrint(  a : HAB;
  26.                       b : pChar;
  27.                       c : LongInt;
  28.                       d : pChar) : BOOL;
  29.   FUNCTION Pic16Print(a : HAB;
  30.                       b : pChar;
  31.                       c : LongInt;
  32.                       d : pChar) : BOOL;
  33.  
  34.   FUNCTION PicIchg(  a : HAB;
  35.                      b : pChar;
  36.                      c : pChar;
  37.                      d : LongInt) : BOOL;
  38.   FUNCTION Pic16Ichg(a : HAB;
  39.                      b : pChar;
  40.                      c : pChar;
  41.                      d : LongInt) : BOOL;
  42.  
  43.  
  44. IMPLEMENTATION
  45.  
  46.   FUNCTION PicPrint;     EXTERNAL 'PMPIC' INDEX  1;
  47.   FUNCTION Pic16Print;   EXTERNAL 'PMPIC' INDEX  1;
  48.  
  49.   FUNCTION PicIchg;      EXTERNAL 'PMPIC' INDEX  2;
  50.   FUNCTION Pic16Ichg;    EXTERNAL 'PMPIC' INDEX  2;
  51.  
  52.  
  53. (* ====================================================== *)
  54. (*                         32 Bit                         *)
  55. {                 nicht implementiert
  56.  
  57.   FUNCTION Pic32Print;   External 'PMPIC' INDEX 11;
  58.   FUNCTION Pic32Ichg;    External 'PMPIC' INDEX 12;
  59.   FUNCTION Prf32Pif2Met; External 'PMPIC' INDEX 13;
  60. }
  61.  
  62. END.
  63.  
  64. (* ====================================================== *)
  65. (*                     Ende von PMPIC.PAS                 *)
  66.