UNIT FENSTER; (* ******************************************************************** *) (* K L A S S E : CFenster *) (* -------------------------------------------------------------------- *) (* Version : 1.23 *) (* Autor : S. Spolwig, OSZ-Handel I, 10997 Berlin *) (* *) (* Dateiname : fenster.pas *) (* *) (* Aufgabe : stellt ein Fensterobjekt mit unterschiedlichen Rahmen *) (* zur Verfuegung. Es hat NICHT die Eigenschaften von *) (* Windows (WindowHandle). Minimale Groesse ist 3 x 3. *) (* *) (* Compiler : Turbo Pascal 7.0 / MSDOS *) (* Aenderung : 11-NOV-97 *) (* 01-FEB-98 mit GRAFIK, BILDSCHIRM *) (* V. 1.21 14-FEB-98 CFlaeche ist Oberklasse *) (* 1.22 15-MAY-98 minimale Groesse berichtigt *) (* 1.23 24.MAY-98 Leeren berichtigt *) (* ******************************************************************** *) INTERFACE (* ========================== Export ================================== *) USES GRAFIK; type CFenster = object (CFlaeche) Rahmenart : 0..4; (* ohne, Rechteck, Relief, Basrelief,Frame *) Titel : string; constructor Init (eineXPos,eineYPos,eineLaenge,eineHoehe, einRahmen : integer; einTitel : string); procedure Zeigen; virtual; procedure Leeren; virtual; procedure Loeschen; virtual; end; (* ----------------- B e s c h r e i b u n g ------------------------- Oberklasse : CFlaeche Bezugsklassen : BILDSCHIRM benutze Module: - Methoden -------- Init Auftrag: Position,Rahmenart und Titel festlegen. Titel muss kuerzer sein als Laenge. vorher : - nachher: Position, Rahmenart, Titel sind uebergeben Zeigen Auftrag: Leeres Fenster auf dem Bildschirm schreiben vorher : - nachher: Fenster steht auf dem Bildschirm, Hintergrundfarbe Hellgrau, Cursor steht links oben im Fenster Leeren; Auftrag: Inhalt des Fenster vom Bildschirm loeschen vorher : Bildschirm ist Hellgrau nachher: leeres Fenster ist auf dem Bildschirm Loeschen Auftrag: gesamtes Fenster mit Rahmen vom Bildschirm loeschen vorher : - nachher: Fenster ist geloescht ----------------------------------------------------------------------- *)
Zurück zur Startseite