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