home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 13 / tsr / window.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-03-30  |  1.5 KB  |  61 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     WINDOW.PAS                         *)
  3. (*       Demo-Programm für Window-Erweiterung:            *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. PROGRAM Windemo;
  7.  
  8. TYPE t_Str255 = STRING[255];
  9.      t_Str80  = STRING[ 80];
  10.  
  11. {$I REGS8088.INC }
  12.  
  13. VAR i,j       : BYTE;
  14.     Auswahl   : INTEGER;
  15.     Ch        : CHAR;
  16.  
  17. {$I TSRWIND.INC  }
  18. {$I WINDOW.INC   }
  19.  
  20. BEGIN
  21.   ClrScr;
  22.   GotoXY(1,25); ClrEol;
  23.   Write('Demo-Programm für Window-Erweiterung');
  24.   MkWindow(3, 3, 78, 24, 1, White, Black, Black);
  25.   FOR i:=1 TO 75 DO
  26.     FOR j:=1 TO 20 DO BEGIN
  27.       GotoXY(i,j); Write('a');
  28.     END;
  29.   MkWindow(10, 7, 40, 18, 2, White, Black, Black);
  30.   TextColor(Black);
  31.   TextBackground(White);
  32.   WriteLn('Hilfsfenster');
  33.   TextColor(White);
  34.   TextBackground(Black);
  35.   WriteLn('Verschieben des Menues');
  36.   WriteLn('mit den Cursortasten');
  37.   WriteLn('möglich, während');
  38.   WriteLn('Scroll Lock aktiv');
  39.   WriteLn('ist.');
  40.   Auswahl := FlipMenue(12, 10, 'Zurück_Weiter_Beenden_');
  41.   FOR i:=1 TO 3 DO BEGIN
  42.     MvWindow(30,0);
  43.     Delay(500);
  44.     MvWindow(-30,0);
  45.     Delay(500);
  46.   END;
  47.   FOR i:=1 TO 3 DO BEGIN
  48.     MvWindow(1,1);
  49.     Delay(500);
  50.   END;
  51.   TextColor(White);
  52.   TextBackground(Black);
  53.   WriteLn('Ende nach Tastendruck.');
  54.   WHILE NOT KeyPressed DO;
  55.   Read(Kbd,Ch);
  56.   RmWindow;
  57.   RmWindow;
  58. END.
  59. (* ------------------------------------------------------ *)
  60. (*                 Ende von WINDOW.PAS                    *)
  61.