home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1143 / gepackt.exe / BSPQTSW.EXE / SONDERZS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-28  |  1.6 KB  |  48 lines
  1. (***************************************
  2. * WG-VISION 1.0   BEISPIELPROGRAMM     *
  3. ****************************************
  4. *                                      *
  5. * Demonstration der Sonderzeichensätze *
  6. * im Grafikmodus                       *
  7. *                                      *
  8. *--------------------------------------*
  9. * Achtung: Nur VGA !                   *
  10. ****************************************
  11. * (c) 1993 Dipl.Phys. Mathias Scholz   *
  12. ***************************************)
  13.  
  14. {$I COMPILER.INC}
  15.  
  16. program SonderZs;
  17.  
  18. uses WDecl,
  19.      WDriver,
  20.      WText,
  21.      Crt,
  22.      Graph;
  23.  
  24.  
  25. begin
  26.   Video.Init(VGA,M640x480);
  27.   SetFont(Brdwy19);
  28.   SetFontColor(Black,Yellow);
  29.   WriteText(10,50,'Sonderzeichensätze der Unit WText');
  30.   SetFontColor(Black, White);
  31.   SetFont(Thin8);
  32.   WriteText(10,100,'Thin8   ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü0123456789');
  33.   SetFont(Thin14);
  34.   WriteText(10,125,'Thin14  ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü0123456789');
  35.   SetFont(Thin16);
  36.   WriteText(10,150,'Thin16  ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü0123456789');
  37.   SetFont(Wndw19);
  38.   WriteText(10,175,'Wndw19  ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü0123456789');
  39.   SetFont(Sans19);
  40.   WriteText(10,200,'Sans19  ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü0123456789');
  41.   SetFont(Brdwy19);
  42.   WriteText(10,225,'Brdwy19 ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü0123456789');
  43.   SetFont(VGAF);
  44.   WriteText(10,255,'VGAF    ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü0123456789');
  45.   repeat until KeyPressed;
  46.   Video.Done;
  47. end.
  48.