gui.inc

来自「著名的游戏开发库Allegro4.2.0 for DELPHI」· INC 代码 · 共 50 行

{*         ______   ___    ___
 *        /\  _  \ /\_ \  /\_ \
 *        \ \ \L\ \\//\ \ \//\ \      __     __   _ __   ___
 *         \ \  __ \ \ \ \  \ \ \   /'__`\ /'_ `\/\`'__\/ __`\
 *          \ \ \/\ \ \_\ \_ \_\ \_/\  __//\ \L\ \ \ \//\ \L\ \
 *           \ \_\ \_\/\____\/\____\ \____\ \____ \ \_\\ \____/
 *            \/_/\/_/\/____/\/____/\/____/\/___L\ \/_/ \/___/
 *                                           /\____/
 *                                           \_/__/
 *
 *      GUI inline functions (generic C).
 *
 *      By Shawn Hargreaves.
 *
 *      See readme.txt for copyright information.
 *}
{$IFDEF ALLEGRO_INTERFACE}
function inline_object_message(d: P_DIALOG; msg, c: sint32): sint32; cdecl;

{$ENDIF ALLEGRO_INTERFACE}
{$IFDEF ALLEGRO_IMPLEMENTATION}
function inline_object_message(d: P_DIALOG; msg, c: sint32): sint32;
begin
  if msg = MSG_DRAW then
  begin
    if (d^.flags and D_HIDDEN) <> 0 then
    begin
      Result := D_O_K;
      Exit;
    end;
    acquire_screen();
  end;

  Result := d^.proc(msg, d, c);

  if msg = MSG_DRAW then
    release_screen();

  if (Result and D_REDRAWME) <> 0 then
  begin
    d^.flags := d^.flags or D_DIRTY;
    Result := Result and (not D_REDRAWME);
  end;
end;

{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
{$ENDIF ALLEGRO_LOADVARIABLE}