home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / spdos2.zip / LIBSRC / PMCRT.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-11  |  3KB  |  101 lines
  1. UNIT PMCrt;
  2.  
  3. {**************************************************************************
  4.  *                 General Unit for Speed-386                             *
  5.  *                                                                        *
  6.  *                                                                        *
  7.  * Copyright (C) 1993,94 R.Nürnberger, Franz-Mehring-Str.2 09112 Chemnitz *
  8.  *                                                                        *
  9.  *                                                                        *
  10.  **************************************************************************}
  11.  
  12.  
  13. INTERFACE
  14.  
  15. CONST
  16.      { default color table indices }
  17.  
  18.       CLR_FALSE                =-5;
  19.       CLR_TRUE                 =-4;
  20.       CLR_ERROR                =-255;
  21.       CLR_DEFAULT              =-3;
  22.       CLR_WHITE                =-2;
  23.       CLR_BLACK                =-1;
  24.       CLR_BACKGROUND           = 0;
  25.       CLR_BLUE                 = 1;
  26.       CLR_RED                  = 2;
  27.       CLR_PINK                 = 3;
  28.       CLR_GREEN                = 4;
  29.       CLR_CYAN                 = 5;
  30.       CLR_YELLOW               = 6;
  31.       CLR_NEUTRAL              = 7;
  32.       CLR_DARKGRAY             = 8;
  33.       CLR_DARKBLUE             = 9;
  34.       CLR_DARKRED              = 10;
  35.       CLR_DARKPINK             = 11;
  36.       CLR_DARKGREEN            = 12;
  37.       CLR_DARKCYAN             = 13;
  38.       CLR_BROWN                = 14;
  39.       CLR_PALEGRAY             = 15;
  40.  
  41.  
  42. procedure Window(X1,Y1,X2,Y2: Byte);
  43. function WhereX: Byte;
  44. function WhereY: Byte;
  45. procedure GetBounds(VAR x,y,x1,y1:Byte);
  46. procedure ClrEol;
  47. procedure TextColor(Color: Byte);
  48. procedure TextBackground(Color: Byte);
  49.  
  50.  
  51. IMPLEMENTATION
  52.  
  53.  
  54. PROCEDURE ClrEol;
  55. BEGIN
  56. END;
  57.  
  58.  
  59. PROCEDURE Window(x,y,x1,y1:byte);
  60. BEGIN
  61. END;
  62.  
  63. PROCEDURE TextColor(c:LONGWORD);
  64. BEGIN
  65.      ASM
  66.         CALLN32 System._CreatePMCrtWindow
  67.      END;
  68.      TextCol:=c;
  69. END;
  70.  
  71. PROCEDURE TextBackGround(c:LONGWORD);
  72. BEGIN
  73.      ASM
  74.         CALLN32 System._CreatePMCrtWindow
  75.      END;
  76.      TextBackCol:=c;
  77. END;
  78.  
  79. FUNCTION WhereX:BYTE;
  80. BEGIN
  81.      ASM
  82.         CALLN32 System._CreatePMCrtWindow
  83.      END;
  84.      WhereX:=DrawLocX+1;
  85. END;
  86.  
  87. FUNCTION WhereY:BYTE;
  88. BEGIN
  89.      ASM
  90.         CALLN32 System._CreatePMCrtWindow
  91.      END;
  92.      WhereY:=DrawLocY+1;
  93. END;
  94.  
  95. procedure GetBounds(VAR x,y,x1,y1:Byte);
  96. BEGIN
  97. END;
  98.  
  99. BEGIN
  100. END.