home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / windows / demos / windemo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  2.0 KB  |  64 lines
  1. (* ----------------------------------------------------- *)
  2. (*                        WINDEMO.PAS                    *)
  3. (*                                                       *)
  4. (*         (c) 1991 by R.Reichert & toolbox              *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM WindowDemo;
  7.  
  8. USES ScrObj, WinVSM, Windows;
  9.  
  10. VAR
  11.   Win1,
  12.   Win2 : WindowPtr;
  13.   Crt  : WExtVSMPtr;
  14.   i    : BYTE;
  15.  
  16. BEGIN
  17.                           { initialisieren der Instanzen: }
  18.   Crt := New (WExtVSMPtr,
  19.               Init (New (ScreenObjPtr, Init (0, 0))));
  20.   Win1 := New (WindowPtr, Init (Crt));
  21.   Win2 := New (WindowPtr, Copy (Win1^));
  22.                            { Bildschirm schön herrichten: }
  23.   IF Crt=NIL THEN BEGIN
  24.     Writeln ('Programmfehler: Objekt "Crt" konnte nicht '+
  25.              'initialisiert werden, die Fensterobjekte '+
  26.              'ebenfalls nicht (Folgefehler). ');
  27.     Writeln;
  28.     Writeln ('Programm abgebrochen.');
  29.     Halt (1)
  30.   END;
  31.   Crt^.ClrScr;
  32.   FOR i := 1 TO 222 DO
  33.     Crt^.Write (' toolbox ');
  34.   Crt^.GotoXY (1,1);
  35.                              { Erstes Fenster bearbeiten: }
  36.   Win1^.SetTitles (' Hello World - this is window 1 ',
  37.                    ' Good bye ');
  38.   Win1^.Open;
  39.   Readln;
  40.   Win1^.Close;
  41.   Win1^.SetTitles (' Hello World ', ' ''bye ');
  42.   Win1^.SetColors (7,15,7,0);
  43.   Win1^.Open;
  44.   Readln;
  45.                               { Window 2 bearbeiten: }
  46.   Win2^.SetXY (10, 7, 70, 20);
  47.   Win2^.SetTitles (' Hello World - this is window 2 ',
  48.                    ' Good night ');
  49.  
  50.   Win2^.SetFrame (1);
  51.   Win2^.SetClearWin (On);
  52.   Win2^.SetShadow (On);
  53.   Win2^.Open;
  54.   Readln;
  55.   Crt^.ClrScr;
  56.                   { die Instanzen wieder beseitigen: }
  57.   Dispose (Win2, Done);
  58.   Dispose (Win1, Done);
  59.   Dispose (Crt, Done);
  60. END.
  61. (* ----------------------------------------------------- *)
  62. (*                Ende von WINDEMO.PAS                   *)
  63. (* ----------------------------------------------------- *)
  64.