home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / oop / bufdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-06-26  |  1.9 KB  |  56 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    BUFDEMO.PAS                         *)
  3. (*         Demoprogramm zur Unit BUFFER5.PAS              *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM DataWinTest1;
  6.  
  7. USES Crt, Buffer5;
  8.  
  9. VAR
  10.   Buf  : BufferObjPtr;
  11.   i, j : INTEGER;
  12.   ch   : CHAR;
  13.  
  14. BEGIN
  15.   TextAttr := 7;  ClrScr;
  16.   WITH BufData DO BEGIN             { die Variablen setzen }
  17.     Columns    := 60;
  18.     Lines      := 1;
  19.     LineFeed   := TRUE;
  20.     MoveBufCur := TRUE;
  21.   END;
  22.   New(Buf, Init(BufData));          { initialisieren       }
  23.   IF (Buf <> NIL) THEN              { alles Ok ?           }
  24.     WITH Buf^ DO BEGIN
  25.       SetWriteColor(White, Black);
  26.       FOR i := 1 TO 10 DO
  27.         WriteStr(' toolbox and OOP demonstration' +
  28.                  ' in white and black');
  29.       SetWriteColor(LightGray, Black);
  30.       FOR i := 1 TO 10 DO
  31.         WriteStr (' toolbox and OOP demonstration' +
  32.                   ' in lightgray and black');
  33.       ChangeColor(1, 1, Columns, 1, Black, LightGray);
  34.       ChangeColor(1, 11, Columns, 11, Black, White);
  35.       DelLines(9, 1);
  36.       InsLines(10, 4);
  37.       FOR i := 1 TO Lines DO BEGIN
  38.         { ACHTUNG: Wenn ausgelagert wurde, funktioniert    }
  39.         {          das jetzt nicht. Bitte durch            }
  40.         { "WriteLn(Convert2Str(i)); ersetzen...            }
  41.         FOR j := 1 TO GetLineLength(i) DO BEGIN
  42.           TextAttr := Hi(TextBuf^[i]^[j]);
  43.           Write(CHAR(Lo(TextBuf^[i]^[j])));
  44.         END;
  45.         WriteLn;  Delay(100);
  46.       END;
  47.       ReadLn;
  48.     END ELSE BEGIN
  49.       WriteLn;         WriteLn('Fehler in BufferObj.Init!');
  50.       TextAttr := 15;  Write('Programm abgebrochen.');
  51.       TextAttr := 7;   WriteLn;
  52.     END;
  53.   IF Buf <> NIL THEN Buf^.Done;
  54. END.
  55. (* ------------------------------------------------------ *)
  56. (*               Ende von BUFDEMO.PAS                     *)