home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 08 / grafkurs / writedem.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1987-06-01  |  1.6 KB  |  47 lines
  1. (*-------------------------------------------------------------------*)
  2. (*                            WRITEDEM.PAS                           *)
  3. (* Demonstration der Zeichenausgabe-Prozedur "GrafWriteXY" anhand    *)
  4. (* verschiedener Schriftarten.                                       *)
  5.  
  6. PROGRAM WriteDemo(Input,Output);
  7.  
  8. CONST (*$I GRAFCONS.PAS *)
  9.  
  10. TYPE  (*$I GRAFTYPE.PAS *)
  11.  
  12. VAR   (*$I GRAFVAR.PAS *)
  13.       Handle: WinNrBereich;
  14.  
  15. (*$I GRAPH.P      <-- wird fuer Turbo Pascal unter MS-DOS benoetigt *)
  16. (*$I GRAFSYS.PAS  *)
  17. (*$I INTDDA.PAS   *)
  18. (*$I LINE.PAS     *)
  19. (*$I WINSYS.PAS   *)
  20. (*$I WINGRAF.PAS  *)
  21. (*$I PIXMANI.PAS  *)
  22. (*$I CELLMANI.PAS *)
  23. (*$I GRAFWRIT.PAS *)
  24.  
  25. BEGIN
  26.   Enter_Graphic;  InitGrafWrite('');  InitWindows;
  27.   Handle := SelectViewport(0,0,ScreenXMax,ScreenYMax);
  28.   SelectWorld(Handle, 0,0,500,500);
  29.   SelectWindow(Handle);
  30.   GrafWriteXY(1,1,'Dies ist normale Schrift !');
  31.   BoldFont := TRUE;
  32.   GrafWriteXY(1,50,'Dies ist fette Schrift !');
  33.   BoldFont := FALSE;  SmallFont := TRUE;
  34.   GrafWriteXY(1,100,'Dies ist Schmalschrift !');
  35.   SmallFont := FALSE;  KursivFont := TRUE;
  36.   GrafWriteXY(1,150,'Dies ist kursive Schrift !');
  37.   KursivFont := FALSE;  DoubleHighFont := TRUE;
  38.   GrafWriteXY(1,200,'Und nun doppelt hohe Schrift !');
  39.   DoubleHighFont := FALSE;  DoubleWideFont := TRUE;
  40.   GrafWriteXY(1,270,'Dies ist dann doppelt breite Schrift !');
  41.   DoubleWideFont := FALSE;  SmallFont := TRUE;  KursivFont := TRUE;
  42.   DoubleHighFont := TRUE;  DoubleWideFont := TRUE;
  43.   GrafWriteXY(1,350,'Schluss: schmal,kursiv,hoch & breit !');
  44.   ReadLn;
  45.   Exit_Graphic;
  46. END.
  47.