home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / grdlagen / stwidemo.pas < prev    next >
Pascal/Delphi Source File  |  1990-07-05  |  2KB  |  53 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    STWIDEMO.PAS                        *)
  3. (*           Demoprogramm zur Unit "StandWin"             *)
  4. (*            (c) 1990 R.Reichert & TOOLBOX               *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM StandardWindowDemo;
  7.  
  8. USES Crt, StandWin;
  9.  
  10. VAR
  11.   i      : BYTE;
  12.   Window : StandardWindowPtr;
  13.  
  14. BEGIN
  15.   TextAttr := 7;
  16.   ClrScr;
  17.   FOR i := 1 TO 80 DO Write('toolbox ');
  18.   New(Window, Init(StandWinData));
  19.         (* auf dem Heap anlegen und gleich initialisieren *)
  20.   WITH Window^ DO BEGIN
  21.     Open;
  22.     ChangeFrame(1);   (* Ein wenig relativ verschieben... *)
  23.     FOR i := 1 TO 10 DO BEGIN
  24.       MoveWinRel(2,0);
  25.       Delay(250);
  26.     END;
  27.     ChangeFrame(2);     (* ... und relativ vergrößern ... *)
  28.     FOR i := 1 TO 10 DO BEGIN
  29.       ZoomWinRel(1,1);
  30.       Delay(350);
  31.     END;
  32.     ChangeFrame(3);
  33.                 (* ...und wieder "zusammenschnurren" lassen,
  34.                                natürlich auch relativ ... *)
  35.     FOR i := 1 TO 10 DO BEGIN
  36.       ZoomWinRel(-1,-1);
  37.       Delay(350);
  38.     END;
  39.     ChangeFrame(4);                (* Absolut bewegen ... *)
  40.     MoveWinAbs(1,1);
  41.     Delay(350);
  42.     ChangeFrame(5);
  43.                 (* und auf volle Größe bringen, absolut ! *)
  44.     ZoomWinAbs(78,23);
  45.     ReadLn;
  46.   END;                         (* Auf dem Heap aufräumen: *)
  47.   Dispose(Window, Done);
  48.   ReadLn;
  49.   ClrScr;
  50. END.
  51. (* ------------------------------------------------------ *)
  52. (*                  Ende von STWIDEMO.PAS                 *)
  53.