home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / grafik / fontdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-09  |  1.2 KB  |  40 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-}
  2. {$M 16384,0,655360}
  3. (*===================================================================*)
  4. (*                              FONTDEMO.PAS                         *)
  5. (*                        (C) 1993 te-wi Verlag                      *)
  6. (*    Das Programm zeigt alle BGI-Schriften auf dem Bildschirm an    *)
  7. (*===================================================================*)
  8.  
  9. PROGRAM FontDemo;
  10.  
  11. USES
  12.   Crt, Graph, Drivers, Fonts, ExtFonts;
  13.  
  14. CONST
  15.   FontNames : ARRAY[0..10] OF STRING[17] = (
  16.    'DefaultFont',   'TriplexFont',       'SmallFont',
  17.    'SansSerifFont', 'GothicFont',        'ScriptFont',
  18.    'SimplexFont',   'TriplexScriptFont', 'ComplexFont',
  19.    'EuropeanFont',  'BoldFont');
  20.  
  21. VAR
  22.   gd, gm, i: INTEGER;
  23.  
  24. BEGIN
  25.   DetectGraph(gd, gm);
  26.   InitGraph(gd, gm, '');
  27.   SetTextJustify(CenterText, TopText);
  28.   FOR i := DefaultFont TO BoldFont DO
  29.   BEGIN
  30.     SetTextStyle(i, HorizDir, 3);
  31.     OutTextXY(GetMaxX DIV 2,
  32.               5 + (i * ((GetMaxX+1) DIV 15)),
  33.               FontNames[i]);
  34.   END;
  35.   REPEAT UNTIL KeyPressed;
  36.   CloseGraph;
  37. END.
  38.  
  39. (*===================================================================*)
  40.