UNIT TXTBOX;

(* ******************************************************************** *)
(* K L A S S E : CTextbox                                               *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.1                                                    *)
(* Autor       : S. Spolwig, OSZ-Handel I,  10997 Berlin                *)
(*                                                                      *)
(* Dateiname   : txtbox.pas                                             *)
(*                                                                      *)
(* Aufgabe     : Gibt eine Textzeile in einem Fenster aus.              *)
(*               Die Fensterlaenge ist dem Text automatisch angepasst.  *)
(*               Wird Textbox ohne Rahmen gewaehlt, wird lediglich die  *)
(*               Textzeile geschrieben                                  *)
(* Compiler    : Turbo Pascal 7.0 / MSDOS                               *)
(* Aenderung   : 11-NOV-97                                              *)
(*             : V. 1.1   Textzeile ohne Rahmen                         *)
(*                        Loeschen angepasst                            *)
(*                  1.2   Init berichtigt, max. Hoehe ist 3             *)
(* ******************************************************************** *)

INTERFACE
(* ========================== Export ================================== *)

USES FENSTER,
     BILDSCHIRM;

type
   CTextbox = object (CFenster)
                Text             : string;
                Textfarbe,
                Hintergrundfarbe : TFarben;
                Taste            : char;

                constructor Init (eineXPos,eineYPos,eineLaenge,eineHoehe,
                                  einRahmen : integer; einTitel : string);

                procedure TextFarbeSetzen (tf, hgf : TFarben); virtual;
                procedure TextZeigen (tx : string);            virtual;
                procedure Einblenden (tx : string);            virtual;
                procedure Leeren;                              virtual;
              end;

var
   Textbox : CTextbox;     (* ist bereits init. mit (3,23,1,1,0,'') *)

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

Oberklasse    : FENSTER
Bezugsklassen : BILDSCHIRM : import Screen
benutze Module: ASCII, CRT


Methoden
--------

Init (eineXPos,eineYPos,eineLaenge,eineHoehe,
      einRahmen : integer; einTitel : string);

   Auftrag: initialisiert CFenster und Farben
   vorher : -
   nachher: Textfarbe ist SCHWARZ, Hintergrundfarbe ist HELLGRAU


TextFarbeSetzen (tf, hf: TFarben)

   Auftrag: Farben fuer Schrift und Schrifthintergrund setzen
   vorher : -
   nachher: Textboc hat tf und hf


TextZeigen (tx : string)

   Auftrag: Textbox mit aktuellem Text auf dem Bildschirm anzeigen
   vorher : -
   nachher: Text steht auf dem Bildschirm


Einblenden (tx : string)

   Auftrag: Textbox zeigen und warten bis RETURN gedrueckt wird
   vorher : -
   nachher: Textbox ist entfernt

Leeren

   Auftrag: Inhalt der Textbox vom Bildschirm loeschen
   vorher : -
   nachher: Text ist entfernt

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

Zurück zur Startseite