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