home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / windows / demos / fwdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  2.2 KB  |  69 lines
  1. (* ----------------------------------------------------- *)
  2. (*                     FWDEMO.PAS                        *)
  3. (*                                                       *)
  4. (* Demonstriert den Gebrauch von FrameWindow anhand eines*)
  5. (* statischen und zwei dynamischen Objekten.             *)
  6. (*                                                       *)
  7. (*         (c) 1991 by R.Reichert & toolbox              *)
  8. (* ----------------------------------------------------- *)
  9. PROGRAM FrameWinDemo;
  10.  
  11. USES ScrObj, WinVSM, FrameWin;
  12.  
  13. VAR
  14.   Win1,
  15.   Win2 : FrameWindowPtr;
  16.   Win3 : FrameWindow;
  17.   Crt  : WExtVSMPtr;
  18.   i, j : BYTE;
  19.  
  20. BEGIN
  21.   Crt := New (WExtVSMPtr,
  22.               Init (New (ScreenObjPtr, Init (0, 0))));
  23.   Win1 := New (FrameWindowPtr, Init (Crt));
  24.   Win2 := New (FrameWindowPtr, Copy (Win1^));
  25.   IF (Crt<>NIL) AND
  26.      (Win1<>NIL) AND
  27.      (Win2<>NIL) AND
  28.      (Win3.Init (Crt)) THEN BEGIN
  29.  
  30.      {^^^^^^^^^^^^^^^^ statische Instanze wird so geprüft,
  31.        ob Fail in Init aufgerufen wurde                   }
  32.  
  33.     Crt^.ClrScr;
  34.     Crt^.Fill ('█', 7);
  35.     Crt^.FillPart (10, 7, 70, 20, 7, ' ');
  36.     Win1^.Init (Crt);
  37.     Win1^.SetXY (10, 7, 70, 20);
  38.     Win1^.SetTitles (' Hello World - this is window 1 ',
  39.                      ' Good bye ');
  40.     Win1^.SetFrame (FSingle);
  41.     Win1^.Show;
  42.     Win2^.SetShadow (Off);
  43.     Win2^.SetXY (1, 1, 80, 25);
  44.     Win2^.SetTitles (' Hello World - this is window 2 ',
  45.                      ' ''bye bye ');
  46.     Win2^.Show;
  47.     Win3.SetColors (15, 15, 7, 112);
  48.     Win3.SetShadow (On);
  49.     Win3.SetXY (20, 10, 60, 16);
  50.     Win3.SetTitles (' Hello World - this is window 3 ',
  51.                     ' ''bye bye love ');
  52.     Win3.Show;
  53.     Readln;
  54.     Win3.Done;
  55.     Dispose (Win2, Done);
  56.     Dispose (Win1, Done);
  57.     Dispose (Crt, Done);
  58.   END ELSE BEGIN
  59.     Writeln ('*** Fehler: Objekte konnten nicht ',
  60.              'initialisiert werden !');
  61.     Writeln ('            Bitte Programm überprüfen.');
  62.     Writeln;
  63.     Writeln ('Programm angehalten.');
  64.   END;
  65. END.
  66. (* ----------------------------------------------------- *)
  67. (*               Ende von FWDEMO.PAS                     *)
  68. (* ----------------------------------------------------- *)
  69.