bcutilities.pas

絮语2007视频聊天软件源程序.仅供参考

{ Unit: BcUtils
  ===========================================================================

  Copyright (C) 2001 Bluecave Software. All Rights Reserved.
  http://www.bluecave.net/

  Copyright (C) 2001 Jouni Airaksinen. All Rights Reserved.
  http://Mintus.Codefield.com/ -- [e-mail]


  Parts copied from,
    Borland Delphi Visual Component Library
    Copyright (c) Borland Corporation

  =========================================================================== }

{$I DFS.inc}
{$I BcDirectives.inc}

unit BcUtilities;

interface

type
  TColorQuad = record
    Red, Green, Blue, Alpha: Byte;
  end;

procedure Error(ResStr: PResStringRec); { source VCL Menus.pas }

implementation

uses
  Menus;

procedure Error(ResStr: PResStringRec);
  function ReturnAddr: Pointer;
  asm
    mov eax, [esp+8]
  end;
begin
  raise EMenuError.CreateRes(ResStr) at ReturnAddr;
end;

end.