UNIT BILDSCHIRM;

(* ******************************************************************** *)
(* K L A S S E : CScreen                                                *)
(* -------------------------------------------------------------------- *)
(* Version     : 0.9 - BetaVersion                                      *)
(*                                                                      *)
(* Autor       : S. Spolwig                                             *)
(*                                                                      *)
(* Dateiname   : bildschirm.pas                                         *)
(*                                                                      *)
(* Aufgabe     : Die Unit BILDSCHIRM stellt einige Methoden fuer Bild-  *)
(*               schirmattribute zur Verfuegung.                        *)
(*                                                                      *)
(*               Beim Einbinden von BILDSCHIRM ist die globale Variable *)
(*               mit NormalVideo initialisiert. Alle weiteren           *)
(*               Attribute beziehen sich darauf.                        *)
(*                                                                      *)
(*              ( Es gehoert auf den Muell, sobald jemand eine korrekte *)
(*               Implementierung hat. )                                 *)
(* Compiler    : MSDOS/TURBO Pascal V. 7.0                              *)
(* Aenderung   : 02-FEB-98                                              *)
(* ******************************************************************** *)

INTERFACE

(* ==================================================================== *)
type
  Tfarben  = ( SCHWARZ,     (* fuer Vorder- und Hintergrund *)
               BLAU,
               GRUEN,
               TUERKIS,
               ROT,
               FUCHSINROT,
               BRAUN,
               HELLGRAU,

               DUNKELGRAU,  (* nur fuer Vordergrund *)
               HELLBLAU,
               HELLGRUEN,
               HELLES_TUERKIS,
               HELLROT,
               HELLES_FUCHSINROT,
               GELB,
               WEISS );


  CScreen = object
              Farbe,
              Textfarbe,
              Hintergrundfarbe : TFarben;

              constructor Init;
              procedure FarbeSetzen ( f: TFarben );            virtual;
              procedure TextFarbeSetzen ( f: TFarben );        virtual;
              procedure HintergrundFarbeSetzen ( f: TFarben ); virtual;
              procedure NormalVideo;                           virtual;
              procedure Revers;                                virtual;
              procedure Leeren;                                virtual;

              procedure Cursor (eineXPos, eineYPos : integer); virtual;
              procedure CursorHome;                            virtual;
              procedure Beep (WieOft : integer);               virtual;
              procedure VerzoegernUm (mSec : word);            virtual;
            end;

var Screen : CScreen;

(* -------------------- B e s c h r e i b u n g -------------------------

Oberklasse    : -
Bezugsklassen : -
benutze Module: CRT

Methoden
--------

Init

   Auftrag: Screen auf Standardwerte einstellen
   vorher : -
   nachher: Farbe ist HELLGRAU, Text auf NormalVideo


FarbeSetzen ( f: TFarben )

   Auftrag: Screen auf Farbe f einstellen
   vorher : ist init.
   nachher: Screen hat erscheint in f


TextFarbeSetzen ( f: TFarben )

   Auftrag: -
   vorher : ist init.
   nachher: Text  erscheint in f


HintergrundFarbeSetzen ( f: TFarben )

   Auftrag: -
   vorher : ist init.
   nachher: Texthintergrund  erscheint in f


NormalVideo;

   Auftrag: Textfarbe und Texthintergrundfarbe auf Standardwerte einstellen
   vorher : ist init.
   nachher: Texfarbe SCHWARZ, Texthintergrundfarbe HELLGRAU


Revers

   Auftrag: Textfarbe und Texthintergrundfarbe vertauschen
   vorher : ist init.
   nachher: -


Leeren

   Auftrag: gesamten Bildschirminhalt loeschen
   vorher : ist init.
   nachher: Bildschirm ist leer; Cursor steht auf Position (1,1)


Cursor( XPos, YPos : integer)

   Auftrag: Cursor positionieren (Spalte, Zeile)
   vorher : ist init.
   nachher: -


CursorHome

  Auftrag: Cursor verstecken
  vorher : ist init.
  nachher: Position ist Spalte 80, Zeile 24


Beep (WieOft : integer);

   Auftrag: erzeugt n Toene in Intervallen ab 440 Hz
   vorher : ist init.
   nachher: -

--------------------------------------------------------------------- *)

Zurück zur Startseite