home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 09 / schrift / plbgi.pas next >
Encoding:
Pascal/Delphi Source File  |  1989-01-08  |  1.5 KB  |  48 lines
  1. PROGRAM PLBGI;
  2.  
  3. USES GRAPH, HPGL, PLScript;
  4.  
  5. VAR
  6.   GraphDriver,
  7.   GraphMode    : Integer;
  8.   Message      : STRING[80];
  9.  
  10. begin
  11.   OpenGraphik ('PRN');                      (* Plotter aktivieren *)
  12.   GraphDriver := Detect;                    (* Graphik-Befehle aktivieren *)
  13.   InitGraph(GraphMode, GraphDriver, '');    (* korrektes Directory setzen ! *)
  14.  
  15.   SetBkColor (Blue);
  16.   Graph.OutTextXY (10, 10, 'PLOTTER-SCHRIFT    (c) 1989 DMV-Verlag');
  17.   Graph.OutTextXY (10, 80, ' Plotter am Arbeiten .. ');
  18.  
  19.   (* Schriftart, Richtung und Grösse festlegen : *)
  20.   SetTextStyle (Goth, HorizDir, 0);
  21.                  (* ^ Grösse, Bereich 1 .. 26 ODER  0 *)
  22.  
  23.   (* Falls CharSize auf 0 gesetzt wird, kann mit der folgenden Prozedur *)
  24.   (* eine beliebige Schriftgrösse in x- und y-Richtung festgelegt werden *)
  25.   (* Parameter : MultX, DivX, MultY, DivY *)
  26.   SetUserCharsize (1, 2, 3, 4);
  27.  
  28.   (* Text ausrichten : *)
  29.   SetTextJustify (LeftText, BottomText);
  30.          (*  ^---------^ vgl. Turbo-Handbuch *)
  31.  
  32.   Message := 'Toolbox ist eine tolle Kiste !';
  33.   (*           ^-- auszugebender Text *)
  34.   FillChar (Farbe, SizeOf (Farbe), Red);
  35.   OutTextXY (30,150, Message);
  36.  
  37.   Message := 'I like TOOLBOX';
  38.   SetTextStyle (Trip, HorizDir, 2);
  39.   FillChar (Farbe, SizeOf (Farbe), Black);
  40.   Farbe [3] := Cyan;  Farbe [4] := Cyan; Farbe [5] := Cyan; Farbe [6] := Cyan;
  41.   Farbe [8] := Green;
  42.   (* für jedes Zeichen kann die Farbe festgelegt werden *)
  43.  
  44.   Graph.OutTextXY (10, 150, Message);
  45.  
  46.   OutTextXY (30, 100, Message);   (* Text plotten *)
  47.      (*   ^---^ in mm ! *)
  48. END.