home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 07 / vgraf / chr.def next >
Encoding:
Modula Definition  |  1989-05-03  |  1.8 KB  |  57 lines
  1. (*******************************************************)
  2. (*                      CHR.DEF                        *)
  3. (*          Definitionmodul des CHR-Moduls             *)
  4. (*       Treiberroutinen für BGI-Zeichensätze          *)
  5. (*         (C) 1989 R.Hensmann & TOOLBOX               *)
  6.  
  7. DEFINITION MODULE Chr;
  8.  
  9. CONST DefaultFont = 1; (* Kein Rasterfont verfügbar ! *)
  10.       TriplexFont = 1;
  11.       SmallFont = 2;
  12.       SansSerifFont = 3;
  13.       GothicFont = 4;
  14.  
  15.       HorizDir = 0;
  16.       VertDir = 1;
  17.  
  18.  
  19. PROCEDURE LoadDriver( Name : ARRAY OF CHAR ) : ADDRESS;
  20.   (* Lädt File in internen Puffer *)
  21.  
  22. PROCEDURE RegisterFont( Adr : ADDRESS);
  23.   (* Trägt Puffer in Tabelle ein *)
  24.  
  25. PROCEDURE TextStyle( Name       : ARRAY OF CHAR;
  26.                      Horizontal : BOOLEAN;
  27.                      NewScaleX,
  28.                      NewScaleY  : CARDINAL);
  29.   (* Wählt Font aus - nur die ersten vier
  30.      Buchstaben sind signifikant          *)
  31.  
  32. (*--- BORLAND-konforme Routinen --------------------------*)
  33.  
  34. PROCEDURE InstallUserFont(Name :ARRAY OF CHAR): INTEGER;
  35.   (* Benutzerdefinierten BGI-Font laden, gibt
  36.      die interne Fontnummer zurück            *)
  37.  
  38. PROCEDURE SetTextStyle(Font : CARDINAL;
  39.                        Direction : CARDINAL;
  40.                        CharSize : CARDINAL    );
  41.   (* Textstyle über interne Nummer setzen *)
  42.  
  43. PROCEDURE OutCharXY( X,Y : CARDINAL; Ch : CHAR);
  44.   (* Gibt ein Zeichen an der vorgegebenen Stelle aus *)
  45.  
  46. PROCEDURE OutTextXY( X,Y : CARDINAL; Text : ARRAY OF CHAR);
  47.   (* Gibt einen String an der vorgegebenen Stelle aus *)
  48.  
  49. PROCEDURE TextHeight( Text : ARRAY OF CHAR) : CARDINAL;
  50.   (* Gibt die Texthöhe zurück (abhängig von
  51.      Textart und Skalierung)                        *)
  52.  
  53. PROCEDURE TextWidth( Text : ARRAY OF CHAR) : CARDINAL;
  54.   (* Gibt die Textbreite zurück *)
  55.  
  56. END Chr.
  57.