home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / PROG / PASCAL / SPEED2 / SRC / LIB / CRT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-28  |  2.2 KB  |  86 lines
  1. UNIT Crt;
  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. function WhereX: Byte;
  43. function WhereY: Byte;
  44. procedure TextColor(Color: Byte);
  45. procedure TextBackground(Color: Byte);
  46.  
  47.  
  48. IMPLEMENTATION
  49.  
  50.  
  51. PROCEDURE TextColor(c:LONGWORD);
  52. BEGIN
  53.      ASM
  54.         CALLN32 System._CreatePMCrtWindow
  55.      END;
  56.      TextCol:=c;
  57. END;
  58.  
  59. PROCEDURE TextBackGround(c:LONGWORD);
  60. BEGIN
  61.      ASM
  62.         CALLN32 System._CreatePMCrtWindow
  63.      END;
  64.      TextBackCol:=c;
  65. END;
  66.  
  67. FUNCTION WhereX:BYTE;
  68. BEGIN
  69.      ASM
  70.         CALLN32 System._CreatePMCrtWindow
  71.      END;
  72.      WhereX:=DrawLocX+1;
  73. END;
  74.  
  75. FUNCTION WhereY:BYTE;
  76. BEGIN
  77.      ASM
  78.         CALLN32 System._CreatePMCrtWindow
  79.      END;
  80.      WhereY:=DrawLocY+1;
  81. END;
  82.  
  83.  
  84. BEGIN
  85. END.