home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / tricks / demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-15  |  2.0 KB  |  65 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       DEMO.PAS                         *)
  3. (*                                                        *)
  4. (* Sprache : Turbo Pascal Version 5.50                    *)
  5. (*                                                        *)
  6. (* Demonstriert die Anwendung von GRWRITE.PAS.            *)
  7. (*                                                        *)
  8. (* Das Programm benötigt den für die jeweilige Grafik-    *)
  9. (* karte passenden BGI-Treiber!                           *)
  10. (*                                                        *)
  11. (*              1991       Ralf Homburg                   *)
  12. (* ------------------------------------------------------ *)
  13.  
  14. uses
  15.   Crt,
  16.   Graph,
  17.   GrWrite;
  18.  
  19. var
  20.   Ch       : char;
  21.   I,
  22.   grDriver,
  23.   grMode,
  24.   ErrCode  : integer;
  25.  
  26. begin
  27.   grDriver := Detect;          { Grafik initialisieren ... }
  28.   InitGraph(grDriver,grMode,'C:\TP');
  29.   ErrCode := GraphResult;
  30.   if ErrCode = grOk then
  31.   begin
  32.     InstallGraphWrite;     { Grafik-Write(Ln) installieren }
  33.     ClearDevice;                   { Ein paar Ausgaben ... }
  34.     MoveTo(0,10);
  35.     SetTextStyle(DefaultFont,HorizDir,3);
  36.     writeln(' Write(Ln) im Grafikmodus');
  37.     writeln;
  38.     SetTextJustify(CenterText,TopText);
  39.     MoveTo(GetMaxX div 2,GetY);
  40.     HorizLineSpacing := 5;
  41.     for I := 1 to 4 do
  42.     begin
  43.       SetTextStyle(DefaultFont,HorizDir,I);
  44.       writeln('Treiber: ',grDriver,' Modus: ',grMode);
  45.     end;
  46.     Ch := readkey;
  47.     ClearDevice;
  48.     SetTextJustify(LeftText,CenterText);
  49.     SetTextStyle(DefaultFont,VertDir,1);
  50.     MoveTo(80,GetMaxY div 2);
  51.     for I := 1 to 25 do
  52.     begin
  53.       VertLineSpacing := I;
  54.       writeln('WriteLn senkrecht');
  55.     end;
  56.     Ch := readkey;
  57.     CloseGraph;                         { Grafik schließen }
  58.     InstallCrtWrite;     { Text-Write(Ln) installieren !!! }
  59.     writeln('WriteLn wieder im Textmodus.');
  60.     Ch := readkey;
  61.   end
  62.   else
  63.     writeln('Grafikfehler:',GraphErrorMsg(ErrCode));
  64. end.
  65.