text.inc

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

{*         ______   ___    ___
 *        /\  _  \ /\_ \  /\_ \
 *        \ \ \L\ \\//\ \ \//\ \      __     __   _ __   ___
 *         \ \  __ \ \ \ \  \ \ \   /'__`\ /'_ `\/\`'__\/ __`\
 *          \ \ \/\ \ \_\ \_ \_\ \_/\  __//\ \L\ \ \ \//\ \L\ \
 *           \ \_\ \_\/\____\/\____\ \____\ \____ \ \_\\ \____/
 *            \/_/\/_/\/____/\/____/\/____/\/___L\ \/_/ \/___/
 *                                           /\____/
 *                                           \_/__/
 *
 *      Text output routines.
 *
 *      By Shawn Hargreaves.
 *
 *      See readme.txt for copyright information.
 *}
{$IFDEF ALLEGRO_INTERFACE}
var
  the_font: ^P_FONT;
  allegro_404_char: p_sint32;

  textout_ex: procedure(bmp: P_BITMAP; const f: P_FONT; const str: PChar; x, y, color, bg: sint32); cdecl;
  textout_centre_ex: procedure(bmp: P_BITMAP; const f: P_FONT; const str: PChar; x, y, color, bg: sint32); cdecl;
  textout_right_ex: procedure(bmp: P_BITMAP; const f: P_FONT; const str: PChar; x, y, color, bg: sint32); cdecl;
  textout_justify_ex: procedure(bmp: P_BITMAP; const f: P_FONT; const str: PChar; x1, x2, y, diff, color, bg: sint32); cdecl;

  textprintf_ex: procedure(bmp: P_BITMAP; const f: P_FONT; x, y, color, bg: sint32; const format: PChar); cdecl;
  textprintf_centre_ex: procedure(bmp: P_BITMAP; const f: P_FONT; x, y, color, bg: sint32; const format: PChar); cdecl;
  textprintf_right_ex: procedure(bmp: P_BITMAP; const f: P_FONT; x, y, color, bg: sint32; const format: PChar); cdecl;
  textprintf_justify_ex: procedure(bmp: P_BITMAP; const f: P_FONT; x1, x2, y, diff, color, bg: sint32; const format: PChar); cdecl;
  text_length: function(const f: P_FONT; const str: PChar): sint32; cdecl;
  text_height: function(const f: P_FONT): sint32; cdecl;
  destroy_font: procedure(f: P_FONT); cdecl;
{$ENDIF ALLEGRO_INTERFACE}
{$IFDEF ALLEGRO_IMPLEMENTATION}
{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
  the_font              := LoadDLL('font');
  allegro_404_char      := LoadDLL('allegro_404_char');
  textout_ex            := LoadDLL('textout_ex');
  textout_centre_ex     := LoadDLL('textout_centre_ex');
  textout_right_ex      := LoadDLL('textout_right_ex');
  textout_justify_ex    := LoadDLL('textout_justify_ex');
  textprintf_ex         := LoadDLL('textprintf_ex');
  textprintf_centre_ex  := LoadDLL('textprintf_centre_ex');
  textprintf_right_ex   := LoadDLL('textprintf_right_ex');
  textprintf_justify_ex := LoadDLL('textprintf_justify_ex');
  text_length           := LoadDLL('text_length');
  text_height           := LoadDLL('text_height');
  destroy_font          := LoadDLL('destroy_font');
{$ENDIF ALLEGRO_LOADVARIABLE}