home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / grafik / bgiimpor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-09  |  3.2 KB  |  91 lines
  1. {$A+,B-,D-,E-,F+,G-,I-,K-,L+,N-,O-,P-,Q-,R-,S+,T-,V+,W-,X+,Y+}
  2. {$M 16384,0}
  3. (*===================================================================*)
  4. (*                         BGIIMPORT.PAS                             *)
  5. (*               Interface-Unit zur DLL »BGILIB.PAS«                 *)
  6. (*                 (C) 1993 te-wi Verlag München                     *)
  7. (*===================================================================*)
  8.  
  9. {$IFNDEF DPMI}
  10.   Fehler: Nur im DMPI-Modus mit Borland Pascal!
  11. {$ENDIF}
  12.  
  13. UNIT BGIImport;
  14.  
  15. INTERFACE
  16.  
  17. CONST
  18.   BGIDLL = 'BGILIB';
  19.  
  20. VAR
  21.   ScriptFont,
  22.   SimplexFont,      
  23.   TriplexScriptFont,
  24.   ComplexFont,      
  25.   EuropeanFont,     
  26.   BoldFont,         
  27.   UserDriver      : INTEGER;
  28.  
  29. PROCEDURE CGADriverProc;        
  30. PROCEDURE PC3270DriverProc;     
  31. PROCEDURE VESA16DriverProc;     
  32. PROCEDURE EGAVGADriverProc;     
  33. PROCEDURE ATT400DriverProc;     
  34. PROCEDURE IBM8514DriverProc;    
  35. PROCEDURE HercDriverProc;       
  36. PROCEDURE SVGADriverProc;       
  37. PROCEDURE SmallFontProc;        
  38. PROCEDURE TriplexFontProc;      
  39. PROCEDURE SansSerifFontProc;    
  40. PROCEDURE GothicFontProc;       
  41. PROCEDURE ScriptFontProc;
  42. PROCEDURE SimplexFontProc;      
  43. PROCEDURE TriplexScriptFontProc;
  44. PROCEDURE ComplexFontProc;      
  45. PROCEDURE EuropeanFontProc;     
  46. PROCEDURE BoldFontProc;         
  47.  
  48. IMPLEMENTATION
  49. USES
  50.   Graph;
  51.  
  52. PROCEDURE CGADriverProc;        EXTERNAL BGIDLL INDEX 01;
  53. PROCEDURE PC3270DriverProc;     EXTERNAL BGIDLL INDEX 02;
  54. PROCEDURE VESA16DriverProc;     EXTERNAL BGIDLL INDEX 03;
  55. PROCEDURE EGAVGADriverProc;     EXTERNAL BGIDLL INDEX 04;
  56. PROCEDURE ATT400DriverProc;     EXTERNAL BGIDLL INDEX 05;
  57. PROCEDURE IBM8514DriverProc;    EXTERNAL BGIDLL INDEX 06;
  58. PROCEDURE HercDriverProc;       EXTERNAL BGIDLL INDEX 07;
  59. PROCEDURE SVGADriverProc;       EXTERNAL BGIDLL INDEX 08;
  60. PROCEDURE SmallFontProc;        EXTERNAL BGIDLL INDEX 09;
  61. PROCEDURE TriplexFontProc;      EXTERNAL BGIDLL INDEX 10;
  62. PROCEDURE SansSerifFontProc;    EXTERNAL BGIDLL INDEX 11;
  63. PROCEDURE GothicFontProc;       EXTERNAL BGIDLL INDEX 12;
  64. PROCEDURE ScriptFontProc;       EXTERNAL BGIDLL INDEX 13;
  65. PROCEDURE SimplexFontProc;      EXTERNAL BGIDLL INDEX 14;
  66. PROCEDURE TriplexScriptFontProc;EXTERNAL BGIDLL INDEX 15;
  67. PROCEDURE ComplexFontProc;      EXTERNAL BGIDLL INDEX 16;
  68. PROCEDURE EuropeanFontProc;     EXTERNAL BGIDLL INDEX 17;
  69. PROCEDURE BoldFontProc;         EXTERNAL BGIDLL INDEX 18;
  70.  
  71. BEGIN
  72.   RegisterBGIDriver(@CGADriverProc);
  73.   RegisterBGIDriver(@PC3270DriverProc);
  74.   RegisterBGIDriver(@EGAVGADriverProc);
  75.   RegisterBGIDriver(@ATT400DriverProc);
  76.   RegisterBGIDriver(@IBM8514DriverProc);
  77.   RegisterBGIDriver(@HercDriverProc);
  78.   RegisterBGIFont(@SmallFontProc);
  79.   RegisterBGIFont(@TriplexFontProc);
  80.   RegisterBGIFont(@SansSerifFontProc);
  81.   RegisterBGIFont(@GothicFontProc);
  82.  
  83.   ScriptFont        := RegisterBGIFont(@ScriptFontProc);
  84.   SimplexFont       := RegisterBGIFont(@SimplexFontProc);
  85.   TriplexScriptFont := RegisterBGIFont(@TriplexScriptFontProc);
  86.   ComplexFont       := RegisterBGIFont(@ComplexFontProc);
  87.   EuropeanFont      := RegisterBGIFont(@EuropeanFontProc);
  88.   BoldFont          := RegisterBGIFont(@BoldFontProc);
  89. END.
  90.  
  91. (*===================================================================*)