home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 445.NETCOLOR.PAS < prev    next >
Pascal/Delphi Source File  |  1989-07-11  |  1KB  |  63 lines
  1. procedure auxcolor;
  2. begin
  3.   textbackground(aux_b);
  4.   textcolor(aux_f);
  5. end;
  6.  
  7. procedure Brite_auxcolor;
  8. begin
  9.   textbackground(brite_b);
  10.   textcolor(brite_f);
  11. end;
  12.  
  13. procedure normcolor;
  14. begin
  15.   textbackground(norm_b);
  16.   textcolor(norm_f);
  17. end;
  18.  
  19. procedure save_screen;
  20. begin
  21.   old_x := WhereX;
  22.   old_y := WhereY;
  23.   FillPage(@image);
  24. end;
  25.  
  26. procedure restore_screen;
  27. begin
  28.   window(1,1,80,25);
  29.   DisplayPage(@image);
  30.   gotoxy(old_x,old_y);
  31. end;
  32.  
  33. procedure save_entry_screen;
  34. begin
  35.   curs_x := whereX;
  36.   curs_y := whereY;
  37.   FillPage(@screen1);
  38. end;
  39.  
  40. procedure restore_entry_screen;
  41. begin
  42.   DisplayPage(@screen1);
  43.   window(1,1,80,25);
  44.   gotoxy(curs_x,curs_y);
  45. end;
  46.  
  47. procedure save_attr(var f,b : integer; x1,y1: integer);
  48. var attr : integer;
  49. begin
  50.   if VideoMode = 7
  51.     then  attr := mono_video[(x1 + WhereX - 2)*2 + (y1 + WhereY - 2)*160 + 1]
  52.     else  attr := colr_video[(x1 + WhereX - 2)*2 + (y1 + WhereY - 2)*160 + 1];
  53.   f := attr AND $0F;
  54.   b := (attr SHR 4) AND $0F;
  55. end;
  56.  
  57. procedure restore_attr(f,b : integer);
  58. begin
  59.   textcolor(f);
  60.   textbackground(b);
  61. end;
  62.  
  63.