font.inc

著名的游戏开发库Allegro4.2.0 for DELPHI

{*         ______   ___    ___
 *        /\  _  \ /\_ \  /\_ \
 *        \ \ \L\ \\//\ \ \//\ \      __     __   _ __   ___
 *         \ \  __ \ \ \ \  \ \ \   /'__`\ /'_ `\/\`'__\/ __`\
 *          \ \ \/\ \ \_\ \_ \_\ \_/\  __//\ \L\ \ \ \//\ \L\ \
 *           \ \_\ \_\/\____\/\____\ \____\ \____ \ \_\\ \____/
 *            \/_/\/_/\/____/\/____/\/____/\/___L\ \/_/ \/___/
 *                                           /\____/
 *                                           \_/__/
 *
 *      Font loading routines.
 *
 *      By Evert Glebbeek.
 *
 *      See readme.txt for copyright information.
 *}
{$IFDEF ALLEGRO_INTERFACE}
type
  fontload_ptr = function(const filename: PChar; pal: P_PALETTE; param: Pointer): P_FONT; cdecl;

var
  is_color_font: function(f: P_FONT): sint32; cdecl;
  is_mono_font: function(f: P_FONT): sint32; cdecl;
  is_compatible_font: function(f1, f2: P_FONT): sint32; cdecl;

  register_font_file_type: procedure(const ext: PChar; load: fontload_ptr); cdecl;

  load_font: function(const filename: PChar; pal: P_PALETTE; param: Pointer): P_FONT; cdecl;

  load_dat_font: function(const filename: PChar; pal: P_PALETTE; param: Pointer): P_FONT; cdecl;
  load_bios_font: function(const filename: PChar; pal: P_PALETTE; param: Pointer): P_FONT; cdecl;
  load_grx_font: function(const filename: PChar; pal: P_PALETTE; param: Pointer): P_FONT; cdecl;
  load_grx_or_bios_font: function(const filename: PChar; pal: P_PALETTE; param: Pointer): P_FONT; cdecl;
  load_bitmap_font: function(const filename: PChar; pal: P_PALETTE; param: Pointer): P_FONT; cdecl;
  load_txt_font: function(const filename: PChar; pal: P_PALETTE; param: Pointer): P_FONT; cdecl;

  grab_font_from_bitmap: function(bmp: P_BITMAP): P_FONT; cdecl;

  get_font_ranges: function(f: P_FONT): sint32; cdecl;
  get_font_range_begin: function(f: P_FONT; range: sint32): sint32; cdecl;
  get_font_range_end: function(f: P_FONT; range: sint32): sint32; cdecl;
  extract_font_range: function(f: P_FONT; fbegin, fend: sint32): P_FONT; cdecl;
  merge_fonts: function(f1, f2: P_FONT): P_FONT; cdecl;
  transpose_font: function(f: P_FONT; drange: sint32): sint32; cdecl;
{$ENDIF ALLEGRO_INTERFACE}

{$IFDEF ALLEGRO_IMPLEMENTATION}
{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
  is_color_font           := LoadDLL('is_color_font');
  is_mono_font            := LoadDLL('is_mono_font');
  is_compatible_font      := LoadDLL('is_compatible_font');
  register_font_file_type := LoadDLL('register_font_file_type');
  load_font               := LoadDLL('load_font');
  load_dat_font           := LoadDLL('load_dat_font');
  load_bios_font          := LoadDLL('load_bios_font');
  load_grx_font           := LoadDLL('load_grx_font');
  load_grx_or_bios_font   := LoadDLL('load_grx_or_bios_font');
  load_bitmap_font        := LoadDLL('load_bitmap_font');
  load_txt_font           := LoadDLL('load_txt_font');
  grab_font_from_bitmap   := LoadDLL('grab_font_from_bitmap');
  get_font_ranges         := LoadDLL('get_font_ranges');
  get_font_range_begin    := LoadDLL('get_font_range_begin');
  get_font_range_end      := LoadDLL('get_font_range_end');
  extract_font_range      := LoadDLL('extract_font_range');
  merge_fonts             := LoadDLL('merge_fonts');
  transpose_font          := LoadDLL('transpose_font');
{$ENDIF ALLEGRO_LOADVARIABLE}