home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / tema / 602propc / disk12 / data.12 / WINTEXT / MAKRA / SOURCES / POKUS.TXT < prev    next >
Encoding:
Text File  |  1994-10-11  |  971 b   |  59 lines
  1. Program Pokus5;
  2. // malΘ "show" -
  3. // - p°epφnßnφ mezi vφce dokumenty, plynulß zm∞na jejich zv∞tÜenφ
  4.  
  5. const
  6.    deleni = 12;
  7.  
  8. procedure Scale_and_view(sc : integer);
  9. begin
  10.    SetScale(sc);
  11.    FixScreenPos;
  12. end;
  13.  
  14. procedure GrowDoc(low, high : integer); 
  15. var
  16.   j, delta : short;
  17. begin
  18.   delta := Round((high - low)/deleni);
  19.  
  20.   Scale_and_view(low);
  21.   for j:= 1 to deleni - 1 do
  22.     Scale_and_view(low + j*delta);
  23.   Scale_and_view(high);
  24.  
  25. end;
  26.  
  27. Procedure BigShow(count : short);
  28. var
  29.   i, j : integer;
  30. begin
  31.   for i:= 1 to count do
  32.   begin
  33.     for j:= 1 to CountWindows do
  34.     begin
  35.       NextWindow;
  36.       DocMinimize(true);
  37.       Wait(1);
  38.     end;
  39.  
  40.     for j:= 1 to CountWindows do
  41.     begin
  42.       NextWindow;
  43.       DocRestore;
  44.       Wait(1);
  45.     end;
  46.  
  47.     for j:= 1 to CountWindows do
  48.     begin
  49.       NextWindow;
  50.       GrowDoc(100, 70); 
  51.       GrowDoc(70, 100);      
  52.     end;    
  53.  
  54. end;
  55. end;
  56.  
  57. begin
  58.   BigShow(1);
  59. end.