Section courante

A propos

Section administrative du site

  1. Unit Crt;
  2.  
  3. {$D-,I-,S-}
  4.  
  5. INTERFACE
  6.  
  7. Const
  8.  
  9. { Modes CRT }
  10.  
  11.   BW40          = 0;            { Adaptateur couleur avec 40x25 en noir/blanc }
  12.   CO40          = 1;            { Adaptateur couleur avec 40x25 en couleur }
  13.   BW80          = 2;            { Adaptateur couleur avec 80x25 en noir/blanc }
  14.   CO80          = 3;            { Adaptateur couleur avec 80x25 en couleur }
  15.   Mono          = 7;            { Adaptateur monochrome avec 80x25 }
  16.   Font8x8       = 256;          { Police de caractères 8x8 supplémentaire en ROM }
  17.  
  18. { Constantes de mode pour la compatibilité du Turbo Pascal 3.0 }
  19.  
  20.   C40           = CO40;
  21.   C80           = CO80;
  22.  
  23. { Constantes de couleurs de premier plan et d'arrière-plan }
  24.  
  25.   Black         = 0;
  26.   Blue          = 1;
  27.   Green         = 2;
  28.   Cyan          = 3;
  29.   Red           = 4;
  30.   Magenta       = 5;
  31.   Brown         = 6;
  32.   LightGray     = 7;
  33.  
  34. { Constantes de couleurs de premier plan }
  35.  
  36.   DarkGray      = 8;
  37.   LightBlue     = 9;
  38.   LightGreen    = 10;
  39.   LightCyan     = 11;
  40.   LightRed      = 12;
  41.   LightMagenta  = 13;
  42.   Yellow        = 14;
  43.   White         = 15;
  44.  
  45. { Supplément pour le clignotement }
  46.  
  47.   Blink         = 128;
  48.  
  49. Var
  50.  
  51.    { Variables d'interface }
  52.  
  53.   CheckBreak: Boolean;    { Active le Ctrl+Break }
  54.   CheckEOF: Boolean;      { Active Ctrl+Z }
  55.   DirectVideo: Boolean;   { Active l'adressage de la vidéo avec accès direct }
  56.   CheckSnow: Boolean;     { Active le filtre pour l'affichage sans neige }
  57.   LastMode: Word;         { Mode texte courant }
  58.   TextAttr: Byte;         { Attribut de texte courant }
  59.   WindMin: Word;          { Coordonnées de fenêtre du coin supérieur gauche }
  60.   WindMax: Word;          { Coordonnées de fenêtre du coin inférieur droite }
  61.  
  62. { Procédures d'interface }
  63.  
  64. Procedure AssignCrt(var F: Text);
  65. Function KeyPressed: Boolean;
  66. Function ReadKey: Char;
  67. Procedure TextMode(Mode: Integer);
  68. Procedure Window(X1,Y1,X2,Y2: Byte);
  69. Procedure GotoXY(X,Y: Byte);
  70. Function WhereX: Byte;
  71. Function WhereY: Byte;
  72. Procedure ClrScr;
  73. Procedure ClrEol;
  74. Procedure InsLine;
  75. Procedure DelLine;
  76. Procedure TextColor(Color: Byte);
  77. Procedure TextBackground(Color: Byte);
  78. Procedure LowVideo;
  79. Procedure HighVideo;
  80. Procedure NormVideo;
  81. Procedure Delay(MS: Word);
  82. Procedure Sound(Hz: Word);
  83. Procedure NoSound;


Dernière mise à jour : Dimanche, le 20 avril 2014