home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / nicol / sti_scrf / sti_sdem.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1979-12-31  |  1.5 KB  |  68 lines
  1. program STI_SDEM;
  2.  
  3. uses CRT,
  4.      STI_SCRF;
  5.  
  6. Var
  7.   SavedWindow  : WindowSave;
  8.   Borders      : array[1..6] of string[8];
  9.   Inch         : char;
  10.  
  11. {---------------------------------------------------------------------------}
  12.  
  13. procedure Explain;
  14.  
  15. Var
  16.   Inch : char;
  17.  
  18. begin
  19.   writeln('                              STI_SDEM');
  20.   writeln('');
  21.   writeln('           A demostration of the STI_SCRF procedures and the');
  22.   writeln('           kind of screen they produce. ESC ends the demo.');
  23.   writeln('');
  24.   writeln('           Press any key to continue...');
  25.   repeat until keypressed;
  26.   Inch := ReadKey;
  27. end;
  28.  
  29. {---------------------------------------------------------------------------}
  30.  
  31. procedure RandomText;
  32.  
  33. Var
  34.   Loop : word;
  35.  
  36. begin
  37.   for Loop := 1 to 1000 do
  38.     write(char(random(200)+32));
  39. end;
  40.  
  41. {---------------------------------------------------------------------------}
  42.  
  43. begin
  44.   ClrScr;
  45.   Explain;
  46.   RandomText;
  47.   Borders[1] := SINGLELINE;
  48.   Borders[2] := ROUNDCORNERSINGLE;
  49.   Borders[3] := BIGBLOCK;
  50.   Borders[4] := THICKTOPTHINSIDES;
  51.   Borders[5] := THICKDIAGONALCORNER;
  52.   Borders[6] := SPACES;
  53.   repeat
  54.     MakeWindow(SavedWindow,
  55.                random(30)+1,
  56.                random(10)+1,
  57.                random(30)+40,
  58.                random(10)+13,
  59.                White,
  60.                Green,
  61.                Yellow+Reverse,
  62.                Borders[random(5)+1],
  63.                'Test');
  64.     Inch := ReadKey;
  65.     DisposeWindow(SavedWindow);
  66.   until Inch = #27;
  67.   ClrScr;
  68. end.