home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / ldm / testbox.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-03-14  |  962 b   |  31 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TESTBOX.PAS                        *)
  3. (*          (c) 1991 Thorsten Huck & TOOLBOX              *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM TestBox;
  6.  
  7. USES Graph, FileBox, Crt;
  8.  
  9. VAR
  10.   DateiName  : STRING;
  11.   i, x, y, k : INTEGER;
  12.  
  13. BEGIN
  14.   OpenGraph;                          (* SET BGIPATH= ... *)
  15.   FOR i := 20 DOWNTO 1 DO BEGIN
  16.     SetColor(i);
  17.     Circle(320, GetMaxY DIV 2, i*10);
  18.   END;
  19.   SetColor(15);
  20.   FileSelect(20, 40, DateiName,
  21.              '*** DEMO - AUFRUF ***', '', '*.*', 15, 0);
  22.   OutTextXY(10, 20, 'Ausgewählter Dateiname :');
  23.   OutTextXY(10, 40, DateiName);
  24.   OutTextXY(10, 70, 'ENDE  - Drücke Taste oder Maus');
  25.   REPEAT
  26.      Mouse(x, y, k);
  27.   UNTIL KeyPressed OR (k <> 0);
  28. END.
  29. (* ------------------------------------------------------ *)
  30. (*                 Ende von TESTBOX.PAS                   *)
  31.