home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / gp / bgifont.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-04-18  |  1.6 KB  |  67 lines
  1. {************************************************}
  2. { MODIFIED 4/8/94 to include ALL 10 fonts :      }
  3. { FIVE (5) here and FOUR (4) in BGIFONT2.PAS     }
  4. { and ONE (1) in BGIFONT3.PAS                    }
  5.  
  6. { BGIFONT.PAS : BoldFont, EUROFont, GothicFont,  }
  7. {               LcomFont, and SmallFont          }
  8. { BGIFONT2.PAS: SansSerifFont, ScriFont, SimpFont}
  9. {               TriplexFont                      }
  10. { BGIFONT3.PAS: TscrFont                         }
  11.  
  12. {>>> MODIFIED TO ONLY LINK IN SMALLFONT <<<      }
  13. {    SEE COMMENTED OUT CODE                      }
  14. {                                                }
  15. {************************************************}
  16.  
  17. unit BGIFont;
  18.  
  19. interface
  20.  
  21. (*procedure BoldFontProc;*)
  22. (*procedure EuroFontProc;*)
  23. (*procedure GothicFontProc;*)
  24. (*procedure LcomFontProc;*)
  25. procedure SmallFontProc;
  26. procedure SansSerifFontProc;
  27. (*procedure ScriFontProc;*)
  28. (*procedure SimpFontProc;*)
  29. (*procedure TriplexFontProc;*)
  30. (*procedure TscrFontProc;*)
  31.  
  32.  
  33. implementation
  34.  
  35. (*procedure BoldFontProc; external;
  36. {$L BOLD.OBJ }
  37. *)
  38. (*procedure EuroFontProc; external;
  39. {$L EURO.OBJ }
  40. *)
  41. (*procedure GothicFontProc; external;
  42. {$L GOTH.OBJ }
  43. *)
  44. (*procedure LcomFontProc; external;
  45. {$L LCOM.OBJ }
  46. *)
  47. procedure SmallFontProc; external;
  48. {$L LITT.OBJ }
  49.  
  50. procedure SansSerifFontProc; external;
  51. {$L SANS.OBJ }
  52.  
  53. (*procedure ScriFontProc; external;
  54. {$L SCRI.OBJ }
  55. *)
  56. (*procedure SimpFontProc; external;
  57. {$L SIMP.OBJ }
  58. *)
  59.  
  60. (*procedure TriplexFontProc; external;
  61. {$L TRIP.OBJ }
  62. *)
  63. (*procedure TscrFontProc; external;
  64. {$L TSCR.OBJ }
  65. *)
  66. end.
  67.